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

* when errors are found don't generate code, but still run the

Browse Source 
resulttype pass
This commit is contained in:
peter 2001-04-13 23:49:24 +00:00
parent 7bebc8bc7e
commit a5a695d141
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/psub.pas
View File

@ -53,7 +53,7 @@ implementation
nbas,
{ pass 2 }
{$ifndef NOPASS2}
pass_2,
pass_1,pass_2,
{$endif}
{ parser }
scanner,
@ -337,10 +337,15 @@ implementation
oldaktmaxfpuregisters:=aktmaxfpuregisters;
aktmaxfpuregisters:=localmaxfpuregisters;
{$ifndef NOPASS2}
{ only generate the code if no type errors are found }
if assigned(code) and
(status.errorcount=0) then
generatecode(code);
if assigned(code) then
begin
{ only generate the code if no type errors are found, else
finish at least the type checking pass }
if (status.errorcount=0) then
generatecode(code)
else
do_resulttypepass(code);
end;
{ set switches to status at end of procedure }
aktlocalswitches:=exitswitches;
@ -809,7 +814,11 @@ implementation
end.
{
$Log$
Revision 1.28 2001-04-13 17:59:03 peter
Revision 1.29 2001-04-13 23:49:24 peter
* when errors are found don't generate code, but still run the
resulttype pass
Revision 1.28 2001/04/13 17:59:03 peter
* don't generate code when there is already an error
Revision 1.27 2001/04/13 01:22:13 peter