From c8a156460594abc5033ff682872c7bb6fc28968f Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 3 Feb 2000 17:04:47 +0000
Subject: [PATCH] * additions fixes due to port linux
---
rtl/bsd/syscalls.inc | 25 ++++++++++++++-----------
1 file changed, 14 insertions(+), 11 deletions(-)
diff --git a/rtl/bsd/syscalls.inc b/rtl/bsd/syscalls.inc
index 1ab842b4ea..8cf1e21557 100644
--- a/rtl/bsd/syscalls.inc
+++ b/rtl/bsd/syscalls.inc
@@ -76,7 +76,7 @@ end;
}
{$PACKRECORDS C}
-
+{
TYPE timeval=RECORD
tv_sec,
tv_used : int64;
@@ -86,7 +86,7 @@ TYPE timeval=RECORD
tz_dsttime : LONGINT;
END;
-
+}
function checkreturnvalue(retval:LONGINT;value:LONGINT):LONGINT;
begin
@@ -109,9 +109,9 @@ VAR tv : timeval;
retval : longint;
begin
asm
- lea tv,%ebx
+ lea tz,%ebx
pushl %ebx
- lea tz,%ecx
+ lea tv,%ecx
pushl %ecx
mov $116,%eax
int $0x80
@@ -119,7 +119,7 @@ begin
mov %eax,retval
end;
- sys_time:=checkreturnvalue(retval,tv.tv_sec);
+ sys_time:=checkreturnvalue(retval,tv.sec);
end;
{*****************************************************************************
@@ -133,12 +133,12 @@ var retval: LONGINT;
Begin
asm
- pushl mode
+ pushw mode
pushl flags
pushl f
movl $5,%eax
int $0x80
- add $12,%esp
+ add $10,%esp
mov %eax,retval
end;
sys_open:=checkreturnvalue(retval,retval);
@@ -327,7 +327,7 @@ begin
addl $4,%eax
mov %eax,retval
end;
- Sys_ChDir:=checkreturnvalue(retval,retval);
+ Sys_RmDir:=checkreturnvalue(retval,retval);
end;
{ we need this for getcwd, NOT touched for BSD version }
@@ -393,7 +393,7 @@ end;
--- Process:Process & program handling - related calls ---
*****************************************************************************}
-Procedure Sys_Exit(ExitCode:Integer);
+Procedure Sys_Exit(ExitCode:longint);
var retval : longint;
@@ -405,12 +405,15 @@ begin
addl $4,%eax
mov %eax,retval
end;
- Sys_Exit:=checkreturnvalue(retval,retval);
+ checkreturnvalue(retval,retval); {is nonsense :-)}
end;
{
$Log$
- Revision 1.3 2000-02-02 18:07:27 marco
+ Revision 1.4 2000-02-03 17:04:47 marco
+ * additions fixes due to port linux
+
+ Revision 1.3 2000/02/02 18:07:27 marco
* Ported except for readdir which is 200 lines C code in FBSD linux
emulator