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

* erase(directory) returns now 2 to be tp compatible

Browse Source
This commit is contained in:
peter 2001-09-30 21:10:20 +00:00
parent d4860bf49c
commit a73a9ed56e
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/unix/sysunix.inc
View File

@ -212,6 +212,9 @@ Procedure Do_Erase(p:pchar);
Begin
sys_unlink(p);
Errno2Inoutres;
{ tp compatible result }
if (Errno=Sys_EISDIR) then
InOutRes:=2;
End;
@ -721,7 +724,10 @@ End.
{
$Log$
Revision 1.16 2001-08-05 12:24:20 peter
Revision 1.17 2001-09-30 21:10:20 peter
* erase(directory) returns now 2 to be tp compatible
Revision 1.16 2001/08/05 12:24:20 peter
* m68k merges
Revision 1.15 2001/07/16 19:51:36 marco