use saved argv0 - not sure if needed

2012-12-10 14:53:13 +11:00
parent 9534ba4b31
commit 2af296a3d2
1 changed files with 2 additions and 0 deletions
--- a/macro.c
+++ b/macro.c
@ -323,6 +323,8 @@ Tcl_Interp *MacroInit(SicsInterp * pSics)
  assert(pSics);

  /* create interpreter and unknown */
+  extern const char *argv0;
+  Tcl_FindExecutable(argv0);
  pInter = Tcl_CreateInterp();
  pUnknown = (struct __SicsUnknown *) malloc(sizeof(struct __SicsUnknown));
  if ((!pInter) || (!pUnknown)) {