fix bug on cell extraction

Change-Id: I2b5b98181d772043ef5309178809eefd6bc2b5ad

diff --git a/scilab/modules/ast/src/cpp/ast/run_CallExp.hpp b/scilab/modules/ast/src/cpp/ast/run_CallExp.hpp
index 1708b62..4592940 100644 (file)
--- a/scilab/modules/ast/src/cpp/ast/run_CallExp.hpp
+++ b/scilab/modules/ast/src/cpp/ast/run_CallExp.hpp
@@ -349,14 +349,18 @@ void RunVisitorT<T>::visitprivate(const CellCallExp &e)
 
             if (pList->getSize() == 1)
             {
-                setResult(pList->get(0));
+                InternalType* ret = pList->get(0);
+                setResult(ret);
+
+                ret->IncreaseRef();
+                pList->killMe();
+                ret->DecreaseRef();
             }
             else
             {
                 setResult(pList);
             }
 
-            pList->killMe();
 
             //clean pArgs return by GetArgumentList
             for (int iArg = 0 ; iArg < (int)pArgs->size() ; iArg++)