Explorar el Código

* properly force the result type after r45217

git-svn-id: trunk@45220 -
florian hace 5 años
padre
commit
de805fddcd
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  1. 3 0
      compiler/nbas.pas

+ 3 - 0
compiler/nbas.pas

@@ -757,6 +757,9 @@ implementation
           begin
             result:=tassignmentnode(a[1].left).right;
             tassignmentnode(a[1].left).right:=nil;
+            { ensure the node is first passed, so the resultdef does not get changed if the
+              the type conv. below is merged }
+            firstpass(result);
             result:=ctypeconvnode.create_internal(result,ttemprefnode(a[3].left).resultdef);
             firstpass(result);
             exit;