vec.c: Explicitly strip constness: we know this one's safe.

[rocl] / vec.c

diff --git a/vec.c b/vec.c
index d091b2c97513029e26fbdba8fec4092bc4fa7bfb..0383c88246aaca1f7cf4706a7ca8ba1be3467a03 100644 (file)
--- a/vec.c
+++ b/vec.c
@@ -367,7 +367,8 @@ static int vec_new(ClientData cd, Tcl_Interp *ti,
   Tcl_IncrRefCount(init);
   if ((v = vec_create(ti, ndim, dim, init)) == 0)
     goto fail;
   Tcl_IncrRefCount(init);
   if ((v = vec_create(ti, ndim, dim, init)) == 0)
     goto fail;

-  Tcl_SetResult(ti, Tcl_GetCommandName(ti, v->c), TCL_STATIC);
+  Tcl_SetResult(ti, (/*unconst */char *)Tcl_GetCommandName(ti, v->c),
+               TCL_STATIC);

   rc = TCL_OK;
 
 fail:
   rc = TCL_OK;
 
 fail: