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

Increase the limit on the number of intermediate code labels in a function from 2400 to 3200.

Browse Source 
This is necessary to compile some very large functions, such as the main interpreter loop in Git.

This consumes about 8K of extra memory for the additional label records.
This commit is contained in:
Stephen Heumann 2016-11-23 21:03:04 -06:00
parent 709f9b3f25
commit a4bffe65e5
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CCommon.pas
View File

@ -622,7 +622,8 @@ implementation
const const
{Note: maxLabel is also defined in cgi.pas} {Note: maxLabel is also defined in cgi.pas}
maxLabel = 2400; {max # compiler generated labels} {Note: maxlabel is also defined in CGC.asm}
maxLabel = 3200; {max # compiler generated labels}
{spinner} {spinner}
{-------} {-------}

2
CGC.asm
View File

@ -96,7 +96,7 @@ rec_cmp equ 18 disp to comp (SANE) value
**************************************************************** ****************************************************************
* *
InitLabels start InitLabels start
maxLabel equ 2400 maxLabel equ 3200
! with labelTab[0] do begin ! with labelTab[0] do begin
lda #-1 val := -1; lda #-1 val := -1;

4
CGI.pas
View File

@ -194,8 +194,8 @@ const
{---------------} {---------------}
maxCBuff = 191; {length of constant buffer} maxCBuff = 191; {length of constant buffer}
{Note: maxlabel is also defined in CCommon.pas} {Note: maxlabel is also defined in CCommon.pas}
{Note: maxlabel is also defined in objout.asm} {Note: maxlabel is also defined in CGC.asm}
maxLabel = 2400; {max # of internal labels} maxLabel = 3200; {max # of internal labels}
maxLocalLabel = 200; {max # local variables} maxLocalLabel = 200; {max # local variables}
maxString = 8000; {max # chars in string space} maxString = 8000; {max # chars in string space}