paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some more minor fixes to the debug info

Browse Source 
git-svn-id: trunk@11887 -
This commit is contained in:
marco 2008-10-12 11:14:35 +00:00
parent 9ad5720e46
commit 925c119911
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/wchmhwrap.pas
View File

@ -45,7 +45,7 @@ function combinepaths(relpath,basepath:String):String;
begin
{$ifdef combinedebug}
debugmessage({$i %file%},'combine in "'+relpath+'" and "'+basepath+'"'+{$i %line%},1,1);
debugmessageS({$i %file%},'combine in "'+relpath+'" and "'+basepath+'"',{$i %line%},'1');
{$endif}
if relpath='' then exit;
@ -58,7 +58,7 @@ begin
end;
{$ifdef combinedebug}
debugmessage({$i %file%},'combine out "'+relpath+'" and "'+basepath+'"'+{$i %line%},1,1);
debugmessageS({$i %file%},'combine out "'+relpath+'" and "'+basepath+'"',{$i %line%},'1');
{$endif}
result:=basepath+relpath;
@ -78,12 +78,12 @@ begin
exit;
end;
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: before sitemap creation '+{$i %line%},1,1);
debugmessageS({$i %file%},'TCHMWrapper: before sitemap creation ',{$i %line%},'1');
{$endif}
findex:=TChmSiteMap.create(stindex);
ftopic:=TChmSiteMap.create(sttoc);
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: after sitemap creation '+{$i %line%}+inttostr(ptrint(findex)),1,1);
debugmessageS({$i %file%},'TCHMWrapper: after sitemap creation ',{$i %line%},'1');
{$endif}
floaded:=false;
end;
@ -111,15 +111,14 @@ begin
m:=fchmr.getobject(fchmr.indexfile);
try
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: before loadfromstream '+{$i %line%},1,1);
debugmessage({$i %file%},'TCHMWrapper: stream size loaded'+inttostr(m.size),1,1);
debugmessageS({$i %file%},'TCHMWrapper: stream size loaded :'+inttostr(m.size),{$i %line%},'1');
{$endif}
findex.loadfromStream(m);
finally
freeandnil(m);
end;
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: loadindex after final '+{$i %line%},1,1);
debugmessageS({$i %file%},'TCHMWrapper: loadindex after final ',{$i %line%},'1');
{$endif}
tli:=TopicLinks^.AddItem(fchmr.defaultpage);
@ -133,7 +132,7 @@ begin
IndexEntries^.Insert(NewIndexEntry( FormatAlias(item.text),ID,TLI));
end;
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: endloadindex '+{$i %line%},1,1);
debugmessageS({$i %file%},'TCHMWrapper: endloadindex ',{$i %line%},'1');
{$endif}
floaded:=true;
result:=true;
@ -154,7 +153,7 @@ begin
linedata:=Classes.TStringList.create;
try
{$ifdef wdebug}
debugmessage({$i %file%},'TCHMWrapper: Getting file '+name+' '+{$i %line%},1,1);
debugmessageS({$i %file%},'TCHMWrapper: Getting file '+name,{$i %line%},'1');
{$endif}
// if uppercase(name)='TABLE OF CONTENTS' Then
// m:=fchmr.getobject(fchmr.tocfile)

2
ide/whtmlhlp.pas
View File

@ -635,7 +635,7 @@ begin
begin
Topic^.NamedMarks^.InsertStr(Name);
{$IFDEF WDEBUG}
DebugMessage('',' Adding Name "'+Name+'"',1,1);
DebugMessageS({$i %file%},' Adding Name "'+Name+'"',{$i %line%},'1');
{$endif WDEBUG}
AddChar(hscNamedMark);
end;