Jelajahi Sumber

* fixed path_absolute, somehow it was not implemented for windows. Probably the $IF for windows fell away. Now defined for go32v2. Fixes 12370, and the solution was hinted at in that bugreport.

git-svn-id: trunk@12372 -
marco 16 tahun lalu
induk
melakukan
8445fb74bd
1 mengubah file dengan 1 tambahan dan 0 penghapusan
  1. 1 0
      compiler/cfileutl.pas

+ 1 - 0
compiler/cfileutl.pas

@@ -512,6 +512,7 @@ implementation
 {$elseif defined(macos)}
 {$elseif defined(macos)}
         if IsMacFullPath(s) then
         if IsMacFullPath(s) then
           result:=true;
           result:=true;
+{$elseif defined(win32) or defined(win64) or defined(go32v2)}
         if ((length(s)>0) and ((s[1]='\') or (s[1]='/'))) or
         if ((length(s)>0) and ((s[1]='\') or (s[1]='/'))) or
            ((length(s)>2) and (s[2]=':') and ((s[3]='\') or (s[3]='/'))) then
            ((length(s)>2) and (s[2]=':') and ((s[3]='\') or (s[3]='/'))) then
           result:=true;
           result:=true;