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

* when restoring the state after parsing the last token of the token buffer append the message state to the pending state so that they are reapplied at the correct time

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-29 21:53:43 +01:00
parent c3a6df26ee
commit f2d41e680b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/scanner.pas
View File

@ -3772,6 +3772,10 @@ type
change_endian_for_replay:=replaystack.tokenbuf_needs_swapping;
{ restore compiler settings }
current_settings:=replaystack.settings;
if assigned(pendingstate.nextmessagerecord) then
FreeLocalVerbosity(pendingstate.nextmessagerecord);
pendingstate.nextmessagerecord:=current_settings.pmessage;
current_settings.pmessage:=nil;
popreplaystack;
{$ifdef check_inputpointer_limits}
if assigned(hidden_inputpointer) then