paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 11:09:15 +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 )

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

6
compiler/cfileutl.pas
View File

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