* GetCopyAndTypeCheck forces correct type

  * propagate forinline flag through simplify

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45213 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 1 deletions

diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index bb91cc2029..b900063f71 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -484,6 +484,7 @@ implementation
         begin
           result:=getcopy;
           result.resultdef:=nil;
+          result:=ctypeconvnode.create_internal(result,resultdef);
           do_typecheckpass(result);
         end;
 
@@ -783,7 +784,7 @@ implementation
                           { keep the order of val+const else pointer operations might cause an error }
                           hp:=taddnode(left).left;
                           taddnode(left).left:=right;
-                          left:=left.simplify(false);
+                          left:=left.simplify(forinline);
                           right:=left;
                           left:=hp;
                           result:=GetCopyAndTypeCheck;