paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 02:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more disabling of interrupt code for i386-darwin

Browse Source 
git-svn-id: trunk@2862 -
This commit is contained in:
Jonas Maebe 2006-03-11 15:10:20 +00:00
parent 7e963e7f3e
commit 431cead7a2
1 changed files with 5 additions and 2 deletions

7
compiler/i386/n386cal.pas
View File

@ -57,8 +57,11 @@ implementation
procedure ti386callnode.extra_interrupt_code;
begin
emit_none(A_PUSHF,S_L);
emit_reg(A_PUSH,S_L,NR_CS);
if (target_info.system <> system_i386_darwin) then
begin
emit_none(A_PUSHF,S_L);
emit_reg(A_PUSH,S_L,NR_CS);
end;
end;