From 2a862ae82778c017781fde4b5fb07ef3bbe1dc8a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 22 Apr 2004 21:16:35 +0000
Subject: [PATCH]   * do_write/do_read fix

---
 rtl/linux/osmain.inc | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/rtl/linux/osmain.inc b/rtl/linux/osmain.inc
index 00d7c2bdc6..2e492e9aa1 100644
--- a/rtl/linux/osmain.inc
+++ b/rtl/linux/osmain.inc
@@ -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