bugfix: use proper hashing for cptr.

Since cptr objects are equal if their handles are equal, they
must have a hashing function over the handle rather than over
their own address.

* lib.c (cobj_handle_hash_op): New function.
(cptr_ops): Use cobj_handle_hash_op instead of
cobj_eq_hash_op.

* lib.h (cobj_handle_hash_op): Declared.

* sysif.c (cptr_dl_ops): Use cobj_handle_hash_op instead of
cobj_eq_hash_op.

1 files changed, 1 insertions, 1 deletions

diff --git a/sysif.c b/sysif.c
index e4d6de88..78dcda6c 100644
--- a/sysif.c
+++ b/sysif.c
@@ -1470,7 +1470,7 @@ static struct cobj_ops cptr_dl_ops = {
   cobj_print_op,
   cptr_dl_destroy_op,
   cobj_mark_op,
-  cobj_eq_hash_op
+  cobj_handle_hash_op
 };
 
 static val dlopen_wrap(val name, val flags)