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

+ Check for non-nil context

Browse Source
This commit is contained in:
michael 2004-08-28 18:05:17 +00:00
parent b3ca44a053
commit 5b3c8ece09
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/fpdoc/dwriter.pp
View File

@ -200,7 +200,10 @@ end;
procedure TFPDocWriter.Warning(AContext: TPasElement; const AMsg: String);
begin
WriteLn('[', AContext.PathName, '] ', AMsg);
if (AContext<>nil) then
WriteLn('[', AContext.PathName, '] ', AMsg)
else
WriteLn('[<no context>] ', AMsg);
end;
procedure TFPDocWriter.Warning(AContext: TPasElement; const AMsg: String;
@ -815,7 +818,10 @@ end.
{
$Log$
Revision 1.2 2004-06-06 10:53:02 michael
Revision 1.3 2004-08-28 18:05:17 michael
+ Check for non-nil context
Revision 1.2 2004/06/06 10:53:02 michael
+ Added Topic support
Revision 1.1 2003/03/17 23:03:20 michael