diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 13:57:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 13:57:51 (GMT) |
| commit | 42bd6877bcc8794524e5be946458a4427994b7a6 (patch) | |
| tree | ac86375700acefe62f8c3f45bb03a2a738f823f4 /generic/tclCmdIL.c | |
| parent | 93e50d1448aba1ed4b5eb113ea5c9b5debee85dc (diff) | |
| download | tcl-42bd6877bcc8794524e5be946458a4427994b7a6.zip tcl-42bd6877bcc8794524e5be946458a4427994b7a6.tar.gz tcl-42bd6877bcc8794524e5be946458a4427994b7a6.tar.bz2 | |
Fix wrong TclGetNumberFromObj() usage: this will crash if mp_int's are involved. Everywhere else in Tcl it is used correctly
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 5821a35..62ceeea 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -4077,12 +4077,9 @@ SequenceIdentifyArgument( int status; SequenceOperators opmode; SequenceByMode bymode; - union { - Tcl_WideInt i; - double d; - } nvalue; + void *clientData; - status = TclGetNumberFromObj(NULL, argPtr, (ClientData*)&nvalue, keywordIndexPtr); + status = TclGetNumberFromObj(NULL, argPtr, &clientData, keywordIndexPtr); if (status == TCL_OK) { if (numValuePtr) { *numValuePtr = argPtr; |