Merge remote-tracking branch 'origin/master' into windows
[scilab.git] / scilab / modules / matio / src / cpp / GetCharVariable.cpp
index 0d2a9e7..79b8f17 100644 (file)
@@ -5,11 +5,14 @@
  * Copyright (C) 2010 - DIGITEO - Vincent COUVERT
  * Copyright (C) 2015 - Scilab Enterprises - Sylvain GENIN
  *
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at
- * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+ * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ *
+ * This file is hereby licensed under the terms of the GNU GPL v2.0,
+ * pursuant to article 5.3.4 of the CeCILL v.2.1.
+ * This file was originally licensed under the terms of the CeCILL v2.1,
+ * and continues to be available under such terms.
+ * For more information, see the COPYING file which you should have received
+ * along with this program.
  *
  */
 
@@ -97,6 +100,7 @@ matvar_t* GetCharMatVar(types::String* pStr, const char* name)
         char** ppcName = (char**)MALLOC(sizeof(char*) * pDims[0] * pDims[1]);
         if (ppcName == NULL)
         {
+            FREE(psize_t);
             Scierror(999, _("%s: No more memory.\n"), "GetCharMatVar");
             return NULL;
         }
@@ -105,6 +109,7 @@ matvar_t* GetCharMatVar(types::String* pStr, const char* name)
         if (pstMatData == NULL)
         {
             FREE(ppcName);
+            FREE(psize_t);
             Scierror(999, _("%s: No more memory.\n"), "GetCharMatVar");
             return NULL;
         }
@@ -114,7 +119,6 @@ matvar_t* GetCharMatVar(types::String* pStr, const char* name)
             ppcName[i] = pStr->get(i);
         }
 
-
         for (int i = 0; i < pDims[0]; ++i)
         {
             for (int j = 0; j < iLen; ++j)