Browse Source

Amiga: fixed copyright header and merged a fix from MorphOS in sysdir

git-svn-id: trunk@27058 -
Károly Balogh 11 years ago
parent
commit
1483a631d7
1 changed files with 4 additions and 3 deletions
  1. 4 3
      rtl/amiga/sysdir.inc

+ 4 - 3
rtl/amiga/sysdir.inc

@@ -1,9 +1,8 @@
 {
     This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Florian Klaempfl and Pavel Ozerski
-    member of the Free Pascal development team.
+    Copyright (c) 2014 by Free Pascal development team
 
-    FPC Pascal system unit for Amiga.
+    Low level directory functions
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -76,6 +75,8 @@ begin
       AOS_OrigDir:=tmpLock;
       tmpLock:=0;
     end;
+  end else begin
+    dosError2InOut(ERROR_DIR_NOT_FOUND);
   end;
 
   if tmpLock<>0 then Unlock(tmpLock);