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
many improvements: use Get/SetAssocData for idtables to avoid globals, and adns bindi...
[chiark-tcl.git]
/
hbytes
/
chop.c
diff --git
a/hbytes/chop.c
b/hbytes/chop.c
index c81e5d6b915ae929b4442cf2e7873eb5b6f4fa35..cccd43f285358968b2bb36c894bc96ab7f51375b 100644
(file)
--- a/
hbytes/chop.c
+++ b/
hbytes/chop.c
@@
-4,6
+4,7
@@
#include <string.h>
#include "hbytes.h"
#include <string.h>
#include "hbytes.h"
+#include "tables.h"
static int strs1(Tcl_Interp *ip, int strc, Tcl_Obj *const *strv, int *l_r) {
int rc, l, i;
static int strs1(Tcl_Interp *ip, int strc, Tcl_Obj *const *strv, int *l_r) {
int rc, l, i;
@@
-61,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) {