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

* fixed 255 max path length assumptions left over from when the paths were

Browse Source 
shortstrings (mentioned in mantis #15783)

git-svn-id: trunk@14997 -
This commit is contained in:
Jonas Maebe 2010-03-09 19:44:07 +00:00
parent dab931c3ba
commit db2655459c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cfileutl.pas
View File

@ -1044,7 +1044,7 @@ end;
begin begin
j:=Pos(';',s); j:=Pos(';',s);
if j=0 then if j=0 then
j:=255; j:=length(s)+1;
currPath:= TrimSpace(Copy(s,1,j-1)); currPath:= TrimSpace(Copy(s,1,j-1));
System.Delete(s,1,j); System.Delete(s,1,j);
end; end;
@ -1060,9 +1060,9 @@ end;
if (CurrentDir<>'') and (Copy(currPath,1,length(CurrentDir))=CurrentDir) then if (CurrentDir<>'') and (Copy(currPath,1,length(CurrentDir))=CurrentDir) then
begin begin
{$if defined(amiga) and defined(morphos)} {$if defined(amiga) and defined(morphos)}
currPath:= CurrentDir+Copy(currPath,length(CurrentDir)+1,255); currPath:= CurrentDir+Copy(currPath,length(CurrentDir)+1,length(currPath));
{$else} {$else}
currPath:= CurDirRelPath(source_info)+Copy(currPath,length(CurrentDir)+1,255); currPath:= CurDirRelPath(source_info)+Copy(currPath,length(CurrentDir)+1,length(currPath));
{$endif} {$endif}
end; end;
end; end;