浏览代码

* determine size of aword/aint/asizeint based on type size instead of based
on defines

git-svn-id: branches/jvmbackend@18602 -

Jonas Maebe 14 年之前
父节点
当前提交
6bc68a11d9
共有 1 个文件被更改,包括 12 次插入15 次删除
  1. 12 15
      compiler/ppu.pas

+ 12 - 15
compiler/ppu.pas

@@ -789,11 +789,10 @@ begin
       result:=0;
       result:=0;
     end;
     end;
 {$else not generic_cpu}
 {$else not generic_cpu}
-{$ifdef cpu64bitalu}
-  result:=getint64;
-{$else cpu64bitalu}
-  result:=getlongint;
-{$endif cpu64bitalu}
+  if sizeof(aint)=8 then
+    result:=getint64
+  else
+    result:=getlongint;
 {$endif not generic_cpu}
 {$endif not generic_cpu}
 end;
 end;
 
 
@@ -813,11 +812,10 @@ begin
       result:=0;
       result:=0;
     end;
     end;
 {$else not generic_cpu}
 {$else not generic_cpu}
-{$ifdef cpu64bitaddr}
-  result:=getint64;
-{$else cpu64bitaddr}
-  result:=getlongint;
-{$endif cpu32bitaddr}
+  if sizeof(asizeint)=8 then
+    result:=getint64
+  else
+    result:=getlongint;
 {$endif not generic_cpu}
 {$endif not generic_cpu}
 end;
 end;
 
 
@@ -839,11 +837,10 @@ begin
       result:=0;
       result:=0;
     end;
     end;
 {$else not generic_cpu}
 {$else not generic_cpu}
-{$ifdef cpu64bitalu}
-  result:=getqword;
-{$else cpu64bitalu}
-  result:=getdword;
-{$endif cpu64bitalu}
+  if sizeof(aword)=8 then
+    result:=getqword
+  else
+    result:=getdword;
 {$endif not generic_cpu}
 {$endif not generic_cpu}
 end;
 end;