paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +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$
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 :(
}

14
rtl/objpas/sysutilh.inc
View File

@ -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
}

24
rtl/win32/sysutils.pp
View File

@ -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 :(
}