paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +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 implementation
Procedure HandleError (Errno : longint);external name 'FPC_HANDLEERROR';
{**************************************************************************** {****************************************************************************
Internal Routines called from the Compiler Internal Routines called from the Compiler
****************************************************************************} ****************************************************************************}
@ -200,7 +202,7 @@ interface
procedure int_do_as(aclass : tclass;aobject : tobject);[public,alias: 'FPC_DO_AS']; procedure int_do_as(aclass : tclass;aobject : tobject);[public,alias: 'FPC_DO_AS'];
begin begin
if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then
runerror(219); handleerror(219);
end; end;
@ -399,7 +401,10 @@ begin
end. end.
{ {
$Log$ $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 + assert() support
Revision 1.16 1998/10/03 15:07:16 florian Revision 1.16 1998/10/03 15:07:16 florian