vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 04:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update bootstrap C sources.

Browse source
This commit is contained in:
David Brown 2016-12-12 20:06:40 +00:00
parent c5561dd0e0
commit 13241fabba
5 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
bootstrap/unix-44/Out.c
View file

@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
Out_String((CHAR*)"obj tag: ", 11); Out_String((CHAR*)"obj tag: ", 11);
Out_Hex(addr, 1); Out_Hex(addr, 1);
Out_Ln(); Out_Ln();
addr -= __MASK(addr, -2);
desc = (tag__4)(ADDRESS)(addr - 108); desc = (tag__4)(ADDRESS)(addr - 108);
Out_String((CHAR*)"desc at: ", 11); Out_String((CHAR*)"desc at: ", 11);
Out_Hex((INT32)(ADDRESS)desc, 1); Out_Hex((INT32)(ADDRESS)desc, 1);

1
bootstrap/unix-48/Out.c
View file

@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
Out_String((CHAR*)"obj tag: ", 11); Out_String((CHAR*)"obj tag: ", 11);
Out_Hex(addr, 1); Out_Hex(addr, 1);
Out_Ln(); Out_Ln();
addr -= __MASK(addr, -2);
desc = (tag__4)(ADDRESS)(addr - 108); desc = (tag__4)(ADDRESS)(addr - 108);
Out_String((CHAR*)"desc at: ", 11); Out_String((CHAR*)"desc at: ", 11);
Out_Hex((INT32)(ADDRESS)desc, 1); Out_Hex((INT32)(ADDRESS)desc, 1);

1
bootstrap/unix-88/Out.c
View file

@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
Out_String((CHAR*)"obj tag: ", 11); Out_String((CHAR*)"obj tag: ", 11);
Out_Hex(addr, 1); Out_Hex(addr, 1);
Out_Ln(); Out_Ln();
addr -= __MASK(addr, -2);
desc = (tag__4)(ADDRESS)(addr - 192); desc = (tag__4)(ADDRESS)(addr - 192);
Out_String((CHAR*)"desc at: ", 11); Out_String((CHAR*)"desc at: ", 11);
Out_Hex((INT64)(ADDRESS)desc, 1); Out_Hex((INT64)(ADDRESS)desc, 1);

1
bootstrap/windows-48/Out.c
View file

@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
Out_String((CHAR*)"obj tag: ", 11); Out_String((CHAR*)"obj tag: ", 11);
Out_Hex(addr, 1); Out_Hex(addr, 1);
Out_Ln(); Out_Ln();
addr -= __MASK(addr, -2);
desc = (tag__4)(ADDRESS)(addr - 108); desc = (tag__4)(ADDRESS)(addr - 108);
Out_String((CHAR*)"desc at: ", 11); Out_String((CHAR*)"desc at: ", 11);
Out_Hex((INT32)(ADDRESS)desc, 1); Out_Hex((INT32)(ADDRESS)desc, 1);

1
bootstrap/windows-88/Out.c
View file

@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
Out_String((CHAR*)"obj tag: ", 11); Out_String((CHAR*)"obj tag: ", 11);
Out_Hex(addr, 1); Out_Hex(addr, 1);
Out_Ln(); Out_Ln();
addr -= __MASK(addr, -2);
desc = (tag__4)(ADDRESS)(addr - 192); desc = (tag__4)(ADDRESS)(addr - 192);
Out_String((CHAR*)"desc at: ", 11); Out_String((CHAR*)"desc at: ", 11);
Out_Hex((INT64)(ADDRESS)desc, 1); Out_Hex((INT64)(ADDRESS)desc, 1);