paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix macro nesting check

Browse Source
This commit is contained in:
peter 2002-11-26 22:56:40 +00:00
parent 2b59d1cb5c
commit 6c097b4546
1 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/scanner.pas
View File

@ -34,6 +34,7 @@ interface
widestr,cpuinfo;
const
max_macro_nesting=16;
maxmacrolen=16*1024;
preprocbufsize=32*1024;
Newline = #10;
@ -2071,26 +2072,28 @@ implementation
mac:=tmacro(macros.search(pattern));
if assigned(mac) and (assigned(mac.buftext)) then
begin
insertmacro(pattern,mac.buftext,mac.buflen,
mac.fileinfo.line,mac.fileinfo.fileindex);
{ handle empty macros }
if c=#0 then
if yylexcount<max_macro_nesting then
begin
reload;
case c of
#26 : reload;
#10,
#13 : linebreak;
end;
end;
{ play it again ... }
inc(yylexcount);
if yylexcount>16 then
inc(yylexcount);
insertmacro(pattern,mac.buftext,mac.buflen,
mac.fileinfo.line,mac.fileinfo.fileindex);
{ handle empty macros }
if c=#0 then
begin
reload;
case c of
#26 : reload;
#10,
#13 : linebreak;
end;
end;
readtoken;
{ that's all folks }
dec(yylexcount);
exit;
end
else
Message(scan_w_macro_deep_ten);
readtoken;
{ that's all folks }
dec(yylexcount);
exit;
end;
end;
end;
@ -2798,7 +2801,10 @@ exit_label:
end.
{
$Log$
Revision 1.48 2002-09-16 19:05:48 peter
Revision 1.49 2002-11-26 22:56:40 peter
* fix macro nesting check
Revision 1.48 2002/09/16 19:05:48 peter
* parse ^ after nil as caret
Revision 1.47 2002/09/06 14:58:42 carl