need cast for crappy tcl no const correct

[chiark-tcl.git] / hbytes / chop.c

diff --git a/hbytes/chop.c b/hbytes/chop.c
index 48eb770310fc5dbc813b445a7fa41ae3f9883f42..cccd43f285358968b2bb36c894bc96ab7f51375b 100644 (file)
--- a/hbytes/chop.c
+++ b/hbytes/chop.c
@@ -62,7 +62,9 @@ int do_hbytes_concat(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
-static int underrun(Tcl_Interp *ip) { return staticerr(ip,"data underrun"); }
+static int underrun(Tcl_Interp *ip) {
+  return staticerr(ip,"data underrun","HBYTES LENGTH UNDERRUN");
+}
 
 int do_hbytes_unprepend(ClientData cd, Tcl_Interp *ip,
                        HBytes_Var v, int preflength, HBytes_Value *result) {