diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-07-22 21:50:49 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-07-22 21:50:49 (GMT) |
| commit | 6df65aa18ab8b9cb1f2791881680962f47e22804 (patch) | |
| tree | 5b47b7a6cacd9f7aed2cccc5bc7ea9e8a0b4e601 | |
| parent | 9f031215bb9752fcfc9c9065039b509c0962117e (diff) | |
| download | tcl-6df65aa18ab8b9cb1f2791881680962f47e22804.zip tcl-6df65aa18ab8b9cb1f2791881680962f47e22804.tar.gz tcl-6df65aa18ab8b9cb1f2791881680962f47e22804.tar.bz2 | |
* generic/tclBasic.c: Ansified the new functions.
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | generic/tclBasic.c | 20 |
2 files changed, 13 insertions, 9 deletions
@@ -1,5 +1,7 @@ 2008-07-22 Andreas Kupries <andreask@activestate.com> + * 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; |