From e795e5c5810b47e0e808ab1158b89f99a67fd168 Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Thu, 14 Oct 2004 17:10:15 +0000
Subject: [PATCH] * use SysUtils unit instead of Dos Unit + overload Replace to
use AnsiString
---
compiler/comphook.pas | 23 ++++++++++++++---------
1 file changed, 14 insertions(+), 9 deletions(-)
diff --git a/compiler/comphook.pas b/compiler/comphook.pas
index f39aff608d..d673d32512 100644
--- a/compiler/comphook.pas
+++ b/compiler/comphook.pas
@@ -142,11 +142,11 @@ const
implementation
uses
-{$ifdef delphi}
- dmisc,
-{$else}
+{$IFDEF USE_SYSUTILS}
+ SysUtils,
+{$ELSE USE_SYSUTILS}
dos,
-{$endif}
+{$ENDIF USE_SYSUTILS}
cutils
;
@@ -364,12 +364,13 @@ var
info : SearchRec;
begin
l:=-1;
- {$ifdef delphi}
- dmisc.FindFirst (F,archive+readonly+hidden,info);
- {$else delphi}
+{$IFDEF USE_SYSUTILS}
+ if FindFirst (F,faArchive+faReadOnly+faHidden,info) = 0
+ then
+{$ELSE USE_SYSUTILS}
FindFirst (F,archive+readonly+hidden,info);
- {$endif delphi}
if DosError=0 then
+{$ENDIF USE_SYSUTILS}
l:=info.time;
FindClose(info);
def_GetNamedFileTime:=l;
@@ -378,7 +379,11 @@ end;
end.
{
$Log$
- Revision 1.28 2004-09-08 11:23:30 michael
+ Revision 1.29 2004-10-14 17:10:15 mazen
+ * use SysUtils unit instead of Dos Unit
+ + overload Replace to use AnsiString
+
+ Revision 1.28 2004/09/08 11:23:30 michael
+ Check if outputdir exists, Fix exitcode when displaying help pages
Revision 1.27 2004/06/20 08:55:29 florian