Browse Source

* rtti parameter for dyn. array to variant conversion fixed

git-svn-id: trunk@1590 -
florian 20 years ago
parent
commit
1ef533ffa9
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

@@ -1137,7 +1137,7 @@ implementation
       begin
       begin
         result := ccallnode.createinternres(
         result := ccallnode.createinternres(
           'fpc_dynarray_to_variant',
           '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)
             ccallparanode.create(ctypeconvnode.create_explicit(left,voidpointertype),nil)
           ),resulttype);
           ),resulttype);
         resulttypepass(result);
         resulttypepass(result);