paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:49:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged syserrormsg fix

Browse Source
This commit is contained in:
michael 2000-08-29 17:56:32 +00:00
parent 61192ad683
commit 05f78681c5
3 changed files with 54 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/linux/sysutils.pp
View File

@ -1,5 +1,6 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl Copyright (c) 1999-2000 by Florian Klaempfl
member of the Free Pascal development team member of the Free Pascal development team
@ -22,7 +23,7 @@ interface
{$H+} {$H+}
uses uses
linux; linux,errors;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -413,6 +414,12 @@ begin
InitAnsi; InitAnsi;
end; end;
function SysErrorMessage(ErrorCode: Integer): String;
begin
Result:=StrError(ErrorCode);
end;
{**************************************************************************** {****************************************************************************
Initialization code Initialization code
@ -426,8 +433,22 @@ Finalization
InValidPointer.Free; InValidPointer.Free;
end. end.
{ {
$Log$ $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 * 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 :(
} }

14
rtl/objpas/sysutilh.inc
View File

@ -1,5 +1,6 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl Copyright (c) 1999-2000 by Florian Klaempfl
member of the Free Pascal development team member of the Free Pascal development team
@ -102,6 +103,7 @@ type
procedure Abort; procedure Abort;
procedure OutOfMemoryError; procedure OutOfMemoryError;
procedure Beep; procedure Beep;
function SysErrorMessage(ErrorCode: Integer): String;
Var Var
OnShowException : Procedure (Msg : ShortString); OnShowException : Procedure (Msg : ShortString);
@ -130,7 +132,17 @@ Var
{ {
$Log$ $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 * 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
} }

24
rtl/win32/sysutils.pp
View File

@ -1,5 +1,6 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl Copyright (c) 1999-2000 by Florian Klaempfl
member of the Free Pascal development team member of the Free Pascal development team
@ -28,11 +29,6 @@ uses
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
{ platform dependent functions }
function SysErrorMessage(ErrorCode: Integer): String;
implementation implementation
@ -618,7 +614,23 @@ Finalization
end. end.
{ {
$Log$ $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 * 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 :(
} }