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

* IoCheck routines now check for InOutRes before executing, just like TP

Browse Source
This commit is contained in:
carl 1998-07-02 12:16:28 +00:00
parent b7d9265b8f
commit 9d51088353
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/typefile.inc
View File

@ -48,18 +48,21 @@ end;
Procedure Int_Typed_Reset(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: 'RESET_TYPED']; Procedure Int_Typed_Reset(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: 'RESET_TYPED'];
Begin Begin
If InOutRes <> 0 then exit;
Reset(UnTypedFile(f),Size); Reset(UnTypedFile(f),Size);
End; End;
Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: 'REWRITE_TYPED']; Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: 'REWRITE_TYPED'];
Begin Begin
If InOutRes <> 0 then exit;
Rewrite(UnTypedFile(f),Size); Rewrite(UnTypedFile(f),Size);
End; End;
Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias : 'TYPED_WRITE']; Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias : 'TYPED_WRITE'];
Begin Begin
If InOutRes <> 0 then exit;
Do_Write(FileRec(f).Handle,Longint(@Buf),TypeSize); Do_Write(FileRec(f).Handle,Longint(@Buf),TypeSize);
End; End;
@ -68,6 +71,7 @@ Procedure Int_Typed_Read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck,
var var
Result : Longint; Result : Longint;
Begin Begin
If InOutRes <> 0 then exit;
Result:=Do_Read(FileRec(f).Handle,Longint(@Buf),TypeSize); Result:=Do_Read(FileRec(f).Handle,Longint(@Buf),TypeSize);
If Result<TypeSize Then If Result<TypeSize Then
InOutRes:=100; InOutRes:=100;
@ -75,7 +79,10 @@ End;
{ {
$Log$ $Log$
Revision 1.3 1998-05-21 19:31:02 peter Revision 1.4 1998-07-02 12:16:28 carl
* IoCheck routines now check for InOutRes before executing, just like TP
Revision 1.3 1998/05/21 19:31:02 peter
* objects compiles for linux * objects compiles for linux
+ assign(pchar), assign(char), rename(pchar), rename(char) + assign(pchar), assign(char), rename(pchar), rename(char)
* fixed read_text_as_array * fixed read_text_as_array