paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 03:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation for r1224

Browse Source 
git-svn-id: trunk@1235 -
This commit is contained in:
peter 2005-09-30 05:59:34 +00:00
parent e6fc1af8b9
commit e5ca17b598
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/i386/cpupi.pas
View File

@ -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;

1
compiler/systems.pas
View File

@ -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 }
);