paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 09:40:29 +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

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'];
Begin
If InOutRes <> 0 then exit;
Reset(UnTypedFile(f),Size);
End;
Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: 'REWRITE_TYPED'];
Begin
If InOutRes <> 0 then exit;
Rewrite(UnTypedFile(f),Size);
End;
Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias : 'TYPED_WRITE'];
Begin
If InOutRes <> 0 then exit;
Do_Write(FileRec(f).Handle,Longint(@Buf),TypeSize);
End;
@ -68,6 +71,7 @@ Procedure Int_Typed_Read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck,
var
Result : Longint;
Begin
If InOutRes <> 0 then exit;
Result:=Do_Read(FileRec(f).Handle,Longint(@Buf),TypeSize);
If Result<TypeSize Then
InOutRes:=100;
@ -75,7 +79,10 @@ End;
{
$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
+ assign(pchar), assign(char), rename(pchar), rename(char)
* fixed read_text_as_array