From a23d636c90dc7f570aaf79f9390e5cb3c512d721 Mon Sep 17 00:00:00 2001 From: Martin Date: Fri, 2 Aug 2024 23:30:49 +0200 Subject: [PATCH] JitClasses: Fixed double "raise" after 1f7accb9e2311b20e94925ccce24e175440314b3 "Fix missing Raise before Exception.Create. Issue ##40860. Patch by n7800." --- components/jitclasses/jittypes.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/jitclasses/jittypes.pas b/components/jitclasses/jittypes.pas index 70af662441..5f48e84594 100644 --- a/components/jitclasses/jittypes.pas +++ b/components/jitclasses/jittypes.pas @@ -525,7 +525,7 @@ begin {$IFDEF JIT_REFCNT_DEBUG} debuglnEnter(['> TRefCountedJitReference.Destroy ',dbgs(self),' ' ]); try {$ENDIF} - if FRefCount > 0 then raise + if FRefCount > 0 then raise exception.Create('destroy while referrenced'); DoRefCountZero;