paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 12:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: debug check

Browse Source 
git-svn-id: trunk@40165 -
This commit is contained in:
Mattias Gaertner 2018-11-01 22:36:24 +00:00
parent 2f5d081b5d
commit 2070df21ac
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-passrc/src/pastree.pp
View File

@ -2309,6 +2309,7 @@ begin
{$ifdef pas2js}
inc(FLastPasElementId);
FPasElementId:=FLastPasElementId;
//writeln('TPasElement.Create ',Name,':',ClassName,' ID=[',FPasElementId,']');
{$endif}
{$ifdef EnablePasTreeGlobalRefCount}
Inc(FGlobalRefCount);

17
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -386,7 +386,7 @@ var
aModule: TPasModule;
begin
if El=nil then exit('nil');
Result:=El.FullName+':'+El.ClassName;
Result:=El.PathName+':'+El.ClassName;
aModule:=El.GetModule;
if aModule=El then exit;
if aModule=nil then
@ -459,15 +459,19 @@ end;
procedure TPasAnalyzerKeySet.Add(Item: Pointer; CheckDuplicates: boolean);
begin
if CheckDuplicates then
if CheckDuplicates {$IFDEF VerbosePasAnalyzer}or true{$endif} then
if ContainsItem(Item) then
raise Exception.Create('TPasAnalyzerSet.Add duplicate');
raise Exception.Create('[20181101151755] TPasAnalyzerSet.Add duplicate');
{$ifdef pas2js}
FItems['%'+FItemToName(Item)]:=Item;
inc(FCount);
{$else}
FTree.Add(Item);
{$endif}
{$ifdef VerbosePasAnalyzer}
if not ContainsItem(Item) then
raise Exception.Create('[20181101151811] TPasAnalyzerSet.Add failed');
{$endif}
end;
procedure TPasAnalyzerKeySet.Remove(Item: Pointer);
@ -866,8 +870,9 @@ begin
if El=nil then
RaiseInconsistency(20170308093407,'');
{$IFDEF VerbosePasAnalyzer}
writeln('TPasAnalyzer.Add ',GetElModName(El),' New=',not PAElementExists(El));
writeln('TPasAnalyzer.Add ',GetElModName(El),' New=',not PAElementExists(El){$IFDEF Pas2js},' ID=[',El.PasElementId,']'{$ENDIF});
{$ENDIF}
{$IFDEF VerbosePasAnalyzer}CheckDuplicate:=true;{$ENDIF}
if CheckDuplicate and PAElementExists(El) then
RaiseInconsistency(20170304201318,'');
if aClass=nil then
@ -876,7 +881,7 @@ begin
Result.Element:=El;
FUsedElements.Add(Result);
{$IFDEF VerbosePasAnalyzer}
//writeln('TPasAnalyzer.Add END ',GetElModName(El),' Success=',PAElementExists(El),' ',ptruint(pointer(El)));
writeln('TPasAnalyzer.Add END ',GetElModName(El),' Success=',PAElementExists(El),' ',{$Ifdef pas2js}El.PasElementId{$else}ptruint(pointer(El)){$endif});
{$ENDIF}
end;
@ -1156,7 +1161,7 @@ begin
if ElementVisited(aModule,Mode) then exit;
{$IFDEF VerbosePasAnalyzer}
writeln('TPasAnalyzer.UseModule ',GetElModName(aModule),' Mode=',Mode);
writeln('TPasAnalyzer.UseModule ',GetElModName(aModule),' Mode=',Mode{$IFDEF pas2js},' ',aModule.PasElementId{$ENDIF});
{$ENDIF}
if Mode in [paumAllExports,paumAllPasUsable] then
begin