Prechádzať zdrojové kódy

* fixes for memory leaks by Vincent

git-svn-id: trunk@16312 -
marco 14 rokov pred
rodič
commit
e3fb3230ef
1 zmenil súbory, kde vykonal 3 pridanie a 1 odobranie
  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;