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

* fixed for 0.99.8

Browse Source
This commit is contained in:
peter 1998-10-05 21:35:41 +00:00
parent 4f0915d6e1
commit d2323f695d
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/fina.inc
View File

@ -110,6 +110,7 @@ Var Source, Dest : String;
Const OneLevelBack = '..'+OSDirSeparator;
begin
{$ifdef autoobjpas}
If Upcase(ExtractFileDrive(BaseName))<>Upcase(ExtractFileDrive(DestName)) Then
begin
Result:=DestName;
@ -131,6 +132,7 @@ begin
For J:=I to SC-1 do Result:=Result+OneLevelBack;
For J:=I to DC-1 do Result:=Result+DD[J]+OsDirSeparator;
Result:=Result+ExtractFileName(DestNAme);
{$endif}
end;
Procedure DoDirSeparators (Var FileName : String);
@ -181,7 +183,10 @@ end;
{
$Log$
Revision 1.3 1998-10-04 20:19:56 michael
Revision 1.4 1998-10-05 21:35:41 peter
* fixed for 0.99.8
Revision 1.3 1998/10/04 20:19:56 michael
+ Added missing functions and some extra
Revision 1.2 1998/09/16 08:28:38 michael