From cba82c202e308be5decf6184da602c9cef07b5c6 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 6 Aug 2001 14:13:55 +0000
Subject: [PATCH]   * changed buf parameter of fpc_type_write from var to const
   + added names of helpers in typefile.inc to compproc.inc

---
 rtl/inc/compproc.inc | 11 ++++++++++-
 rtl/inc/typefile.inc | 14 +++++++++-----
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/rtl/inc/compproc.inc b/rtl/inc/compproc.inc
index d6fd30ec53..da9dd09e4b 100644
--- a/rtl/inc/compproc.inc
+++ b/rtl/inc/compproc.inc
@@ -177,11 +177,20 @@ Procedure fpc_HandleError (Errno : longint); compilerproc;
 procedure fpc_AbstractErrorIntern;compilerproc;
 procedure fpc_assert(Const Msg,FName:Shortstring;LineNo,ErrorAddr:Longint); compilerproc;
 
+Procedure fpc_reset_typed(var f : TypedFile;Size : Longint); compilerproc;
+Procedure fpc_rewrite_typed(var f : TypedFile;Size : Longint); compilerproc;
+Procedure fpc_typed_write(TypeSize : Longint;var f : TypedFile;const Buf); compilerproc;
+Procedure fpc_typed_read(TypeSize : Longint;var f : TypedFile;var Buf); compilerproc;
+
 {$endif hascompilerproc}
 
 {
   $Log$
-  Revision 1.1  2001-08-01 15:00:10  jonas
+  Revision 1.2  2001-08-06 14:13:55  jonas
+    * changed buf parameter of fpc_type_write from var to const
+    + added names of helpers in typefile.inc to compproc.inc
+
+  Revision 1.1  2001/08/01 15:00:10  jonas
     + "compproc" helpers
     * renamed several helpers so that their name is the same as their
       "public alias", which should facilitate the conversion of processor
diff --git a/rtl/inc/typefile.inc b/rtl/inc/typefile.inc
index efff1760ff..fb22609e6d 100644
--- a/rtl/inc/typefile.inc
+++ b/rtl/inc/typefile.inc
@@ -46,7 +46,7 @@ begin
 end;
 
 
-Procedure Int_Typed_Reset(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_RESET_TYPED'];
+Procedure fpc_reset_typed(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_RESET_TYPED']; {$ifdef hascompilerproc} compilerproc; {$endif}
 Begin
   If InOutRes <> 0 then
    exit;
@@ -54,7 +54,7 @@ Begin
 End;
 
 
-Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_REWRITE_TYPED'];
+Procedure fpc_rewrite_typed(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_REWRITE_TYPED']; {$ifdef hascompilerproc} compilerproc; {$endif}
 Begin
   If InOutRes <> 0 then
    exit;
@@ -62,7 +62,7 @@ Begin
 End;
 
 
-Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias :'FPC_TYPED_WRITE'];
+Procedure fpc_typed_write(TypeSize : Longint;var f : TypedFile;const Buf);[IOCheck, Public, Alias :'FPC_TYPED_WRITE']; {$ifdef hascompilerproc} compilerproc; {$endif}
 Begin
   If InOutRes <> 0 then
    exit;
@@ -74,7 +74,7 @@ Begin
   end;
 End;
 
-Procedure Int_Typed_Read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias :'FPC_TYPED_READ'];
+Procedure fpc_typed_read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias :'FPC_TYPED_READ']; {$ifdef hascompilerproc} compilerproc; {$endif}
 var
   Result : Longint;
 Begin
@@ -94,7 +94,11 @@ End;
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:46  michael
+  Revision 1.3  2001-08-06 14:13:55  jonas
+    * changed buf parameter of fpc_type_write from var to const
+    + added names of helpers in typefile.inc to compproc.inc
+
+  Revision 1.2  2000/07/13 11:33:46  michael
   + removed logs
  
 }