diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-01-18 10:16:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-01-18 10:16:35 (GMT) |
| commit | 7a410220dde1167eb71e19d5e53ce442fbe27cd6 (patch) | |
| tree | a2b6c926293fbe54f11ed53d1d385d406abd6bd0 /generic/tclInt.h | |
| parent | 7b79011075ebaea03aecd04ccb351f56681469a4 (diff) | |
| download | tcl-7a410220dde1167eb71e19d5e53ce442fbe27cd6.zip tcl-7a410220dde1167eb71e19d5e53ce442fbe27cd6.tar.gz tcl-7a410220dde1167eb71e19d5e53ce442fbe27cd6.tar.bz2 | |
Put the file location information that Tcl has into the disassembled code. Important for tclquadcode.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 082fab4..9a5b4bf 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3152,7 +3152,8 @@ MODULE_SCOPE void TclFinalizeThreadStorage(void); MODULE_SCOPE Tcl_WideInt TclpGetWideClicks(void); MODULE_SCOPE double TclpWideClicksToNanoseconds(Tcl_WideInt clicks); #endif -MODULE_SCOPE Tcl_Obj * TclDisassembleByteCodeObj(Tcl_Obj *objPtr); +MODULE_SCOPE Tcl_Obj * TclDisassembleByteCodeObj(Tcl_Interp *interp, + Tcl_Obj *objPtr); MODULE_SCOPE int TclZlibInit(Tcl_Interp *interp); MODULE_SCOPE void * TclpThreadCreateKey(void); MODULE_SCOPE void TclpThreadDeleteKey(void *keyPtr); |