From 6df65aa18ab8b9cb1f2791881680962f47e22804 Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 22 Jul 2008 21:50:49 +0000 Subject: * generic/tclBasic.c: Ansified the new functions. --- ChangeLog | 2 ++ generic/tclBasic.c | 20 +++++++++++--------- 2 files changed, 13 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 57158b1..bbaf214 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2008-07-22 Andreas Kupries + * generic/tclBasic.c: Ansified the new functions. + * generic/tclBasic.c: Reworked the handling of bytecode literals * generic/tclCompile.c: for #280 to fix the abysmal performance * generic/tclCompile.h: for deep recursion, replaced the linear diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 18a9857..f12f5fc 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.325 2008/07/22 21:41:49 andreas_kupries Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.326 2008/07/22 21:50:50 andreas_kupries Exp $ */ #include "tclInt.h" @@ -5376,10 +5376,10 @@ TclArgumentRelease( void -TclArgumentBCEnter(interp,codePtr,cfPtr) - Tcl_Interp* interp; - void* codePtr; - CmdFrame* cfPtr; +TclArgumentBCEnter( + Tcl_Interp* interp, + void* codePtr, + CmdFrame* cfPtr) { Interp* iPtr = (Interp*) interp; Tcl_HashEntry* hePtr = Tcl_FindHashEntry (iPtr->lineBCPtr, (char *) codePtr); @@ -5420,9 +5420,9 @@ TclArgumentBCEnter(interp,codePtr,cfPtr) } void -TclArgumentBCRelease(interp,codePtr) - Tcl_Interp* interp; - void* codePtr; +TclArgumentBCRelease( + Tcl_Interp* interp, + void* codePtr) { Interp* iPtr = (Interp*) interp; Tcl_HashEntry* hePtr = Tcl_FindHashEntry (iPtr->lineBCPtr, (char *) codePtr); @@ -5503,7 +5503,9 @@ TclArgumentGet( ExtIndex* eiPtr = cfwPtr->eiPtr; framePtr = cfwPtr->framePtr; - framePtr->data.tebc.pc = ((ByteCode*) framePtr->data.tebc.codePtr)->codeStart + eiPtr->pc; + framePtr->data.tebc.pc = ((ByteCode*) + framePtr->data.tebc.codePtr)->codeStart + + eiPtr->pc; *cfPtrPtr = cfwPtr->framePtr; *wordPtr = eiPtr->word; return; -- cgit v0.12