paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ assembler mode forced to ATT style for x86 cpu

Browse Source
This commit is contained in:
mazen 2003-10-31 08:55:11 +00:00
parent ba59054e84
commit e828773c4e
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/sysc11.inc
View File

@ -15,7 +15,6 @@
{ Include syscall itself } { Include syscall itself }
{i syscallo.inc} {i syscallo.inc}
Function Sys_mmap(adr,len,prot,flags,fdes,off:longint):longint; // moved from sysunix.inc, used in sbrk Function Sys_mmap(adr,len,prot,flags,fdes,off:longint):longint; // moved from sysunix.inc, used in sbrk
begin begin
@ -33,6 +32,7 @@ begin
if (pointer(func)=nil) or (sp=nil) then if (pointer(func)=nil) or (sp=nil) then
exit(-1); // give an error result exit(-1); // give an error result
{$ifdef cpui386} {$ifdef cpui386}
{$ASMMODE ATT}
asm asm
{ Insert the argument onto the new stack. } { Insert the argument onto the new stack. }
movl sp,%ecx movl sp,%ecx
@ -122,7 +122,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2003-10-30 16:42:25 marco Revision 1.2 2003-10-31 08:55:11 mazen
+ assembler mode forced to ATT style for x86 cpu
Revision 1.1 2003/10/30 16:42:25 marco
* Killing off old syscall convention anywhere except for oldlinux * Killing off old syscall convention anywhere except for oldlinux
Revision 1.19 2003/10/17 20:56:24 olle Revision 1.19 2003/10/17 20:56:24 olle

4
rtl/unix/x86.pp
View File

@ -22,7 +22,7 @@ Procedure WritePortW (Port : Longint; Var Buf; Count: longint);
Procedure WritePortl (Port : Longint; Var Buf; Count: longint); Procedure WritePortl (Port : Longint; Var Buf; Count: longint);
implementation implementation
{$ASMMODE ATT}
Procedure WritePort (Port : Longint; Value : Byte); Procedure WritePort (Port : Longint; Value : Byte);
{ {
@ -286,4 +286,4 @@ begin
end ['ECX','EDI','EDX']; end ['ECX','EDI','EDX'];
end; end;
end. end.