From d335ce60dd4584a89ff9ca56ceba263b96aa585c Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Sun, 29 Dec 2024 21:52:18 +0100
Subject: [PATCH] * ensure that flushpendingswitchesstate had been called
 before the start of replaying tokens

---
 compiler/scanner.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 6c3d8181fd..214b4ef61d 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -3721,6 +3721,10 @@ type
         { install buffer }
         replaytokenbuf:=buf;
 
+        { flushpendingswitchesstate should have been called }
+        if assigned(pendingstate.nextmessagerecord) then
+          internalerror(2024122901);
+
         { Initialize value of change_endian_for_replay variable }
         change_endian_for_replay:=change_endian;