Sfoglia il codice sorgente

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

git-svn-id: trunk@1626 -
florian 20 anni fa
parent
commit
380d3be22c
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  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;
   begin
+    result:=nil;
     variantmanager.vartodynarray(result,v,typeinfo);
   end;