mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 11:39:55 +02:00
* check for errorcount after firstpass
This commit is contained in:
parent
c83a4c963f
commit
2019918dc9
@ -50,7 +50,7 @@ implementation
|
|||||||
{$ifdef logsecondpass}
|
{$ifdef logsecondpass}
|
||||||
cutils,
|
cutils,
|
||||||
{$endif}
|
{$endif}
|
||||||
globtype,systems,
|
globtype,systems,verbose,
|
||||||
cclasses,globals,
|
cclasses,globals,
|
||||||
symconst,symbase,symtype,symsym,aasm,
|
symconst,symbase,symtype,symsym,aasm,
|
||||||
pass_1,hcodegen,temp_gen,regvars,nflw,tgcpu;
|
pass_1,hcodegen,temp_gen,regvars,nflw,tgcpu;
|
||||||
@ -238,7 +238,10 @@ implementation
|
|||||||
use_esp_stackframe:=false;
|
use_esp_stackframe:=false;
|
||||||
symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}clearrefs);
|
symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}clearrefs);
|
||||||
symtablestack.next.foreach_static({$ifdef FPCPROCVAR}@{$endif}clearrefs);
|
symtablestack.next.foreach_static({$ifdef FPCPROCVAR}@{$endif}clearrefs);
|
||||||
if not(do_firstpass(p)) then
|
{ firstpass everything }
|
||||||
|
do_firstpass(p);
|
||||||
|
{ only do secondpass if there are no errors }
|
||||||
|
if ErrorCount=0 then
|
||||||
begin
|
begin
|
||||||
if (cs_regalloc in aktglobalswitches) and
|
if (cs_regalloc in aktglobalswitches) and
|
||||||
((procinfo^.flags and (pi_uses_asm or pi_uses_exceptions))=0) then
|
((procinfo^.flags and (pi_uses_asm or pi_uses_exceptions))=0) then
|
||||||
@ -303,7 +306,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.15 2001-04-15 09:48:30 peter
|
Revision 1.16 2001-05-09 19:57:07 peter
|
||||||
|
* check for errorcount after firstpass
|
||||||
|
|
||||||
|
Revision 1.15 2001/04/15 09:48:30 peter
|
||||||
* fixed crash in labelnode
|
* fixed crash in labelnode
|
||||||
* easier detection of goto and label in try blocks
|
* easier detection of goto and label in try blocks
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user