paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 22:50:18 +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]; procedure mkdir(const s:string);[IOCHECK];
begin begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@CreateDirectoryTrunc),s); dirfn(TDirFnType(@CreateDirectoryTrunc),s);
end; end;
procedure rmdir(const s:string);[IOCHECK]; procedure rmdir(const s:string);[IOCHECK];
begin begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@RemoveDirectory),s); dirfn(TDirFnType(@RemoveDirectory),s);
end; end;
procedure chdir(const s:string);[IOCHECK]; procedure chdir(const s:string);[IOCHECK];
begin begin
If InOutRes <> 0 then exit;
dirfn(TDirFnType(@SetCurrentDirectory),s); dirfn(TDirFnType(@SetCurrentDirectory),s);
end; end;
@ -648,7 +651,10 @@ end.
{ {
$Log$ $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 * better readln/writeln
Revision 1.9 1998/06/10 10:39:17 peter Revision 1.9 1998/06/10 10:39:17 peter