2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@32576 -
Jeppe Johansen 9 жил өмнө
parent
commit
f21f9ab930

+ 1 - 1
compiler/ncgld.pas

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