From 3b8fd18808863a86a33874b01324a71a52501eec Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 11 Oct 1998 12:23:40 +0000
Subject: [PATCH] + More sysutils calls.

---
 rtl/objpas/Makefile    |  7 +++++--
 rtl/objpas/sysutils.pp | 20 +++++++++++---------
 2 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/rtl/objpas/Makefile b/rtl/objpas/Makefile
index ab4a105d90..9312590c9a 100644
--- a/rtl/objpas/Makefile
+++ b/rtl/objpas/Makefile
@@ -74,7 +74,7 @@ objpas$(PPUEXT): objpas$(PASEXT) $(INC)/except.inc
 # Need to change language file !!
 sysutils$(PPUEXT): objpas$(PPUEXT) sysutils$(PASEXT) sysstr.inc sysstrh.inc\
                    stre.inc syspch.inc syspchh.inc dati.inc datih.inc \
-                   finah.inc fina.inc
+                   finah.inc fina.inc filutilh.inc
 
 targetdir:
 ifdef UNITTARGETDIR
@@ -128,7 +128,10 @@ include $(CFG)/makefile.def
 
 #
 # $Log$
-# Revision 1.6  1998-10-02 10:41:08  michael
+# Revision 1.7  1998-10-11 12:23:40  michael
+# + More sysutils calls.
+#
+# Revision 1.6  1998/10/02 10:41:08  michael
 # Included explicit dependencies for all targets
 #
 # Revision 1.5  1998/10/02 09:26:02  peter
diff --git a/rtl/objpas/sysutils.pp b/rtl/objpas/sysutils.pp
index db637f9504..2b1fdd13d4 100644
--- a/rtl/objpas/sysutils.pp
+++ b/rtl/objpas/sysutils.pp
@@ -100,19 +100,18 @@ interface
   { Read date & Time function declarations }
   {$i datih.inc}
 
-
   { Read String Handling functions declaration }
   {$i sysstrh.inc}
 
-
   { Read pchar handling functions declration }
   {$i syspchh.inc}
 
   { Read filename handling functions declaration }
-
   {$i finah.inc}
 
-
+  { Read other file handling function declarations }
+  {$i filutilh.inc}
+  
   implementation
   
   { Read message string definitions }
@@ -128,26 +127,26 @@ interface
   {$ENDIF}
 
   { Read filename handling functions implementation }
-
   {$i fina.inc}
 
+  { Read other file handling function implementations }
+  {$i filutil.inc}
+  
   { Read date & Time function implementations }
   {$i dati.inc}
 
-
   { Read String Handling functions implementation }
   {$i sysstr.inc}
 
-
   { Read pchar handling functions implementation }
   {$i syspch.inc}
 
+
     constructor exception.create(const msg : string);
 
       begin
          inherited create;
          fmessage:=msg;
-         {!!!!!}
       end;
 
 {$ifdef autoobjpas}
@@ -275,7 +274,10 @@ begin
 end.
 {
     $Log$
-    Revision 1.15  1998-10-10 09:53:10  michael
+    Revision 1.16  1998-10-11 12:23:41  michael
+    + More sysutils calls.
+
+    Revision 1.15  1998/10/10 09:53:10  michael
     Added assertion handling
 
     Revision 1.14  1998/10/03 15:08:05  florian