Overview
Comment: | Removed TclOO removal from minimal builds for now, not maintainable |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | a90b3aacf30e2d892694c93ab984952e3ead7c79 |
User & Date: | rkeene on 2014-05-19 05:00:15 |
Other Links: | manifest | tags |
Context
2014-05-20
| ||
05:56 | Added patch to fix issue with calling exit with open Metakit channels check-in: 7181cf4346 user: rkeene tags: trunk | |
2014-05-19
| ||
05:00 | Removed TclOO removal from minimal builds for now, not maintainable check-in: a90b3aacf3 user: rkeene tags: trunk | |
04:55 | Updated to reflect 8.6.x builds are threaded by default check-in: b4fe3a0158 user: rkeene tags: trunk | |
Changes
Deleted tcl/patchscripts/minbuild-nooo.sh version [5b6fd738e8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
#! /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 |
< < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < |