Explorar el 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 hace 8 años
padre
commit
4c0ea44208
Se han modificado 1 ficheros con 1 adiciones y 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;