paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +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; end;
procedure mkdir(const s : string); procedure mkdir(const s : string);[IOCheck];
begin begin
If InOutRes <> 0 then exit;
DosDir($39,s); DosDir($39,s);
end; end;
procedure rmdir(const s : string); procedure rmdir(const s : string);[IOCheck];
begin begin
If InOutRes <> 0 then exit;
DosDir($3a,s); DosDir($3a,s);
end; end;
procedure chdir(const s : string); procedure chdir(const s : string);[IOCheck];
begin begin
If InOutRes <> 0 then exit;
DosDir($3b,s); DosDir($3b,s);
end; end;
@ -1051,7 +1054,12 @@ Begin
End. End.
{ {
$Log$ $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 * better readln/writeln
Revision 1.8 1998/06/26 08:19:10 pierre Revision 1.8 1998/06/26 08:19:10 pierre