Merged syserrormsg fix

rtl/linux/sysutils.pp

@@ -1,5 +1,6 @@
 {
     $Id$
+
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Florian Klaempfl
     member of the Free Pascal development team
@@ -22,7 +23,7 @@ interface
 {$H+}
 
 uses
-  linux;
+  linux,errors;
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -413,6 +414,12 @@ begin
   InitAnsi;
 end;
 
+function SysErrorMessage(ErrorCode: Integer): String;
+
+begin
+  Result:=StrError(ErrorCode);
+end;
+
 
 {****************************************************************************
                               Initialization code
@@ -426,8 +433,22 @@ Finalization
   InValidPointer.Free;
 end.
 {
+
   $Log$
-  Revision 1.2  2000-08-20 15:46:46  peter
+  Revision 1.3  2000-08-29 17:58:13  michael
+  Merged syserrormsg fix
+
+  Revision 1.2  2000/08/20 15:46:46  peter
     * sysutils.pp moved to target and merged with disk.inc, filutil.inc
 
+    Revision 1.1.2.3  2000/08/22 19:21:48  michael
+    + Implemented syserrormessage. Made dummies for go32v2 and OS/2
+    * Changed linux/errors.pp so it uses pchars for storage.
+
+    Revision 1.1.2.2  2000/08/20 15:22:57  peter
+      * removed beep from interface
+
+    Revision 1.1.2.1  2000/08/20 15:08:32  peter
+      * forgot the add command :(
+
 }

rtl/objpas/sysutilh.inc

@@ -1,5 +1,6 @@
 {
     $Id$
+
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Florian Klaempfl
     member of the Free Pascal development team
@@ -102,6 +103,7 @@ type
    procedure Abort;
    procedure OutOfMemoryError;
    procedure Beep;
+   function SysErrorMessage(ErrorCode: Integer): String;
 
 Var
    OnShowException : Procedure (Msg : ShortString);
@@ -130,7 +132,17 @@ Var
 
 {
   $Log$
-  Revision 1.2  2000-08-20 15:46:46  peter
+  Revision 1.3  2000-08-29 17:56:32  michael
+  Merged syserrormsg fix
+
+  Revision 1.2  2000/08/20 15:46:46  peter
     * sysutils.pp moved to target and merged with disk.inc, filutil.inc
 
+  Revision 1.1.2.2  2000/08/22 19:21:48  michael
+  + Implemented syserrormessage. Made dummies for go32v2 and OS/2
+  * Changed linux/errors.pp so it uses pchars for storage.
+
+  Revision 1.1.2.1  2000/08/20 15:07:36  peter
+    * sysutils.pp moved into target specific directory and merged
+      disk.inc and filutil.inc in it
 }

rtl/win32/sysutils.pp

@@ -1,5 +1,6 @@
 {
     $Id$
+
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Florian Klaempfl
     member of the Free Pascal development team
@@ -28,11 +29,6 @@ uses
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
-{ platform dependent functions }
-
-function SysErrorMessage(ErrorCode: Integer): String;
-
-
 
 implementation
 
@@ -618,7 +614,23 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.2  2000-08-20 15:46:46  peter
+  Revision 1.3  2000-08-29 18:01:52  michael
+  Merged syserrormsg fix
+
+  Revision 1.2  2000/08/20 15:46:46  peter
     * sysutils.pp moved to target and merged with disk.inc, filutil.inc
+  $Log$
+  Revision 1.3  2000-08-29 18:01:52  michael
+  Merged syserrormsg fix
+
+  Revision 1.1.2.3  2000/08/22 19:21:49  michael
+  + Implemented syserrormessage. Made dummies for go32v2 and OS/2
+  * Changed linux/errors.pp so it uses pchars for storage.
+
+  Revision 1.1.2.2  2000/08/20 15:40:03  peter
+    * syserrormessage function added
+
+  Revision 1.1.2.1  2000/08/20 15:08:32  peter
+    * forgot the add command :(
 
 }