From a0db717adf4e5136f398523d99b85d6d95975f37 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 20 Nov 2020 19:47:19 +0000
Subject: [PATCH] * Fix hex number evaluation in conditional expressions

git-svn-id: trunk@47498 -
(cherry picked from commit 37b827c6a099244ab066eea9d2824e5f68fc43cd)
---
 packages/fcl-passrc/src/pscanner.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index 858fcf8b1c..822c2bfe77 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -1643,6 +1643,7 @@ begin
   '$':
     begin
     FToken:=tkNumber;
+    inc(FTokenEnd);
     {$ifdef UsePChar}
     while FTokenEnd^ in HexDigits do inc(FTokenEnd);
     {$else}