diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-09-04 13:41:56 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-04 14:14:05 +1000 |
commit | a9bf5975fd0f89974d689a2d9ebd0873c8d64787 (patch) | |
tree | 577244a184ec25c6a8b7d283bb1c59454e4a407a | |
parent | c302dda04832fa72c355b8afccb334b071e08263 (diff) | |
download | jimtcl-a9bf5975fd0f89974d689a2d9ebd0873c8d64787.zip jimtcl-a9bf5975fd0f89974d689a2d9ebd0873c8d64787.tar.gz jimtcl-a9bf5975fd0f89974d689a2d9ebd0873c8d64787.tar.bz2 |
Trim bootstrap jimsh0.77
No need for references support
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | jim.c | 12 | ||||
-rwxr-xr-x | make-bootstrap-jim | 4 |
2 files changed, 7 insertions, 9 deletions
@@ -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. * @@ -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; @@ -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; } @@ -5444,7 +5442,7 @@ void Jim_CollectIfNeeded(Jim_Interp *interp) Jim_Collect(interp); } } -#endif +#endif /* JIM_REFERENCES && !JIM_BOOTSTRAP */ int Jim_IsBigEndian(void) { @@ -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; @@ -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) @@ -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) diff --git a/make-bootstrap-jim b/make-bootstrap-jim index d69380b..c1754f7 100755 --- a/make-bootstrap-jim +++ b/make-bootstrap-jim @@ -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 "."' @@ -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 |