chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
scriptinv
[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;
}
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) {
int do_hbytes_unprepend(ClientData cd, Tcl_Interp *ip,
HBytes_Var v, int preflength, HBytes_Value *result) {