From 796db4cef5953b50c07ca196c15d9f01f9c0ae21 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 8 Nov 2018 20:18:30 +0000
Subject: [PATCH]  Implement mark_write override for tinilinenode

git-svn-id: trunk@40277 -
---
 compiler/ninl.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index a752e1b268..585159fd67 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -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^);