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

* insert explicit typecast to left type of inc(left,right) before

Browse Source 
assigning the value after an addn
  * for inc(pointer,X) convert X to sinttype instead of ptrinttype
    to support also negative values of X

git-svn-id: trunk@587 -
This commit is contained in:
peter 2005-07-05 07:15:50 +00:00
parent 91b59bc62a
commit 6846195a6c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ninl.pas
View File

@ -2176,7 +2176,7 @@ implementation
hpp := cordconstnode.create(1,tcallparanode(left).left.resulttype,false); hpp := cordconstnode.create(1,tcallparanode(left).left.resulttype,false);
end; end;
if (tcallparanode(left).left.resulttype.def.deftype=pointerdef) then if (tcallparanode(left).left.resulttype.def.deftype=pointerdef) then
inserttypeconv_internal(hpp,ptrinttype); inserttypeconv_internal(hpp,sinttype);
{ make sure we don't call functions part of the left node twice (and generally } { make sure we don't call functions part of the left node twice (and generally }
{ optimize the code generation) } { optimize the code generation) }
if node_complexity(tcallparanode(left).left) > 1 then if node_complexity(tcallparanode(left).left) > 1 then
@ -2199,6 +2199,7 @@ implementation
else else
hpp := caddnode.create(subn,hp,hpp); hpp := caddnode.create(subn,hp,hpp);
{ assign result of addition } { assign result of addition }
inserttypeconv_internal(hpp,hp.resulttype);
addstatement(newstatement,cassignmentnode.create(hp.getcopy,hpp)); addstatement(newstatement,cassignmentnode.create(hp.getcopy,hpp));
{ deallocate the temp } { deallocate the temp }
if assigned(tempnode) then if assigned(tempnode) then