Fork me on GitHub

Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • external/tcl/tclCompile.h

    rd4f8a8c rd7d2da3  
    3636
    3737extern Tcl_ObjType      tclCmdNameType;
     38
     39/*
     40 * Variable that controls whether compilation tracing is enabled and, if so,
     41 * what level of tracing is desired:
     42 *    0: no compilation tracing
     43 *    1: summarize compilation of top level cmds and proc bodies
     44 *    2: display all instructions of each ByteCode compiled
     45 * This variable is linked to the Tcl variable "tcl_traceCompile".
     46 */
     47
     48extern int              tclTraceCompile;
     49
     50/*
     51 * Variable that controls whether execution tracing is enabled and, if so,
     52 * what level of tracing is desired:
     53 *    0: no execution tracing
     54 *    1: trace invocations of Tcl procs only
     55 *    2: trace invocations of all (not compiled away) commands
     56 *    3: display each instruction executed
     57 * This variable is linked to the Tcl variable "tcl_traceExec".
     58 */
     59
     60extern int              tclTraceExec;
     61
     62/*
     63 * The number of bytecode compilations and various other compilation-related
     64 * statistics. The tclByteCodeCount and tclSourceCount arrays are used to
     65 * hold the count of ByteCodes and sources whose sizes fall into various
     66 * binary decades; e.g., tclByteCodeCount[5] is a count of the ByteCodes
     67 * with size larger than 2**4 and less than or equal to 2**5.
     68 */
     69
     70#ifdef TCL_COMPILE_STATS
     71extern long             tclNumCompilations;
     72extern double           tclTotalSourceBytes;
     73extern double           tclTotalCodeBytes;
     74
     75extern double           tclTotalInstBytes;
     76extern double           tclTotalObjBytes;
     77extern double           tclTotalExceptBytes;
     78extern double           tclTotalAuxBytes;
     79extern double           tclTotalCmdMapBytes;
     80
     81extern double           tclCurrentSourceBytes;
     82extern double           tclCurrentCodeBytes;
     83
     84extern int              tclSourceCount[32];
     85extern int              tclByteCodeCount[32];
     86#endif /* TCL_COMPILE_STATS */
    3887
    3988/*
    … …  
    767816EXTERN void             TclInitJumpFixupArray _ANSI_ARGS_((
    768817                            JumpFixupArray *fixupArrayPtr));
     818#ifdef TCL_COMPILE_STATS
     819EXTERN int              TclLog2 _ANSI_ARGS_((int value));
     820#endif /*TCL_COMPILE_STATS*/
    769821EXTERN int              TclObjIndexForString _ANSI_ARGS_((char *start,
    770822                            int length, int allocStrRep, int inHeap,
    771823                            CompileEnv *envPtr));
     824EXTERN int              TclPrintInstruction _ANSI_ARGS_((ByteCode* codePtr,
     825                            unsigned char *pc));
    772826EXTERN void             TclPrintSource _ANSI_ARGS_((FILE *outFile,
    773827                            char *string, int maxChars));
Note: See TracChangeset for help on using the changeset viewer.