mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 04:26:13 +02:00
* fix for tiorte.pp on WM5.
git-svn-id: trunk@6162 -
This commit is contained in:
parent
42a21245ee
commit
83820db27e
@ -58,6 +58,10 @@ begin
|
|||||||
If (s='') or (InOutRes <> 0) then
|
If (s='') or (InOutRes <> 0) then
|
||||||
exit;
|
exit;
|
||||||
dirfn(TDirFnType(@RemoveDirectory),s);
|
dirfn(TDirFnType(@RemoveDirectory),s);
|
||||||
|
{$ifdef WINCE}
|
||||||
|
if (Inoutres=3) and (Pos(DirectorySeparator, s)<2) then
|
||||||
|
Inoutres:=2;
|
||||||
|
{$endif WINCE}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure chdir(const s:string);[IOCHECK];
|
procedure chdir(const s:string);[IOCHECK];
|
||||||
|
Loading…
Reference in New Issue
Block a user