luke/magic
1
0
Fork 0
mirror of https://github.com/RTimothyEdwards/magic.git synced 2026-10-06 01:43:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCL9: Tcl_GetIntFromObj() call checked

Browse Source 
This API uses address of operator to Tcl API with (int) type, but
does not use Tcl_Size in TCL9, it remained an (int) type.
This commit is contained in:
Darryl L. Miles
2025-01-04 11:08:01 -05:00
committed by Tim Edwards
parent 661b66a143
commit 4a32a82841
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tcltk/tclmagic.c
+1
View File
@@ -854,6 +854,7 @@ TxDialog(prompt, responses, defresp)
Tcl_EvalEx(magicinterp, evalstr, -1, 0);
objPtr = Tcl_GetObjResult(magicinterp);
/* tcl9 checked, this API is still (int) for &code */
result = Tcl_GetIntFromObj(magicinterp, objPtr, &code);
if (result == TCL_OK) return code;