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

check_tag now works for vectorspace as well as consspace tags

Browse source 
All tests except bignum boundary tests still pass.
This commit is contained in:
Simon Brooke 2021-08-05 23:35:21 +01:00
parent 492460f37e
commit 6f54b92d32
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/memory/consspaceobject.c
View file

@ -37,14 +37,14 @@ bool check_tag( struct cons_pointer pointer, char *tag ) {
result = strncmp( &cell.tag.bytes[0], tag, TAGLENGTH ) == 0;
if ( !result ) {
// if ( vectorpointp( pointer ) ) { <<< this line blows up!
// // struct vector_space_object *vec = pointer_to_vso( pointer );
if ( result == false ) {
if ( strncmp( &cell.tag.bytes, VECTORPOINTTAG, TAGLENGTH ) == 0 ) {
struct vector_space_object *vec = pointer_to_vso( pointer );
// // if ( vec != NULL ) {
// // result = strncmp( &vec->header.tag.bytes[0], tag, TAGLENGTH ) == 0;
// // }
// }
if ( vec != NULL ) {
result = strncmp( &vec->header.tag.bytes[0], tag, TAGLENGTH ) == 0;
}
}
}
return result;