paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ported more functions. Half done now.

Browse Source
This commit is contained in:
marco 2000-02-02 16:35:10 +00:00
parent 77dd315869
commit 9632dcc8dc
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/bsd/syscalls.inc
View File

@ -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.