Kernel/src/bip_store.c

299  * Auxiliary function to look up vkey/tkey with hash value hash
303 _htable_find(t_heap_htable *obj, uword hash, value vkey, type tkey, t_htable_elem ***ppslot)
311 	 && ec_compare_terms(vkey, tkey, pelem->key.val, pelem->key.tag) == 0)
332 p_store_set(value vhandle, type thandle, value vkey, type tkey, value vval, type tval, value vmod, type tmod)
342     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
348     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
363 	if ((res = create_heapterm(&pelem->key, vkey, tkey)) != PSUCCEED)
389 p_store_inc(value vhandle, type thandle, value vkey, type tkey, value vmod, type tmod)
399     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
405     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
419 	if ((res = create_heapterm(&pelem->key, vkey, tkey)) != PSUCCEED)
440 p_store_contains(value vhandle, type thandle, value vkey, type tkey, value vmod, type tmod)
449     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
454     Succeed_If(_htable_find(obj, hash, vkey, tkey, &pslot));
459 p_store_get(value vhandle, type thandle, value vkey, type tkey, value vval, type tval, value vmod, type tmod)
469     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
474     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
489 p_store_delete(value vhandle, type thandle, value vkey, type tkey, value vmod, type tmod)
498     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
503     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
737  * store_set(obj, vkey, tkey, valpw)
739  *	for the key with value 'vkey' and type 'tkey'. A heap copy
748 store_set(t_heap_htable *obj, value vkey, type tkey, pword *valpw)
755     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
763     pelem->key.val = vkey;
779  * store_get(obj, vkey, tkey, valpw)
781  *	the store 'obj' with key value 'vkey' and key type 'tkey'. A
789 store_get(t_heap_htable *obj, value vkey, type tkey, pword *valpw)
796     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
800     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
811  * store_get_else_set(obj, vkey, tkey, valpw)
813  *	the store 'obj' with key value 'vkey' and key type 'tkey'. A
820  *	stored in the store 'obj' for the key with value 'vkey' and
828 store_get_else_set(t_heap_htable *obj, value vkey, type tkey, pword *valpw)
835     hash = ec_term_hash(vkey, tkey, MAX_U_WORD, &res);
839     pelem = _htable_find(obj, hash, vkey, tkey, &pslot);
848     pelem->key.val = vkey;