simon/post-scarcity
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity Actions

Hashmaps now *mostly* work

Browse source
This commit is contained in:
Simon Brooke 2021-08-16 23:23:03 +01:00
parent 4fc9545be8
commit eadb125b83
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
10 changed files with 238 additions and 186 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/memory/consspaceobject.c
View file

@ -35,15 +35,15 @@
bool check_tag( struct cons_pointer pointer, char *tag ) {
bool result = false;
struct cons_space_object cell = pointer2cell( pointer );
result = strncmp( &cell.tag.bytes[0], tag, TAGLENGTH ) == 0;
if ( result == false ) {
if ( strncmp( &cell.tag.bytes[0], VECTORPOINTTAG, TAGLENGTH ) == 0 ) {
if ( cell.tag.value == VECTORPOINTTV ) {
struct vector_space_object *vec = pointer_to_vso( pointer );
if ( vec != NULL ) {
result = strncmp( &vec->header.tag.bytes[0], tag, TAGLENGTH ) == 0;
result = strncmp( &(vec->header.tag.bytes[0]), tag, TAGLENGTH ) == 0;
}
}
}
@ -286,7 +286,7 @@ uint32_t calculate_hash(wint_t c, struct cons_pointer ptr)
case KEYTV:
case STRINGTV:
case SYMBOLTV:
if (nilp(ptr))
if (nilp(cell->payload.string.cdr))
{
result = (uint32_t)c;
}
@ -296,6 +296,7 @@ uint32_t calculate_hash(wint_t c, struct cons_pointer ptr)
cell->payload.string.hash) &
0xffffffff;
}
break;
}
return result;