Browse Source

+ More sysutils calls.

michael 27 years ago
parent
commit
3b8fd18808
2 changed files with 16 additions and 11 deletions
  1. 5 2
      rtl/objpas/Makefile
  2. 11 9
      rtl/objpas/sysutils.pp

+ 5 - 2
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

+ 11 - 9
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