Explorar o código

* fixes for memory leaks by Vincent

git-svn-id: trunk@16312 -
marco %!s(int64=15) %!d(string=hai) anos
pai
achega
e3fb3230ef
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  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;