paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 09:09:36 +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

11
utils/fpdoc/makeskel.pp
View File

@ -380,13 +380,20 @@ begin
WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
WriteLn(f, '');
except
on e:EFileNotFoundError do
on e:EFileNotFoundError do
begin
Writeln(StdErr,' file ', e.message, ' not found');
close(f);
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;
finally
Engine.Free;
end;