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

* better error reporting

Browse Source
This commit is contained in:
florian 2005-05-06 19:31:36 +00:00
parent 11eefecc8c
commit 4af99ad8ec
1 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/fpdoc/unitdiff.pp
View File

@ -301,6 +301,7 @@ begin
Try Try
Engine1:=TSkelEngine.Create; Engine1:=TSkelEngine.Create;
Try Try
try
Engine1.SetPackageName('diff'); // do not localize Engine1.SetPackageName('diff'); // do not localize
ParseSource(Engine1, InputFile1, OSTarget, CPUTarget); ParseSource(Engine1, InputFile1, OSTarget, CPUTarget);
Engine1.FList.Sorted:=True; Engine1.FList.Sorted:=True;
@ -324,6 +325,10 @@ begin
end end
else else
ListIdentifiers(InputFile1,Engine1.FList); ListIdentifiers(InputFile1,Engine1.FList);
except
on e: eparsererror do
writeln(format('%s(%d,%d): Error: %s',[e.Filename,e.Row,e.Column,e.Message]));
end;
Finally Finally
Engine1.Free; Engine1.Free;
end; end;
@ -336,7 +341,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2005-02-14 17:13:39 peter Revision 1.6 2005-05-06 19:31:36 florian
* better error reporting
Revision 1.5 2005/02/14 17:13:39 peter
* truncate log * truncate log
Revision 1.4 2005/01/01 19:56:29 armin Revision 1.4 2005/01/01 19:56:29 armin