paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* IOCheck for rmdir,chdir and mkdir as in TP

Browse Source 
NOTE: I'm pretty SURE this will not compile and link correctly with FPC
0.99.5
This commit is contained in:
carl 1998-07-02 12:29:20 +00:00
parent 94a728f166
commit 0b4c548a1d
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/dos/go32v2/system.pp
View File

@ -947,20 +947,23 @@ begin
end;
procedure mkdir(const s : string);
procedure mkdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($39,s);
end;
procedure rmdir(const s : string);
procedure rmdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($3a,s);
end;
procedure chdir(const s : string);
procedure chdir(const s : string);[IOCheck];
begin
If InOutRes <> 0 then exit;
DosDir($3b,s);
end;
@ -1051,7 +1054,12 @@ Begin
End.
{
$Log$
Revision 1.9 1998-07-01 15:29:57 peter
Revision 1.10 1998-07-02 12:29:20 carl
* IOCheck for rmdir,chdir and mkdir as in TP
NOTE: I'm pretty SURE this will not compile and link correctly with FPC
0.99.5
Revision 1.9 1998/07/01 15:29:57 peter
* better readln/writeln
Revision 1.8 1998/06/26 08:19:10 pierre