Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-05-31 18:41:31 +00:00
Code Issues Projects Releases Wiki Activity

Move Short function out of the blank segment.

Browse Source 
This makes a bit more room in the blank segment, which is necessary when codegen debugging is enabled.
This commit is contained in:
Stephen Heumann 2022-05-26 19:15:03 -05:00
parent 58771ec71c
commit 0b6d150198
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Native.asm
View File

@ -50,7 +50,8 @@ rtl dec nNextSpot nnextspot := nnextspot-1;
* *
**************************************************************** ****************************************************************
* *
Short start Short start CodeGen
using ShortData
elSize equ 12 size of npeep array element elSize equ 12 size of npeep array element
peep_opcode equ 0 disp in nativeType of opcode peep_opcode equ 0 disp in nativeType of opcode
peep_mode equ 2 disp in nativeType of mode peep_mode equ 2 disp in nativeType of mode
@ -138,7 +139,9 @@ lb5 anop end;
lb6 stz fn Short := false; lb6 stz fn Short := false;
lab1 anop 1:end; {Short} lab1 anop 1:end; {Short}
return 2:fn return 2:fn
end
ShortData privdata
fn ds 2 function return value fn ds 2 function return value
size dc i1'2,2,2,2,2,2,2,2,1,3,1,1,3,3,3,4' size dc i1'2,2,2,2,2,2,2,2,1,3,1,1,3,3,3,4'