Another small fix. Previous fix resulted in 4 more tests failing (now 11);
this fix does not change that, and the regressions must be resolved.
This commit is contained in:
parent
f6d7fcea1e
commit
3659103dd7
1 changed files with 2 additions and 2 deletions
|
|
@ -306,11 +306,11 @@ struct cons_pointer make_string_like_thing( wint_t c, struct cons_pointer tail,
|
||||||
struct cons_space_object *cell = &pointer2cell( pointer );
|
struct cons_space_object *cell = &pointer2cell( pointer );
|
||||||
|
|
||||||
cell->payload.string.character = c;
|
cell->payload.string.character = c;
|
||||||
cell->payload.string.cdr.page = tail.page;
|
cell->payload.string.cdr = tail;
|
||||||
/* \todo There's a problem here. Sometimes the offsets on
|
/* \todo There's a problem here. Sometimes the offsets on
|
||||||
* strings are quite massively off. Fix is probably
|
* strings are quite massively off. Fix is probably
|
||||||
* cell->payload.string.cdr = tail */
|
* cell->payload.string.cdr = tail */
|
||||||
cell->payload.string.cdr.offset = tail.offset;
|
//cell->payload.string.cdr.offset = tail.offset;
|
||||||
|
|
||||||
cell->payload.string.hash = calculate_hash( c, tail );
|
cell->payload.string.hash = calculate_hash( c, tail );
|
||||||
} else {
|
} else {
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue