paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +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; Result:=DestName;
exit; exit;
end; end;
Source:=ExtractFilePath(BaseName); Source:=ExcludeTrailingPathDelimiter(ExtractFilePath(BaseName));
Dest:=ExtractFilePath(DestName); Dest:=ExcludeTrailingPathDelimiter(ExtractFilePath(DestName));
SC:=GetDirs (Source,SD); SC:=GetDirs (Source,SD);
DC:=GetDirs (Dest,DD); DC:=GetDirs (Dest,DD);
I:=1; I:=1;
While (I<DC) and (I<SC) do While (I<=DC) and (I<=SC) do
begin begin
If StrIcomp(DD[i],SD[i])=0 then If StrIcomp(DD[i],SD[i])=0 then
Inc(i) Inc(i)
@ -172,8 +172,8 @@ begin
Break; Break;
end; end;
Result:=''; Result:='';
For J:=I to SC-1 do Result:=Result+OneLevelBack; For J:=I to SC do Result:=Result+OneLevelBack;
For J:=I to DC-1 do Result:=Result+DD[J]+PathDelim; For J:=I to DC do Result:=Result+DD[J]+PathDelim;
Result:=Result+ExtractFileName(DestNAme); Result:=Result+ExtractFileName(DestNAme);
end; end;