stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleared up DynareMxArrayToString in k_order_perturbation.cpp and changed #ifdef to #if defined() in dynamic_dll.cpp 

git-svn-id: https://www.dynare.org/svn/dynare/trunk@3195 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
george 2009-12-06 00:03:22 +00:00
parent 965c743537
commit 684d8ac822
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mex/sources/k_order_perturbation/dynamic_dll.cpp
View File

@ -31,14 +31,14 @@ DynamicModelDLL::DynamicModelDLL(const string &modName, const int y_length, cons
: length(y_length), jcols(j_cols), nMax_lag(n_max_lag), nExog(n_exog)
{
string fName;
#ifndef _WIN32
#if !defined(__CYGWIN32__) && !defined(_WIN32)
fName = "./";
#endif
fName += modName + "_dynamic" + sExt;
try
{
#ifdef _WIN32
#if defined(__CYGWIN32__) || defined(_WIN32)
HINSTANCE dynamicHinstance;
dynamicHinstance = ::LoadLibrary(fName.c_str());
if (dynamicHinstance == NULL)

12
mex/sources/k_order_perturbation/k_order_perturbation.cpp
View File

@ -99,16 +99,7 @@ DynareMxArrayToString(const char *cNamesCharStr, const int len, const int width)
else cNamesMX[j][i] = '\0';
}
}
const char **ret = (const char **) calloc(len, sizeof(char *));
for (int j = 0; j < len; j++)
{
cNamesMX[j][width] = '\0';
char *token = (char *) calloc(strlen(cNamesMX[j])+1, sizeof(char));
strcpy(token, cNamesMX[j]);
ret[j] = token;
}
mxFree(cNamesMX);
return ret;
return (const char **)cNamesMX;
}
//////////////////////////////////////////////////////
@ -121,6 +112,7 @@ DynareMxArrayToString(const mxArray *mxFldp, const int len, const int width)
{
char *cNamesCharStr = mxArrayToString(mxFldp);
const char **ret = DynareMxArrayToString(cNamesCharStr, len, width);
return ret;
}