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

* do_write/do_read fix

Browse Source
This commit is contained in:
peter 2004-04-22 21:16:35 +00:00
parent 041eb4aa1d
commit 2a862ae827
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/osmain.inc
View File

@ -210,10 +210,10 @@ Begin
End;
Function Do_Write(Handle,Addr,Len:SizeInt):longint;
Function Do_Write(Handle:SizeInt;Addr:Pointer;Len:SizeInt):SizeInt;
Begin
repeat
Do_Write:=Fpwrite(Handle,pchar(addr),len);
Do_Write:=Fpwrite(Handle,addr,len);
until (Do_Write>=0) or (getErrNo<>ESysEINTR);
If Do_Write<0 Then
Begin
@ -225,10 +225,10 @@ Begin
End;
Function Do_Read(Handle,Addr,Len:SizeInt):Longint;
Function Do_Read(Handle:SizeInt;Addr:Pointer;Len:SizeInt):SizeInt;
Begin
repeat
Do_Read:=Fpread(Handle,pchar(addr),len);
Do_Read:=Fpread(Handle,addr,len);
until (Do_Read>=0) or (getErrNo<>ESysEINTR);
If Do_Read<0 Then
Begin
@ -584,7 +584,10 @@ end;
{
$Log$
Revision 1.14 2004-03-27 14:33:45 florian
Revision 1.15 2004-04-22 21:16:35 peter
* do_write/do_read fix
Revision 1.14 2004/03/27 14:33:45 florian
* tell sigaction to pass siginfo on arm
Revision 1.13 2004/03/10 20:35:33 peter