diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-02 19:39:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-02 19:39:34 (GMT) |
| commit | 79f1d89388b7f8956b21b3f074ed61cf941bfef5 (patch) | |
| tree | 2e6e4d5347aaf54008d46f6a19736a346ea766cf /generic/tclOOBasic.c | |
| parent | b8e604ca082e309711235f3230402d582ef5a7a9 (diff) | |
| download | tcl-79f1d89388b7f8956b21b3f074ed61cf941bfef5.zip tcl-79f1d89388b7f8956b21b3f074ed61cf941bfef5.tar.gz tcl-79f1d89388b7f8956b21b3f074ed61cf941bfef5.tar.bz2 | |
Use size_t in more API's, e.g. *RegExp* types
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 763f0ad..31bd03a 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -157,7 +157,7 @@ TclOO_Class_Create( { Object *oPtr = (Object *) Tcl_ObjectContextObject(context); const char *objName; - int len; + size_t len; /* * Sanity check; should not be possible to invoke this method on a @@ -182,7 +182,7 @@ TclOO_Class_Create( "objectName ?arg ...?"); return TCL_ERROR; } - objName = Tcl_GetStringFromObj( + objName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( @@ -247,7 +247,7 @@ TclOO_Class_CreateNs( "objectName namespaceName ?arg ...?"); return TCL_ERROR; } - objName = Tcl_GetStringFromObj( + objName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( @@ -255,7 +255,7 @@ TclOO_Class_CreateNs( Tcl_SetErrorCode(interp, "TCL", "OO", "EMPTY_NAME", NULL); return TCL_ERROR; } - nsName = Tcl_GetStringFromObj( + nsName = TclGetStringFromObj( objv[Tcl_ObjectContextSkippedArgs(context)+1], &len); if (len == 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( |