Explorar el Código

* GetCopyAndTypeCheck forces correct type
* propagate forinline flag through simplify

git-svn-id: trunk@45213 -

florian hace 5 años
padre
commit
43e6d84f33
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  1. 2 1
      compiler/nadd.pas

+ 2 - 1
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;