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

+ Small change in raise statement object is passed by reference

Browse Source
This commit is contained in:
michael 1998-07-30 14:52:04 +00:00
parent a1f903d4b1
commit dc7304e08e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/except.inc
View File

@ -100,7 +100,7 @@ begin
ExceptObjectStack^.Addr:=AnAddr; ExceptObjectStack^.Addr:=AnAddr;
end; end;
Function Raiseexcept (Obj : TObject; AnAddr : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION']; Function Raiseexcept (Var Obj : TObject; AnAddr : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION'];
begin begin
{$ifdef excdebug} {$ifdef excdebug}