Skip to content

Commit

Permalink
Trim bootstrap jimsh
Browse files Browse the repository at this point in the history
No need for references support

Signed-off-by: Steve Bennett <steveb@workware.net.au>
  • Loading branch information
msteveb committed Sep 4, 2016
1 parent c302dda commit a9bf597
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 9 deletions.
12 changes: 5 additions & 7 deletions jim.c
Expand Up @@ -5045,7 +5045,7 @@ static void JimFreeCallFrame(Jim_Interp *interp, Jim_CallFrame *cf, int action)
/* -----------------------------------------------------------------------------
* References
* ---------------------------------------------------------------------------*/
#ifdef JIM_REFERENCES
#if defined(JIM_REFERENCES) && !defined(JIM_BOOTSTRAP)

/* References HashTable Type.
*
Expand Down Expand Up @@ -5302,7 +5302,6 @@ static const Jim_HashTableType JimRefMarkHashTableType = {
int Jim_Collect(Jim_Interp *interp)
{
int collected = 0;
#ifndef JIM_BOOTSTRAP
Jim_HashTable marks;
Jim_HashTableIterator htiter;
Jim_HashEntry *he;
Expand Down Expand Up @@ -5424,7 +5423,6 @@ int Jim_Collect(Jim_Interp *interp)
Jim_FreeHashTable(&marks);
interp->lastCollectId = interp->referenceNextId;
interp->lastCollectTime = time(NULL);
#endif /* JIM_BOOTSTRAP */
return collected;
}

Expand All @@ -5444,7 +5442,7 @@ void Jim_CollectIfNeeded(Jim_Interp *interp)
Jim_Collect(interp);
}
}
#endif
#endif /* JIM_REFERENCES && !JIM_BOOTSTRAP */

int Jim_IsBigEndian(void)
{
Expand Down Expand Up @@ -13067,7 +13065,7 @@ static int Jim_DebugCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *ar
return JIM_ERR;
}
/* unreached */
#endif /* JIM_BOOTSTRAP */
#endif /* JIM_DEBUG_COMMAND && !JIM_BOOTSTRAP */
#if !defined(JIM_DEBUG_COMMAND)
Jim_SetResultString(interp, "unsupported", -1);
return JIM_ERR;
Expand Down Expand Up @@ -14140,7 +14138,7 @@ static int Jim_CatchCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *ar
return JIM_OK;
}

#ifdef JIM_REFERENCES
#if defined(JIM_REFERENCES) && !defined(JIM_BOOTSTRAP)

/* [ref] */
static int Jim_RefCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
Expand Down Expand Up @@ -14254,7 +14252,7 @@ static int JimInfoReferences(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
Jim_SetResult(interp, listObjPtr);
return JIM_OK;
}
#endif
#endif /* JIM_REFERENCES && !JIM_BOOTSTRAP */

/* [rename] */
static int Jim_RenameCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
Expand Down
4 changes: 2 additions & 2 deletions make-bootstrap-jim
Expand Up @@ -49,7 +49,7 @@ allexts="bootstrap aio readdir regexp file glob exec clock array stdlib tclcompa
echo "/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */"

# define some core features
for i in JIM_TCL_COMPAT JIM_REFERENCES JIM_ANSIC JIM_REGEXP HAVE_NO_AUTOCONF _JIMAUTOCONF_H; do
for i in JIM_TCL_COMPAT JIM_ANSIC JIM_REGEXP HAVE_NO_AUTOCONF _JIMAUTOCONF_H; do
echo "#define $i"
done
echo '#define TCL_LIBRARY "."'
Expand Down Expand Up @@ -102,7 +102,7 @@ outputsource()
{
sed -e '/#include.*jim/d' -e '/#include.*utf8/d' \
-e '/^#.*if.*JIM_BOOTSTRAP/,/^#endif.*JIM_BOOTSTRAP/d' \
-e 's/\/\*.*\*\///' -e '/^[ ]*\/\*/,/\*\//d' $1
-e 's/[ ]*\/\*.*\*\///' -e '/^[ ]*\/\*/,/\*\//d' $1
}

# Now output header files, removing references to jim header files
Expand Down

0 comments on commit a9bf597

Please sign in to comment.