From 380d3be22c9f65d74e9550dcd047dbce6bb8ae87 Mon Sep 17 00:00:00 2001 From: florian Date: Tue, 1 Nov 2005 22:41:25 +0000 Subject: [PATCH] * started to fix var. array -> dyn. array git-svn-id: trunk@1626 - --- rtl/inc/variant.inc | 1 + 1 file changed, 1 insertion(+) diff --git a/rtl/inc/variant.inc b/rtl/inc/variant.inc index 5b0b1b9193..bc35204386 100644 --- a/rtl/inc/variant.inc +++ b/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;