chiark / gitweb /
compilation fixes
[chiark-tcl.git] / cdb / writeable.c
index 0334a45..3c718d8 100644 (file)
@@ -63,13 +63,16 @@ static HashValue *htv_prep(int len) {
   HashValue *hd;
   hd= TALLOC((hd->data - (Byte*)hd) + len);
   hd->len= len;
+  return hd;
 }  
 static Byte *htv_fillptr(HashValue *hd) {
   return hd->data;
 }
+#if 0
 static void htv_fill(HashValue *hd, const Byte *data) {
   memcpy(hd->data, data, hd->len);
 }
+#endif
 
 static void ht_setup(HashTable *ht) {
   Tcl_InitHashTable(&ht->t, TCL_STRING_KEYS);