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

* fixed to remake with -Rintel in the ppc386.cfg

Browse Source
This commit is contained in:
peter 1998-05-30 14:18:42 +00:00
parent 86bdba7ce3
commit 8ae673882c
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/syscalls.inc
View File

@ -31,19 +31,20 @@ Procedure Do_SysCall( callnr:longint;var regs : SysCallregs );assembler;
copies back the registers as they are after the SysCall. copies back the registers as they are after the SysCall.
} }
{$ifdef i386} {$ifdef i386}
{$ASMMODE ATT}
asm asm
# load the registers... { load the registers... }
movl 12(%ebp),%eax movl 12(%ebp),%eax
movl 4(%eax),%ebx movl 4(%eax),%ebx
movl 8(%eax),%ecx movl 8(%eax),%ecx
movl 12(%eax),%edx movl 12(%eax),%edx
movl 16(%eax),%esi movl 16(%eax),%esi
movl 20(%eax),%edi movl 20(%eax),%edi
# set the call number { set the call number }
movl 8(%ebp),%eax movl 8(%ebp),%eax
# Go ! { Go ! }
int $0x80 int $0x80
# Put back the registers... { Put back the registers... }
pushl %eax pushl %eax
movl 12(%ebp),%eax movl 12(%ebp),%eax
movl %edi,20(%eax) movl %edi,20(%eax)
@ -54,6 +55,7 @@ asm
popl %ebx popl %ebx
movl %ebx,(%eax) movl %ebx,(%eax)
end; end;
{$ASMMODE DEFAULT}
{$else} {$else}
{$ifdef m68k} {$ifdef m68k}
asm asm
@ -366,7 +368,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 1998-05-06 12:38:22 michael Revision 1.3 1998-05-30 14:18:42 peter
* fixed to remake with -Rintel in the ppc386.cfg
Revision 1.2 1998/05/06 12:38:22 michael
+ Removed log from before restored version. + Removed log from before restored version.
Revision 1.1.1.1 1998/03/25 11:18:43 root Revision 1.1.1.1 1998/03/25 11:18:43 root

8
rtl/linux/syslinux.pp
View File

@ -85,6 +85,8 @@ Type
Misc. System Dependent Functions Misc. System Dependent Functions
*****************************************************************************} *****************************************************************************}
{$ASMMODE DIRECT}
Procedure Halt(ErrNum: Byte); Procedure Halt(ErrNum: Byte);
Begin Begin
ExitCode:=Errnum; ExitCode:=Errnum;
@ -172,6 +174,7 @@ asm
end ['EAX']; end ['EAX'];
{$endif} {$endif}
{$ASMMODE ATT}
Function brk(Location : longint) : Longint; Function brk(Location : longint) : Longint;
{ set end of data segment to location } { set end of data segment to location }
@ -658,7 +661,10 @@ End.
{ {
$Log$ $Log$
Revision 1.3 1998-05-12 10:42:48 peter Revision 1.4 1998-05-30 14:18:43 peter
* fixed to remake with -Rintel in the ppc386.cfg
Revision 1.3 1998/05/12 10:42:48 peter
* moved getopts to inc/, all supported OS's need argc,argv exported * moved getopts to inc/, all supported OS's need argc,argv exported
+ strpas, strlen are now exported in the systemunit + strpas, strlen are now exported in the systemunit
* removed logs * removed logs