Explorar o código

adapted commit rev 32474: avoid range check error in geasizeint method.
------------------------------------------------------------------------
r32474 | jonas | 2015-11-22 12:49:47 +0100 (Sun, 22 Nov 2015) | 1 line

* fixed (harmless) range errors in getasizeint() after r32444
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_0@36151 -

pierre %!s(int64=8) %!d(string=hai) anos
pai
achega
4c0ea44208
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/ppu.pas

+ 1 - 1
compiler/ppu.pas

@@ -825,7 +825,7 @@ begin
 {$elseif defined(cpu32bitaddr)}
   result:=getlongint;
 {$elseif defined(cpu16bitaddr)}
-  result:=getword;
+  result:=asizeint(getword);
 {$endif}
 {$endif not generic_cpu}
 end;