diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-29 20:33:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-29 20:33:43 (GMT) |
| commit | c22277cf6a24458c9ffd0fdbbf4aaa7229725a0b (patch) | |
| tree | 83b31ba5ca267df68dc2a8546b5818f896bcc261 /generic/tclCompile.h | |
| parent | 2e23e829d9cd7ea52665d333482cedf5255464e5 (diff) | |
| download | tcl-c22277cf6a24458c9ffd0fdbbf4aaa7229725a0b.zip tcl-c22277cf6a24458c9ffd0fdbbf4aaa7229725a0b.tar.gz tcl-c22277cf6a24458c9ffd0fdbbf4aaa7229725a0b.tar.bz2 | |
more revisions
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 502dcf8..2f7a180 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -515,6 +515,16 @@ typedef struct ByteCode { #endif /* TCL_COMPILE_STATS */ } ByteCode; +#define ByteCodeSetIntRep(objPtr, typePtr, codePtr) \ + do { \ + Tcl_ObjIntRep ir; \ + ir.twoPtrValue.ptr1 = (codePtr); \ + ir.twoPtrValue.ptr2 = NULL; \ + Tcl_StoreIntRep((objPtr), (typePtr), &ir); \ + } while (0) + + + #define ByteCodeGetIntRep(objPtr, typePtr, codePtr) \ do { \ const Tcl_ObjIntRep *irPtr; \ |