Browse Source

* fixes for memory leaks by Vincent

git-svn-id: trunk@16312 -
marco 14 years ago
parent
commit
e3fb3230ef
1 changed files with 3 additions and 1 deletions
  1. 3 1
      utils/fpdoc/dglobals.pp

+ 3 - 1
utils/fpdoc/dglobals.pp

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