paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 05:39:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better error message in case of parser error

Browse Source 
git-svn-id: trunk@7272 -
This commit is contained in:
florian 2007-05-05 14:51:26 +00:00
parent e074f9383c
commit 0e429065e8
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/fpdoc/makeskel.pp
View File

@ -386,7 +386,14 @@ begin
close(f); close(f);
Halt(1); Halt(1);
end; end;
on e:EParserError do
begin
Writeln(StdErr,'', e.filename,'(',e.row,',',e.column,') Fatal: ',e.message);
close(f);
Halt(1);
end; end;
end;
finally finally
Engine.Free; Engine.Free;
end; end;