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

* IOCheck/InOutRes check for mkdir,rmdir and chdir like in TP

Browse Source
This commit is contained in:
carl 1998-07-02 12:33:18 +00:00
parent 0b4c548a1d
commit b8f38be993
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/syswin32.pp
View File

@ -491,16 +491,19 @@ function CreateDirectoryTrunc(name:pointer):word;
procedure mkdir(const s:string);[IOCHECK];
begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@CreateDirectoryTrunc),s);
end;
procedure rmdir(const s:string);[IOCHECK];
begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@RemoveDirectory),s);
end;
procedure chdir(const s:string);[IOCHECK];
begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@SetCurrentDirectory),s);
end;
@ -648,7 +651,10 @@ end.
{
$Log$
Revision 1.10 1998-07-01 15:30:02 peter
Revision 1.11 1998-07-02 12:33:18 carl
* IOCheck/InOutRes check for mkdir,rmdir and chdir like in TP
Revision 1.10 1998/07/01 15:30:02 peter
* better readln/writeln
Revision 1.9 1998/06/10 10:39:17 peter