mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 12:19:18 +02:00
* better error reporting
This commit is contained in:
parent
11eefecc8c
commit
4af99ad8ec
@ -301,6 +301,7 @@ begin
|
||||
Try
|
||||
Engine1:=TSkelEngine.Create;
|
||||
Try
|
||||
try
|
||||
Engine1.SetPackageName('diff'); // do not localize
|
||||
ParseSource(Engine1, InputFile1, OSTarget, CPUTarget);
|
||||
Engine1.FList.Sorted:=True;
|
||||
@ -324,6 +325,10 @@ begin
|
||||
end
|
||||
else
|
||||
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
|
||||
Engine1.Free;
|
||||
end;
|
||||
@ -336,7 +341,10 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.4 2005/01/01 19:56:29 armin
|
||||
|
Loading…
Reference in New Issue
Block a user