From e5428b21d29c6ba35bda4d1c7dcc2aba5d0f0b17 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sat, 29 Oct 2022 15:55:44 -0500
Subject: [PATCH] Do not skip over the character after _Pragma(...).

---
 Scanner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Scanner.pas b/Scanner.pas
index 7018272..6b14d12 100644
--- a/Scanner.pas
+++ b/Scanner.pas
@@ -1681,7 +1681,7 @@ fileList := fp;
 fp^.name := includeFileGS;
 fp^.sname := sourceFileGS;
 fp^.lineNumber := lineNumber;
-fp^.disp := ord4(chPtr)-ord4(bofPtr);
+fp^.disp := ord4(currentChPtr)-ord4(bofPtr);
 
 needWriteLine := false;
 bofPtr := buf;