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

Avoid possible stack overflow when merging adjacent string literals.

Browse Source 
The code for this was recursive and could overflow if there were several dozen consecutive string literals. It has been changed to only use one level of recursion, avoiding the problem.
This commit is contained in:
Stephen Heumann 2021-10-11 18:55:10 -05:00
parent 27be3e26ae
commit b076f85149
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Scanner.pas
View File

@ -254,6 +254,7 @@ var
includeChPtr: ptr; {chPtr at start of current token}
includeCount: 0..maxint; {nested include files (for EndInclude)}
macroFound: macroRecordPtr; {last macro found by IsDefined}
mergingStrings: boolean; {is NextToken trying to merge strings?}
needWriteLine: boolean; {is there a line that needs to be written?}
onOffValue: onOffEnum; {value of last on-off switch}
wroteLine: boolean; {has the current line already been written?}
@ -3911,6 +3912,7 @@ doingPPExpression := false; {not doing a preprocessor expression}
unix_1 := false; {int is 16 bits}
lintIsError := true; {lint messages are considered errors}
fenvAccess := false; {not accessing fp environment}
mergingStrings := false; {not currently merging strings}
{error codes for lint messages}
{if changed, also change maxLint}
@ -4830,8 +4832,8 @@ tokenEnd := pointer(ord4(chPtr)-1); {record the end of the token}
if skipping then {conditional compilation branch}
if not (token.kind in [eofsy,eolsy]) then
goto 3;
if token.kind = stringconst then {handle adjacent strings}
repeat
if (token.kind = stringconst) and not mergingStrings {handle adjacent strings}
then repeat
if reportEOL then begin
while charKinds[ord(ch)] = ch_white do
NextCh;
@ -4841,7 +4843,9 @@ if token.kind = stringconst then {handle adjacent strings}
tToken := token;
lPrintMacroExpansions := printMacroExpansions;
printMacroExpansions := false;
mergingStrings := true;
NextToken;
mergingStrings := false;
printMacroExpansions := lPrintMacroExpansions;
if token.kind = stringconst then begin
Merge(tToken, token);