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

* fixed getting the "original" def in taddnode.simplify by stopping at

Browse Source 
type conversions for absolute variables (fixes test/tprec13 on, a.o.,
    ppc64 after r14892)

git-svn-id: trunk@14896 -
This commit is contained in:
Jonas Maebe 2010-02-13 11:30:43 +00:00
parent 6dd25eb233
commit 5e1a09f817
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -370,8 +370,14 @@ implementation
t:=nil;
hp:=right;
realdef:=hp.resultdef;
{ stop with finding the real def when we either encounter
a) an explicit type conversion (then the value has to be
re-interpreted)
b) an "absolute" type conversion (also requires
re-interpretation)
}
while (hp.nodetype=typeconvn) and
([nf_internal,nf_explicit] * hp.flags = []) do
([nf_internal,nf_explicit,nf_absolute] * hp.flags = []) do
begin
hp:=ttypeconvnode(hp).left;
realdef:=hp.resultdef;
@ -420,7 +426,7 @@ implementation
hp:=left;
realdef:=hp.resultdef;
while (hp.nodetype=typeconvn) and
([nf_internal,nf_explicit] * hp.flags = []) do
([nf_internal,nf_explicit,nf_absolute] * hp.flags = []) do
begin
hp:=ttypeconvnode(hp).left;
realdef:=hp.resultdef;