From 157f6b066151a593060d1e624ebd71831d2c8398 Mon Sep 17 00:00:00 2001 From: peter Date: Sat, 19 Dec 1998 14:52:28 +0000 Subject: [PATCH] * removed temp define --- rtl/objpas/fina.inc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/rtl/objpas/fina.inc b/rtl/objpas/fina.inc index 4a8b95ffdb..0b6d310ee8 100644 --- a/rtl/objpas/fina.inc +++ b/rtl/objpas/fina.inc @@ -110,7 +110,6 @@ Var Source, Dest : String; Const OneLevelBack = '..'+OSDirSeparator; begin -{$ifdef autoobjpas} If Upcase(ExtractFileDrive(BaseName))<>Upcase(ExtractFileDrive(DestName)) Then begin Result:=DestName; @@ -132,7 +131,6 @@ 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); @@ -183,7 +181,10 @@ end; { $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 Revision 1.3 1998/10/04 20:19:56 michael