Tcl_SetHashValue(he, val_eat);
}
-static fixme ht_lookup(HashTable *ht, const char *key) {
+static const HashValue *ht_lookup(HashTable *ht, const char *key) {
Tcl_HashEntry *he;
const HashValue *htv;
he= Tcl_FindHashEntry(ht, key);
- if (!he) return notfound;
-
- htv= Tcl_GetHashValue(he);
+ if (!he) return 0;
+ return Tcl_GetHashValue(he);
}
static int ht_forall(HashTable *ht,
/*---------- Lookups ----------*/
static int lookup(Tcl_Interp *ip, Rw *rw, const char *key, ) {
- ht_lookup(
+ const HashValue val;
+
+ val= ht_lookup(&rw->logincore, key);
+ if (!val) {
+ cdb_ &rw->cdb
+
+ return notfound;
+
int cht_do_cdbwr_lookup(ClientData cd, Tcl_Interp *ip, void *db,
const char *key, Tcl_Obj *def, Tcl_Obj **result) {