paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-24 22:18:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed buf parameter of fpc_type_write from var to const

Browse Source 
+ added names of helpers in typefile.inc to compproc.inc
This commit is contained in:
Jonas Maebe 2001-08-06 14:13:55 +00:00
parent ab33e7d8f8
commit cba82c202e
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/compproc.inc
View File

@ -177,11 +177,20 @@ Procedure fpc_HandleError (Errno : longint); compilerproc;
procedure fpc_AbstractErrorIntern;compilerproc; procedure fpc_AbstractErrorIntern;compilerproc;
procedure fpc_assert(Const Msg,FName:Shortstring;LineNo,ErrorAddr:Longint); 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} {$endif hascompilerproc}
{ {
$Log$ $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 + "compproc" helpers
* renamed several helpers so that their name is the same as their * renamed several helpers so that their name is the same as their
"public alias", which should facilitate the conversion of processor "public alias", which should facilitate the conversion of processor

14
rtl/inc/typefile.inc
View File

@ -46,7 +46,7 @@ begin
end; 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 Begin
If InOutRes <> 0 then If InOutRes <> 0 then
exit; exit;
@ -54,7 +54,7 @@ Begin
End; 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 Begin
If InOutRes <> 0 then If InOutRes <> 0 then
exit; exit;
@ -62,7 +62,7 @@ Begin
End; 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 Begin
If InOutRes <> 0 then If InOutRes <> 0 then
exit; exit;
@ -74,7 +74,7 @@ Begin
end; end;
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 var
Result : Longint; Result : Longint;
Begin Begin
@ -94,7 +94,11 @@ End;
{ {
$Log$ $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 + removed logs
} }