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

Implement mark_write override for tinilinenode

Browse Source 
git-svn-id: trunk@40277 -
This commit is contained in:
pierre 2018-11-08 20:18:30 +00:00
parent a40335de34
commit 796db4cef5
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ninl.pas
View File

@ -41,6 +41,7 @@ interface
function pass_typecheck_cpu:tnode;virtual;
function simplify(forinline : boolean): tnode;override;
function docompare(p: tnode): boolean; override;
procedure mark_write;override;
{ returns a node tree where the inc/dec are replaced by add/sub }
function getaddsub_for_incdec : tnode;
@ -4077,6 +4078,16 @@ implementation
end;
procedure tinlinenode.mark_write;
begin
case inlinenumber of
in_aligned_x, in_unaligned_x:
tcallparanode(left).left.mark_write;
else
inherited mark_write;
end;
end;
function tinlinenode.first_pi : tnode;
begin
result:=crealconstnode.create(getpi,pbestrealtype^);