From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 9 Aug 2016 20:29:01 +0000 (+0100)
Subject: vec.c: Explicitly strip constness: we know this one's safe.
X-Git-Tag: 1.1.6~7
X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/commitdiff_plain/44649ec5bc84753e3ae7714e698f23304b04e744

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

diff --git a/vec.c b/vec.c
index d091b2c..0383c88 100644
--- 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_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: