bug 380, fix removal of string vector after setting the model parameters

This commit is contained in:
Holger Vogt 2018-11-13 19:43:38 +01:00
parent 163f569eb2
commit 96f3b7b029
1 changed files with 6 additions and 1 deletions

View File

@ -207,8 +207,13 @@ char *MIFgetMod(
tfree(val->v.vec.rVec);
if (vtype == IF_CPLXVEC)
tfree(val->v.vec.cVec);
if (vtype == IF_STRING || vtype == IF_STRINGVEC)
if (vtype == IF_STRING)
tfree(val->sValue);
if (vtype == IF_STRINGVEC) {
for (i = 0; i < val->v.numValue; i++)
tfree(val->v.vec.sVec[i]);
tfree(val->v.vec.sVec);
}
if(error)
return(INPerror(error));
break;