소스 검색

* free unbound attributes

git-svn-id: trunk@42407 -
svenbarth 6 년 전
부모
커밋
98b1b04951
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      compiler/pdecl.pas

+ 1 - 0
compiler/pdecl.pas

@@ -1109,6 +1109,7 @@ implementation
         consume(_TYPE);
         rtti_attrs_def := nil;
         types_dec(false,had_generic,rtti_attrs_def);
+        rtti_attrs_def.free;
       end;