Kaynağa Gözat

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 8 yıl önce
ebeveyn
işleme
4c0ea44208
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  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;