paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 08:06:11 +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); procedure TFPDocWriter.Warning(AContext: TPasElement; const AMsg: String);
begin begin
WriteLn('[', AContext.PathName, '] ', AMsg); if (AContext<>nil) then
WriteLn('[', AContext.PathName, '] ', AMsg)
else
WriteLn('[<no context>] ', AMsg);
end; end;
procedure TFPDocWriter.Warning(AContext: TPasElement; const AMsg: String; procedure TFPDocWriter.Warning(AContext: TPasElement; const AMsg: String;
@ -815,7 +818,10 @@ end.
{ {
$Log$ $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 + Added Topic support
Revision 1.1 2003/03/17 23:03:20 michael Revision 1.1 2003/03/17 23:03:20 michael