소스 검색

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 년 전
부모
커밋
4c0ea44208
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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;