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

* ensure that current_settings.pmessage is reset when doing a replay and when loading the current message state from the token stream

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-30 19:42:41 +01:00
parent 5ec9386d27
commit 3ba27d3160
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -3721,6 +3721,9 @@ type
{ install buffer }
replaytokenbuf:=buf;
{ ensure that existing message state records won't be freed }
current_settings.pmessage:=nil;
{ flushpendingswitchesstate should have been called }
if assigned(pendingstate.nextmessagerecord) then
internalerror(2024122901);
@ -3863,7 +3866,8 @@ type
end;
ST_LOADMESSAGES:
begin
{ free pending messages }
{ free current and pending messages }
FreeLocalVerbosity(current_settings.pmessage);
FreeLocalVerbosity(pendingstate.nextmessagerecord);
{ the message settings are stored from newest to oldest
change for the whole stack, so we only want to apply