paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtti parameter for dyn. array to variant conversion fixed

Browse Source 
git-svn-id: trunk@1590 -
This commit is contained in:
florian 2005-10-23 19:41:16 +00:00
parent 41d2ba68fe
commit 1ef533ffa9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncnv.pas
View File

@ -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);