diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-02 22:17:05 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-02 22:17:05 +0000 |
commit | 14345042ed14f8bd4bff58217a17dc46276824a1 (patch) | |
tree | f30016b50e0399dccc2ed70bca89549080640904 | |
parent | d8987692375e090ee453283ad79176632c0db039 (diff) | |
download | fpc-14345042ed14f8bd4bff58217a17dc46276824a1.tar.gz |
* fix tiorte.
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/unicode@24791 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/unix/sysdir.inc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rtl/unix/sysdir.inc b/rtl/unix/sysdir.inc index 46e688f999..4fff6f688c 100644 --- a/rtl/unix/sysdir.inc +++ b/rtl/unix/sysdir.inc @@ -55,10 +55,10 @@ end; Procedure Do_RmDir(s: rawbytestring);[IOCheck]; begin - If (S='') or (InOutRes <> 0) then - exit; if (s='.') then InOutRes := 16; + If (S='') or (InOutRes <> 0) then + exit; If Fprmdir(pchar(S))<0 Then Errno2Inoutres Else |