From 1ef533ffa99ad5e9de0b5cd4406c561d79be9957 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 23 Oct 2005 19:41:16 +0000 Subject: [PATCH] * rtti parameter for dyn. array to variant conversion fixed git-svn-id: trunk@1590 - --- compiler/ncnv.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index 3fcb23a15a..7678f7060f 100644 --- a/compiler/ncnv.pas +++ b/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);