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 | 7c3d8f375c8a17eb441e14030d4e5234ffd27d29 (patch) | |
| tree | 830560e6bc571a878728c62f6a17727f76afe642 | |
| parent | c1b3555a9c4517af320194662535ac05c4af4ff0 (diff) | |
| parent | 39f9ba5a92bee1bc6a13e4857522242bec3f9013 (diff) | |
| download | tcl-7c3d8f375c8a17eb441e14030d4e5234ffd27d29.zip tcl-7c3d8f375c8a17eb441e14030d4e5234ffd27d29.tar.gz tcl-7c3d8f375c8a17eb441e14030d4e5234ffd27d29.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__ */ |