paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:09:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the raise helper routine get the exception object call by value

Browse Source
This commit is contained in:
florian 1998-08-02 16:43:35 +00:00
parent 8eb9f6121d
commit cc290ede1a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/except.inc
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1993,97 by xxxx Copyright (c) 1998 by Michael Van Canneyt
member of the Free Pascal development team member of the Free Pascal development team
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
@ -19,9 +19,9 @@
Const Const
{ Type of exception. Currently only one.} { Type of exception. Currently only one. }
FPC_EXCEPTION = 1; FPC_EXCEPTION = 1;
{ types of frames for the exception address stack} { types of frames for the exception address stack }
cExceptionFrame = 1; cExceptionFrame = 1;
cFinalizeFrame = 2; cFinalizeFrame = 2;
@ -100,7 +100,7 @@ begin
ExceptObjectStack^.Addr:=AnAddr; ExceptObjectStack^.Addr:=AnAddr;
end; end;
Function Raiseexcept (Var Obj : TObject; AnAddr : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION']; Function Raiseexcept (Obj : TObject; AnAddr : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION'];
begin begin
{$ifdef excdebug} {$ifdef excdebug}