Corrected a bad statement running Tcl_NewListObj() that fails to
assign the result to anything, causing later uses of variable "lobj" to have an unitialized value and potentially causing a crash condition. Thanks to Risto Bell for pointing out the error.
This commit is contained in:
parent
e4c28ef3bf
commit
291ba96285
|
|
@ -2338,8 +2338,7 @@ CmdSetLabel(w, cmd)
|
|||
if (locargc == 2)
|
||||
{
|
||||
#ifdef MAGIC_WRAPPER
|
||||
Tcl_Obj *lobj;
|
||||
Tcl_NewListObj(0, NULL);
|
||||
lobj = Tcl_NewListObj(0, NULL);
|
||||
Tcl_ListObjAppendElement(magicinterp, lobj,
|
||||
Tcl_NewIntObj(DefaultLabel->lab_offset.p_x));
|
||||
Tcl_ListObjAppendElement(magicinterp, lobj,
|
||||
|
|
|
|||
Loading…
Reference in New Issue