Parcourir la source

Fix issue with absolute offsets being sign extended from aint to asizeint.

git-svn-id: trunk@32576 -
Jeppe Johansen il y a 9 ans
Parent
commit
f21f9ab930
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      compiler/ncgld.pas

+ 1 - 1
compiler/ncgld.pas

@@ -249,7 +249,7 @@ implementation
 
     procedure tcgloadnode.generate_absaddr_access(vs: tabsolutevarsym);
       begin
-        location.reference.offset:=aint(vs.addroffset);
+        location.reference.offset:=asizeint(vs.addroffset);
       end;