paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 04:55:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* increase errorcount if an unknown exception occurred. This

Browse Source 
prevents some error checking during the cleanup

git-svn-id: trunk@591 -
This commit is contained in:
peter 2005-07-06 07:34:49 +00:00
parent a879211175
commit 4e14322037
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/parser.pas
View File

@ -35,6 +35,7 @@ interface
implementation
uses
sysutils,
cutils,cclasses,
globtype,version,tokens,systems,globals,verbose,
symbase,symtable,symsym,
@ -515,13 +516,25 @@ implementation
{ If the compile level > 1 we get a nice "unit expected" error
message if we are trying to use a program as unit.}
try
if (token=_UNIT) or (compile_level>1) then
begin
current_module.is_unit:=true;
proc_unit;
end
else
proc_program(token=_LIBRARY);
try
if (token=_UNIT) or (compile_level>1) then
begin
current_module.is_unit:=true;
proc_unit;
end
else
proc_program(token=_LIBRARY);
except
on ECompilerAbort do
raise;
on Exception do
begin
{ Increase errorcounter to prevent some
checks during cleanup }
inc(status.errorcount);
raise;
end;
end;
finally
{ restore old state }
done_module;