Jelajahi Sumber

* cleaned up initialization of (ptr)s/uinttype

git-svn-id: trunk@32746 -
florian 9 tahun lalu
induk
melakukan
c83fa22b2b
1 mengubah file dengan 4 tambahan dan 4 penghapusan
  1. 4 4
      compiler/psystem.pas

+ 4 - 4
compiler/psystem.pas

@@ -113,14 +113,14 @@ implementation
     procedure set_default_int_types;
       begin
 {$ifdef cpu64bitaddr}
-        uinttype:=u64inttype;
-        sinttype:=s64inttype;
         ptruinttype:=u64inttype;
         ptrsinttype:=s64inttype;
 {$endif cpu64bitaddr}
+{$ifdef cpu64bitalu}
+        uinttype:=u64inttype;
+        sinttype:=s64inttype;
+{$endif cpu64bitalu}
 {$ifdef cpu32bitaddr}
-        uinttype:=u32inttype;
-        sinttype:=s32inttype;
         ptruinttype:=u32inttype;
         ptrsinttype:=s32inttype;
 {$endif cpu32bitaddr}