diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ncgcal.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas index 4ca44c4d8c..55cae770f2 100644 --- a/compiler/ncgcal.pas +++ b/compiler/ncgcal.pas @@ -529,7 +529,9 @@ implementation passing a shortstring } if (hp2.nodetype=typeconvn) and (tunarynode(hp2).left.nodetype=addrn) then - hp2:=tunarynode(tunarynode(hp2).left).left; + hp2:=tunarynode(tunarynode(hp2).left).left + else if tunarynode(hp2).nodetype=addrn then + hp2:=tunarynode(hp2).left; location_freetemp(current_asmdata.CurrAsmList,hp2.location); hp:=tarrayconstructornode(hp).right; end; |