* DeleteFile replaced with RemoveFile to avoid duplicate

compiler/cutils.pas

@@ -139,8 +139,6 @@ interface
     function compareansistrings(p1,p2 : pchar;length1,length2 : longint) : longint;
     function concatansistrings(p1,p2 : pchar;length1,length2 : longint) : pchar;
 
-    function DeleteFile(const fn:string):boolean;
-
     {Lzw encode/decode to compress strings -> save memory.}
     function minilzw_encode(const s:string):string;
     function minilzw_decode(const s:string):string;
@@ -1082,21 +1080,6 @@ uses
       end;
 
 
-{*****************************************************************************
-                                 File Functions
-*****************************************************************************}
-
-    function DeleteFile(const fn:string):boolean;
-      var
-        f : file;
-      begin
-        {$I-}
-         assign(f,fn);
-         erase(f);
-        {$I-}
-        DeleteFile:=(IOResult=0);
-      end;
-
 {*****************************************************************************
                        Ultra basic KISS Lzw (de)compressor
 *****************************************************************************}
@@ -1240,7 +1223,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.51  2005-04-06 11:49:37  michael
+  Revision 1.52  2005-04-23 14:15:58  hajny
+    * DeleteFile replaced with RemoveFile to avoid duplicate
+
+  Revision 1.51  2005/04/06 11:49:37  michael
   * Fix methodpointer copy from callnode to loadnode
 
   Revision 1.50  2005/03/04 16:49:22  peter

compiler/gendef.pas

@@ -71,7 +71,7 @@ destructor tdeffile.destroy;
 begin
   if WrittenOnDisk and
      not(cs_link_extern in aktglobalswitches) then
-   DeleteFile(FName);
+   RemoveFile(FName);
   importlist.Free;
   exportlist.Free;
 end;
@@ -160,7 +160,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.15  2005-02-14 17:13:06  peter
+  Revision 1.16  2005-04-23 14:15:58  hajny
+    * DeleteFile replaced with RemoveFile to avoid duplicate
+
+  Revision 1.15  2005/02/14 17:13:06  peter
     * truncate log
 
 }

compiler/owbase.pas

@@ -69,8 +69,8 @@ type
 implementation
 
 uses
-   cutils,
-   verbose;
+{   cutils,}
+   verbose, globals;
 
 const
   bufsize = 32768;
@@ -322,7 +322,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.14  2005-02-14 17:13:07  peter
+  Revision 1.15  2005-04-23 14:15:58  hajny
+    * DeleteFile replaced with RemoveFile to avoid duplicate
+
+  Revision 1.14  2005/02/14 17:13:07  peter
     * truncate log
 
 }