paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not crash in case of too many $push directives, resolves #39652

Browse Source
This commit is contained in:
florian 2022-04-07 22:51:30 +02:00
parent 92a0640bcc
commit 54dccaaad1
2 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/scandir.pas
View File

@ -1204,24 +1204,26 @@ unit scandir;
begin
if switchesstatestackpos < 1 then
Message(scan_e_too_many_pop);
Dec(switchesstatestackpos);
recordpendinglocalfullswitch(switchesstatestack[switchesstatestackpos].localsw);
recordpendingverbosityfullswitch(switchesstatestack[switchesstatestackpos].verbosity);
recordpendingalignmentfullswitch(switchesstatestack[switchesstatestackpos].alignment);
recordpendingpackenum(switchesstatestack[switchesstatestackpos].packenum);
recordpendingpackrecords(switchesstatestack[switchesstatestackpos].packrecords);
recordpendingsetalloc(switchesstatestack[switchesstatestackpos].setalloc);
pendingstate.nextmessagerecord:=switchesstatestack[switchesstatestackpos].pmessage;
{ Reset verbosity and forget previous pmeesage }
RestoreLocalVerbosity(nil);
current_settings.pmessage:=nil;
{ Do not yet activate these changes, as otherwise
you get problem idf you put a $pop just right after
a addition for instance fro which you explicitly truned the overflow check
out by using $Q- after a $push PM 2012-08-29 }
// flushpendingswitchesstate;
Message(scan_e_too_many_pop)
else
begin
Dec(switchesstatestackpos);
recordpendinglocalfullswitch(switchesstatestack[switchesstatestackpos].localsw);
recordpendingverbosityfullswitch(switchesstatestack[switchesstatestackpos].verbosity);
recordpendingalignmentfullswitch(switchesstatestack[switchesstatestackpos].alignment);
recordpendingpackenum(switchesstatestack[switchesstatestackpos].packenum);
recordpendingpackrecords(switchesstatestack[switchesstatestackpos].packrecords);
recordpendingsetalloc(switchesstatestack[switchesstatestackpos].setalloc);
pendingstate.nextmessagerecord:=switchesstatestack[switchesstatestackpos].pmessage;
{ Reset verbosity and forget previous pmeesage }
RestoreLocalVerbosity(nil);
current_settings.pmessage:=nil;
{ Do not yet activate these changes, as otherwise
you get problem idf you put a $pop just right after
a addition for instance fro which you explicitly truned the overflow check
out by using $Q- after a $push PM 2012-08-29 }
// flushpendingswitchesstate;
end;
end;
procedure dir_pointermath;

7
tests/webtbf/tw39652.pp Normal file
View File

@ -0,0 +1,7 @@
{ %fail }
program onepoptoomanycrash;
{$PUSH}
{$POP}
{$POP}
begin
end.