Index: generic/gentclAPI.decls =================================================================== diff -u -r2880a345930ceabfec83d491f26b8254099c8991 -rbc1c78f197db742441e0ab0633bd1e2b2920d10f --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision 2880a345930ceabfec83d491f26b8254099c8991) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision bc1c78f197db742441e0ab0633bd1e2b2920d10f) @@ -30,7 +30,7 @@ {-argName "arg" -required 0 -type tclobj} } xotclCmd configure XOTclConfigureCmd { - {-argName "configureoption" -required 1 -type "filter|softrecreate|cacheinterface|objectsystems"} + {-argName "configureoption" -required 1 -type "filter|softrecreate|objectsystems"} {-argName "value" -required 0 -type tclobj} } xotclCmd createobjectsystem XOTclCreateObjectSystemCmd { Index: generic/tclAPI.h =================================================================== diff -u -r2880a345930ceabfec83d491f26b8254099c8991 -rbc1c78f197db742441e0ab0633bd1e2b2920d10f --- generic/tclAPI.h (.../tclAPI.h) (revision 2880a345930ceabfec83d491f26b8254099c8991) +++ generic/tclAPI.h (.../tclAPI.h) (revision bc1c78f197db742441e0ab0633bd1e2b2920d10f) @@ -57,13 +57,13 @@ static int convertToConfigureoption(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr) { int index, result; - static CONST char *opts[] = {"filter", "softrecreate", "cacheinterface", "objectsystems", NULL}; + static CONST char *opts[] = {"filter", "softrecreate", "objectsystems", NULL}; result = Tcl_GetIndexFromObj(interp, objPtr, opts, "configureoption", 0, &index); *clientData = (ClientData) INT2PTR(index + 1); *outObjPtr = objPtr; return result; } -enum ConfigureoptionIdx {ConfigureoptionNULL, ConfigureoptionFilterIdx, ConfigureoptionSoftrecreateIdx, ConfigureoptionCacheinterfaceIdx, ConfigureoptionObjectsystemsIdx}; +enum ConfigureoptionIdx {ConfigureoptionNULL, ConfigureoptionFilterIdx, ConfigureoptionSoftrecreateIdx, ConfigureoptionObjectsystemsIdx}; static int convertToSelfoption(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr) { Index: generic/xotcl.c =================================================================== diff -u -r7f114dad2b4deb00431c895e511118c3c675cb07 -rbc1c78f197db742441e0ab0633bd1e2b2920d10f --- generic/xotcl.c (.../xotcl.c) (revision 7f114dad2b4deb00431c895e511118c3c675cb07) +++ generic/xotcl.c (.../xotcl.c) (revision bc1c78f197db742441e0ab0633bd1e2b2920d10f) @@ -10929,7 +10929,7 @@ /* xotclCmd configure XOTclConfigureCmd { - {-argName "configureoption" -required 1 -type "filter|softrecreate|cacheinterface|objectsystems"} + {-argName "configureoption" -required 1 -type "filter|softrecreate|objectsystems"} {-argName "value" -required 0 -type tclobj} } */ @@ -10970,12 +10970,6 @@ if (value) RUNTIME_STATE(interp)->doSoftrecreate = bool; break; - case ConfigureoptionCacheinterfaceIdx: - Tcl_SetBooleanObj(Tcl_GetObjResult(interp), - (RUNTIME_STATE(interp)->cacheInterface)); - if (value) - RUNTIME_STATE(interp)->cacheInterface = bool; - break; } return TCL_OK; } @@ -12656,7 +12650,7 @@ /* Parse the string representation to obtain the internal representation */ result = ParamDefsParse(interp, methodName, rawConfArgs, XOTCL_DISALLOWED_ARG_OBJECT_PARAMETER, parsedParamPtr); - if (result == TCL_OK && RUNTIME_STATE(interp)->cacheInterface) { + if (result == TCL_OK) { XOTclParsedParam *ppDefPtr = NEW(XOTclParsedParam); ppDefPtr->paramDefs = parsedParamPtr->paramDefs; ppDefPtr->possibleUnknowns = parsedParamPtr->possibleUnknowns; @@ -12833,11 +12827,6 @@ parseContextRelease(&pc); configure_exit: - if (parsedParam.paramDefs) { - if (RUNTIME_STATE(interp)->cacheInterface == 0) { - ParamDefsFree(parsedParam.paramDefs); - } - } return result; } static int DoDealloc(Tcl_Interp *interp, XOTclObject *object); @@ -14557,7 +14546,6 @@ #endif RUNTIME_STATE(interp)->doFilters = 1; - RUNTIME_STATE(interp)->cacheInterface = 1; /* TODO xxx should not stay */ /* create xotcl namespaces */ RUNTIME_STATE(interp)->XOTclNS = Index: generic/xotclInt.h =================================================================== diff -u -r2880a345930ceabfec83d491f26b8254099c8991 -rbc1c78f197db742441e0ab0633bd1e2b2920d10f --- generic/xotclInt.h (.../xotclInt.h) (revision 2880a345930ceabfec83d491f26b8254099c8991) +++ generic/xotclInt.h (.../xotclInt.h) (revision bc1c78f197db742441e0ab0633bd1e2b2920d10f) @@ -627,7 +627,6 @@ int unknown; int doFilters; int doSoftrecreate; - int cacheInterface; int exitHandlerDestroyRound; int returnCode; long newCounter;