diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-16 15:34:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-16 15:34:14 (GMT) |
| commit | 9672bba339c071de7231ea922f64efdc6ba182a8 (patch) | |
| tree | 2094bf1c1ec5eb710729c2f1b62e420eb1f07826 /generic/tclOO.c | |
| parent | fd3fbe8801d5ad9b3e3653e77d83149f1e8d09d6 (diff) | |
| download | tcl-9672bba339c071de7231ea922f64efdc6ba182a8.zip tcl-9672bba339c071de7231ea922f64efdc6ba182a8.tar.gz tcl-9672bba339c071de7231ea922f64efdc6ba182a8.tar.bz2 | |
Change TclOO epoch fields from int to size_t.
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index e48158c..216219d 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -334,7 +334,7 @@ InitFoundation( DeletedObjdefNamespace); fPtr->helpersNs = Tcl_CreateNamespace(interp, "::oo::Helpers", fPtr, DeletedHelpersNamespace); - fPtr->epoch = 0; + fPtr->epoch = 1; fPtr->tsdPtr = tsdPtr; TclNewLiteralStringObj(fPtr->unknownMethodNameObj, "unknown"); TclNewLiteralStringObj(fPtr->constructorName, "<constructor>"); @@ -562,7 +562,8 @@ AllocObject( Object *oPtr; Command *cmdPtr; CommandTrace *tracePtr; - int creationEpoch, ignored; + size_t creationEpoch; + int ignored; oPtr = ckalloc(sizeof(Object)); memset(oPtr, 0, sizeof(Object)); @@ -592,7 +593,7 @@ AllocObject( while (1) { char objName[10 + TCL_INTEGER_SPACE]; - sprintf(objName, "::oo::Obj%d", ++fPtr->tsdPtr->nsCount); + sprintf(objName, "::oo::Obj%" TCL_LL_MODIFIER "d", (Tcl_WideInt)++fPtr->tsdPtr->nsCount); oPtr->namespacePtr = Tcl_CreateNamespace(interp, objName, oPtr, ObjectNamespaceDeleted); if (oPtr->namespacePtr != NULL) { |