From a9a2d671a0cbd58a5b99815c650d92c3c652a602 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 7 Jun 2022 15:19:38 +0000 Subject: int -> size_t in (internal) Tcl_ResolveCompiledVarProc --- generic/tclInt.h | 2 +- generic/tclOOMethod.c | 2 +- generic/tclTest.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/generic/tclInt.h b/generic/tclInt.h index a36d0a1..b1bb0e6 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -171,7 +171,7 @@ typedef struct Tcl_ResolvedVarInfo { } Tcl_ResolvedVarInfo; typedef int (Tcl_ResolveCompiledVarProc)(Tcl_Interp *interp, - const char *name, int length, Tcl_Namespace *context, + const char *name, size_t length, Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr); typedef int (Tcl_ResolveVarProc)(Tcl_Interp *interp, const char *name, diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 300b8c7..43e991a 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1102,7 +1102,7 @@ static int ProcedureMethodCompiledVarResolver( TCL_UNUSED(Tcl_Interp *), const char *varName, - int length, + size_t length, TCL_UNUSED(Tcl_Namespace *), Tcl_ResolvedVarInfo **rPtrPtr) { diff --git a/generic/tclTest.c b/generic/tclTest.c index dc1c0a9..6033fbf 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -8021,7 +8021,7 @@ static int InterpCompiledVarResolver( TCL_UNUSED(Tcl_Interp *), const char *name, - TCL_UNUSED(int) /*length*/, + TCL_UNUSED(size_t) /*length*/, TCL_UNUSED(Tcl_Namespace *), Tcl_ResolvedVarInfo **rPtr) { -- cgit v0.12