linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use saved argv0 - not sure if needed

Browse Source
This commit is contained in:
Douglas Clowes
2012-12-10 14:53:13 +11:00
parent 9534ba4b31
commit 2af296a3d2
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
macro.c
View File

@ -323,6 +323,8 @@ Tcl_Interp *MacroInit(SicsInterp * pSics)
assert(pSics); assert(pSics);
/* create interpreter and unknown */ /* create interpreter and unknown */
extern const char *argv0;
Tcl_FindExecutable(argv0);
pInter = Tcl_CreateInterp(); pInter = Tcl_CreateInterp();
pUnknown = (struct __SicsUnknown *) malloc(sizeof(struct __SicsUnknown)); pUnknown = (struct __SicsUnknown *) malloc(sizeof(struct __SicsUnknown));
if ((!pInter) || (!pUnknown)) { if ((!pInter) || (!pUnknown)) {