From 3cb8cb293d2050884ce7bbb2a250f4a54ba17beb Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 20 Aug 2017 19:07:55 +0000
Subject: [PATCH] * correctly raise exception

git-svn-id: trunk@36979 -
---
 packages/rtl-objpas/src/inc/rtti.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 34d81e0743..53d2ce015d 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -832,7 +832,7 @@ end;
 function TValue.AsInterface: IInterface;
 begin
   if Kind <> tkInterface then
-    EInvalidCast.Create(SErrInvalidTypecast);
+    raise EInvalidCast.Create(SErrInvalidTypecast);
   Result := PInterface(FData.FValueData.GetReferenceToRawData)^;
 end;