many improvements: use Get/SetAssocData for idtables to avoid globals, and adns bindi...

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

diff --git a/hbytes/hbytes.c b/hbytes/hbytes.c
index 5f06d7195088cdcd6464500cb169e7ed2fe83fd2..b941937044c6d559c11b3a46d42e971f6975d516 100644 (file)
--- a/hbytes/hbytes.c
+++ b/hbytes/hbytes.c
@@ -25,7 +25,7 @@ Byte *hbytes_data(const HBytes_Value *hb) {
 }
 
 int hbytes_issentinel(const HBytes_Value *hb) {
 }
 
 int hbytes_issentinel(const HBytes_Value *hb) {

-  return HBYTES_ISCOMPLEX(hb);
+  return HBYTES_ISSENTINEL(hb);

 }
 
 /* constructors */
 }
 
 /* constructors */


@@ -52,7 +52,7 @@ void hbytes_array(HBytes_Value *returns, const Byte *array, int l) {
 
 /* destructor */
 
 
 /* destructor */
 

-void hbytes_free(HBytes_Value *frees) {
+void hbytes_free(const HBytes_Value *frees) {

   if (HBYTES_ISCOMPLEX(frees)) {
     HBytes_ComplexValue *cx= COMPLEX(frees);
     TFREE(cx->dstart - cx->prespace);
   if (HBYTES_ISCOMPLEX(frees)) {
     HBytes_ComplexValue *cx= COMPLEX(frees);
     TFREE(cx->dstart - cx->prespace);


@@ -121,7 +121,8 @@ Byte *hbytes_append(HBytes_Value *hb, int el) {
   return newpart;
 }
 
   return newpart;
 }
 

-HBytes_ComplexValue *prechop(HBytes_Value *hb, int cl, const Byte **rv) {
+static HBytes_ComplexValue*
+prechop(HBytes_Value *hb, int cl, const Byte **rv) {

   HBytes_ComplexValue *cx;
 
   if (cl<0) { *rv=0; return 0; }
   HBytes_ComplexValue *cx;
 
   if (cl<0) { *rv=0; return 0; }