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

+ added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop

Browse Source
This commit is contained in:
florian 1999-07-02 17:03:22 +00:00
parent 9540e26f9f
commit 5ba784880e
3 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/stre.inc
View File

@ -50,9 +50,16 @@ Const
SInvalidCast = 'Invalid type cast';
STooManyOpenFiles = 'Too many open files';
SUnKnownRunTimeError = 'Unknown Run-Time error : %3.3d';
SOverflow = 'Floating point overflow';
SUnderflow = 'Floating point underflow';
SIntOverflow = 'Arithmetic overflow';
SInvalidOp = 'Invalid floating point operation';
{
$Log$
Revision 1.6 1999-06-19 07:39:46 michael
Revision 1.7 1999-07-02 17:03:22 florian
+ added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
Revision 1.6 1999/06/19 07:39:46 michael
Implemented strtofloat
Revision 1.5 1998/10/10 09:53:09 michael

6
rtl/objpas/strg.inc
View File

@ -36,7 +36,9 @@ Const
{
$Log$
Revision 1.1 1998-10-01 16:26:06 florian
* Initial revision
Revision 1.2 1999-07-02 17:03:23 florian
+ added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
Revision 1.1 1998/10/01 16:26:06 florian
* Initial revision
}

9
rtl/objpas/sysutils.pp
View File

@ -238,7 +238,11 @@ begin
// Unless the use sets another handler we'll get here anyway...
200 : E:=EDivByZero.Create(SDivByZero);
201 : E:=ERangeError.Create(SRangeError);
205 : E:=EOverflow.Create(SOverflow);
206 : E:=EOverflow.Create(SUnderflow);
207 : E:=EInvalidOp.Create(SInvalidOp);
211 : E:=EAbstractError.Create(SAbstractError);
215 : E:=EIntOverflow.Create(SIntOverflow);
216 : E:=EAccessViolation.Create(SAccessViolation);
219 : E:=EInvalidCast.Create(SInvalidCast);
227 : E:=EAssertionFailed.Create(SAssertionFailed);
@ -338,7 +342,10 @@ begin
end.
{
$Log$
Revision 1.26 1999-04-09 08:40:46 michael
Revision 1.27 1999-07-02 17:03:24 florian
+ added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
Revision 1.26 1999/04/09 08:40:46 michael
+ Fixed tfiletime problem
Revision 1.25 1999/04/08 16:26:31 michael