DELETED tcl/patchscripts/minbuild-nooo.sh Index: tcl/patchscripts/minbuild-nooo.sh ================================================================== --- tcl/patchscripts/minbuild-nooo.sh +++ tcl/patchscripts/minbuild-nooo.sh @@ -1,75 +0,0 @@ -#! /usr/bin/env bash - -# Only apply to minimal builds -if [ -z "${KITCREATOR_MINBUILD}" ]; then - exit 0 -fi - -# Only apply if the Tcl being built actually includes OO as part of Tcl -if [ ! -f 'generic/tclOO.c' ]; then - exit 0 -fi - -# Apply OO-removing patch -patch -p1 << _EOF_ ---- tclcvs_HEAD/generic/tclBasic.c 2012-09-07 16:01:14.000000000 -0500 -+++ tclcvs_HEAD-OOremoved/generic/tclBasic.c 2012-09-09 13:44:06.618912251 -0500 -@@ -820,8 +820,6 @@ - * Create unsupported commands for debugging bytecode and objects. - */ - -- Tcl_CreateObjCommand(interp, "::tcl::unsupported::disassemble", -- Tcl_DisassembleObjCmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "::tcl::unsupported::representation", - Tcl_RepresentationCmd, NULL, NULL); - ---- tclcvs_HEAD/generic/tclProc.c 2012-09-07 16:01:14.000000000 -0500 -+++ tclcvs_HEAD-OOremoved/generic/tclProc.c 2012-09-09 13:45:16.634913713 -0500 -@@ -2857,6 +2857,7 @@ - *---------------------------------------------------------------------- - */ - -+#if 0 - int - Tcl_DisassembleObjCmd( - ClientData dummy, /* Not used. */ -@@ -3072,6 +3073,7 @@ - Tcl_SetObjResult(interp, TclDisassembleByteCodeObj(codeObjPtr)); - return TCL_OK; - } -+#endif - - /* - * Local Variables: ---- tclcvs_HEAD/generic/tclVar.c 2012-09-07 16:01:14.000000000 -0500 -+++ tclcvs_HEAD-OOremoved/generic/tclVar.c 2012-09-09 13:34:22.138912414 -0500 -@@ -6360,6 +6360,7 @@ - return; - } - -+#if 0 - if (iPtr->varFramePtr->isProcCallFrame & FRAME_IS_METHOD) { - CallContext *contextPtr = iPtr->varFramePtr->clientData; - Method *mPtr = contextPtr->callPtr->chain[contextPtr->index].mPtr; -@@ -6382,6 +6383,7 @@ - } - } - } -+#endif - Tcl_DeleteHashTable(&addedTable); - } - -_EOF_ - -# Further remove OO -cd generic - -# Remove calls to TclOOInit() -sed 's@TclOOInit(interp)@TCL_OK@' tclBasic.c > tclBasic.c.new -cat tclBasic.c.new > tclBasic.c -rm -f tclBasic.c.new - -# Rmove all TclOO* related compilation units, to be sure to catch all removals -for file in tclOO*.[ch]; do - > "${file}" -done