瀏覽代碼

* made MorphOS build to cycle again: fixed path_absolute() for Amiga and MorphOS, and fixed AllFilesMask for MorphOS

git-svn-id: trunk@13474 -
Károly Balogh 16 年之前
父節點
當前提交
c11243c83d
共有 2 個文件被更改,包括 5 次插入2 次删除
  1. 4 1
      compiler/cfileutl.pas
  2. 1 1
      rtl/morphos/system.pp

+ 4 - 1
compiler/cfileutl.pas

@@ -523,7 +523,10 @@ end;
         if (length(s)>0) and (s[1] in AllowDirectorySeparators) then
           result:=true;
 {$elseif defined(amiga) or defined(morphos)}
-        if ((length(s)>0) and (s[1] in AllowDirectorySeparators)) or (Pos(':',s) = length(s)) then
+        (* An Amiga path is absolute, if it has a volume/device name in it (contains ":"), 
+           otherwise it's always a relative path, no matter if it starts with a directory 
+           separator or not. (KB) *)
+        if (length(s)>0) and (Pos(':',s) <> 0) then
           result:=true;
 {$elseif defined(macos)}
         if IsMacFullPath(s) then

+ 1 - 1
rtl/morphos/system.pp

@@ -38,7 +38,7 @@ const
   AllowDriveSeparators : set of char = [':'];
   maxExitCode = 255;
   MaxPathLen = 256;
-  AllFilesMask = '*';
+  AllFilesMask = '#?';
 
 const
   UnusedHandle    : LongInt = -1;