소스 검색

* fixes for memory leaks by Vincent

git-svn-id: trunk@16312 -
marco 15 년 전
부모
커밋
e3fb3230ef
1개의 변경된 파일3개의 추가작업 그리고 1개의 파일을 삭제
  1. 3 1
      utils/fpdoc/dglobals.pp

+ 3 - 1
utils/fpdoc/dglobals.pp

@@ -818,6 +818,7 @@ begin
             writeln('new alias ',clname,' (',s,') ');
             cl2.addref;
             Result := TPasAliasType(CreateElement(TPasAliasType,s,module.interfacesection,vispublic,'',0));
+            module.interfacesection.Declarations.Add(Result);
             TPasAliasType(Result).DestType := cl2;
           end
       end
@@ -856,7 +857,8 @@ end;
                  cls2:=ResolveAndLinkClass(clname,j=0,cls);
              end;
          end;
-end;
+    inhclass.free;
+   end;
 
   var
     s, Name: String;