paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 00:38:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for errorcount after firstpass

Browse Source
This commit is contained in:
peter 2001-05-09 19:57:07 +00:00
parent c83a4c963f
commit 2019918dc9
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pass_2.pas
View File

@ -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