Explorar el Código

* rtti parameter for dyn. array to variant conversion fixed

git-svn-id: trunk@1590 -
florian hace 20 años
padre
commit
1ef533ffa9
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

@@ -1137,7 +1137,7 @@ implementation
       begin
         result := ccallnode.createinternres(
           'fpc_dynarray_to_variant',
-          ccallparanode.create(caddrnode.create_internal(crttinode.create(tstoreddef(resulttype.def),initrtti)),
+          ccallparanode.create(caddrnode.create_internal(crttinode.create(tstoreddef(left.resulttype.def),initrtti)),
             ccallparanode.create(ctypeconvnode.create_explicit(left,voidpointertype),nil)
           ),resulttype);
         resulttypepass(result);