From 83d22bd1f6fd20b5ce07fc4e16af80619f859422 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Fri, 19 May 2023 22:18:51 +0000 Subject: Fix int/Tcl_Size pointer errors --- generic/tclOODefineCmds.c | 18 ++++++++++-------- generic/tclOOInfo.c | 2 +- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index c0225ca..a3bdddf 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -3149,11 +3149,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) { @@ -3245,7 +3246,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) { @@ -3310,7 +3311,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) { @@ -3345,11 +3346,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) { @@ -3441,7 +3443,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) { @@ -3506,7 +3508,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) { diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index bbaaf02..ab17a35 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -1892,7 +1892,7 @@ static void SortPropList( Tcl_Obj *list) { - int ec; + Tcl_Size ec; Tcl_Obj **ev; Tcl_ListObjGetElements(NULL, list, &ec, &ev); -- cgit v0.12