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

* as operator runtime error can be now caught by an errorproc

Browse Source
This commit is contained in:
florian 1998-10-12 12:42:58 +00:00
parent 70ce00b6b0
commit 31989910e4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/objpas.pp
View File

@ -182,6 +182,8 @@ interface
implementation
Procedure HandleError (Errno : longint);external name 'FPC_HANDLEERROR';
{****************************************************************************
Internal Routines called from the Compiler
****************************************************************************}
@ -200,7 +202,7 @@ interface
procedure int_do_as(aclass : tclass;aobject : tobject);[public,alias: 'FPC_DO_AS'];
begin
if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then
runerror(219);
handleerror(219);
end;
@ -399,7 +401,10 @@ begin
end.
{
$Log$
Revision 1.17 1998-10-05 12:32:53 peter
Revision 1.18 1998-10-12 12:42:58 florian
* as operator runtime error can be now caught by an errorproc
Revision 1.17 1998/10/05 12:32:53 peter
+ assert() support
Revision 1.16 1998/10/03 15:07:16 florian