paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +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

12
rtl/inc/except.inc
View File

@ -1,7 +1,7 @@
{
$Id$
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
See the file COPYING.FPC, included in this distribution,
@ -19,9 +19,9 @@
Const
{ Type of exception. Currently only one.}
{ Type of exception. Currently only one. }
FPC_EXCEPTION = 1;
{ types of frames for the exception address stack}
{ types of frames for the exception address stack }
cExceptionFrame = 1;
cFinalizeFrame = 2;
@ -44,7 +44,7 @@ Type
Const
CatchAllExceptions = -1;
Var ExceptAddrStack : PExceptAddr;
ExceptObjectStack : PExceptObject;
@ -100,7 +100,7 @@ begin
ExceptObjectStack^.Addr:=AnAddr;
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
{$ifdef excdebug}
@ -186,4 +186,4 @@ Procedure InitExceptions;
begin
ExceptObjectstack:=Nil;
ExceptAddrStack:=Nil;
end;
end;