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/tclProc.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/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index acb520c..a9baba2 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -63,8 +63,9 @@ const Tcl_ObjType tclProcBodyType = { NULL, /* UpdateString function; Tcl_GetString and * Tcl_GetStringFromObj should panic * instead. */ - NULL /* SetFromAny function; Tcl_ConvertToType + NULL, /* SetFromAny function; Tcl_ConvertToType * should panic instead. */ + TCL_OBJTYPE_V0 }; #define ProcSetIntRep(objPtr, procPtr) \ @@ -93,7 +94,7 @@ const Tcl_ObjType tclProcBodyType = { static const Tcl_ObjType levelReferenceType = { "levelReference", - NULL, NULL, NULL, NULL + NULL, NULL, NULL, NULL, TCL_OBJTYPE_V0 }; /* @@ -110,7 +111,8 @@ static const Tcl_ObjType lambdaType = { FreeLambdaInternalRep, /* freeIntRepProc */ DupLambdaInternalRep, /* dupIntRepProc */ NULL, /* updateStringProc */ - SetLambdaFromAny /* setFromAnyProc */ + SetLambdaFromAny, /* setFromAnyProc */ + TCL_OBJTYPE_V0 }; #define LambdaSetIntRep(objPtr, procPtr, nsObjPtr) \ |