diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
| commit | b27acbe84f73b35a0b28f078eb6a758f26a57595 (patch) | |
| tree | 7c7ea7c9bbdbfbe030cf936560bcce477e3c0e78 /generic/tclOODefineCmds.c | |
| parent | 6643ceb1413079a9b7175b6c9fae4d81e0a0d40a (diff) | |
| download | tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.zip tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.gz tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.bz2 | |
More int/Tcl_Size backport
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index bac7c15..77d6163 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -3109,11 +3109,12 @@ ResolveClass( static void InstallReadableProps( PropertyStorage *props, - int objc, + Tcl_Size objc, Tcl_Obj *const objv[]) { Tcl_Obj *propObj; - int i, n, created; + Tcl_Size i, n; + int created; Tcl_HashTable uniqueTable; if (props->allReadableCache) { @@ -3205,7 +3206,7 @@ ClassRPropsSet( Tcl_Obj *const *objv) { Object *oPtr = (Object *) TclOOGetDefineCmdContext(interp); - int varc; + Tcl_Size varc; Tcl_Obj **varv; if (Tcl_ObjectContextSkippedArgs(context) + 1 != objc) { @@ -3270,7 +3271,7 @@ ObjRPropsSet( Tcl_Obj *const *objv) { Object *oPtr = (Object *) TclOOGetDefineCmdContext(interp); - int varc; + Tcl_Size varc; Tcl_Obj **varv; if (Tcl_ObjectContextSkippedArgs(context) + 1 != objc) { @@ -3305,11 +3306,12 @@ ObjRPropsSet( static void InstallWritableProps( PropertyStorage *props, - int objc, + Tcl_Size objc, Tcl_Obj *const objv[]) { Tcl_Obj *propObj; - int i, n, created; + Tcl_Size i, n; + int created; Tcl_HashTable uniqueTable; if (props->allWritableCache) { @@ -3401,7 +3403,7 @@ ClassWPropsSet( Tcl_Obj *const *objv) { Object *oPtr = (Object *) TclOOGetDefineCmdContext(interp); - int varc; + Tcl_Size varc; Tcl_Obj **varv; if (Tcl_ObjectContextSkippedArgs(context) + 1 != objc) { @@ -3466,7 +3468,7 @@ ObjWPropsSet( Tcl_Obj *const *objv) { Object *oPtr = (Object *) TclOOGetDefineCmdContext(interp); - int varc; + Tcl_Size varc; Tcl_Obj **varv; if (Tcl_ObjectContextSkippedArgs(context) + 1 != objc) { |