paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 21:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* A small note, copied from the Solaris patch. Do_close needs errnotoiores?

Browse Source
This commit is contained in:
marco 2001-07-16 19:51:36 +00:00
parent 0ea2e80af9
commit 912fae0d76
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/sysunix.inc
View File

@ -38,6 +38,7 @@ var
{$i signal.inc} {$i signal.inc}
{$i syscalls.inc } {$i syscalls.inc }
{***************************************************************************** {*****************************************************************************
Misc. System Dependent Functions Misc. System Dependent Functions
*****************************************************************************} *****************************************************************************}
@ -65,7 +66,11 @@ begin
if l=0 then if l=0 then
begin begin
str(sys_getpid,hs); str(sys_getpid,hs);
hs:='/proc/'+hs+'/exe'#0; {$ifdef FreeBSD}
hs:='/proc/'+hs+'/file'#0;
{$else}
hs:='/proc/'+hs+'/exe'#0;
{$endif}
i:=Sys_readlink(@hs[1],@link[1],high(link)); i:=Sys_readlink(@hs[1],@link[1],high(link));
{ it must also be an absolute filename, linux 2.0 points to a memory { it must also be an absolute filename, linux 2.0 points to a memory
location so this will skip that } location so this will skip that }
@ -196,6 +201,7 @@ end;
Procedure Do_Close(Handle:Longint); Procedure Do_Close(Handle:Longint);
Begin Begin
sys_close(Handle); sys_close(Handle);
{Errno2Inoutres;}
End; End;
@ -212,7 +218,6 @@ Begin
Errno2Inoutres; Errno2Inoutres;
End; End;
Function Do_Write(Handle,Addr,Len:Longint):longint; Function Do_Write(Handle,Addr,Len:Longint):longint;
Begin Begin
repeat repeat
@ -284,6 +289,7 @@ Procedure Do_Open(var f;p:pchar;flags:longint);
} }
var var
oflags : longint; oflags : longint;
Begin Begin
{ close first if opened } { close first if opened }
if ((flags and $10000)=0) then if ((flags and $10000)=0) then
@ -555,7 +561,7 @@ begin
{$ifdef I386} {$ifdef I386}
fpustate:=0; fpustate:=0;
res:=200; res:=200;
{$ifndef BSD} {$ifndef FreeBSD}
if assigned(SigContext.fpstate) then if assigned(SigContext.fpstate) then
fpuState:=SigContext.fpstate^.sw; fpuState:=SigContext.fpstate^.sw;
{$else} {$else}
@ -597,7 +603,7 @@ begin
if res<>0 then if res<>0 then
begin begin
{$ifdef I386} {$ifdef I386}
{$ifdef BSD} {$ifdef FreeBSD}
HandleErrorAddrFrame(res,SigContext.sc_eip,SigContext.sc_ebp); HandleErrorAddrFrame(res,SigContext.sc_eip,SigContext.sc_ebp);
{$else} {$else}
HandleErrorAddrFrame(res,SigContext.eip,SigContext.ebp); HandleErrorAddrFrame(res,SigContext.eip,SigContext.ebp);
@ -712,7 +718,10 @@ End.
{ {
$Log$ $Log$
Revision 1.14 2001-07-15 11:57:16 peter Revision 1.15 2001-07-16 19:51:36 marco
* A small note, copied from the Solaris patch. Do_close needs errnotoiores?
Revision 1.14 2001/07/15 11:57:16 peter
* merged m68k updates * merged m68k updates
Revision 1.13 2001/07/13 22:05:09 peter Revision 1.13 2001/07/13 22:05:09 peter