mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 14:19:28 +02:00
* fixed to remake with -Rintel in the ppc386.cfg
This commit is contained in:
parent
86bdba7ce3
commit
8ae673882c
@ -31,19 +31,20 @@ Procedure Do_SysCall( callnr:longint;var regs : SysCallregs );assembler;
|
||||
copies back the registers as they are after the SysCall.
|
||||
}
|
||||
{$ifdef i386}
|
||||
{$ASMMODE ATT}
|
||||
asm
|
||||
# load the registers...
|
||||
{ load the registers... }
|
||||
movl 12(%ebp),%eax
|
||||
movl 4(%eax),%ebx
|
||||
movl 8(%eax),%ecx
|
||||
movl 12(%eax),%edx
|
||||
movl 16(%eax),%esi
|
||||
movl 20(%eax),%edi
|
||||
# set the call number
|
||||
{ set the call number }
|
||||
movl 8(%ebp),%eax
|
||||
# Go !
|
||||
{ Go ! }
|
||||
int $0x80
|
||||
# Put back the registers...
|
||||
{ Put back the registers... }
|
||||
pushl %eax
|
||||
movl 12(%ebp),%eax
|
||||
movl %edi,20(%eax)
|
||||
@ -54,6 +55,7 @@ asm
|
||||
popl %ebx
|
||||
movl %ebx,(%eax)
|
||||
end;
|
||||
{$ASMMODE DEFAULT}
|
||||
{$else}
|
||||
{$ifdef m68k}
|
||||
asm
|
||||
@ -366,7 +368,10 @@ end;
|
||||
|
||||
{
|
||||
$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.
|
||||
|
||||
Revision 1.1.1.1 1998/03/25 11:18:43 root
|
||||
|
@ -85,6 +85,8 @@ Type
|
||||
Misc. System Dependent Functions
|
||||
*****************************************************************************}
|
||||
|
||||
{$ASMMODE DIRECT}
|
||||
|
||||
Procedure Halt(ErrNum: Byte);
|
||||
Begin
|
||||
ExitCode:=Errnum;
|
||||
@ -172,6 +174,7 @@ asm
|
||||
end ['EAX'];
|
||||
{$endif}
|
||||
|
||||
{$ASMMODE ATT}
|
||||
|
||||
Function brk(Location : longint) : Longint;
|
||||
{ set end of data segment to location }
|
||||
@ -658,7 +661,10 @@ End.
|
||||
|
||||
{
|
||||
$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
|
||||
+ strpas, strlen are now exported in the systemunit
|
||||
* removed logs
|
||||
|
Loading…
Reference in New Issue
Block a user