浏览代码

* started to fix var. array -> dyn. array

git-svn-id: trunk@1626 -
florian 20 年之前
父节点
当前提交
380d3be22c
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      rtl/inc/variant.inc

+ 1 - 0
rtl/inc/variant.inc

@@ -120,6 +120,7 @@ procedure fpc_vararray_put(var d : variant;const s : variant;indices : psizeint;
 
 
 function fpc_variant_to_dynarray(const v : variant;typeinfo : pointer) : pointer;compilerproc;
 function fpc_variant_to_dynarray(const v : variant;typeinfo : pointer) : pointer;compilerproc;
   begin
   begin
+    result:=nil;
     variantmanager.vartodynarray(result,v,typeinfo);
     variantmanager.vartodynarray(result,v,typeinfo);
   end;
   end;