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

* removed temp define

Browse Source
This commit is contained in:
peter 1998-12-19 14:52:28 +00:00
parent d656d708b7
commit 157f6b0661
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/fina.inc
View File

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