re-raise the exception

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1613 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-05-05 09:56:01 +00:00
parent eddb292da9
commit c98b7de06a
1 changed files with 1 additions and 0 deletions
--- a/wst/trunk/wst_rtti_filter/rtti_filters.pas
+++ b/wst/trunk/wst_rtti_filter/rtti_filters.pas
@ -270,6 +270,7 @@ begin
      fltr.Clear(clrNone);
    except
      fltr.Clear(clrFreeObjects);
+      raise;
    end;
  finally
    FreeAndNil(fltr);