From ae2801c70790f2ca13095a0c6ffea0e04b70a5e3 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 24 Apr 2020 14:09:02 +0000
Subject: [PATCH] * use asInt64 instead of asInt to evaluate an Integer
 expression

git-svn-id: trunk@45052 -
---
 compiler/scanner.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index d5fe9b5d59..5a27c51e6b 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1329,12 +1329,12 @@ type
 
   function texprvalue.isBoolean: Boolean;
     var
-      i: integer;
+      i: int64;
     begin
       result:=is_boolean(def);
       if not result and is_integer(def) then
         begin
-          i:=asInt;
+          i:=asInt64;
           result:=(i=0)or(i=1);
         end;
     end;