mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 16:09:23 +02:00
* use oldfpccall because all registers are destroyed
This commit is contained in:
parent
561e3ef7b9
commit
4f9a8a9c45
@ -24,7 +24,7 @@
|
|||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
|
||||||
|
|
||||||
Procedure Do_SysCallspec( callnr:longint;var regs : SysCallregs );assembler;
|
Procedure Do_SysCallspec( callnr:longint;var regs : SysCallregs );assembler;{$ifndef VER1_0}oldfpccall;{$endif}
|
||||||
{
|
{
|
||||||
This function puts the registers in place, does the call, and then
|
This function puts the registers in place, does the call, and then
|
||||||
copies back the registers as they are after the SysCall.
|
copies back the registers as they are after the SysCall.
|
||||||
@ -188,7 +188,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.6 2003-09-14 20:15:01 marco
|
Revision 1.7 2003-10-29 19:45:44 peter
|
||||||
|
* use oldfpccall because all registers are destroyed
|
||||||
|
|
||||||
|
Revision 1.6 2003/09/14 20:15:01 marco
|
||||||
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
|
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
|
||||||
|
|
||||||
Revision 1.5 2003/08/21 22:24:52 olle
|
Revision 1.5 2003/08/21 22:24:52 olle
|
||||||
|
Loading…
Reference in New Issue
Block a user