Ver Fonte

* 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

Sven/Sarah Barth há 9 meses atrás
pai
commit
f2d41e680b
1 ficheiros alterados com 4 adições e 0 exclusões
  1. 4 0
      compiler/scanner.pas

+ 4 - 0
compiler/scanner.pas

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