paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 18:50:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* EInvalidCast added (from runerror 219)

Browse Source
This commit is contained in:
florian 1998-10-03 15:08:04 +00:00
parent fec8cda54a
commit 5e622e60c0
3 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/except.inc
View File

@ -113,7 +113,7 @@ Function Raiseexcept (Obj : TObject; AnAddr : Pointer) : TObject;[Public, Alias
begin
{$ifdef excdebug}
writeln ('In RAiseException');
writeln ('In RaiseException');
{$endif}
PushExceptObj(Obj,AnAddr);
If ExceptAddrStack=Nil then

8
rtl/objpas/stre.inc
View File

@ -44,11 +44,15 @@ Const
SInvalidPointer = 'Invalid pointer operation';
SOutOfMemory = 'Out of memory';
SRangeError = 'Range check error';
SInvalidCast = 'Invalid type cast';
STooManyOpenFiles = 'Too many open files';
SUnKnownRunTimeError = 'Unknown Run-Time error : %3.3d';
{
$Log$
Revision 1.3 1998-10-02 13:57:37 michael
Revision 1.4 1998-10-03 15:08:04 florian
* EInvalidCast added (from runerror 219)
Revision 1.3 1998/10/02 13:57:37 michael
Format error now causes exception
Revision 1.2 1998/10/02 13:00:09 michael
@ -57,4 +61,4 @@ Const
Revision 1.1 1998/10/01 16:04:59 michael
+ Initial implementation
}
}

13
rtl/objpas/sysutils.pp
View File

@ -86,6 +86,7 @@ interface
EInvalidPointer = Class(Exception);
EOutOfMemory = Class(Exception);
EAccessViolation = Class(Exception);
EInvalidCast = Class(Exception);
{ String conversion errors }
@ -180,7 +181,7 @@ begin
Writeln ('Exception object ',Obj.ClassName,' is not of class Exception.');
Halt(217);
{$else}
{$endif}
{$endif}
end;
@ -220,9 +221,10 @@ begin
// We don't set abstracterrorhandler, but we do it here.
// Unless the use sets another handler we'll get here anyway...
200 : E:=EDivByZero.Create(SDivByZero);
201 : E:=ERangeError.Create(SRangeError);
201 : E:=ERangeError.Create(SRangeError);
211 : E:=EAbstractError.Create(SAbstractError);
216 : E:=EAccessViolation.Create (SAccessViolation);
216 : E:=EAccessViolation.Create(SAccessViolation);
219 : E:=EInvalidCast.Create(SInvalidCast);
else
{$ifdef autoobjpas}
E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
@ -254,7 +256,10 @@ begin
end.
{
$Log$
Revision 1.13 1998-10-02 13:00:11 michael
Revision 1.14 1998-10-03 15:08:05 florian
* EInvalidCast added (from runerror 219)
Revision 1.13 1998/10/02 13:00:11 michael
+ More RTL error handling
Revision 1.12 1998/10/02 12:17:18 michael