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

* removed debug writeln in dirfn.

Browse Source 
* fixed I/O error codes for wince.

git-svn-id: trunk@4108 -
This commit is contained in:
yury 2006-07-06 19:02:22 +00:00
parent 53ef335edd
commit 451063e187
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win/sysdir.inc
View File

@ -28,7 +28,6 @@ begin
move(s[1],buffer,length(s)); move(s[1],buffer,length(s));
buffer[length(s)]:=#0; buffer[length(s)]:=#0;
AllowSlash(pchar(@buffer)); AllowSlash(pchar(@buffer));
writeln(buffer);
if not aFunc(@buffer) then if not aFunc(@buffer) then
begin begin
errno:=GetLastError; errno:=GetLastError;
@ -52,6 +51,10 @@ procedure rmdir(const s:string);[IOCHECK];
begin begin
if (s ='.') then if (s ='.') then
InOutRes := 16; InOutRes := 16;
{$ifdef WINCE}
if (s ='..') then
InOutRes := 5;
{$endif WINCE}
If (s='') or (InOutRes <> 0) then If (s='') or (InOutRes <> 0) then
exit; exit;
dirfn(TDirFnType(@RemoveDirectory),s); dirfn(TDirFnType(@RemoveDirectory),s);
@ -66,7 +69,7 @@ begin
if Inoutres=2 then if Inoutres=2 then
Inoutres:=3; Inoutres:=3;
{$else WINCE} {$else WINCE}
InOutRes:=1; InOutRes:=3;
{$endif WINCE} {$endif WINCE}
end; end;