Add explicit typecast to avoid range check error

git-svn-id: trunk@40001 -
2025-04-22 07:09:29 +02:00 · 2018-10-20 22:19:08 +00:00 · 2018-10-20 22:19:08 +00:00 · 378e1dfaa4
commit 378e1dfaa4
parent 0bcf9a51d9
1 changed files with 1 additions and 1 deletions
--- a/compiler/utils/ppuutils/ppudump.pp
+++ b/compiler/utils/ppuutils/ppudump.pp
@ -2603,7 +2603,7 @@ begin
                   write  ([space,'  PointerType : ']);
                   readderef('',constdef.TypeRef);
                   constdef.ConstType:=ctInt;
-                   constdef.VInt:=getptruint;
+                   constdef.VInt:=int64(getptruint);
                   writeln([space,'        Value : ',constdef.VInt])
                 end;
               conststring,