paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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.

Browse Source 
git-svn-id: trunk@12372 -
This commit is contained in:
marco 2008-12-16 23:05:16 +00:00
parent e213be26fd
commit 8445fb74bd
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/cfileutl.pas
View File

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