diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-08 13:45:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-08 13:45:52 (GMT) |
| commit | c9a6b065ff3c412d7d5a8debae50989f36017d3a (patch) | |
| tree | 830560e6bc571a878728c62f6a17727f76afe642 | |
| parent | 984fcfb1e7e05be3fe0948914686ee517cc4bd8f (diff) | |
| parent | 7c8d31cc87f2f5fdee6d0cde0a74bfdd9f89af84 (diff) | |
| download | tcl-c9a6b065ff3c412d7d5a8debae50989f36017d3a.zip tcl-c9a6b065ff3c412d7d5a8debae50989f36017d3a.tar.gz tcl-c9a6b065ff3c412d7d5a8debae50989f36017d3a.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclStubInit.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index aa830e0..a987fe8 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -325,6 +325,7 @@ TclpGetPid(Tcl_Pid pid) * signature. Tcl 9 must find a better solution, but that cannot be done * without introducing a binary incompatibility. */ +#define Tcl_GetLongFromObj (int(*)(Tcl_Interp*,Tcl_Obj*,long*))(void *)Tcl_GetIntFromObj static int exprInt(Tcl_Interp *interp, const char *expr, int *ptr){ long longValue; int result = Tcl_ExprLong(interp, expr, &longValue); @@ -340,7 +341,7 @@ static int exprInt(Tcl_Interp *interp, const char *expr, int *ptr){ } return result; } -#define Tcl_ExprLong (int(*)(Tcl_Interp*,const char*,long*))exprInt +#define Tcl_ExprLong (int(*)(Tcl_Interp*,const char*,long*))(void *)exprInt static int exprIntObj(Tcl_Interp *interp, Tcl_Obj*expr, int *ptr){ long longValue; int result = Tcl_ExprLongObj(interp, expr, &longValue); @@ -356,7 +357,7 @@ static int exprIntObj(Tcl_Interp *interp, Tcl_Obj*expr, int *ptr){ } return result; } -#define Tcl_ExprLongObj (int(*)(Tcl_Interp*,Tcl_Obj*,long*))exprIntObj +#define Tcl_ExprLongObj (int(*)(Tcl_Interp*,Tcl_Obj*,long*))(void *)exprIntObj #endif /* TCL_WIDE_INT_IS_LONG */ #else /* __CYGWIN__ */ |