diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-26 23:57:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-26 23:57:26 (GMT) |
| commit | 513b2d50314fa22ef6df699c698ee0f05b7f59b5 (patch) | |
| tree | c4417e67a6e82b80abac34e9d224fa6a64357880 /generic/tclObj.c | |
| parent | bfe8928bed8d82210b9a892f1ea0add32ac7ad59 (diff) | |
| download | tcl-513b2d50314fa22ef6df699c698ee0f05b7f59b5.zip tcl-513b2d50314fa22ef6df699c698ee0f05b7f59b5.tar.gz tcl-513b2d50314fa22ef6df699c698ee0f05b7f59b5.tar.bz2 | |
HAS_ABSTRACTLIST_PROC
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 5e3f4f1..ca7861f 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -233,8 +233,9 @@ const TclObjTypeWithAbstractList tclBooleanType= { NULL, /* dupIntRepProc */ NULL, /* updateStringProc */ TclSetBooleanFromAny, /* setFromAnyProc */ - TCL_OBJTYPE_V0_1}, - LengthOne + TCL_OBJTYPE_V0_1( + LengthOne + ) }; const TclObjTypeWithAbstractList tclDoubleType= { {"double", /* name */ @@ -242,8 +243,9 @@ const TclObjTypeWithAbstractList tclDoubleType= { NULL, /* dupIntRepProc */ UpdateStringOfDouble, /* updateStringProc */ SetDoubleFromAny, /* setFromAnyProc */ - TCL_OBJTYPE_V0_1}, - LengthOne + TCL_OBJTYPE_V0_1( + LengthOne + ) }; const TclObjTypeWithAbstractList tclIntType = { {"int", /* name */ @@ -251,8 +253,9 @@ const TclObjTypeWithAbstractList tclIntType = { NULL, /* dupIntRepProc */ UpdateStringOfInt, /* updateStringProc */ SetIntFromAny, /* setFromAnyProc */ - TCL_OBJTYPE_V0_1}, - LengthOne + TCL_OBJTYPE_V0_1( + LengthOne + ) }; const TclObjTypeWithAbstractList tclBignumType = { {"bignum", /* name */ @@ -260,8 +263,9 @@ const TclObjTypeWithAbstractList tclBignumType = { DupBignum, /* dupIntRepProc */ UpdateStringOfBignum, /* updateStringProc */ NULL, /* setFromAnyProc */ - TCL_OBJTYPE_V0_1}, - LengthOne + TCL_OBJTYPE_V0_1( + LengthOne + ) }; /* |