Browse Source

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

git-svn-id: trunk@32474 -
Jonas Maebe 9 years ago
parent
commit
f4a62c4c60
1 changed files with 4 additions and 4 deletions
  1. 4 4
      compiler/ppu.pas

+ 4 - 4
compiler/ppu.pas

@@ -823,10 +823,10 @@ begin
     end;
 {$else not generic_cpu}
   case sizeof(asizeint) of
-    8: result:=getqword;
-    4: result:=getdword;
-    2: result:=getword;
-    1: result:=getbyte;
+    8: result:=asizeint(getint64);
+    4: result:=asizeint(getlongint);
+    2: result:=asizeint(getword);
+    1: result:=asizeint(getbyte);
     else
       result:=0;
   end;