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

* Use typed pointer to store address of x when processing inc(x)/dec(x) with range checking enabled. This preserves alignment of x and prevents generating unaligned code on alignment-sensitive targets.

Browse Source 
git-svn-id: trunk@26256 -
This commit is contained in:
sergei 2013-12-20 17:13:41 +00:00
parent 5cd0684d45
commit b376f56bf3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ninl.pas
View File

@ -3238,7 +3238,8 @@ implementation
tempnode: ttempcreatenode;
newstatement: tstatementnode;
newblock: tblocknode;
addrnode: taddrnode;
hdef: tdef;
begin
result:=nil;
{ if we handle writeln; left contains no valid address }
@ -3409,10 +3410,13 @@ implementation
{ optimize the code generation) }
if node_complexity(tcallparanode(left).left) > 1 then
begin
tempnode := ctempcreatenode.create(voidpointertype,voidpointertype.size,tt_persistent,true);
hdef:=getpointerdef(tcallparanode(left).left.resultdef);
tempnode := ctempcreatenode.create(hdef,hdef.size,tt_persistent,true);
addstatement(newstatement,tempnode);
addrnode:=caddrnode.create_internal(tcallparanode(left).left.getcopy);
include(addrnode.flags,nf_typedaddr);
addstatement(newstatement,cassignmentnode.create(ctemprefnode.create(tempnode),
caddrnode.create_internal(tcallparanode(left).left.getcopy)));
addrnode));
hp := cderefnode.create(ctemprefnode.create(tempnode));
inserttypeconv_internal(hp,tcallparanode(left).left.resultdef);
end