Răsfoiți Sursa

* fix compilation for r1224

git-svn-id: trunk@1235 -
peter 20 ani în urmă
părinte
comite
e5ca17b598
2 a modificat fișierele cu 3 adăugiri și 4 ștergeri
  1. 3 3
      compiler/i386/cpupi.pas
  2. 0 1
      compiler/systems.pas

+ 3 - 3
compiler/i386/cpupi.pas

@@ -41,7 +41,7 @@ unit cpupi;
 
     uses
       cutils,
-      globals,
+      systems,globals,
       tgobj,
       cpubase;
 
@@ -56,10 +56,10 @@ unit cpupi;
       begin
         { align to 4 bytes at least
           otherwise all those subl $2,%esp are meaningless PM }
-        if (target_info.system <> target_i386_darwin) then
+        if (target_info.system <> system_i386_darwin) then
           result:=Align(tg.direction*tg.lasttemp,min(aktalignment.localalignmin,4))
         else
-          result:=Align(tg.direction*tg.lasttemp,min(aktalignment.localalgnmin,16));
+          result:=Align(tg.direction*tg.lasttemp,min(aktalignment.localalignmin,16));
       end;
 
 

+ 0 - 1
compiler/systems.pas

@@ -120,7 +120,6 @@ interface
              system_i386_wince,         { 40 }
              system_x86_6432_linux,     { 41 }
              system_arm_gba,            { 42 }
-             system_arm_gba,            { 42 }
              system_powerpc64_linux,    { 43 }
              system_i386_darwin         { 44 }
        );