From 9632dcc8dc6860c1b688adbf9675205bb536af19 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 2 Feb 2000 16:35:10 +0000
Subject: [PATCH]  * Ported more functions. Half done now.

---
 rtl/bsd/syscalls.inc | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/rtl/bsd/syscalls.inc b/rtl/bsd/syscalls.inc
index 4756fc3309..0ba49e31d8 100644
--- a/rtl/bsd/syscalls.inc
+++ b/rtl/bsd/syscalls.inc
@@ -246,12 +246,19 @@ Function Sys_Stat(Filename:pchar;var Buffer: stat):longint;
 {
    We need this for getcwd
 }
-var
-  regs : SysCallregs;
+
+var retval: LONGINT;
+
 begin
-  regs.reg2:=longint(filename);
-  regs.reg3:=longint(@buffer);
-  Sys_Stat:=SysCall(SysCall_nr_stat,regs);
+  asm
+    pushl buffer
+    pushl FileName
+    mov   $188,%eax
+    int   $0x80
+    addl  $8,%eax
+    mov   %eax,retval
+  end;   
+Sys_Stat:=checkreturnvalue(retval,retval);
 end;
 
 
@@ -380,7 +387,10 @@ end;
 
 {
   $Log$
-  Revision 1.1  2000-02-02 15:41:56  marco
+  Revision 1.2  2000-02-02 16:35:10  marco
+   * Ported more functions. Half done now.
+
+  Revision 1.1  2000/02/02 15:41:56  marco
    * Initial BSD version. Still needs a lot of work.