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

* fix for relativepath, fixes #10224

Browse Source 
git-svn-id: trunk@9312 -
This commit is contained in:
peter 2007-11-21 21:51:42 +00:00
parent 044ef8b982
commit 544cf539e1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/fina.inc
View File

@ -159,12 +159,12 @@ begin
Result:=DestName;
exit;
end;
Source:=ExtractFilePath(BaseName);
Dest:=ExtractFilePath(DestName);
Source:=ExcludeTrailingPathDelimiter(ExtractFilePath(BaseName));
Dest:=ExcludeTrailingPathDelimiter(ExtractFilePath(DestName));
SC:=GetDirs (Source,SD);
DC:=GetDirs (Dest,DD);
I:=1;
While (I<DC) and (I<SC) do
While (I<=DC) and (I<=SC) do
begin
If StrIcomp(DD[i],SD[i])=0 then
Inc(i)
@ -172,8 +172,8 @@ begin
Break;
end;
Result:='';
For J:=I to SC-1 do Result:=Result+OneLevelBack;
For J:=I to DC-1 do Result:=Result+DD[J]+PathDelim;
For J:=I to SC do Result:=Result+OneLevelBack;
For J:=I to DC do Result:=Result+DD[J]+PathDelim;
Result:=Result+ExtractFileName(DestNAme);
end;