paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 20:49:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed firstpass when det_resulttype returns an error

Browse Source
This commit is contained in:
peter 2001-10-20 17:23:43 +00:00
parent 6a42a332dd
commit 7edaf1332f
1 changed files with 34 additions and 11 deletions

45
compiler/pass_1.pas
View File

@ -137,27 +137,47 @@ implementation
{ determine the resulttype if not done }
if (p.resulttype.def=nil) then
begin
aktfilepos:=p.fileinfo;
aktlocalswitches:=p.localswitches;
hp:=p.det_resulttype;
{ should the node be replaced? }
if assigned(hp) then
begin
p.free;
{ run resulttypepass }
resulttypepass(hp);
{ switch to new node }
p:=hp;
end;
if codegenerror then
begin
include(p.flags,nf_error);
{ default to errortype if no type is set yet }
if p.resulttype.def=nil then
p.resulttype:=generrortype;
end;
aktlocalswitches:=oldlocalswitches;
aktfilepos:=oldpos;
codegenerror:=codegenerror or oldcodegenerror;
end;
{ first pass }
hp:=p.pass_1;
{ should the node be replaced? }
if assigned(hp) then
begin
p.free;
p:=hp;
end;
if not(nf_error in p.flags) then
begin
aktfilepos:=p.fileinfo;
aktlocalswitches:=p.localswitches;
hp:=p.pass_1;
{ should the node be replaced? }
if assigned(hp) then
begin
p.free;
p:=hp;
end;
if codegenerror then
include(p.flags,nf_error);
end;
codegenerror:=codegenerror or oldcodegenerror;
aktlocalswitches:=oldlocalswitches;
aktfilepos:=oldpos;
if codegenerror then
include(p.flags,nf_error);
codegenerror:=codegenerror or oldcodegenerror;
end
else
codegenerror:=true;
@ -178,7 +198,10 @@ implementation
end.
{
$Log$
Revision 1.17 2001-09-02 21:18:28 peter
Revision 1.18 2001-10-20 17:23:43 peter
* fixed firstpass when det_resulttype returns an error
Revision 1.17 2001/09/02 21:18:28 peter
* split constsym.value in valueord,valueordptr,valueptr. The valueordptr
is used for holding target platform pointer values. As those can be
bigger than the source platform.