urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

ur: refactors indirect-atom (re-)allocation

Browse Source
This commit is contained in:
Joe Bryan 2020-08-14 10:56:31 -07:00
parent 039ef019b9
commit eedb138975
1 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkg/urbit/ur/hashcons.c
View File

@ -482,18 +482,14 @@ _coin_unsafe(ur_atoms_t *atoms, ur_mug mug, uint8_t *byt, uint64_t len)
uint64_t fill = atoms->fill;
ur_tag tag = ur_iatom;
ur_nref tom = ( fill | ((uint64_t)tag << 62) );
uint8_t *copy = malloc(len);
// XX necessary?
//
assert( 62 >= ur_met0_64(fill) );
assert(copy);
memcpy(copy, byt, len);
atoms->bytes[fill] = copy;
atoms->lens[fill] = len;
atoms->mugs[fill] = mug;
atoms->bytes[fill] = byt;
atoms->lens[fill] = len;
atoms->mugs[fill] = mug;
atoms->fill = 1 + fill;
return tom;
@ -584,7 +580,11 @@ ur_coin_bytes(ur_root_t *r, uint8_t *byt, uint64_t len)
return (ur_nref)direct;
}
else {
return _coin_bytes_unsafe(r, byt, len);
uint8_t *copy = malloc(len);
assert( copy );
memcpy(copy, byt, len);
return _coin_bytes_unsafe(r, copy, len);
}
}
@ -595,9 +595,20 @@ ur_coin64(ur_root_t *r, uint64_t n)
return n;
}
else {
// XX little-endian
//
return _coin_bytes_unsafe(r, (uint8_t*)&n, ur_met3_64(n));
uint8_t *byt = malloc(8);
assert( byt );
assert( 8 == ur_met3_64(n) );
byt[0] = ur_mask_8(n);
byt[1] = ur_mask_8(n >> 8);
byt[2] = ur_mask_8(n >> 16);
byt[3] = ur_mask_8(n >> 24);
byt[4] = ur_mask_8(n >> 32);
byt[5] = ur_mask_8(n >> 40);
byt[6] = ur_mask_8(n >> 48);
byt[7] = ur_mask_8(n >> 56);
return _coin_bytes_unsafe(r, byt, 8);
}
}