Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-06 12:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Force stack checking and repair off for internal calls to ~ZERO.

Browse Source 
This can make unoptimized initialization code a bit smaller and faster.
This commit is contained in:
Stephen Heumann 2021-10-19 22:17:09 -05:00
parent 7584f8185c
commit 772043241c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Parser.pas
View File

@ -4405,7 +4405,7 @@ var
Gen1t(pc_ldc, ord(elements), cgWord);
Gen0t(pc_stk, cgWord);
Gen0t(pc_bno, cgULong);
Gen1tName(pc_cup, 0, cgVoid, @'~ZERO');
Gen1tName(pc_cup, -1, cgVoid, @'~ZERO');
end; {if}
iPtr := iPtr^.next;
goto 1;
@ -4422,7 +4422,7 @@ var
Gen1t(pc_ldc, size, cgWord);
Gen0t(pc_stk, cgWord);
Gen0t(pc_bno, cgULong);
Gen1tName(pc_cup, 0, cgVoid, @'~ZERO');
Gen1tName(pc_cup, -1, cgVoid, @'~ZERO');
disp := disp + size;
count := count - long(elements).lsw;
if count = 0 then begin