paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation with CheckPasTreeRefCount define

Browse Source 
git-svn-id: trunk@48094 -
This commit is contained in:
michael 2021-01-06 12:25:17 +00:00
parent 498805c1ca
commit 26a446308b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/fpdoc/dglobals.pp
View File

@ -162,7 +162,7 @@ resourcestring
SMDNavTree = ' UnitTree : put every units as a node on the same level as packages node'; SMDNavTree = ' UnitTree : put every units as a node on the same level as packages node';
SXMLUsageFlatStructure = 'Use a flat output structure of XML files and directories';
SXMLUsageSource = 'Include source file and line info in generated XML'; SXMLUsageSource = 'Include source file and line info in generated XML';
// Linear usage // Linear usage
@ -671,7 +671,7 @@ var
i: Integer; i: Integer;
begin begin
for i := 0 to FPackages.Count - 1 do for i := 0 to FPackages.Count - 1 do
TPasPackage(FPackages[i]).Release; TPasPackage(FPackages[i]).Release{$IFDEF CheckPasTreeRefCount}('TFPDocEngine.Destroy'){$ENDIF};
FreeAndNil(FRootDocNode); FreeAndNil(FRootDocNode);
FreeAndNil(FRootLinkNode); FreeAndNil(FRootLinkNode);
FreeAndNil(DescrDocNames); FreeAndNil(DescrDocNames);
@ -807,6 +807,7 @@ var
Module := TPasExternalModule.Create(s, HPackage); Module := TPasExternalModule.Create(s, HPackage);
Module.InterfaceSection := TInterfaceSection.Create('', Module); Module.InterfaceSection := TInterfaceSection.Create('', Module);
Module.PackageName:= HPackage.Name; Module.PackageName:= HPackage.Name;
// Module.AddRef{$IFDEF CheckPasTreeRefCount}('ReadContentFile.ResolvePackageModule'){$ENDIF};
HPackage.Modules.Add(Module); HPackage.Modules.Add(Module);
end; end;
pkg:=hpackage; pkg:=hpackage;
@ -867,6 +868,7 @@ var
// Create node for class // Create node for class
Result := TPasExternalClassType.Create(s, Module.InterfaceSection); Result := TPasExternalClassType.Create(s, Module.InterfaceSection);
Result.ObjKind := okClass; Result.ObjKind := okClass;
// Result.AddRef{$IFDEF CheckPasTreeRefCount}('ReadContentFile.ResolveAndLinkClass'){$ENDIF};
Module.InterfaceSection.Declarations.Add(Result); Module.InterfaceSection.Declarations.Add(Result);
Module.InterfaceSection.Classes.Add(Result); Module.InterfaceSection.Classes.Add(Result);
// defer processing inheritancestr till all classes are loaded. // defer processing inheritancestr till all classes are loaded.
@ -895,7 +897,7 @@ var
result:=TPasClassType(ResolveClassType(clname)); result:=TPasClassType(ResolveClassType(clname));
if assigned(result) and not (cls=result) then // save from tobject=implicit tobject if assigned(result) and not (cls=result) then // save from tobject=implicit tobject
begin begin
result.addref; result.addref{$IFDEF CheckPasTreeRefCount}('ReadContentFile.ResolveAndLinkClass'){$ENDIF};
if IsClass then if IsClass then
begin begin
cls.ancestortype:=result; cls.ancestortype:=result;
@ -934,7 +936,7 @@ var
else else
begin begin
// writeln('new alias ',clname,' (',s,') '); // writeln('new alias ',clname,' (',s,') ');
cl2.addref; cl2.addref{$IFDEF CheckPasTreeRefCount}('ReadContentFile.CreateAliasType'){$ENDIF};
Result := TPasAliasType(CreateElement(TPasAliasType,s,module.interfacesection,vispublic,'',0)); Result := TPasAliasType(CreateElement(TPasAliasType,s,module.interfacesection,vispublic,'',0));
module.interfacesection.Declarations.Add(Result); module.interfacesection.Declarations.Add(Result);
TPasAliasType(Result).DestType := cl2; TPasAliasType(Result).DestType := cl2;