diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-11 15:07:33 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-11 15:07:33 (GMT) |
| commit | 4391b633d94f7d36fc07107753bac88a29504488 (patch) | |
| tree | 55b5587ba5dd47c586d9dc97eef2c58365555950 /generic/tclCompile.c | |
| parent | b2c3781bb08dadad024633598e0d62be4cd1d489 (diff) | |
| download | tcl-4391b633d94f7d36fc07107753bac88a29504488.zip tcl-4391b633d94f7d36fc07107753bac88a29504488.tar.gz tcl-4391b633d94f7d36fc07107753bac88a29504488.tar.bz2 | |
TIP 644 - Make Tcl_ObjType extensible
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index a57743c..fc2b6b7 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -708,7 +708,8 @@ const Tcl_ObjType tclByteCodeType = { FreeByteCodeInternalRep, /* freeIntRepProc */ DupByteCodeInternalRep, /* dupIntRepProc */ NULL, /* updateStringProc */ - SetByteCodeFromAny /* setFromAnyProc */ + SetByteCodeFromAny, /* setFromAnyProc */ + TCL_OBJTYPE_V0 }; /* @@ -722,6 +723,7 @@ static const Tcl_ObjType substCodeType = { DupByteCodeInternalRep, /* dupIntRepProc - shared with bytecode */ NULL, /* updateStringProc */ NULL, /* setFromAnyProc */ + TCL_OBJTYPE_V0 }; #define SubstFlags(objPtr) (objPtr)->internalRep.twoPtrValue.ptr2 |