Index: README.release =================================================================== diff -u -rbb380c8762b4afb6c0c87089fb8ba33535830391 -r2dca7abdd5d83421b31b220bc6dabba1047d68fb --- README.release (.../README.release) (revision bb380c8762b4afb6c0c87089fb8ba33535830391) +++ README.release (.../README.release) (revision 2dca7abdd5d83421b31b220bc6dabba1047d68fb) @@ -9,7 +9,8 @@ make test 2>&1|cat |fgrep Overall * configure with --enable-development and activate valgrind in Makefile make test 2>&1|cat |fgrep "definitely lost" - (8.5 ok, whenevery test returns "40 bytes in 2 blocks") + (8.5.11 ok, when every test returns "40 bytes in 2 blocks") + (8.5.14 ok, when on test reurns "64 bytes in 1 blocks") * get rid of non-ansi-c make "CFLAGS_DEFAULT=-ansi -pedantic" (warnings are ok, errors not) @@ -22,14 +23,15 @@ make install make install-aol test with naviserver/aolserver (xowiki/xowf) - * tcl 8.6b2: + * tcl 8.6: * configure with --enable-development make test * configure with --enable-memcount=yes make test 2>&1|cat |fgrep Overall * configure with --enable-development and activate valgrind in Makefile make test 2>&1|cat |fgrep "definitely lost" (8.6b2 ok, whenevery test returns "40 bytes in 2 blocks") + (8.6.0 ok, whenevery test returns "0 bytes in 0 blocks") - Announcement * Summarize changes since the last release in doc/Announce-VERSION Index: TODO =================================================================== diff -u -r5e494cf3cf01d01128b365f91ed3cd9716b1b11e -r2dca7abdd5d83421b31b220bc6dabba1047d68fb --- TODO (.../TODO) (revision 5e494cf3cf01d01128b365f91ed3cd9716b1b11e) +++ TODO (.../TODO) (revision 2dca7abdd5d83421b31b220bc6dabba1047d68fb) @@ -4685,7 +4685,9 @@ ======================================================================== TODO: - - spellcheck / ChangeLog (to point out differences to 2.0b3) + - update + spellcheck / ChangeLog (to point out differences to 2.0b3) + - recheck Announce + Stefan: doc itmes Index: generic/asm/nsfAssemble.c =================================================================== diff -u -r1ed65d1a290eee7055d47433bae07b5232a1ddb7 -r2dca7abdd5d83421b31b220bc6dabba1047d68fb --- generic/asm/nsfAssemble.c (.../nsfAssemble.c) (revision 1ed65d1a290eee7055d47433bae07b5232a1ddb7) +++ generic/asm/nsfAssemble.c (.../nsfAssemble.c) (revision 2dca7abdd5d83421b31b220bc6dabba1047d68fb) @@ -171,10 +171,10 @@ static int AsmInstructionArgvCheck(Tcl_Interp *interp, int from, int to, CONST char **argType, int nrSlots, int nrStatements, Tcl_Obj **wordOv, Tcl_Obj *lineObj) { - int j, result; + int j; for (j = from; j < to; j += 2) { - int argIndex, typesIndex, intValue; + int argIndex, typesIndex, intValue, result; //fprintf(stderr, "check arg type %s\n", ObjStr(wordOv[j])); result = Tcl_GetIndexFromObj(interp, wordOv[j], asmStatementArgType, @@ -338,33 +338,35 @@ //fprintf(stderr, "NsfAsmProcStub %s is called, tcd %p object %p\n", ObjStr(objv[0]), cd, cd->object); if (likely(cd->paramDefs && cd->paramDefs->paramsPtr)) { - ParseContext *pcPtr; ALLOC_ON_STACK(Tcl_Obj*, objc, tov); fprintf(stderr, "not implemented yet\n"); #if 0 - pcPtr = (ParseContext *) NsfTclStackAlloc(interp, sizeof(ParseContext), "parse context"); - /* - * We have to substitute the first element of objv with the name - * of the function to be called. Since objv is immutable, we have - * to copy the full argument vector and replace the element on - * position [0] - */ - memcpy(tov, objv, sizeof(Tcl_Obj *)*(objc)); - //tov[0] = tcd->procName; - - /* If the argument parsing is ok, the body will be called */ - result = ProcessMethodArguments(pcPtr, interp, NULL, 0, - cd->paramDefs, objv[0], - objc, tov); - - if (likely(result == TCL_OK)) { - result = InvokeShadowedProc(interp, cd->procName, cd->cmd, pcPtr); - } else { - /*Tcl_Obj *resultObj = Tcl_GetObjResult(interp); - fprintf(stderr, "NsfProcStub: incorrect arguments (%s)\n", ObjStr(resultObj));*/ - ParseContextRelease(pcPtr); - NsfTclStackFree(interp, pcPtr, "release parse context"); + { + ParseContext *pcPtr; + pcPtr = (ParseContext *) NsfTclStackAlloc(interp, sizeof(ParseContext), "parse context"); + /* + * We have to substitute the first element of objv with the name + * of the function to be called. Since objv is immutable, we have + * to copy the full argument vector and replace the element on + * position [0] + */ + memcpy(tov, objv, sizeof(Tcl_Obj *)*(objc)); + //tov[0] = tcd->procName; + + /* If the argument parsing is ok, the body will be called */ + result = ProcessMethodArguments(pcPtr, interp, NULL, 0, + cd->paramDefs, objv[0], + objc, tov); + + if (likely(result == TCL_OK)) { + result = InvokeShadowedProc(interp, cd->procName, cd->cmd, pcPtr); + } else { + /*Tcl_Obj *resultObj = Tcl_GetObjResult(interp); + fprintf(stderr, "NsfProcStub: incorrect arguments (%s)\n", ObjStr(resultObj));*/ + ParseContextRelease(pcPtr); + NsfTclStackFree(interp, pcPtr, "release parse context"); + } } #endif /*fprintf(stderr, "NsfProcStub free on stack %p\n", tov);*/ Index: generic/nsf.c =================================================================== diff -u -rdf0cf3d60b6d6b5109997b00ceeeebec611db7fc -r2dca7abdd5d83421b31b220bc6dabba1047d68fb --- generic/nsf.c (.../nsf.c) (revision df0cf3d60b6d6b5109997b00ceeeebec611db7fc) +++ generic/nsf.c (.../nsf.c) (revision 2dca7abdd5d83421b31b220bc6dabba1047d68fb) @@ -1236,7 +1236,6 @@ static int GetObjectFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, NsfObject **objectPtr) { - int result; NsfObject *object; CONST char *string; Tcl_Command cmd; @@ -1278,13 +1277,12 @@ DECR_REF_COUNT(tmpName); } - if (object) { - if (objectPtr) *objectPtr = object; - result = TCL_OK; - } else { - result = TCL_ERROR; + if (likely(object != NULL)) { + if (objectPtr) {*objectPtr = object;} + return TCL_OK; } - return result; + + return TCL_ERROR; } /* @@ -20933,8 +20931,8 @@ NsfParameterInvalidateObjectCacheCmd(Tcl_Interp *interp, NsfObject *object) { #if defined(PER_OBJECT_PARAMETER_CACHING) if (object->opt && object->opt->parsedParamPtr) { - fprintf(stderr, " %p %s invalidate %p\n", object, - ObjectName(object), object->opt->parsedParamPtr); + /*fprintf(stderr, " %p %s invalidate %p\n", object, + ObjectName(object), object->opt->parsedParamPtr);*/ ParsedParamFree(object->opt->parsedParamPtr); object->opt->parsedParamPtr = NULL; } @@ -21831,8 +21829,8 @@ * We have object-specific parameters. Do not use the per-class cache, * and do not save the results in the per-class cache */ - fprintf(stderr, "per-object configure obj %s flags %.6x\n", - ObjectName(object), object->flags); + /*fprintf(stderr, "per-object configure obj %s flags %.6x\n", + ObjectName(object), object->flags);*/ class = NULL; } else { class = object->cl;