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

Another great renaming.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-11-05 16:02:36 -08:00
parent 87d8169c57
commit 138711c7cd
16 changed files with 524 additions and 527 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

170
g/a.c
View File

@ -31,10 +31,10 @@ _box_slot(c3_w siz_w)
/* _box_make(): construct a box.
*/
u3_cs_box*
u3_ca_box*
_box_make(void* box_v, c3_w siz_w, c3_w use_w)
{
u3_cs_box* box_u = box_v;
u3_ca_box* box_u = box_v;
c3_w* box_w = box_v;
c3_assert(siz_w >= u3_cc_minimum);
@ -55,10 +55,10 @@ _box_make(void* box_v, c3_w siz_w, c3_w use_w)
/* _box_attach(): attach a box to the free list.
*/
void
_box_attach(u3_cs_box* box_u)
_box_attach(u3_ca_box* box_u)
{
c3_assert(box_u->siz_w >= (1 + c3_wiseof(u3_cs_fbox)));
c3_assert(0 != u3of(u3_cs_fbox, box_u));
c3_assert(box_u->siz_w >= (1 + c3_wiseof(u3_ca_fbox)));
c3_assert(0 != u3of(u3_ca_fbox, box_u));
#if 0
// For debugging, fill the box with beef.
@ -66,7 +66,7 @@ _box_attach(u3_cs_box* box_u)
c3_w* box_w = (void *)box_u;
c3_w i_w;
for ( i_w = c3_wiseof(u3_cs_box); (i_w + 1) < box_u->siz_w; i_w++ ) {
for ( i_w = c3_wiseof(u3_ca_box); (i_w + 1) < box_u->siz_w; i_w++ ) {
box_w[i_w] = 0xdeadbeef;
}
}
@ -75,14 +75,14 @@ _box_attach(u3_cs_box* box_u)
u3R->all.fre_w += box_u->siz_w;
{
c3_w sel_w = _box_slot(box_u->siz_w);
u3p(u3_cs_fbox) fre_p = u3of(u3_cs_fbox, box_u);
u3p(u3_cs_fbox)* pfr_p = &u3R->all.fre_p[sel_w];
u3p(u3_cs_fbox) nex_p = *pfr_p;
u3p(u3_ca_fbox) fre_p = u3of(u3_ca_fbox, box_u);
u3p(u3_ca_fbox)* pfr_p = &u3R->all.fre_p[sel_w];
u3p(u3_ca_fbox) nex_p = *pfr_p;
u3to(u3_cs_fbox, fre_p)->pre_p = 0;
u3to(u3_cs_fbox, fre_p)->nex_p = nex_p;
if ( u3to(u3_cs_fbox, fre_p)->nex_p ) {
u3to(u3_cs_fbox, u3to(u3_cs_fbox, fre_p)->nex_p)->pre_p = fre_p;
u3to(u3_ca_fbox, fre_p)->pre_p = 0;
u3to(u3_ca_fbox, fre_p)->nex_p = nex_p;
if ( u3to(u3_ca_fbox, fre_p)->nex_p ) {
u3to(u3_ca_fbox, u3to(u3_ca_fbox, fre_p)->nex_p)->pre_p = fre_p;
}
(*pfr_p) = fre_p;
}
@ -91,21 +91,21 @@ _box_attach(u3_cs_box* box_u)
/* _box_detach(): detach a box from the free list.
*/
void
_box_detach(u3_cs_box* box_u)
_box_detach(u3_ca_box* box_u)
{
u3p(u3_cs_fbox) fre_p = u3of(u3_cs_fbox, box_u);
u3p(u3_cs_fbox) pre_p = u3to(u3_cs_fbox, fre_p)->pre_p;
u3p(u3_cs_fbox) nex_p = u3to(u3_cs_fbox, fre_p)->nex_p;
u3p(u3_ca_fbox) fre_p = u3of(u3_ca_fbox, box_u);
u3p(u3_ca_fbox) pre_p = u3to(u3_ca_fbox, fre_p)->pre_p;
u3p(u3_ca_fbox) nex_p = u3to(u3_ca_fbox, fre_p)->nex_p;
u3R->all.fre_w -= box_u->siz_w;
if ( nex_p ) {
c3_assert(u3to(u3_cs_fbox, nex_p)->pre_p == fre_p);
u3to(u3_cs_fbox, nex_p)->pre_p = pre_p;
c3_assert(u3to(u3_ca_fbox, nex_p)->pre_p == fre_p);
u3to(u3_ca_fbox, nex_p)->pre_p = pre_p;
}
if ( pre_p ) {
c3_assert(u3to(u3_cs_fbox, pre_p)->nex_p == fre_p);
u3to(u3_cs_fbox, pre_p)->nex_p = nex_p;
c3_assert(u3to(u3_ca_fbox, pre_p)->nex_p == fre_p);
u3to(u3_ca_fbox, pre_p)->nex_p = nex_p;
}
else {
c3_w sel_w = _box_slot(box_u->siz_w);
@ -171,7 +171,7 @@ u3_ca_sane(void)
c3_w i_w;
for ( i_w = 0; i_w < u3_cc_fbox_no; i_w++ ) {
u3_cs_fbox* fre_u = u3R->all.fre_u[i_w];
u3_ca_fbox* fre_u = u3R->all.fre_u[i_w];
while ( fre_u ) {
if ( fre_u == u3R->all.fre_u[i_w] ) {
@ -206,7 +206,7 @@ _ca_walloc(c3_w len_w)
// fprintf(stderr, "walloc %d: *pfr_p %x\n", len_w, u3R->all.fre_p[sel_w]);
while ( 1 ) {
u3p(u3_cs_fbox) *pfr_p = &u3R->all.fre_p[sel_w];
u3p(u3_ca_fbox) *pfr_p = &u3R->all.fre_p[sel_w];
while ( 1 ) {
if ( 0 == *pfr_p ) {
@ -221,34 +221,34 @@ _ca_walloc(c3_w len_w)
}
}
else {
if ( siz_w > u3to(u3_cs_fbox, *pfr_p)->box_u.siz_w ) {
if ( siz_w > u3to(u3_ca_fbox, *pfr_p)->box_u.siz_w ) {
/* This free block is too small. Continue searching.
*/
pfr_p = &(u3to(u3_cs_fbox, *pfr_p)->nex_p);
pfr_p = &(u3to(u3_ca_fbox, *pfr_p)->nex_p);
continue;
}
else {
u3_cs_box* box_u = &(u3to(u3_cs_fbox, *pfr_p)->box_u);
u3_ca_box* box_u = &(u3to(u3_ca_fbox, *pfr_p)->box_u);
/* We have found a free block of adequate size. Remove it
** from the free list.
*/
{
{
c3_assert((0 == u3to(u3_cs_fbox, *pfr_p)->pre_p) ||
(u3to(u3_cs_fbox, u3to(u3_cs_fbox, *pfr_p)->pre_p)->nex_p
c3_assert((0 == u3to(u3_ca_fbox, *pfr_p)->pre_p) ||
(u3to(u3_ca_fbox, u3to(u3_ca_fbox, *pfr_p)->pre_p)->nex_p
== (*pfr_p)));
c3_assert((0 == u3to(u3_cs_fbox, *pfr_p)->nex_p) ||
(u3to(u3_cs_fbox, u3to(u3_cs_fbox, *pfr_p)->nex_p)->pre_p
c3_assert((0 == u3to(u3_ca_fbox, *pfr_p)->nex_p) ||
(u3to(u3_ca_fbox, u3to(u3_ca_fbox, *pfr_p)->nex_p)->pre_p
== (*pfr_p)));
}
if ( 0 != u3to(u3_cs_fbox, *pfr_p)->nex_p ) {
u3to(u3_cs_fbox, u3to(u3_cs_fbox, *pfr_p)->nex_p)->pre_p =
u3to(u3_cs_fbox, *pfr_p)->pre_p;
if ( 0 != u3to(u3_ca_fbox, *pfr_p)->nex_p ) {
u3to(u3_ca_fbox, u3to(u3_ca_fbox, *pfr_p)->nex_p)->pre_p =
u3to(u3_ca_fbox, *pfr_p)->pre_p;
}
*pfr_p = u3to(u3_cs_fbox, *pfr_p)->nex_p;
*pfr_p = u3to(u3_ca_fbox, *pfr_p)->nex_p;
}
/* If we can chop off another block, do it.
@ -289,12 +289,12 @@ u3_ca_walloc(c3_w len_w)
#if 0
if ( (703 == u3_Code) &&
u3_ca_botox(ptr_v) == (u3_cs_box*)(void *)0x200dfe3e4 ) {
u3_ca_botox(ptr_v) == (u3_ca_box*)(void *)0x200dfe3e4 ) {
static int xuc_i;
printf("xuc_i %d\r\n", xuc_i);
if ( 1 == xuc_i ) {
u3_cs_box* box_u = u3_ca_botox(ptr_v);
u3_ca_box* box_u = u3_ca_botox(ptr_v);
box_u->cod_w = 999;
FOO = 1;
@ -323,7 +323,7 @@ u3_ca_wealloc(void* lag_v, c3_w len_w)
return u3_ca_malloc(len_w);
}
else {
u3_cs_box* box_u = u3_ca_botox(lag_v);
u3_ca_box* box_u = u3_ca_botox(lag_v);
c3_w* old_w = lag_v;
c3_w tiz_w = c3_min(box_u->siz_w, len_w);
{
@ -352,7 +352,7 @@ u3_ca_realloc(void* lag_v, c3_w len_w)
void
u3_ca_free(void* tox_v)
{
u3_cs_box* box_u = u3_ca_botox(tox_v);
u3_ca_box* box_u = u3_ca_botox(tox_v);
c3_w* box_w = (c3_w *)(void *)box_u;
c3_assert(box_u->use_w != 0);
@ -365,7 +365,7 @@ u3_ca_free(void* tox_v)
{
c3_w i_w;
for ( i_w = c3_wiseof(u3_cs_box); (i_w + 1) < box_u->siz_w; i_w++ ) {
for ( i_w = c3_wiseof(u3_ca_box); (i_w + 1) < box_u->siz_w; i_w++ ) {
box_w[i_w] = 0xdeadbeef;
}
}
@ -376,7 +376,7 @@ u3_ca_free(void* tox_v)
*/
if ( box_w != u3_ca_into(u3R->rut_p) ) {
c3_w laz_w = *(box_w - 1);
u3_cs_box* pox_u = (u3_cs_box*)(void *)(box_w - laz_w);
u3_ca_box* pox_u = (u3_ca_box*)(void *)(box_w - laz_w);
if ( 0 == pox_u->use_w ) {
_box_detach(pox_u);
@ -393,7 +393,7 @@ u3_ca_free(void* tox_v)
u3R->hat_p = u3_ca_outa(box_w);
}
else {
u3_cs_box* nox_u = (u3_cs_box*)(void *)(box_w + box_u->siz_w);
u3_ca_box* nox_u = (u3_ca_box*)(void *)(box_w + box_u->siz_w);
if ( 0 == nox_u->use_w ) {
_box_detach(nox_u);
@ -406,7 +406,7 @@ u3_ca_free(void* tox_v)
/* Try to coalesce with the block above.
*/
if ( (box_w + box_u->siz_w) != u3_ca_into(u3R->rut_p) ) {
u3_cs_box* nox_u = (u3_cs_box*)(void *)(box_w + box_u->siz_w);
u3_ca_box* nox_u = (u3_ca_box*)(void *)(box_w + box_u->siz_w);
if ( 0 == nox_u->use_w ) {
_box_detach(nox_u);
@ -421,7 +421,7 @@ u3_ca_free(void* tox_v)
}
else {
c3_w laz_w = *(box_w - 1);
u3_cs_box* pox_u = (u3_cs_box*)(void *)(box_w - laz_w);
u3_ca_box* pox_u = (u3_ca_box*)(void *)(box_w - laz_w);
if ( 0 == pox_u->use_w ) {
_box_detach(pox_u);
@ -451,13 +451,13 @@ _me_wash_north(u3_noun dog)
c3_assert(c3y == u3_ca_is_dog(dog));
// c3_assert(c3y == u3_ca_north_is_junior(u3R, dog));
{
u3_cs_noun* dog_u = u3_ca_to_ptr(dog);
u3_ca_noun* dog_u = u3_ca_to_ptr(dog);
if ( dog_u->mug_w == 0 ) return; dog_u->mug_w = 0; // power wash
// if ( dog_u->mug_w >> 31 ) { dog_u->mug_w = 0; }
if ( _(u3_ca_is_pom(dog)) ) {
u3_cs_cell* god_u = (u3_cs_cell *)(void *)dog_u;
u3_ca_cell* god_u = (u3_ca_cell *)(void *)dog_u;
_me_wash_north_in(god_u->hed);
_me_wash_north_in(god_u->tel);
@ -482,13 +482,13 @@ _me_wash_south(u3_noun dog)
c3_assert(c3y == u3_ca_is_dog(dog));
// c3_assert(c3y == u3_ca_south_is_junior(u3R, dog));
{
u3_cs_noun* dog_u = u3_ca_to_ptr(dog);
u3_ca_noun* dog_u = u3_ca_to_ptr(dog);
if ( dog_u->mug_w == 0 ) return; dog_u->mug_w = 0; // power wash
// if ( dog_u->mug_w >> 31 ) { dog_u->mug_w = 0; }
if ( _(u3_ca_is_pom(dog)) ) {
u3_cs_cell* god_u = (u3_cs_cell *)(void *)dog_u;
u3_ca_cell* god_u = (u3_ca_cell *)(void *)dog_u;
_me_wash_south_in(god_u->hed);
_me_wash_south_in(god_u->tel);
@ -525,7 +525,7 @@ static void
_me_gain_use(u3_noun dog)
{
c3_w* dog_w = u3_ca_to_ptr(dog);
u3_cs_box* box_u = u3_ca_botox(dog_w);
u3_ca_box* box_u = u3_ca_botox(dog_w);
if ( 0x7fffffff == box_u->use_w ) {
u3_cm_bail(c3__fail);
@ -565,7 +565,7 @@ _me_gain_use(u3_noun dog)
static c3_w bug_w = 0;
if ( FOO && u3_ca_botox(u3_ca_to_ptr(dog)) == (void *)0x200dfe3e4 ) {
u3_cs_box* box_u = u3_ca_botox(u3_ca_to_ptr(dog));
u3_ca_box* box_u = u3_ca_botox(u3_ca_to_ptr(dog));
printf("GAIN %d %d\r\n", bug_w, box_u->use_w);
if ( bug_w == 8 ) { abort(); }
@ -617,7 +617,7 @@ _me_copy_north(u3_noun dog)
return dog;
}
else {
u3_cs_noun* dog_u = u3_ca_to_ptr(dog);
u3_ca_noun* dog_u = u3_ca_to_ptr(dog);
/* Borrow mug slot to record new destination.
*/
@ -631,10 +631,10 @@ _me_copy_north(u3_noun dog)
}
else {
if ( c3y == u3_ca_is_pom(dog) ) {
u3_cs_cell* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(c3_wiseof(u3_cs_cell));
u3_ca_cell* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(c3_wiseof(u3_ca_cell));
u3_noun new = u3_ca_de_twin(dog, new_w);
u3_cs_cell* new_u = (u3_cs_cell*)(void *)new_w;
u3_ca_cell* new_u = (u3_ca_cell*)(void *)new_w;
new_u->mug_w = old_u->mug_w;
new_u->hed = _me_copy_north_in(old_u->hed);
@ -646,10 +646,10 @@ _me_copy_north(u3_noun dog)
return new;
}
else {
u3_cs_atom* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(old_u->len_w + c3_wiseof(u3_cs_atom));
u3_ca_atom* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(old_u->len_w + c3_wiseof(u3_ca_atom));
u3_noun new = u3_ca_de_twin(dog, new_w);
u3_cs_atom* new_u = (u3_cs_atom*)(void *)new_w;
u3_ca_atom* new_u = (u3_ca_atom*)(void *)new_w;
new_u->mug_w = old_u->mug_w;
new_u->len_w = old_u->len_w;
@ -709,7 +709,7 @@ _me_copy_south(u3_noun dog)
return dog;
}
else {
u3_cs_noun* dog_u = u3_ca_to_ptr(dog);
u3_ca_noun* dog_u = u3_ca_to_ptr(dog);
/* Borrow mug slot to record new destination.
*/
@ -725,10 +725,10 @@ _me_copy_south(u3_noun dog)
}
else {
if ( c3y == u3_ca_is_pom(dog) ) {
u3_cs_cell* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(c3_wiseof(u3_cs_cell));
u3_ca_cell* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(c3_wiseof(u3_ca_cell));
u3_noun new = u3_ca_de_twin(dog, new_w);
u3_cs_cell* new_u = (u3_cs_cell*)(void *)new_w;
u3_ca_cell* new_u = (u3_ca_cell*)(void *)new_w;
// printf("south: cell %p to %p\r\n", old_u, new_u);
@ -743,10 +743,10 @@ _me_copy_south(u3_noun dog)
return new;
}
else {
u3_cs_atom* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(old_u->len_w + c3_wiseof(u3_cs_atom));
u3_ca_atom* old_u = u3_ca_to_ptr(dog);
c3_w* new_w = u3_ca_walloc(old_u->len_w + c3_wiseof(u3_ca_atom));
u3_noun new = u3_ca_de_twin(dog, new_w);
u3_cs_atom* new_u = (u3_cs_atom*)(void *)new_w;
u3_ca_atom* new_u = (u3_ca_atom*)(void *)new_w;
// printf("south: atom %p to %p\r\n", old_u, new_u);
@ -850,7 +850,7 @@ u3_ca_left(u3_noun som)
return c3y;
}
else {
u3_cs_noun* dog_u = u3_ca_to_ptr(som);
u3_ca_noun* dog_u = u3_ca_to_ptr(som);
return __(0 != (dog_u->mug_w >> 31));
}
@ -908,7 +908,7 @@ _me_lose_north(u3_noun dog)
top:
if ( c3y == u3_ca_north_is_normal(u3R, dog) ) {
c3_w* dog_w = u3_ca_to_ptr(dog);
u3_cs_box* box_u = u3_ca_botox(dog_w);
u3_ca_box* box_u = u3_ca_botox(dog_w);
if ( box_u->use_w > 1 ) {
box_u->use_w -= 1;
@ -919,7 +919,7 @@ top:
}
else {
if ( _(u3_ca_is_pom(dog)) ) {
u3_cs_cell* dog_u = (void *)dog_w;
u3_ca_cell* dog_u = (void *)dog_w;
u3_noun h_dog = dog_u->hed;
u3_noun t_dog = dog_u->tel;
@ -948,7 +948,7 @@ _me_lose_south(u3_noun dog)
top:
if ( c3y == u3_ca_south_is_normal(u3R, dog) ) {
c3_w* dog_w = u3_ca_to_ptr(dog);
u3_cs_box* box_u = u3_ca_botox(dog_w);
u3_ca_box* box_u = u3_ca_botox(dog_w);
if ( box_u->use_w > 1 ) {
box_u->use_w -= 1;
@ -959,7 +959,7 @@ top:
}
else {
if ( _(u3_ca_is_pom(dog)) ) {
u3_cs_cell* dog_u = (void *)dog_w;
u3_ca_cell* dog_u = (void *)dog_w;
u3_noun h_dog = dog_u->hed;
u3_noun t_dog = dog_u->tel;
@ -1021,7 +1021,7 @@ u3_ca_use(u3_noun som)
}
else {
c3_w* dog_w = u3_ca_to_ptr(som);
u3_cs_box* box_u = u3_ca_botox(dog_w);
u3_ca_box* box_u = u3_ca_botox(dog_w);
return box_u->use_w;
}
@ -1047,7 +1047,7 @@ u3_ca_mark_ptr(void* ptr_v)
}
}
{
u3_cs_box* box_u = u3_ca_botox(ptr_v);
u3_ca_box* box_u = u3_ca_botox(ptr_v);
c3_w siz_w;
#ifdef U3_MEMORY_DEBUG
@ -1160,10 +1160,10 @@ u3_ca_sweep(c3_c* cap_c)
: (u3R->rut_p - u3R->hat_p);
for ( i_w = 0; i_w < u3_cc_fbox_no; i_w++ ) {
u3p(u3_cs_fbox) fre_p = u3R->all.fre_p[i_w];
u3p(u3_ca_fbox) fre_p = u3R->all.fre_p[i_w];
while ( fre_p ) {
u3_cs_fbox* fre_u = u3to(u3_cs_fbox, fre_p);
u3_ca_fbox* fre_u = u3to(u3_ca_fbox, fre_p);
fre_w += fre_u->box_u.siz_w;
fre_p = fre_u->nex_p;
@ -1182,7 +1182,7 @@ u3_ca_sweep(c3_c* cap_c)
c3_w* end_w = u3_ca_into(end_p);
while ( box_w < end_w ) {
u3_cs_box* box_u = (void *)box_w;
u3_ca_box* box_u = (void *)box_w;
#ifdef U3_MEMORY_DEBUG
if ( box_u->use_w != box_u->eus_w ) {
@ -1193,7 +1193,7 @@ u3_ca_sweep(c3_c* cap_c)
else {
printf("weak %p %x (%d, %d)\r\n",
box_u,
((u3_cs_noun *)(u3_ca_boxto(box_w)))->mug_w,
((u3_ca_noun *)(u3_ca_boxto(box_w)))->mug_w,
box_u->use_w, box_u->eus_w);
// u3_cm_p("weak", u3_ca_to_pom(u3_ca_outa(u3_ca_boxto(box_w))));
}
@ -1202,8 +1202,8 @@ u3_ca_sweep(c3_c* cap_c)
else {
printf("leak %p %x (%d)\r\n",
box_u,
((u3_cs_noun *)(u3_ca_boxto(box_w)))->mug_w
? ((u3_cs_noun *)(u3_ca_boxto(box_w)))->mug_w
((u3_ca_noun *)(u3_ca_boxto(box_w)))->mug_w
? ((u3_ca_noun *)(u3_ca_boxto(box_w)))->mug_w
: u3_cr_mug(u3_ca_to_pom(u3_ca_outa(u3_ca_boxto(box_w)))),
box_u->use_w);
// u3_cm_p("leak", u3_ca_to_pom(u3_ca_outa(u3_ca_boxto(box_w))));
@ -1262,8 +1262,8 @@ u3_ca_sweep(c3_c* cap_c)
c3_w*
u3_ca_slab(c3_w len_w)
{
c3_w* nov_w = u3_ca_walloc(len_w + c3_wiseof(u3_cs_atom));
u3_cs_atom* pug_u = (void *)nov_w;
c3_w* nov_w = u3_ca_walloc(len_w + c3_wiseof(u3_ca_atom));
u3_ca_atom* pug_u = (void *)nov_w;
pug_u->mug_w = 0;
pug_u->len_w = len_w;
@ -1293,8 +1293,8 @@ u3_ca_slaq(c3_g met_g, c3_w len_w)
u3_noun
u3_ca_malt(c3_w* sal_w)
{
c3_w* nov_w = (sal_w - c3_wiseof(u3_cs_atom));
u3_cs_atom* nov_u = (void *)nov_w;
c3_w* nov_w = (sal_w - c3_wiseof(u3_ca_atom));
u3_ca_atom* nov_u = (void *)nov_w;
c3_w len_w;
for ( len_w = nov_u->len_w; len_w; len_w-- ) {
@ -1310,8 +1310,8 @@ u3_ca_malt(c3_w* sal_w)
u3_noun
u3_ca_moot(c3_w* sal_w)
{
c3_w* nov_w = (sal_w - c3_wiseof(u3_cs_atom));
u3_cs_atom* nov_u = (void*)nov_w;
c3_w* nov_w = (sal_w - c3_wiseof(u3_ca_atom));
u3_ca_atom* nov_u = (void*)nov_w;
c3_w len_w = nov_u->len_w;
c3_w las_w = nov_u->buf_w[len_w - 1];
@ -1379,8 +1379,8 @@ u3_ca_detect(u3_noun fum, u3_noun som)
u3_noun
u3_ca_mint(c3_w* sal_w, c3_w len_w)
{
c3_w* nov_w = (sal_w - c3_wiseof(u3_cs_atom));
u3_cs_atom* nov_u = (void*)nov_w;
c3_w* nov_w = (sal_w - c3_wiseof(u3_ca_atom));
u3_ca_atom* nov_u = (void*)nov_w;
/* See if we can free the slab entirely.
*/
@ -1407,7 +1407,7 @@ u3_ca_mint(c3_w* sal_w, c3_w len_w)
if ( dif_w >= u3_cc_minimum ) {
c3_w* box_w = (void *)u3_ca_botox(nov_w);
c3_w* end_w = (nov_w + c3_wiseof(u3_cs_atom) + len_w + 1);
c3_w* end_w = (nov_w + c3_wiseof(u3_ca_atom) + len_w + 1);
c3_w asz_w = (end_w - box_w);
c3_w bsz_w = box_w[0] - asz_w;

138
g/e.c
View File

@ -17,7 +17,7 @@
struct {
c3_w nor_w;
c3_w sou_w;
c3_w mug_w[u3_cc_pages];
c3_w mug_w[u3_ca_pages];
} u3K;
/* _ce_check_page(): checksum page.
@ -25,8 +25,8 @@ struct {
static c3_w
_ce_check_page(c3_w pag_w)
{
c3_w* mem_w = u3_Loom + (pag_w << u3_cc_page);
c3_w mug_w = u3_cr_mug_words(mem_w, (1 << u3_cc_page));
c3_w* mem_w = u3_Loom + (pag_w << u3_ca_page);
c3_w mug_w = u3_cr_mug_words(mem_w, (1 << u3_ca_page));
return mug_w;
}
@ -44,8 +44,8 @@ u3_ce_check(c3_c* cap_c)
u3_cm_water(&nwr_w, &swu_w);
nor_w = (nwr_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
sou_w = (swu_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
nor_w = (nwr_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
sou_w = (swu_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
}
/* Count dirty pages.
@ -62,9 +62,9 @@ u3_ce_check(c3_c* cap_c)
sum_w += mug_w;
}
for ( i_w = 0; i_w < sou_w; i_w++ ) {
mug_w = _ce_check_page((u3_cc_pages - (i_w + 1)));
mug_w = _ce_check_page((u3_ca_pages - (i_w + 1)));
if ( strcmp(cap_c, "boot") ) {
c3_assert(mug_w == u3K.mug_w[(u3_cc_pages - (i_w + 1))]);
c3_assert(mug_w == u3K.mug_w[(u3_ca_pages - (i_w + 1))]);
}
sum_w += mug_w;
}
@ -80,14 +80,14 @@ u3_ce_fault(void* adr_v, c3_i ser_i)
{
c3_w* adr_w = (c3_w*) adr_v;
if ( (adr_w < u3_Loom) || (adr_w > (u3_Loom + u3_cc_words)) ) {
if ( (adr_w < u3_Loom) || (adr_w > (u3_Loom + u3_ca_words)) ) {
fprintf(stderr, "address %p out of loom!\r\n", adr_v);
c3_assert(0);
return 0;
}
else {
c3_w off_w = (adr_w - u3_Loom);
c3_w pag_w = off_w >> u3_cc_page;
c3_w pag_w = off_w >> u3_ca_page;
c3_w blk_w = (pag_w >> 5);
c3_w bit_w = (pag_w & 31);
@ -95,8 +95,8 @@ u3_ce_fault(void* adr_v, c3_i ser_i)
c3_assert(0 == (u3P.dit_w[blk_w] & (1 << bit_w)));
u3P.dit_w[blk_w] |= (1 << bit_w);
if ( -1 == mprotect((void *)(u3_Loom + (pag_w << u3_cc_page)),
(1 << (u3_cc_page + 2)),
if ( -1 == mprotect((void *)(u3_Loom + (pag_w << u3_ca_page)),
(1 << (u3_ca_page + 2)),
(PROT_READ | PROT_WRITE)) )
{
perror("mprotect");
@ -110,7 +110,7 @@ u3_ce_fault(void* adr_v, c3_i ser_i)
/* _ce_image_open(): open or create image.
*/
static c3_o
_ce_image_open(u3_cs_image* img_u, c3_o nuu_o)
_ce_image_open(u3_ce_image* img_u, c3_o nuu_o)
{
c3_i mod_i = _(nuu_o) ? (O_RDWR | O_CREAT) : O_RDWR;
c3_c ful_c[8193];
@ -139,8 +139,8 @@ _ce_image_open(u3_cs_image* img_u, c3_o nuu_o)
}
else {
c3_d siz_d = buf_u.st_size;
c3_d pgs_d = (siz_d + (c3_d)((1 << (u3_cc_page + 2)) - 1)) >>
(c3_d)(u3_cc_page + 2);
c3_d pgs_d = (siz_d + (c3_d)((1 << (u3_ca_page + 2)) - 1)) >>
(c3_d)(u3_ca_page + 2);
if ( c3y == nuu_o ) {
if ( siz_d ) {
@ -150,7 +150,7 @@ _ce_image_open(u3_cs_image* img_u, c3_o nuu_o)
return c3y;
}
else {
if ( siz_d != (pgs_d << (c3_d)(u3_cc_page + 2)) ) {
if ( siz_d != (pgs_d << (c3_d)(u3_ca_page + 2)) ) {
fprintf(stderr, "%s: corrupt size %llx\r\n", ful_c, siz_d);
return c3n;
}
@ -168,8 +168,8 @@ _ce_image_open(u3_cs_image* img_u, c3_o nuu_o)
static void
_ce_patch_write_control(u3_cs_patch* pat_u)
{
c3_w len_w = sizeof(u3_cs_control) +
(pat_u->con_u->pgs_w * sizeof(u3_cs_line));
c3_w len_w = sizeof(u3_ce_control) +
(pat_u->con_u->pgs_w * sizeof(u3_ce_line));
if ( len_w != write(pat_u->ctl_i, pat_u->con_u, len_w) ) {
c3_assert(0);
@ -196,8 +196,8 @@ _ce_patch_read_control(u3_cs_patch* pat_u)
pat_u->con_u = malloc(len_w);
if ( (len_w != read(pat_u->ctl_i, pat_u->con_u, len_w)) ||
(len_w != sizeof(u3_cs_control) +
(pat_u->con_u->pgs_w * sizeof(u3_cs_line))) )
(len_w != sizeof(u3_ce_control) +
(pat_u->con_u->pgs_w * sizeof(u3_ce_line))) )
{
free(pat_u->con_u);
pat_u->con_u = 0;
@ -254,20 +254,20 @@ _ce_patch_verify(u3_cs_patch* pat_u)
for ( i_w = 0; i_w < pat_u->con_u->pgs_w; i_w++ ) {
c3_w pag_w = pat_u->con_u->mem_u[i_w].pag_w;
c3_w mug_w = pat_u->con_u->mem_u[i_w].mug_w;
c3_w mem_w[1 << u3_cc_page];
c3_w mem_w[1 << u3_ca_page];
if ( -1 == lseek(pat_u->mem_i, (i_w << (u3_cc_page + 2)), SEEK_SET) ) {
if ( -1 == lseek(pat_u->mem_i, (i_w << (u3_ca_page + 2)), SEEK_SET) ) {
perror("seek");
c3_assert(0);
return c3n;
}
if ( -1 == read(pat_u->mem_i, mem_w, (1 << (u3_cc_page + 2))) ) {
if ( -1 == read(pat_u->mem_i, mem_w, (1 << (u3_ca_page + 2))) ) {
perror("read");
c3_assert(0);
return c3n;
}
{
c3_w nug_w = u3_cr_mug_words(mem_w, (1 << u3_cc_page));
c3_w nug_w = u3_cr_mug_words(mem_w, (1 << u3_ca_page));
if ( mug_w != nug_w ) {
printf("_ce_patch_verify: mug mismatch %d/%d; (%x, %x)\r\n",
@ -351,11 +351,11 @@ _ce_patch_write_page(u3_cs_patch* pat_u,
c3_w pgc_w,
c3_w* mem_w)
{
if ( -1 == lseek(pat_u->mem_i, (pgc_w << (u3_cc_page + 2)), SEEK_SET) ) {
if ( -1 == lseek(pat_u->mem_i, (pgc_w << (u3_ca_page + 2)), SEEK_SET) ) {
c3_assert(0);
}
if ( (1 << (u3_cc_page + 2)) !=
write(pat_u->mem_i, mem_w, (1 << (u3_cc_page + 2))) )
if ( (1 << (u3_ca_page + 2)) !=
write(pat_u->mem_i, mem_w, (1 << (u3_ca_page + 2))) )
{
c3_assert(0);
}
@ -387,21 +387,21 @@ _ce_patch_save_page(u3_cs_patch* pat_u,
c3_w bit_w = (pag_w & 31);
if ( u3P.dit_w[blk_w] & (1 << bit_w) ) {
c3_w* mem_w = u3_Loom + (pag_w << u3_cc_page);
c3_w* mem_w = u3_Loom + (pag_w << u3_ca_page);
pat_u->con_u->mem_u[pgc_w].pag_w = pag_w;
pat_u->con_u->mem_u[pgc_w].mug_w = u3_cr_mug_words(mem_w,
(1 << u3_cc_page));
(1 << u3_ca_page));
#if 0
u3K.mug_w[pag_w] = pat_u->con_u->mem_u[pgc_w].mug_w;
printf("save: page %d, mug %x\r\n",
pag_w, u3_cr_mug_words(mem_w, (1 << u3_cc_page)));
pag_w, u3_cr_mug_words(mem_w, (1 << u3_ca_page)));
#endif
_ce_patch_write_page(pat_u, pgc_w, mem_w);
if ( -1 == mprotect(u3_Loom + (pag_w << u3_cc_page),
(1 << (u3_cc_page + 2)),
if ( -1 == mprotect(u3_Loom + (pag_w << u3_ca_page),
(1 << (u3_ca_page + 2)),
PROT_READ) )
{
c3_assert(0);
@ -422,8 +422,8 @@ _ce_patch_junk_page(u3_cs_patch* pat_u,
c3_w blk_w = (pag_w >> 5);
c3_w bit_w = (pag_w & 31);
if ( -1 == mprotect(u3_Loom + (pag_w << u3_cc_page),
(1 << (u3_cc_page + 2)),
if ( -1 == mprotect(u3_Loom + (pag_w << u3_ca_page),
(1 << (u3_ca_page + 2)),
PROT_READ) )
{
c3_assert(0);
@ -447,8 +447,8 @@ u3_ce_dirty(void)
u3_cm_water(&nwr_w, &swu_w);
nor_w = (nwr_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
sou_w = (swu_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
nor_w = (nwr_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
sou_w = (swu_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
}
// u3K.nor_w = nor_w;
// u3K.sou_w = sou_w;
@ -462,7 +462,7 @@ u3_ce_dirty(void)
pgs_w = _ce_patch_count_page(i_w, pgs_w);
}
for ( i_w = 0; i_w < sou_w; i_w++ ) {
pgs_w = _ce_patch_count_page((u3_cc_pages - (i_w + 1)), pgs_w);
pgs_w = _ce_patch_count_page((u3_ca_pages - (i_w + 1)), pgs_w);
}
}
return pgs_w;
@ -484,8 +484,8 @@ _ce_patch_compose(void)
u3_cm_water(&nwr_w, &swu_w);
nor_w = (nwr_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
sou_w = (swu_w + ((1 << u3_cc_page) - 1)) >> u3_cc_page;
nor_w = (nwr_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
sou_w = (swu_w + ((1 << u3_ca_page) - 1)) >> u3_ca_page;
}
// u3K.nor_w = nor_w;
// u3K.sou_w = sou_w;
@ -499,7 +499,7 @@ _ce_patch_compose(void)
pgs_w = _ce_patch_count_page(i_w, pgs_w);
}
for ( i_w = 0; i_w < sou_w; i_w++ ) {
pgs_w = _ce_patch_count_page((u3_cc_pages - (i_w + 1)), pgs_w);
pgs_w = _ce_patch_count_page((u3_ca_pages - (i_w + 1)), pgs_w);
}
}
@ -512,16 +512,16 @@ _ce_patch_compose(void)
c3_w i_w, pgc_w;
_ce_patch_create(pat_u);
pat_u->con_u = malloc(sizeof(u3_cs_control) + (pgs_w * sizeof(u3_cs_line)));
pat_u->con_u = malloc(sizeof(u3_ce_control) + (pgs_w * sizeof(u3_ce_line)));
pgc_w = 0;
for ( i_w = 0; i_w < nor_w; i_w++ ) {
pgc_w = _ce_patch_save_page(pat_u, i_w, pgc_w);
}
for ( i_w = 0; i_w < sou_w; i_w++ ) {
pgc_w = _ce_patch_save_page(pat_u, (u3_cc_pages - (i_w + 1)), pgc_w);
pgc_w = _ce_patch_save_page(pat_u, (u3_ca_pages - (i_w + 1)), pgc_w);
}
for ( i_w = nor_w; i_w < (u3_cc_pages - sou_w); i_w++ ) {
for ( i_w = nor_w; i_w < (u3_ca_pages - sou_w); i_w++ ) {
_ce_patch_junk_page(pat_u, i_w);
}
@ -562,7 +562,7 @@ _ce_patch_sync(u3_cs_patch* pat_u)
/* _ce_image_sync(): make sure image is synced to disk.
*/
static void
_ce_image_sync(u3_cs_image* img_u)
_ce_image_sync(u3_ce_image* img_u)
{
_ce_sync(img_u->fid_i);
}
@ -578,12 +578,12 @@ _ce_patch_apply(u3_cs_patch* pat_u)
//printf("image: sou_w %d, new %d\r\n", u3P.sou_u.pgs_w, pat_u->con_u->sou_w);
if ( u3P.nor_u.pgs_w > pat_u->con_u->nor_w ) {
ftruncate(u3P.nor_u.fid_i, u3P.nor_u.pgs_w << (u3_cc_page + 2));
ftruncate(u3P.nor_u.fid_i, u3P.nor_u.pgs_w << (u3_ca_page + 2));
}
u3P.nor_u.pgs_w = pat_u->con_u->nor_w;
if ( u3P.sou_u.pgs_w > pat_u->con_u->sou_w ) {
ftruncate(u3P.sou_u.fid_i, u3P.sou_u.pgs_w << (u3_cc_page + 2));
ftruncate(u3P.sou_u.fid_i, u3P.sou_u.pgs_w << (u3_ca_page + 2));
}
u3P.sou_u.pgs_w = pat_u->con_u->sou_w;
@ -597,7 +597,7 @@ _ce_patch_apply(u3_cs_patch* pat_u)
for ( i_w = 0; i_w < pat_u->con_u->pgs_w; i_w++ ) {
c3_w pag_w = pat_u->con_u->mem_u[i_w].pag_w;
c3_w mem_w[1 << u3_cc_page];
c3_w mem_w[1 << u3_ca_page];
c3_i fid_i;
c3_w off_w;
@ -607,25 +607,25 @@ _ce_patch_apply(u3_cs_patch* pat_u)
}
else {
fid_i = u3P.sou_u.fid_i;
off_w = (u3_cc_pages - (pag_w + 1));
off_w = (u3_ca_pages - (pag_w + 1));
}
if ( -1 == read(pat_u->mem_i, mem_w, (1 << (u3_cc_page + 2))) ) {
if ( -1 == read(pat_u->mem_i, mem_w, (1 << (u3_ca_page + 2))) ) {
perror("apply: read");
c3_assert(0);
}
else {
if ( -1 == lseek(fid_i, (off_w << (u3_cc_page + 2)), SEEK_SET) ) {
if ( -1 == lseek(fid_i, (off_w << (u3_ca_page + 2)), SEEK_SET) ) {
perror("apply: lseek");
c3_assert(0);
}
if ( -1 == write(fid_i, mem_w, (1 << (u3_cc_page + 2))) ) {
if ( -1 == write(fid_i, mem_w, (1 << (u3_ca_page + 2))) ) {
perror("apply: write");
c3_assert(0);
}
}
#if 0
printf("apply: %d, %x\n", pag_w, u3_cr_mug_words(mem_w, (1 << u3_cc_page)));
printf("apply: %d, %x\n", pag_w, u3_cr_mug_words(mem_w, (1 << u3_ca_page)));
#endif
}
}
@ -633,7 +633,7 @@ _ce_patch_apply(u3_cs_patch* pat_u)
/* _ce_image_blit(): apply image to memory.
*/
static void
_ce_image_blit(u3_cs_image* img_u,
_ce_image_blit(u3_ce_image* img_u,
c3_w* ptr_w,
c3_ws stp_ws)
{
@ -641,17 +641,17 @@ _ce_image_blit(u3_cs_image* img_u,
lseek(img_u->fid_i, 0, SEEK_SET);
for ( i_w=0; i_w < img_u->pgs_w; i_w++ ) {
if ( -1 == read(img_u->fid_i, ptr_w, (1 << (u3_cc_page + 2))) ) {
if ( -1 == read(img_u->fid_i, ptr_w, (1 << (u3_ca_page + 2))) ) {
perror("read");
c3_assert(0);
}
#if 0
{
c3_w off_w = (ptr_w - u3_Loom);
c3_w pag_w = (off_w >> u3_cc_page);
c3_w pag_w = (off_w >> u3_ca_page);
printf("blit: page %d, mug %x\r\n", pag_w,
u3_cr_mug_words(ptr_w, (1 << u3_cc_page)));
u3_cr_mug_words(ptr_w, (1 << u3_ca_page)));
}
#endif
ptr_w += stp_ws;
@ -662,26 +662,26 @@ _ce_image_blit(u3_cs_image* img_u,
/* _ce_image_fine(): compare image to memory.
*/
static void
_ce_image_fine(u3_cs_image* img_u,
_ce_image_fine(u3_ce_image* img_u,
c3_w* ptr_w,
c3_ws stp_ws)
{
c3_w i_w;
c3_w buf_w[1 << u3_cc_page];
c3_w buf_w[1 << u3_ca_page];
lseek(img_u->fid_i, 0, SEEK_SET);
for ( i_w=0; i_w < img_u->pgs_w; i_w++ ) {
c3_w mem_w, fil_w;
if ( -1 == read(img_u->fid_i, buf_w, (1 << (u3_cc_page + 2))) ) {
if ( -1 == read(img_u->fid_i, buf_w, (1 << (u3_ca_page + 2))) ) {
perror("read");
c3_assert(0);
}
mem_w = u3_cr_mug_words(ptr_w, (1 << u3_cc_page));
fil_w = u3_cr_mug_words(buf_w, (1 << u3_cc_page));
mem_w = u3_cr_mug_words(ptr_w, (1 << u3_ca_page));
fil_w = u3_cr_mug_words(buf_w, (1 << u3_ca_page));
if ( mem_w != fil_w ) {
c3_w pag_w = (ptr_w - u3_Loom) >> u3_cc_page;
c3_w pag_w = (ptr_w - u3_Loom) >> u3_ca_page;
fprintf(stderr, "mismatch: page %d, mem_w %x, fil_w %x, K %x\r\n",
pag_w,
@ -731,11 +731,11 @@ u3_ce_save(void)
{
_ce_image_fine(&u3P.nor_u,
u3_Loom,
(1 << u3_cc_page));
(1 << u3_ca_page));
_ce_image_fine(&u3P.sou_u,
(u3_Loom + (1 << u3_cc_bits) - (1 << u3_cc_page)),
-(1 << u3_cc_page));
(u3_Loom + (1 << u3_ca_bits) - (1 << u3_ca_page)),
-(1 << u3_ca_page));
c3_assert(u3P.nor_u.pgs_w == u3K.nor_w);
c3_assert(u3P.sou_u.pgs_w == u3K.sou_w);
@ -832,7 +832,7 @@ u3_ce_init(c3_o chk_o)
/* Map at fixed address.
*/
{
c3_w len_w = u3_cc_bytes;
c3_w len_w = u3_ca_bytes;
void* map_v;
map_v = mmap((void *)u3_Loom,
@ -943,13 +943,13 @@ u3_ce_boot(c3_o nuu_o, c3_o bug_o, c3_c* cpu_c)
{
_ce_image_blit(&u3P.nor_u,
u3_Loom,
(1 << u3_cc_page));
(1 << u3_ca_page));
_ce_image_blit(&u3P.sou_u,
(u3_Loom + (1 << u3_cc_bits) - (1 << u3_cc_page)),
-(1 << u3_cc_page));
(u3_Loom + (1 << u3_ca_bits) - (1 << u3_ca_page)),
-(1 << u3_ca_page));
if ( 0 != mprotect((void *)u3_Loom, u3_cc_bytes, PROT_READ) ) {
if ( 0 != mprotect((void *)u3_Loom, u3_ca_bytes, PROT_READ) ) {
perror("protect");
c3_assert(0);
}

12
g/i.c
View File

@ -30,8 +30,8 @@ u3_ci_words(c3_w a_w,
/* Allocate, fill, return.
*/
{
c3_w* nov_w = u3_ca_walloc(a_w + c3_wiseof(u3_cs_atom));
u3_cs_atom* nov_u = (void*)nov_w;
c3_w* nov_w = u3_ca_walloc(a_w + c3_wiseof(u3_ca_atom));
u3_ca_atom* nov_u = (void*)nov_w;
nov_u->mug_w = 0;
nov_u->len_w = a_w;
@ -108,8 +108,8 @@ u3_ci_bytes(c3_w a_w,
*/
{
c3_w len_w = (a_w + 3) >> 2;
c3_w* nov_w = u3_ca_walloc((len_w + c3_wiseof(u3_cs_atom)));
u3_cs_atom* nov_u = (void*)nov_w;
c3_w* nov_w = u3_ca_walloc((len_w + c3_wiseof(u3_ca_atom)));
u3_ca_atom* nov_u = (void*)nov_w;
nov_u->mug_w = 0;
nov_u->len_w = len_w;
@ -206,8 +206,8 @@ u3_ci_cell(u3_noun a, u3_noun b)
c3_assert(!_(u3_ca_is_junior(u3R, b)));
{
c3_w* nov_w = u3_ca_walloc(c3_wiseof(u3_cs_cell));
u3_cs_cell* nov_u = (void *)nov_w;
c3_w* nov_w = u3_ca_walloc(c3_wiseof(u3_ca_cell));
u3_ca_cell* nov_u = (void *)nov_w;
u3_noun pro;
nov_u->mug_w = 0;

30
g/j.c
View File

@ -7,14 +7,14 @@
/* _cj_count(): count and link dashboard entries.
*/
static c3_w
_cj_count(u3_cs_core* par_u, u3_cs_core* dev_u)
_cj_count(u3_ce_core* par_u, u3_ce_core* dev_u)
{
c3_w len_l = 0;
c3_w i_w;
if ( dev_u ) {
for ( i_w = 0; 0 != dev_u[i_w].cos_c; i_w++ ) {
u3_cs_core* kid_u = &dev_u[i_w];
u3_ce_core* kid_u = &dev_u[i_w];
kid_u->par_u = par_u;
len_l += _cj_count(kid_u, kid_u->dev_u);
@ -25,13 +25,13 @@
/* _cj_install(): install dashboard entries.
*/
static c3_w
_cj_install(u3_cs_core* ray_u, c3_w jax_l, u3_cs_core* dev_u)
_cj_install(u3_ce_core* ray_u, c3_w jax_l, u3_ce_core* dev_u)
{
c3_w i_w;
if ( dev_u ) {
for ( i_w = 0; 0 != dev_u[i_w].cos_c; i_w++ ) {
u3_cs_core* kid_u = &dev_u[i_w];
u3_ce_core* kid_u = &dev_u[i_w];
kid_u->jax_l = jax_l;
ray_u[jax_l++] = *kid_u;
@ -313,12 +313,12 @@ static u3_noun
_cj_warm_hump(c3_l jax_l, u3_noun huc)
{
u3_noun hap = u3_nul;
u3_cs_core* cop_u;
u3_ce_core* cop_u;
/* Compute axes of all correctly declared arms.
*/
if ( jax_l && (cop_u = &u3D.ray_u[jax_l])->arm_u ) {
u3_cs_harm* jet_u;
u3_ce_harm* jet_u;
c3_l i_l;
for ( i_l = 0; (jet_u = &cop_u->arm_u[i_l])->fcs_c; i_l++ ) {
@ -362,8 +362,8 @@ _cj_warm_hump(c3_l jax_l, u3_noun huc)
static c3_l
_cj_boil_mean(c3_l par_l, u3_noun mop, u3_noun bat)
{
u3_cs_core* par_u;
u3_cs_core* dev_u;
u3_ce_core* par_u;
u3_ce_core* dev_u;
if ( 0 != par_l ) {
par_u = &u3D.ray_u[par_l];
@ -376,7 +376,7 @@ _cj_boil_mean(c3_l par_l, u3_noun mop, u3_noun bat)
{
c3_w i_l = 0;
u3_cs_core* cop_u;
u3_ce_core* cop_u;
while ( (cop_u = &dev_u[i_l])->cos_c ) {
if ( _(u3_cr_sing_c(cop_u->cos_c, u3h(mop))) ) {
@ -596,8 +596,8 @@ u3_cj_boot(void)
u3D.len_l =_cj_count(0, u3D.dev_u);
u3D.all_l = (2 * u3D.len_l) + 1024; // horrid heuristic
u3D.ray_u = (u3_cs_core*) malloc(u3D.all_l * sizeof(u3_cs_core));
memset(u3D.ray_u, 0, (u3D.all_l * sizeof(u3_cs_core)));
u3D.ray_u = (u3_ce_core*) malloc(u3D.all_l * sizeof(u3_ce_core));
memset(u3D.ray_u, 0, (u3D.all_l * sizeof(u3_ce_core)));
jax_l = _cj_install(u3D.ray_u, 1, u3D.dev_u);
fprintf(stderr, "boot: installed %d jets\n", jax_l);
@ -657,7 +657,7 @@ extern int SLAY;
** `axe` is RETAINED.
*/
static u3_weak
_cj_kick_z(u3_noun cor, u3_cs_core* cop_u, u3_cs_harm* ham_u, u3_atom axe)
_cj_kick_z(u3_noun cor, u3_ce_core* cop_u, u3_ce_harm* ham_u, u3_atom axe)
{
if ( 0 == ham_u->fun_f ) {
return u3_none;
@ -732,7 +732,7 @@ _cj_hook_in(u3_noun cor,
u3_cx_qual(cax, &jax, &pax, &hap, &huc);
{
c3_l jax_l = jax;
u3_cs_core* cop_u = &u3D.ray_u[jax_l];
u3_ce_core* cop_u = &u3D.ray_u[jax_l];
u3_noun fol = u3_ckdb_get(u3k(huc), u3_ci_string(tam_c));
if ( u3_none == fol ) {
@ -827,9 +827,9 @@ u3_cj_kick(u3_noun cor, u3_noun axe)
}
else {
c3_l jax_l = u3h(cax);
u3_cs_core* cop_u = &u3D.ray_u[jax_l];
u3_ce_core* cop_u = &u3D.ray_u[jax_l];
c3_l inx_l = inx;
u3_cs_harm* ham_u = &cop_u->arm_u[inx_l];
u3_ce_harm* ham_u = &cop_u->arm_u[inx_l];
u3_noun pro;
u3z(cax);

26
g/m.c
View File

@ -138,7 +138,7 @@ _cm_signal_recover(c3_l sig_l, u3_noun arg)
// A top-level crash - rather odd. We should GC.
//
_cm_emergency("recover: top", sig_l);
u3H->rod_u.how.fag_w |= u3_cs_flag_gc;
u3H->rod_u.how.fag_w |= u3_ca_flag_gc;
// Reset the top road - the problem could be a fat cap.
//
@ -369,21 +369,21 @@ u3_cm_boot(c3_o nuu_o, c3_o bug_o)
{
if ( c3y == nuu_o ) {
u3H = (void *)_boot_north(u3_Loom + 1,
c3_wiseof(u3_cs_home),
u3_cc_words - 1);
c3_wiseof(u3_cv_home),
u3_ca_words - 1);
u3R = &u3H->rod_u;
_boot_parts();
}
else {
u3H = (void *)_find_north(u3_Loom + 1,
c3_wiseof(u3_cs_home),
u3_cc_words - 1);
c3_wiseof(u3_cv_home),
u3_ca_words - 1);
u3R = &u3H->rod_u;
}
if ( _(bug_o) ) {
u3R->how.fag_w |= u3_cs_flag_debug;
u3R->how.fag_w |= u3_ca_flag_debug;
}
}
@ -409,7 +409,7 @@ u3_cm_dump(void)
: u3R->rut_w - u3R->hat_w;
for ( i_w = 0; i_w < u3_cc_fbox_no; i_w++ ) {
u3_cs_fbox* fre_u = u3R->all.fre_u[i_w];
u3_ca_fbox* fre_u = u3R->all.fre_u[i_w];
while ( fre_u ) {
fre_w += fre_u->box_u.siz_w;
@ -424,7 +424,7 @@ u3_cm_dump(void)
c3_w mem_w = 0;
while ( box_w < (_(u3_ca_is_north(u3R)) ? u3R->hat_w : u3R->rut_w) ) {
u3_cs_box* box_u = (void *)box_w;
u3_ca_box* box_u = (void *)box_w;
if ( 0 != box_u->use_w ) {
#ifdef U3_MEMORY_DEBUG
@ -611,8 +611,8 @@ u3_cm_leap(c3_w pad_w)
/* Set up the new road.
*/
{
if ( u3R->how.fag_w & u3_cs_flag_debug ) {
rod_u->how.fag_w |= u3_cs_flag_debug;
if ( u3R->how.fag_w & u3_ca_flag_debug ) {
rod_u->how.fag_w |= u3_ca_flag_debug;
}
u3R = rod_u;
_boot_parts();
@ -721,7 +721,7 @@ u3_cm_water(c3_w* low_w, c3_w* hig_w)
c3_assert(u3R == &u3H->rod_u);
*low_w = (u3H->rod_u.hat_p - u3H->rod_u.rut_p);
*hig_w = (u3H->rod_u.mat_p - u3H->rod_u.cap_p) + c3_wiseof(u3_cs_home);
*hig_w = (u3H->rod_u.mat_p - u3H->rod_u.cap_p) + c3_wiseof(u3_cv_home);
}
/* u3_cm_soft_top(): top-level safety wrapper.
@ -760,7 +760,7 @@ u3_cm_soft_top(c3_w sec_w, // timer seconds
/* Make sure the inner routine did not create garbage.
*/
if ( u3R->how.fag_w & u3_cs_flag_debug ) {
if ( u3R->how.fag_w & u3_ca_flag_debug ) {
u3_ce_grab("top", pro, u3_none);
}
@ -841,7 +841,7 @@ u3_cm_soft_run(u3_noun fly,
if ( 0 == (why = u3_cm_trap()) ) {
pro = fun_f(aga, agb);
if ( u3R->how.fag_w & u3_cs_flag_debug ) {
if ( u3R->how.fag_w & u3_ca_flag_debug ) {
u3_ce_grab("top", pro, u3_none);
}

46
g/r.c
View File

@ -19,7 +19,7 @@ _frag_word(c3_w a_w, u3_noun b)
return u3_none;
}
else {
u3_cs_cell* b_u = u3_ca_to_ptr(b);
u3_ca_cell* b_u = u3_ca_to_ptr(b);
b = *(((u3_noun*)&(b_u->hed)) + (1 & (a_w >> (dep_w - 1))));
dep_w--;
@ -41,7 +41,7 @@ _frag_deep(c3_w a_w, u3_noun b)
return u3_none;
}
else {
u3_cs_cell* b_u = u3_ca_to_ptr(b);
u3_ca_cell* b_u = u3_ca_to_ptr(b);
b = *(((u3_noun*)&(b_u->hed)) + (1 & (a_w >> (dep_w - 1))));
dep_w--;
@ -73,7 +73,7 @@ u3_cr_at(u3_atom a,
return u3_none;
}
else {
u3_cs_atom* a_u = u3_ca_to_ptr(a);
u3_ca_atom* a_u = u3_ca_to_ptr(a);
c3_w len_w = a_u->len_w;
b = _frag_word(a_u->buf_w[len_w - 1], b);
@ -256,7 +256,7 @@ _mug_bytes(c3_w off_w, c3_w nby_w, c3_y* byt_y)
static __inline__ c3_w
_mug_words_in_buf(c3_w off_w, c3_w nwd_w, u3_noun veb)
{
u3_cs_atom* veb_u = u3_ca_to_ptr(veb);
u3_ca_atom* veb_u = u3_ca_to_ptr(veb);
if ( 0 == nwd_w ) {
return off_w;
@ -389,14 +389,14 @@ u3_cr_mug(u3_noun veb)
return _mug_words(2166136261, (veb ? 1 : 0), &x_w);
} else {
u3_cs_noun* veb_u = u3_ca_to_ptr(veb);
u3_ca_noun* veb_u = u3_ca_to_ptr(veb);
if ( veb_u->mug_w ) {
return veb_u->mug_w;
}
else {
if ( _(u3_ca_is_cell(veb)) ) {
u3_cs_cell* veb_u = u3_ca_to_ptr(veb);
u3_ca_cell* veb_u = u3_ca_to_ptr(veb);
u3_noun hed = veb_u->hed;
u3_noun tel = veb_u->tel;
@ -404,7 +404,7 @@ u3_cr_mug(u3_noun veb)
return veb_u->mug_w;
}
else {
u3_cs_atom* veb_u = u3_ca_to_ptr(veb);
u3_ca_atom* veb_u = u3_ca_to_ptr(veb);
c3_w len_w = veb_u->len_w;
veb_u->mug_w = _mug_words_buf(2166136261, len_w, veb);
@ -541,7 +541,7 @@ _sung_x(u3_noun a, u3_noun b)
}
else {
if ( _(u3_ca_is_atom(a)) ) {
u3_cs_atom* a_u = u3_ca_to_ptr(a);
u3_ca_atom* a_u = u3_ca_to_ptr(a);
if ( !_(u3_ca_is_atom(b)) ||
_(u3_ca_is_cat(a)) ||
@ -550,7 +550,7 @@ _sung_x(u3_noun a, u3_noun b)
return c3n;
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
if ( a_u->mug_w &&
b_u->mug_w &&
@ -583,8 +583,8 @@ _sung_x(u3_noun a, u3_noun b)
return c3n;
}
else {
u3_cs_cell* a_u = u3_ca_to_ptr(a);
u3_cs_cell* b_u = u3_ca_to_ptr(b);
u3_ca_cell* a_u = u3_ca_to_ptr(a);
u3_ca_cell* b_u = u3_ca_to_ptr(b);
if ( a_u->mug_w &&
b_u->mug_w &&
@ -630,7 +630,7 @@ _sing_x(u3_noun a,
}
else {
if ( _(u3_ca_is_atom(a)) ) {
u3_cs_atom* a_u = u3_ca_to_ptr(a);
u3_ca_atom* a_u = u3_ca_to_ptr(a);
if ( !_(u3_ca_is_atom(b)) ||
_(u3_ca_is_cat(a)) ||
@ -639,7 +639,7 @@ _sing_x(u3_noun a,
return c3n;
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
if ( a_u->mug_w &&
b_u->mug_w &&
@ -672,8 +672,8 @@ _sing_x(u3_noun a,
return c3n;
}
else {
u3_cs_cell* a_u = u3_ca_to_ptr(a);
u3_cs_cell* b_u = u3_ca_to_ptr(b);
u3_ca_cell* a_u = u3_ca_to_ptr(a);
u3_ca_cell* b_u = u3_ca_to_ptr(b);
if ( a_u->mug_w &&
b_u->mug_w &&
@ -849,8 +849,8 @@ u3_cr_nord(u3_noun a,
return 2;
}
else {
u3_cs_atom* a_u = u3_ca_to_ptr(a);
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* a_u = u3_ca_to_ptr(a);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
c3_w w_rez = a_u->len_w;
c3_w w_mox = b_u->len_w;
@ -1161,7 +1161,7 @@ u3_cr_met(c3_y a_y,
daz_w = b;
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
gal_w = (b_u->len_w) - 1;
daz_w = b_u->buf_w[gal_w];
@ -1216,7 +1216,7 @@ u3_cr_bit(c3_w a_w,
else return (1 & (b >> a_w));
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
c3_y vut_y = (a_w & 31);
c3_w pix_w = (a_w >> 5);
@ -1249,7 +1249,7 @@ u3_cr_byte(c3_w a_w,
else return (255 & (b >> (a_w << 3)));
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
c3_y vut_y = (a_w & 3);
c3_w pix_w = (a_w >> 2);
@ -1300,7 +1300,7 @@ u3_cr_mp(mpz_t a_mp,
mpz_init_set_ui(a_mp, b);
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
c3_w len_w = b_u->len_w;
/* Slight deficiency in the GMP API.
@ -1340,7 +1340,7 @@ u3_cr_word(c3_w a_w,
else return b;
}
else {
u3_cs_atom* b_u = u3_ca_to_ptr(b);
u3_ca_atom* b_u = u3_ca_to_ptr(b);
if ( a_w >= b_u->len_w ) {
return 0;
@ -1410,7 +1410,7 @@ u3_cr_chop(c3_g met_g,
buf_w = &src;
}
else {
u3_cs_atom* src_u = u3_ca_to_ptr(src);
u3_ca_atom* src_u = u3_ca_to_ptr(src);
len_w = src_u->len_w;
buf_w = src_u->buf_w;

12
g/v.c
View File

@ -61,11 +61,11 @@ u3_cv_jack(void)
void
u3_cv_hose(void)
{
u3p(u3_cs_cart) egg_p = u3A->ova.egg_p;
u3p(u3_cv_cart) egg_p = u3A->ova.egg_p;
while ( egg_p ) {
u3_cs_cart* egg_u = u3to(u3_cs_cart, egg_p);
u3p(u3_cs_cart) nex_p = egg_u->nex_p;
u3_cv_cart* egg_u = u3to(u3_cv_cart, egg_p);
u3p(u3_cv_cart) nex_p = egg_u->nex_p;
u3_ca_lose(egg_u->vir);
u3_ca_free(egg_u);
@ -496,10 +496,10 @@ u3_cv_louse(c3_m how_m)
/* _cv_mark_ova(): mark ova queue.
*/
static void
_cv_mark_ova(u3p(u3_cs_cart) egg_p)
_cv_mark_ova(u3p(u3_cv_cart) egg_p)
{
while ( egg_p ) {
u3_cs_cart* egg_u = u3to(u3_cs_cart, egg_p);
u3_cv_cart* egg_u = u3to(u3_cv_cart, egg_p);
u3_ca_mark_ptr(egg_u);
u3_ca_mark_noun(egg_u->vir);
@ -513,7 +513,7 @@ _cv_mark_ova(u3p(u3_cs_cart) egg_p)
void
u3_cv_mark(void)
{
u3_cs_arvo* arv_u = &(u3H->arv_u);
u3_cv_arvo* arv_u = &(u3H->arv_u);
u3_ca_mark_noun(arv_u->yot);
u3_ca_mark_noun(arv_u->now);

62
i/g/a.h
View File

@ -6,15 +6,15 @@
**/
# undef U3_MEMORY_DEBUG
# ifdef U3_MEMORY_DEBUG
# define u3_leak_on(x) (u3_Code = x)
# define u3_leak_off (u3_Code = 0)
# define u3_ca_leak_on(x) (u3_Code = x)
# define u3_ca_leak_off (u3_Code = 0)
# endif
# define u3_cc_bits U3_OS_LoomBits // 28, max 29
# define u3_cc_page 12 // 16Kbyte pages
# define u3_cc_pages (1 << (u3_cc_bits - u3_cc_page)) // 2^16 pages
# define u3_cc_words (1 << u3_cc_bits)
# define u3_cc_bytes (c3_w)((1 << (2 + u3_cc_bits)))
# define u3_ca_bits U3_OS_LoomBits // 28, max 29
# define u3_ca_page 12 // 16Kbyte pages
# define u3_ca_pages (1 << (u3_ca_bits - u3_ca_page)) // 2^16 pages
# define u3_ca_words (1 << u3_ca_bits)
# define u3_ca_bytes (c3_w)((1 << (2 + u3_ca_bits)))
/** Data structures.
@ -58,19 +58,19 @@
*/
typedef struct {
c3_w mug_w;
} u3_cs_noun;
} u3_ca_noun;
typedef struct {
c3_w mug_w;
c3_w len_w;
c3_w buf_w[0];
} u3_cs_atom;
} u3_ca_atom;
typedef struct {
c3_w mug_w;
u3_noun hed;
u3_noun tel;
} u3_cs_cell;
} u3_ca_cell;
/* Inside a noun.
*/
@ -92,15 +92,15 @@
# define u3_ca_h(som) \
( _(u3_ca_is_cell(som)) \
? ( ((u3_cs_cell *)u3_ca_to_ptr(som))->hed )\
? ( ((u3_ca_cell *)u3_ca_to_ptr(som))->hed )\
: u3_cm_bail(c3__exit) )
# define u3_ca_t(som) \
( _(u3_ca_is_cell(som)) \
? ( ((u3_cs_cell *)u3_ca_to_ptr(som))->tel )\
? ( ((u3_ca_cell *)u3_ca_to_ptr(som))->tel )\
: u3_cm_bail(c3__exit) )
/* u3_cs_box: classic allocation box.
/* u3_ca_box: classic allocation box.
**
** The box size is also stored at the end of the box in classic
** bad ass malloc style. Hence a box is:
@ -115,32 +115,32 @@
**
** Do not attempt to adjust this structure!
*/
typedef struct _u3_cs_box {
typedef struct _u3_ca_box {
c3_w siz_w; // size of this box
c3_w use_w; // reference count; free if 0
# ifdef U3_MEMORY_DEBUG
c3_w eus_w; // recomputed refcount
c3_w cod_w; // tracing code
# endif
} u3_cs_box;
} u3_ca_box;
# define u3_ca_boxed(len_w) (len_w + c3_wiseof(u3_cs_box) + 1)
# define u3_ca_boxed(len_w) (len_w + c3_wiseof(u3_ca_box) + 1)
# define u3_ca_boxto(box_v) ( (void *) \
( ((c3_w *)(void*)(box_v)) + \
c3_wiseof(u3_cs_box) ) )
# define u3_ca_botox(tox_v) ( (struct _u3_cs_box *) \
c3_wiseof(u3_ca_box) ) )
# define u3_ca_botox(tox_v) ( (struct _u3_ca_box *) \
(void *) \
( ((c3_w *)(void*)(tox_v)) - \
c3_wiseof(u3_cs_box) ) )
c3_wiseof(u3_ca_box) ) )
/* u3_cs_fbox: free node in heap. Sets minimum node size.
/* u3_ca_fbox: free node in heap. Sets minimum node size.
**
*/
typedef struct _u3_cs_fbox {
u3_cs_box box_u;
u3p(struct _u3_cs_fbox) pre_p;
u3p(struct _u3_cs_fbox) nex_p;
} u3_cs_fbox;
typedef struct _u3_ca_fbox {
u3_ca_box box_u;
u3p(struct _u3_ca_fbox) pre_p;
u3p(struct _u3_ca_fbox) nex_p;
} u3_ca_fbox;
# define u3_cc_minimum 6
# define u3_cc_fbox_no 28
@ -241,7 +241,7 @@
} how; //
struct { // allocation pools
u3p(u3_cs_fbox) fre_p[u3_cc_fbox_no]; // heap by node size log
u3p(u3_ca_fbox) fre_p[u3_cc_fbox_no]; // heap by node size log
c3_w fre_w; // number of free words
} all;
@ -274,11 +274,11 @@
/** Flags.
**/
enum u3_cs_flag {
u3_cs_flag_debug = 0x1, // debug memory
u3_cs_flag_gc = 0x2, // garbage collect once
u3_cs_flag_sand = 0x4, // sand mode, bump allocation
u3_cs_flag_die = 0x8 // process was asked to exit
enum u3_ca_flag {
u3_ca_flag_debug = 0x1, // debug memory
u3_ca_flag_gc = 0x2, // garbage collect once
u3_ca_flag_sand = 0x4, // sand mode, bump allocation
u3_ca_flag_die = 0x8 // process was asked to exit
};

36
i/g/e.h
View File

@ -4,55 +4,55 @@
*/
/** Data structures.
**/
/* u3_cs_line: control line.
/* u3_ce_line: control line.
*/
typedef struct _u3_cs_line {
typedef struct _u3_ce_line {
c3_w pag_w;
c3_w mug_w;
} u3_cs_line;
} u3_ce_line;
/* u3_cs_control: memory change, control file.
/* u3_ce_control: memory change, control file.
*/
typedef struct _u3_cs_control {
typedef struct _u3_ce_control {
c3_d evt_d; // event number
c3_w nor_w; // new page count north
c3_w sou_w; // new page count south
c3_w pgs_w; // number of changed pages
u3_cs_line mem_u[0]; // per page
} u3_cs_control;
u3_ce_line mem_u[0]; // per page
} u3_ce_control;
/* u3_cs_patch: memory change, top level.
*/
typedef struct _u3_cs_patch {
c3_i ctl_i;
c3_i mem_i;
u3_cs_control* con_u;
u3_ce_control* con_u;
} u3_cs_patch;
/* u3_cs_image: memory segment, open file.
/* u3_ce_image: memory segment, open file.
*/
typedef struct _u3_cs_image {
typedef struct _u3_ce_image {
c3_c* nam_c; // segment name
c3_i fid_i; // open file, or 0
c3_w pgs_w; // length in pages
} u3_cs_image;
} u3_ce_image;
/* u3_cs_pool: entire memory system.
/* u3_ce_pool: entire memory system.
*/
typedef struct _u3_cs_pool {
typedef struct _u3_ce_pool {
c3_c* cpu_c; // path to
c3_d evt_d; // last patch written at event
c3_w dit_w[u3_cc_pages >> 5]; // touched since last save
u3_cs_image nor_u; // north segment
u3_cs_image sou_u; // south segment
} u3_cs_pool;
c3_w dit_w[u3_ca_pages >> 5]; // touched since last save
u3_ce_image nor_u; // north segment
u3_ce_image sou_u; // south segment
} u3_ce_pool;
/** Globals.
**/
/* u3_Pool / u3P: global memory control.
*/
c3_global u3_cs_pool u3_Pool;
c3_global u3_ce_pool u3_Pool;
# define u3P u3_Pool

32
i/g/j.h
View File

@ -62,9 +62,9 @@
***
*** All of these are transient structures allocated with malloc.
**/
/* u3_cs_harm: jet arm.
/* u3_ce_harm: jet arm.
*/
typedef struct _u3_cs_harm {
typedef struct _u3_ce_harm {
c3_c* fcs_c; // `.axe` or name
u3_noun (*fun_f)(u3_noun); // compute or 0 / semitransfer
// u3_bean (*val_f)(u3_noun); // validate or 0 / retain
@ -72,34 +72,34 @@
c3_o tot; // total (never punts)
c3_o liv; // live (enabled)
c3_l axe_l; // computed/discovered axis
struct _u3_cs_core* cop_u; // containing core
} u3_cs_harm;
struct _u3_ce_core* cop_u; // containing core
} u3_ce_harm;
/* u3_cs_core: driver definition.
/* u3_ce_core: driver definition.
*/
typedef struct _u3_cs_core {
typedef struct _u3_ce_core {
c3_c* cos_c; // control string
struct _u3_cs_harm* arm_u; // blank-terminated static list
struct _u3_cs_core* dev_u; // blank-terminated static list
struct _u3_cs_core* par_u; // dynamic parent pointer
struct _u3_ce_harm* arm_u; // blank-terminated static list
struct _u3_ce_core* dev_u; // blank-terminated static list
struct _u3_ce_core* par_u; // dynamic parent pointer
c3_l axe_l; // axis to parent
c3_l jax_l; // index in global dashboard
} u3_cs_core;
} u3_ce_core;
/* u3_cs_dash, u3_Dash, u3D: jet dashboard singleton
/* u3_ce_dash, u3_Dash, u3D: jet dashboard singleton
*/
typedef struct _u3_cs_dash {
u3_cs_core* dev_u; // null-terminated static list
typedef struct _u3_ce_dash {
u3_ce_core* dev_u; // null-terminated static list
c3_l len_l; // dynamic array length
c3_l all_l; // allocated length
u3_cs_core* ray_u; // dynamic array by axis
} u3_cs_dash;
u3_ce_core* ray_u; // dynamic array by axis
} u3_ce_dash;
/** Globals.
**/
/* u3_Dash: jet dashboard.
*/
extern u3_cs_dash u3_Dash;
extern u3_ce_dash u3_Dash;
# define u3D u3_Dash

2
i/g/m.h
View File

@ -12,7 +12,7 @@
/* u3_cm_trap(): setjmp within road.
*/
#if 0
u3_bean
c3_o
u3_cm_trap(void);
#else
# define u3_cm_trap() (u3_noun)(setjmp(u3R->esc.buf))

71
i/g/n.h
View File

@ -2,47 +2,44 @@
**
** This file is in the public domain.
*/
/** Generic computation.
**/
/* u3_cn_nock_on(): produce .*(bus fol).
*/
u3_noun
u3_cn_nock_on(u3_noun bus, u3_noun fol);
/** Functions.
**/
/* u3_cn_nock_on(): produce .*(bus fol).
*/
u3_noun
u3_cn_nock_on(u3_noun bus, u3_noun fol);
/* u3_cn_slam_on(): produce (gat sam).
*/
u3_noun
u3_cn_slam_on(u3_noun gat, u3_noun sam);
/* u3_cn_slam_on(): produce (gat sam).
*/
u3_noun
u3_cn_slam_on(u3_noun gat, u3_noun sam);
/* u3_cn_kick_on(): fire `gat` without changing the sample.
*/
u3_noun
u3_cn_kick_on(u3_noun gat);
/* u3_cn_kick_on(): fire `gat` without changing the sample.
*/
u3_noun
u3_cn_kick_on(u3_noun gat);
/* u3_cn_nock_un(): produce .*(bus fol), as ++toon.
*/
u3_noun
u3_cn_nock_un(u3_noun bus, u3_noun fol);
/* u3_cn_nock_un(): produce .*(bus fol), as ++toon.
*/
u3_noun
u3_cn_nock_un(u3_noun bus, u3_noun fol);
/* u3_cn_slam_un(): produce (gat sam), as ++toon.
*/
u3_noun
u3_cn_slam_un(u3_noun gat, u3_noun sam);
/* u3_cn_nock_in(): produce .*(bus fol), as ++toon, in namespace.
*/
u3_noun
u3_cn_nock_in(u3_noun fly, u3_noun bus, u3_noun fol);
/* u3_cn_slam_in(): produce (gat sam), as ++toon, in namespace.
*/
u3_noun
u3_cn_slam_in(u3_noun fly, u3_noun gat, u3_noun sam);
/* u3_cn_nock_an(): as slam_in(), but with empty fly.
*/
u3_noun
u3_cn_nock_an(u3_noun bus, u3_noun fol);
/* u3_cn_slam_un(): produce (gat sam), as ++toon.
*/
u3_noun
u3_cn_slam_un(u3_noun gat, u3_noun sam);
/* u3_cn_nock_in(): produce .*(bus fol), as ++toon, in namespace.
*/
u3_noun
u3_cn_nock_in(u3_noun fly, u3_noun bus, u3_noun fol);
/* u3_cn_slam_in(): produce (gat sam), as ++toon, in namespace.
*/
u3_noun
u3_cn_slam_in(u3_noun fly, u3_noun gat, u3_noun sam);
/* u3_cn_nock_an(): as slam_in(), but with empty fly.
*/
u3_noun
u3_cn_nock_an(u3_noun bus, u3_noun fol);

28
i/g/v.h
View File

@ -6,19 +6,19 @@
**/
/* u3_cart: ovum carton.
*/
struct _u3_cs_arvo;
struct _u3_cv_arvo;
typedef struct _u3_cs_cart {
typedef struct _u3_cv_cart {
u3_noun vir; // effects of ovum
u3_bean did; // cart considered for commit?
u3_bean cit; // cart committed?
c3_d ent_d; // entry in raft queue?
u3p(struct _u3_cs_cart) nex_p;
} u3_cs_cart;
u3p(struct _u3_cv_cart) nex_p;
} u3_cv_cart;
/* u3_cs_arvo: modern arvo structure.
/* u3_cv_arvo: modern arvo structure.
*/
typedef struct _u3_cs_arvo {
typedef struct _u3_cv_arvo {
c3_d ent_d; // event number
u3_noun yot; // cached gates
u3_noun now; // current time, as noun
@ -34,24 +34,24 @@
u3_noun roc; // kernel core
struct { // ova waiting to process
u3p(u3_cs_cart) egg_p; // exit of ovum queue
u3p(u3_cs_cart) geg_p; // entry of ovum queue
u3p(u3_cv_cart) egg_p; // exit of ovum queue
u3p(u3_cv_cart) geg_p; // entry of ovum queue
} ova;
} u3_cs_arvo;
} u3_cv_arvo;
/* u3_cs_home: all internal (within image) state.
/* u3_cv_home: all internal (within image) state.
*/
typedef struct _u3_cs_home {
typedef struct _u3_cv_home {
u3_cs_road rod_u; // storage state
u3_cs_arvo arv_u; // arvo state
} u3_cs_home;
u3_cv_arvo arv_u; // arvo state
} u3_cv_home;
/** Globals.
**/
/* u3_Home / u3H: root of thread.
*/
c3_global u3_cs_home* u3_Home;
c3_global u3_cv_home* u3_Home;
# define u3H u3_Home
# define u3A (&(u3_Home->arv_u))

366
j/dash.c
View File

@ -4,63 +4,63 @@
*/
#include "all.h"
static u3_cs_harm _mood__hoon_add_a[] = {{".2", u3_cwa_add, c3y}, {}};
static u3_cs_harm _mood__hoon_dec_a[] = {{".2", u3_cwa_dec, c3y}, {}};
static u3_cs_harm _mood__hoon_div_a[] = {{".2", u3_cwa_div, c3y}, {}};
static u3_cs_harm _mood__hoon_gte_a[] = {{".2", u3_cwa_gte, c3y}, {}};
static u3_cs_harm _mood__hoon_gth_a[] = {{".2", u3_cwa_gth, c3y}, {}};
static u3_cs_harm _mood__hoon_lte_a[] = {{".2", u3_cwa_lte, c3y}, {}};
static u3_cs_harm _mood__hoon_lth_a[] = {{".2", u3_cwa_lth, c3y}, {}};
static u3_cs_harm _mood__hoon_mod_a[] = {{".2", u3_cwa_mod, c3y}, {}};
static u3_cs_harm _mood__hoon_mul_a[] = {{".2", u3_cwa_mul, c3y}, {}};
static u3_cs_harm _mood__hoon_sub_a[] = {{".2", u3_cwa_sub, c3y}, {}};
static u3_ce_harm _mood__hoon_add_a[] = {{".2", u3_cwa_add, c3y}, {}};
static u3_ce_harm _mood__hoon_dec_a[] = {{".2", u3_cwa_dec, c3y}, {}};
static u3_ce_harm _mood__hoon_div_a[] = {{".2", u3_cwa_div, c3y}, {}};
static u3_ce_harm _mood__hoon_gte_a[] = {{".2", u3_cwa_gte, c3y}, {}};
static u3_ce_harm _mood__hoon_gth_a[] = {{".2", u3_cwa_gth, c3y}, {}};
static u3_ce_harm _mood__hoon_lte_a[] = {{".2", u3_cwa_lte, c3y}, {}};
static u3_ce_harm _mood__hoon_lth_a[] = {{".2", u3_cwa_lth, c3y}, {}};
static u3_ce_harm _mood__hoon_mod_a[] = {{".2", u3_cwa_mod, c3y}, {}};
static u3_ce_harm _mood__hoon_mul_a[] = {{".2", u3_cwa_mul, c3y}, {}};
static u3_ce_harm _mood__hoon_sub_a[] = {{".2", u3_cwa_sub, c3y}, {}};
static u3_cs_harm _mood__hoon_bind_a[] = {{".2", u3_cwb_bind, c3y}, {}};
static u3_cs_harm _mood__hoon_clap_a[] = {{".2", u3_cwb_clap, c3y}, {}};
static u3_cs_harm _mood__hoon_drop_a[] = {{".2", u3_cwb_drop, c3y}, {}};
static u3_cs_harm _mood__hoon_flop_a[] = {{".2", u3_cwb_flop, c3y}, {}};
static u3_cs_harm _mood__hoon_lent_a[] = {{".2", u3_cwb_lent, c3y}, {}};
static u3_cs_harm _mood__hoon_levy_a[] = {{".2", u3_cwb_levy, c3y}, {}};
static u3_cs_harm _mood__hoon_lien_a[] = {{".2", u3_cwb_lien, c3y}, {}};
static u3_cs_harm _mood__hoon_need_a[] = {{".2", u3_cwb_need, c3y}, {}};
static u3_cs_harm _mood__hoon_reel_a[] = {{".2", u3_cwb_reel, c3y}, {}};
static u3_cs_harm _mood__hoon_roll_a[] = {{".2", u3_cwb_roll, c3y}, {}};
static u3_cs_harm _mood__hoon_skim_a[] = {{".2", u3_cwb_skim, c3y}, {}};
static u3_cs_harm _mood__hoon_skip_a[] = {{".2", u3_cwb_skip, c3y}, {}};
// static u3_cs_harm _mood__hoon_scag_a[] = {{".2", u3_cwb_scag, c3y}, {}};
static u3_cs_harm _mood__hoon_slag_a[] = {{".2", u3_cwb_slag, c3y}, {}};
static u3_cs_harm _mood__hoon_snag_a[] = {{".2", u3_cwb_snag, c3y}, {}};
// static u3_cs_harm _mood__hoon_sort_a[] = {{".2", u3_cwb_sort, c3y}, {}};
static u3_cs_harm _mood__hoon_turn_a[] = {{".2", u3_cwb_turn, c3y}, {}};
static u3_cs_harm _mood__hoon_weld_a[] = {{".2", u3_cwb_weld, c3y}, {}};
static u3_ce_harm _mood__hoon_bind_a[] = {{".2", u3_cwb_bind, c3y}, {}};
static u3_ce_harm _mood__hoon_clap_a[] = {{".2", u3_cwb_clap, c3y}, {}};
static u3_ce_harm _mood__hoon_drop_a[] = {{".2", u3_cwb_drop, c3y}, {}};
static u3_ce_harm _mood__hoon_flop_a[] = {{".2", u3_cwb_flop, c3y}, {}};
static u3_ce_harm _mood__hoon_lent_a[] = {{".2", u3_cwb_lent, c3y}, {}};
static u3_ce_harm _mood__hoon_levy_a[] = {{".2", u3_cwb_levy, c3y}, {}};
static u3_ce_harm _mood__hoon_lien_a[] = {{".2", u3_cwb_lien, c3y}, {}};
static u3_ce_harm _mood__hoon_need_a[] = {{".2", u3_cwb_need, c3y}, {}};
static u3_ce_harm _mood__hoon_reel_a[] = {{".2", u3_cwb_reel, c3y}, {}};
static u3_ce_harm _mood__hoon_roll_a[] = {{".2", u3_cwb_roll, c3y}, {}};
static u3_ce_harm _mood__hoon_skim_a[] = {{".2", u3_cwb_skim, c3y}, {}};
static u3_ce_harm _mood__hoon_skip_a[] = {{".2", u3_cwb_skip, c3y}, {}};
// static u3_ce_harm _mood__hoon_scag_a[] = {{".2", u3_cwb_scag, c3y}, {}};
static u3_ce_harm _mood__hoon_slag_a[] = {{".2", u3_cwb_slag, c3y}, {}};
static u3_ce_harm _mood__hoon_snag_a[] = {{".2", u3_cwb_snag, c3y}, {}};
// static u3_ce_harm _mood__hoon_sort_a[] = {{".2", u3_cwb_sort, c3y}, {}};
static u3_ce_harm _mood__hoon_turn_a[] = {{".2", u3_cwb_turn, c3y}, {}};
static u3_ce_harm _mood__hoon_weld_a[] = {{".2", u3_cwb_weld, c3y}, {}};
static u3_cs_harm _mood__hoon_bex_a[] = {{".2", u3_cwc_bex, c3y}, {}};
static u3_cs_harm _mood__hoon_can_a[] = {{".2", u3_cwc_can, c3y}, {}};
static u3_cs_harm _mood__hoon_cap_a[] = {{".2", u3_cwc_cap, c3y}, {}};
static u3_cs_harm _mood__hoon_cat_a[] = {{".2", u3_cwc_cat, c3y}, {}};
static u3_cs_harm _mood__hoon_con_a[] = {{".2", u3_cwc_con, c3y}, {}};
static u3_cs_harm _mood__hoon_cut_a[] = {{".2", u3_cwc_cut, c3y}, {}};
static u3_cs_harm _mood__hoon_dis_a[] = {{".2", u3_cwc_dis, c3y}, {}};
static u3_cs_harm _mood__hoon_dor_a[] = {{".2", u3_cwc_dor, c3y}, {}};
static u3_cs_harm _mood__hoon_end_a[] = {{".2", u3_cwc_end, c3y}, {}};
static u3_cs_harm _mood__hoon_gor_a[] = {{".2", u3_cwc_gor, c3y}, {}};
static u3_cs_harm _mood__hoon_hor_a[] = {{".2", u3_cwc_hor, c3y}, {}};
static u3_cs_harm _mood__hoon_lsh_a[] = {{".2", u3_cwc_lsh, c3y}, {}};
static u3_cs_harm _mood__hoon_mas_a[] = {{".2", u3_cwc_mas, c3y}, {}};
static u3_cs_harm _mood__hoon_met_a[] = {{".2", u3_cwc_met, c3y}, {}};
static u3_cs_harm _mood__hoon_mix_a[] = {{".2", u3_cwc_mix, c3y}, {}};
static u3_cs_harm _mood__hoon_mug_a[] = {{".2", u3_cwc_mug, c3y}, {}};
static u3_cs_harm _mood__hoon_peg_a[] = {{".2", u3_cwc_peg, c3y}, {}};
static u3_cs_harm _mood__hoon_rap_a[] = {{".2", u3_cwc_rap, c3y}, {}};
static u3_cs_harm _mood__hoon_rip_a[] = {{".2", u3_cwc_rip, c3y}, {}};
static u3_cs_harm _mood__hoon_rsh_a[] = {{".2", u3_cwc_rsh, c3y}, {}};
static u3_cs_harm _mood__hoon_vor_a[] = {{".2", u3_cwc_vor, c3y}, {}};
static u3_ce_harm _mood__hoon_bex_a[] = {{".2", u3_cwc_bex, c3y}, {}};
static u3_ce_harm _mood__hoon_can_a[] = {{".2", u3_cwc_can, c3y}, {}};
static u3_ce_harm _mood__hoon_cap_a[] = {{".2", u3_cwc_cap, c3y}, {}};
static u3_ce_harm _mood__hoon_cat_a[] = {{".2", u3_cwc_cat, c3y}, {}};
static u3_ce_harm _mood__hoon_con_a[] = {{".2", u3_cwc_con, c3y}, {}};
static u3_ce_harm _mood__hoon_cut_a[] = {{".2", u3_cwc_cut, c3y}, {}};
static u3_ce_harm _mood__hoon_dis_a[] = {{".2", u3_cwc_dis, c3y}, {}};
static u3_ce_harm _mood__hoon_dor_a[] = {{".2", u3_cwc_dor, c3y}, {}};
static u3_ce_harm _mood__hoon_end_a[] = {{".2", u3_cwc_end, c3y}, {}};
static u3_ce_harm _mood__hoon_gor_a[] = {{".2", u3_cwc_gor, c3y}, {}};
static u3_ce_harm _mood__hoon_hor_a[] = {{".2", u3_cwc_hor, c3y}, {}};
static u3_ce_harm _mood__hoon_lsh_a[] = {{".2", u3_cwc_lsh, c3y}, {}};
static u3_ce_harm _mood__hoon_mas_a[] = {{".2", u3_cwc_mas, c3y}, {}};
static u3_ce_harm _mood__hoon_met_a[] = {{".2", u3_cwc_met, c3y}, {}};
static u3_ce_harm _mood__hoon_mix_a[] = {{".2", u3_cwc_mix, c3y}, {}};
static u3_ce_harm _mood__hoon_mug_a[] = {{".2", u3_cwc_mug, c3y}, {}};
static u3_ce_harm _mood__hoon_peg_a[] = {{".2", u3_cwc_peg, c3y}, {}};
static u3_ce_harm _mood__hoon_rap_a[] = {{".2", u3_cwc_rap, c3y}, {}};
static u3_ce_harm _mood__hoon_rip_a[] = {{".2", u3_cwc_rip, c3y}, {}};
static u3_ce_harm _mood__hoon_rsh_a[] = {{".2", u3_cwc_rsh, c3y}, {}};
static u3_ce_harm _mood__hoon_vor_a[] = {{".2", u3_cwc_vor, c3y}, {}};
static u3_cs_harm _mood__hoon__po_ind_a[] = {{".2", u3_cwcp_ind}, {}};
static u3_cs_harm _mood__hoon__po_ins_a[] = {{".2", u3_cwcp_ins}, {}};
static u3_cs_harm _mood__hoon__po_tod_a[] = {{".2", u3_cwcp_tod}, {}};
static u3_cs_harm _mood__hoon__po_tos_a[] = {{".2", u3_cwcp_tos}, {}};
static u3_cs_core _mood__hoon__po_d[] =
static u3_ce_harm _mood__hoon__po_ind_a[] = {{".2", u3_cwcp_ind}, {}};
static u3_ce_harm _mood__hoon__po_ins_a[] = {{".2", u3_cwcp_ins}, {}};
static u3_ce_harm _mood__hoon__po_tod_a[] = {{".2", u3_cwcp_tod}, {}};
static u3_ce_harm _mood__hoon__po_tos_a[] = {{".2", u3_cwcp_tos}, {}};
static u3_ce_core _mood__hoon__po_d[] =
{ { "ind", _mood__hoon__po_ind_a },
{ "ins", _mood__hoon__po_ins_a },
{ "tod", _mood__hoon__po_tod_a },
@ -68,14 +68,14 @@ static u3_cs_core _mood__hoon__po_d[] =
{}
};
static u3_cs_harm _mood__hoon__by_gas_a[] = {{".2", u3_cwdb_gas, c3y}, {}};
static u3_cs_harm _mood__hoon__by_get_a[] = {{".2", u3_cwdb_get, c3y}, {}};
static u3_cs_harm _mood__hoon__by_has_a[] = {{".2", u3_cwdb_has, c3y}, {}};
static u3_cs_harm _mood__hoon__by_int_a[] = {{".2", u3_cwdb_int, c3y}, {}};
static u3_cs_harm _mood__hoon__by_put_a[] = {{".2", u3_cwdb_put, c3y}, {}};
static u3_cs_harm _mood__hoon__by_tap_a[] = {{".2", u3_cwdb_tap, c3y}, {}};
static u3_cs_harm _mood__hoon__by_uni_a[] = {{".2", u3_cwdb_uni, c3y}, {}};
static u3_cs_core _mood__hoon__by_d[] =
static u3_ce_harm _mood__hoon__by_gas_a[] = {{".2", u3_cwdb_gas, c3y}, {}};
static u3_ce_harm _mood__hoon__by_get_a[] = {{".2", u3_cwdb_get, c3y}, {}};
static u3_ce_harm _mood__hoon__by_has_a[] = {{".2", u3_cwdb_has, c3y}, {}};
static u3_ce_harm _mood__hoon__by_int_a[] = {{".2", u3_cwdb_int, c3y}, {}};
static u3_ce_harm _mood__hoon__by_put_a[] = {{".2", u3_cwdb_put, c3y}, {}};
static u3_ce_harm _mood__hoon__by_tap_a[] = {{".2", u3_cwdb_tap, c3y}, {}};
static u3_ce_harm _mood__hoon__by_uni_a[] = {{".2", u3_cwdb_uni, c3y}, {}};
static u3_ce_core _mood__hoon__by_d[] =
{ { "gas", _mood__hoon__by_gas_a },
{ "get", _mood__hoon__by_get_a },
{ "has", _mood__hoon__by_has_a },
@ -86,14 +86,14 @@ static u3_cs_core _mood__hoon__by_d[] =
{}
};
static u3_cs_harm _mood__hoon__in_gas_a[] = {{".2", u3_cwdi_gas}, {}};
static u3_cs_harm _mood__hoon__in_has_a[] = {{".2", u3_cwdi_has}, {}};
static u3_cs_harm _mood__hoon__in_mer_a[] = {{".2", u3_cwdi_mer}, {}};
static u3_cs_harm _mood__hoon__in_int_a[] = {{".2", u3_cwdi_int}, {}};
static u3_cs_harm _mood__hoon__in_put_a[] = {{".2", u3_cwdi_put}, {}};
static u3_cs_harm _mood__hoon__in_tap_a[] = {{".2", u3_cwdi_tap}, {}};
static u3_cs_harm _mood__hoon__in_uni_a[] = {{".2", u3_cwdi_uni}, {}};
static u3_cs_core _mood__hoon__in_d[] =
static u3_ce_harm _mood__hoon__in_gas_a[] = {{".2", u3_cwdi_gas}, {}};
static u3_ce_harm _mood__hoon__in_has_a[] = {{".2", u3_cwdi_has}, {}};
static u3_ce_harm _mood__hoon__in_mer_a[] = {{".2", u3_cwdi_mer}, {}};
static u3_ce_harm _mood__hoon__in_int_a[] = {{".2", u3_cwdi_int}, {}};
static u3_ce_harm _mood__hoon__in_put_a[] = {{".2", u3_cwdi_put}, {}};
static u3_ce_harm _mood__hoon__in_tap_a[] = {{".2", u3_cwdi_tap}, {}};
static u3_ce_harm _mood__hoon__in_uni_a[] = {{".2", u3_cwdi_uni}, {}};
static u3_ce_core _mood__hoon__in_d[] =
{ { "gas", _mood__hoon__in_gas_a },
{ "has", _mood__hoon__in_has_a },
{ "mer", _mood__hoon__in_mer_a },
@ -104,108 +104,108 @@ static u3_cs_core _mood__hoon__in_d[] =
{}
};
static u3_cs_harm _mood__hoon_cue_a[] = {{".2", u3_cwe_cue}, {}};
static u3_cs_harm _mood__hoon_jam_a[] = {{".2", u3_cwe_jam}, {}};
static u3_cs_harm _mood__hoon_mat_a[] = {{".2", u3_cwe_mat}, {}};
static u3_cs_harm _mood__hoon_rub_a[] = {{".2", u3_cwe_rub}, {}};
static u3_cs_harm _mood__hoon_lore_a[] = {{".2", u3_cwe_lore}, {}};
static u3_cs_harm _mood__hoon_loss_a[] = {{".2", u3_cwe_loss}, {}};
static u3_cs_harm _mood__hoon_mink_a[] = {{".2", u3_cwe_mink}, {}};
static u3_cs_harm _mood__hoon_mule_a[] = {{".2", u3_cwe_mule}, {}};
static u3_cs_harm _mood__hoon_repg_a[] = {{".2", u3_cwe_repg}, {}};
static u3_cs_harm _mood__hoon_rexp_a[] = {{".2", u3_cwe_rexp}, {}};
static u3_cs_harm _mood__hoon_trip_a[] = {{".2", u3_cwe_trip}, {}};
static u3_ce_harm _mood__hoon_cue_a[] = {{".2", u3_cwe_cue}, {}};
static u3_ce_harm _mood__hoon_jam_a[] = {{".2", u3_cwe_jam}, {}};
static u3_ce_harm _mood__hoon_mat_a[] = {{".2", u3_cwe_mat}, {}};
static u3_ce_harm _mood__hoon_rub_a[] = {{".2", u3_cwe_rub}, {}};
static u3_ce_harm _mood__hoon_lore_a[] = {{".2", u3_cwe_lore}, {}};
static u3_ce_harm _mood__hoon_loss_a[] = {{".2", u3_cwe_loss}, {}};
static u3_ce_harm _mood__hoon_mink_a[] = {{".2", u3_cwe_mink}, {}};
static u3_ce_harm _mood__hoon_mule_a[] = {{".2", u3_cwe_mule}, {}};
static u3_ce_harm _mood__hoon_repg_a[] = {{".2", u3_cwe_repg}, {}};
static u3_ce_harm _mood__hoon_rexp_a[] = {{".2", u3_cwe_rexp}, {}};
static u3_ce_harm _mood__hoon_trip_a[] = {{".2", u3_cwe_trip}, {}};
static u3_cs_harm _mood__hoon__aesc_en_a[] = {{".2", u3_cwea_en}, {}};
static u3_cs_harm _mood__hoon__aesc_de_a[] = {{".2", u3_cwea_en}, {}};
static u3_cs_core _mood__hoon__aesc_d[] =
static u3_ce_harm _mood__hoon__aesc_en_a[] = {{".2", u3_cwea_en}, {}};
static u3_ce_harm _mood__hoon__aesc_de_a[] = {{".2", u3_cwea_en}, {}};
static u3_ce_core _mood__hoon__aesc_d[] =
{ { "en", _mood__hoon__aesc_en_a },
{ "de", _mood__hoon__aesc_de_a },
{}
};
static u3_cs_harm _mood__hoon__bend_fun_a[] = {{".2", u3_cwe_bend_fun}, {}};
static u3_cs_core _mood__hoon__bend_d[] =
static u3_ce_harm _mood__hoon__bend_fun_a[] = {{".2", u3_cwe_bend_fun}, {}};
static u3_ce_core _mood__hoon__bend_d[] =
{ { "fun", _mood__hoon__bend_fun_a },
{}
};
static u3_cs_harm _mood__hoon__cold_fun_a[] = {{".2", u3_cwe_cold_fun}, {}};
static u3_cs_core _mood__hoon__cold_d[] =
static u3_ce_harm _mood__hoon__cold_fun_a[] = {{".2", u3_cwe_cold_fun}, {}};
static u3_ce_core _mood__hoon__cold_d[] =
{ { "fun", _mood__hoon__cold_fun_a },
{}
};
static u3_cs_harm _mood__hoon__cook_fun_a[] = {{".2", u3_cwe_cook_fun}, {}};
static u3_cs_core _mood__hoon__cook_d[] =
static u3_ce_harm _mood__hoon__cook_fun_a[] = {{".2", u3_cwe_cook_fun}, {}};
static u3_ce_core _mood__hoon__cook_d[] =
{ { "fun", _mood__hoon__cook_fun_a },
{}
};
static u3_cs_harm _mood__hoon__comp_fun_a[] = {{".2", u3_cwe_comp_fun}, {}};
static u3_cs_core _mood__hoon__comp_d[] =
static u3_ce_harm _mood__hoon__comp_fun_a[] = {{".2", u3_cwe_comp_fun}, {}};
static u3_ce_core _mood__hoon__comp_d[] =
{ { "fun", _mood__hoon__comp_fun_a },
{}
};
static u3_cs_harm _mood__hoon__easy_fun_a[] = {{".2", u3_cwe_easy_fun}, {}};
static u3_cs_core _mood__hoon__easy_d[] =
static u3_ce_harm _mood__hoon__easy_fun_a[] = {{".2", u3_cwe_easy_fun}, {}};
static u3_ce_core _mood__hoon__easy_d[] =
{ { "fun", _mood__hoon__easy_fun_a },
{}
};
static u3_cs_harm _mood__hoon__glue_fun_a[] = {{".2", u3_cwe_glue_fun}, {}};
static u3_cs_core _mood__hoon__glue_d[] =
static u3_ce_harm _mood__hoon__glue_fun_a[] = {{".2", u3_cwe_glue_fun}, {}};
static u3_ce_core _mood__hoon__glue_d[] =
{ { "fun", _mood__hoon__glue_fun_a },
{}
};
static u3_cs_harm _mood__hoon__here_fun_a[] = {{".2", u3_cwe_here_fun}, {}};
static u3_cs_core _mood__hoon__here_d[] =
static u3_ce_harm _mood__hoon__here_fun_a[] = {{".2", u3_cwe_here_fun}, {}};
static u3_ce_core _mood__hoon__here_d[] =
{ { "fun", _mood__hoon__here_fun_a },
{}
};
static u3_cs_harm _mood__hoon__just_fun_a[] = {{".2", u3_cwe_just_fun}, {}};
static u3_cs_core _mood__hoon__just_d[] =
static u3_ce_harm _mood__hoon__just_fun_a[] = {{".2", u3_cwe_just_fun}, {}};
static u3_ce_core _mood__hoon__just_d[] =
{ { "fun", _mood__hoon__just_fun_a },
{}
};
static u3_cs_harm _mood__hoon__mask_fun_a[] = {{".2", u3_cwe_mask_fun}, {}};
static u3_cs_core _mood__hoon__mask_d[] =
static u3_ce_harm _mood__hoon__mask_fun_a[] = {{".2", u3_cwe_mask_fun}, {}};
static u3_ce_core _mood__hoon__mask_d[] =
{ { "fun", _mood__hoon__mask_fun_a },
{}
};
static u3_cs_harm _mood__hoon__shim_fun_a[] = {{".2", u3_cwe_shim_fun}, {}};
static u3_cs_core _mood__hoon__shim_d[] =
static u3_ce_harm _mood__hoon__shim_fun_a[] = {{".2", u3_cwe_shim_fun}, {}};
static u3_ce_core _mood__hoon__shim_d[] =
{ { "fun", _mood__hoon__shim_fun_a },
{}
};
static u3_cs_harm _mood__hoon__stag_fun_a[] = {{".2", u3_cwe_stag_fun}, {}};
static u3_cs_core _mood__hoon__stag_d[] =
static u3_ce_harm _mood__hoon__stag_fun_a[] = {{".2", u3_cwe_stag_fun}, {}};
static u3_ce_core _mood__hoon__stag_d[] =
{ { "fun", _mood__hoon__stag_fun_a },
{}
};
static u3_cs_harm _mood__hoon__stew_fun_a[] = {{".2", u3_cwe_stew_fun}, {}};
static u3_cs_core _mood__hoon__stew_d[] =
static u3_ce_harm _mood__hoon__stew_fun_a[] = {{".2", u3_cwe_stew_fun}, {}};
static u3_ce_core _mood__hoon__stew_d[] =
{ { "fun", _mood__hoon__stew_fun_a },
{}
};
static u3_cs_harm _mood__hoon__stir_fun_a[] = {{".2", u3_cwe_stir_fun}, {}};
static u3_cs_core _mood__hoon__stir_d[] =
static u3_ce_harm _mood__hoon__stir_fun_a[] = {{".2", u3_cwe_stir_fun}, {}};
static u3_ce_core _mood__hoon__stir_d[] =
{ { "fun", _mood__hoon__stir_fun_a },
{}
};
static u3_cs_harm _mood__hoon__og_raw_a[] = {{".2", u3_cweo_raw}, {}};
static u3_cs_core _mood__hoon__og_d[] =
static u3_ce_harm _mood__hoon__og_raw_a[] = {{".2", u3_cweo_raw}, {}};
static u3_ce_core _mood__hoon__og_d[] =
{ { "raw", _mood__hoon__og_raw_a },
{}
};
static u3_cs_harm _mood__hoon__rd_sun_a[] = {{".2", u3_cwer_sun}, {}};
static u3_cs_harm _mood__hoon__rd_mul_a[] = {{".2", u3_cwer_mul}, {}};
static u3_cs_harm _mood__hoon__rd_div_a[] = {{".2", u3_cwer_div}, {}};
static u3_cs_harm _mood__hoon__rd_add_a[] = {{".2", u3_cwer_add}, {}};
static u3_cs_harm _mood__hoon__rd_sub_a[] = {{".2", u3_cwer_sub}, {}};
static u3_cs_harm _mood__hoon__rd_lte_a[] = {{".2", u3_cwer_lte}, {}};
static u3_cs_harm _mood__hoon__rd_lth_a[] = {{".2", u3_cwer_lth}, {}};
static u3_cs_harm _mood__hoon__rd_gte_a[] = {{".2", u3_cwer_gte}, {}};
static u3_cs_harm _mood__hoon__rd_gth_a[] = {{".2", u3_cwer_gth}, {}};
static u3_cs_core _mood__hoon__rd_d[] =
static u3_ce_harm _mood__hoon__rd_sun_a[] = {{".2", u3_cwer_sun}, {}};
static u3_ce_harm _mood__hoon__rd_mul_a[] = {{".2", u3_cwer_mul}, {}};
static u3_ce_harm _mood__hoon__rd_div_a[] = {{".2", u3_cwer_div}, {}};
static u3_ce_harm _mood__hoon__rd_add_a[] = {{".2", u3_cwer_add}, {}};
static u3_ce_harm _mood__hoon__rd_sub_a[] = {{".2", u3_cwer_sub}, {}};
static u3_ce_harm _mood__hoon__rd_lte_a[] = {{".2", u3_cwer_lte}, {}};
static u3_ce_harm _mood__hoon__rd_lth_a[] = {{".2", u3_cwer_lth}, {}};
static u3_ce_harm _mood__hoon__rd_gte_a[] = {{".2", u3_cwer_gte}, {}};
static u3_ce_harm _mood__hoon__rd_gth_a[] = {{".2", u3_cwer_gth}, {}};
static u3_ce_core _mood__hoon__rd_d[] =
{ { "sun", _mood__hoon__rd_sun_a },
{ "mul", _mood__hoon__rd_mul_a },
{ "div", _mood__hoon__rd_div_a },
@ -218,71 +218,71 @@ static u3_cs_core _mood__hoon__rd_d[] =
{}
};
static u3_cs_harm _mood__hoon__coed__ed_puck_a[] = {{".2", u3_cwee_puck}, {}};
static u3_cs_harm _mood__hoon__coed__ed_sign_a[] = {{".2", u3_cwee_sign}, {}};
static u3_cs_harm _mood__hoon__coed__ed_veri_a[] = {{".2", u3_cwee_veri}, {}};
static u3_cs_core _mood__hoon__coed__ed_d[] =
static u3_ce_harm _mood__hoon__coed__ed_puck_a[] = {{".2", u3_cwee_puck}, {}};
static u3_ce_harm _mood__hoon__coed__ed_sign_a[] = {{".2", u3_cwee_sign}, {}};
static u3_ce_harm _mood__hoon__coed__ed_veri_a[] = {{".2", u3_cwee_veri}, {}};
static u3_ce_core _mood__hoon__coed__ed_d[] =
{ { "sign", _mood__hoon__coed__ed_sign_a },
{ "puck", _mood__hoon__coed__ed_puck_a },
{ "veri", _mood__hoon__coed__ed_veri_a },
{}
};
static u3_cs_core _mood__hoon__coed_d[] =
static u3_ce_core _mood__hoon__coed_d[] =
{ { "ed", 0, _mood__hoon__coed__ed_d },
{}
};
static u3_cs_harm _mood__hoon_pfix_a[] = {{".2", u3_cwe_pfix}, {}};
static u3_cs_harm _mood__hoon_plug_a[] = {{".2", u3_cwe_plug}, {}};
static u3_cs_harm _mood__hoon_pose_a[] = {{".2", u3_cwe_pose}, {}};
static u3_cs_harm _mood__hoon_sfix_a[] = {{".2", u3_cwe_sfix}, {}};
static u3_cs_harm _mood__hoon_shax_a[] = {{".2", u3_cwe_shax}, {}};
static u3_cs_harm _mood__hoon_shas_a[] = {{".2", u3_cwe_shas}, {}};
static u3_cs_harm _mood__hoon_shal_a[] = {{".2", u3_cwe_shal}, {}};
static u3_ce_harm _mood__hoon_pfix_a[] = {{".2", u3_cwe_pfix}, {}};
static u3_ce_harm _mood__hoon_plug_a[] = {{".2", u3_cwe_plug}, {}};
static u3_ce_harm _mood__hoon_pose_a[] = {{".2", u3_cwe_pose}, {}};
static u3_ce_harm _mood__hoon_sfix_a[] = {{".2", u3_cwe_sfix}, {}};
static u3_ce_harm _mood__hoon_shax_a[] = {{".2", u3_cwe_shax}, {}};
static u3_ce_harm _mood__hoon_shas_a[] = {{".2", u3_cwe_shas}, {}};
static u3_ce_harm _mood__hoon_shal_a[] = {{".2", u3_cwe_shal}, {}};
static u3_cs_harm _mood__hoon_bull_a[] = {{".2", u3_cwf_bull}, {}};
static u3_cs_harm _mood__hoon_cell_a[] = {{".2", u3_cwf_cell}, {}};
static u3_cs_harm _mood__hoon_comb_a[] = {{".2", u3_cwf_comb}, {}};
static u3_cs_harm _mood__hoon_cons_a[] = {{".2", u3_cwf_cons}, {}};
static u3_cs_harm _mood__hoon_core_a[] = {{".2", u3_cwf_core}, {}};
static u3_cs_harm _mood__hoon_cube_a[] = {{".2", u3_cwf_cube}, {}};
static u3_cs_harm _mood__hoon_face_a[] = {{".2", u3_cwf_face}, {}};
static u3_cs_harm _mood__hoon_fitz_a[] = {{".2", u3_cwf_fitz}, {}};
static u3_cs_harm _mood__hoon_flan_a[] = {{".2", u3_cwf_flan}, {}};
static u3_cs_harm _mood__hoon_flay_a[] = {{".2", u3_cwf_flay}, {}};
static u3_cs_harm _mood__hoon_flip_a[] = {{".2", u3_cwf_flip}, {}};
static u3_cs_harm _mood__hoon_flor_a[] = {{".2", u3_cwf_flor}, {}};
static u3_cs_harm _mood__hoon_fork_a[] = {{".2", u3_cwf_fork}, {}};
static u3_cs_harm _mood__hoon_hike_a[] = {{".2", u3_cwf_hike}, {}};
static u3_cs_harm _mood__hoon_look_a[] = {{".2", u3_cwf_look}, {}};
static u3_ce_harm _mood__hoon_bull_a[] = {{".2", u3_cwf_bull}, {}};
static u3_ce_harm _mood__hoon_cell_a[] = {{".2", u3_cwf_cell}, {}};
static u3_ce_harm _mood__hoon_comb_a[] = {{".2", u3_cwf_comb}, {}};
static u3_ce_harm _mood__hoon_cons_a[] = {{".2", u3_cwf_cons}, {}};
static u3_ce_harm _mood__hoon_core_a[] = {{".2", u3_cwf_core}, {}};
static u3_ce_harm _mood__hoon_cube_a[] = {{".2", u3_cwf_cube}, {}};
static u3_ce_harm _mood__hoon_face_a[] = {{".2", u3_cwf_face}, {}};
static u3_ce_harm _mood__hoon_fitz_a[] = {{".2", u3_cwf_fitz}, {}};
static u3_ce_harm _mood__hoon_flan_a[] = {{".2", u3_cwf_flan}, {}};
static u3_ce_harm _mood__hoon_flay_a[] = {{".2", u3_cwf_flay}, {}};
static u3_ce_harm _mood__hoon_flip_a[] = {{".2", u3_cwf_flip}, {}};
static u3_ce_harm _mood__hoon_flor_a[] = {{".2", u3_cwf_flor}, {}};
static u3_ce_harm _mood__hoon_fork_a[] = {{".2", u3_cwf_fork}, {}};
static u3_ce_harm _mood__hoon_hike_a[] = {{".2", u3_cwf_hike}, {}};
static u3_ce_harm _mood__hoon_look_a[] = {{".2", u3_cwf_look}, {}};
static u3_cs_harm _mood__hoon__ut_busk_a[] = {{".2", u3_cwfu_busk}, {}};
static u3_cs_harm _mood__hoon__ut_bust_a[] = {{".2", u3_cwfu_bust}, {}};
static u3_cs_harm _mood__hoon__ut_conk_a[] = {{".2", u3_cwfu_conk}, {}};
static u3_cs_harm _mood__hoon__ut_crop_a[] = {{".2", u3_cwfu_crop}, {}};
static u3_cs_harm _mood__hoon__ut_cull_a[] = {{".2", u3_cwfu_cull}, {}};
static u3_cs_harm _mood__hoon__ut_find_a[] = {{".2", u3_cwfu_find}, {}};
static u3_cs_harm _mood__hoon__ut_fino_a[] = {{".2", u3_cwfu_fino}, {}};
static u3_cs_harm _mood__hoon__ut_fink_a[] = {{".2", u3_cwfu_fink}, {}};
static u3_cs_harm _mood__hoon__ut_fire_a[] = {{".2", u3_cwfu_fire}, {}};
static u3_cs_harm _mood__hoon__ut_firm_a[] = {{".2", u3_cwfu_firm}, {}};
static u3_cs_harm _mood__hoon__ut_fish_a[] = {{".2", u3_cwfu_fish}, {}};
static u3_cs_harm _mood__hoon__ut_fuse_a[] = {{".2", u3_cwfu_fuse}, {}};
static u3_cs_harm _mood__hoon__ut_heal_a[] = {{".2", u3_cwfu_heal}, {}};
static u3_cs_harm _mood__hoon__ut_mint_a[] = {{".2", u3_cwfu_mint}, {}};
static u3_cs_harm _mood__hoon__ut_mull_a[] = {{".2", u3_cwfu_mull}, {}};
static u3_cs_harm _mood__hoon__ut_nest_a[] = {{".2", u3_cwfu_nest}, {}};
static u3_cs_harm _mood__hoon__ut_park_a[] = {{".2", u3_cwfu_park}, {}};
static u3_cs_harm _mood__hoon__ut_peek_a[] = {{".2", u3_cwfu_peek}, {}};
static u3_cs_harm _mood__hoon__ut_play_a[] = {{".2", u3_cwfu_play}, {}};
static u3_cs_harm _mood__hoon__ut_rest_a[] = {{".2", u3_cwfu_rest}, {}};
static u3_cs_harm _mood__hoon__ut_seek_a[] = {{".2", u3_cwfu_seek}, {}};
static u3_cs_harm _mood__hoon__ut_seep_a[] = {{".2", u3_cwfu_seep}, {}};
static u3_cs_harm _mood__hoon__ut_snub_a[] = {{".2", u3_cwfu_snub}, {}};
static u3_cs_harm _mood__hoon__ut_tock_a[] = {{".2", u3_cwfu_tock}, {}};
static u3_cs_harm _mood__hoon__ut_wrap_a[] = {{".2", u3_cwfu_wrap}, {}};
static u3_ce_harm _mood__hoon__ut_busk_a[] = {{".2", u3_cwfu_busk}, {}};
static u3_ce_harm _mood__hoon__ut_bust_a[] = {{".2", u3_cwfu_bust}, {}};
static u3_ce_harm _mood__hoon__ut_conk_a[] = {{".2", u3_cwfu_conk}, {}};
static u3_ce_harm _mood__hoon__ut_crop_a[] = {{".2", u3_cwfu_crop}, {}};
static u3_ce_harm _mood__hoon__ut_cull_a[] = {{".2", u3_cwfu_cull}, {}};
static u3_ce_harm _mood__hoon__ut_find_a[] = {{".2", u3_cwfu_find}, {}};
static u3_ce_harm _mood__hoon__ut_fino_a[] = {{".2", u3_cwfu_fino}, {}};
static u3_ce_harm _mood__hoon__ut_fink_a[] = {{".2", u3_cwfu_fink}, {}};
static u3_ce_harm _mood__hoon__ut_fire_a[] = {{".2", u3_cwfu_fire}, {}};
static u3_ce_harm _mood__hoon__ut_firm_a[] = {{".2", u3_cwfu_firm}, {}};
static u3_ce_harm _mood__hoon__ut_fish_a[] = {{".2", u3_cwfu_fish}, {}};
static u3_ce_harm _mood__hoon__ut_fuse_a[] = {{".2", u3_cwfu_fuse}, {}};
static u3_ce_harm _mood__hoon__ut_heal_a[] = {{".2", u3_cwfu_heal}, {}};
static u3_ce_harm _mood__hoon__ut_mint_a[] = {{".2", u3_cwfu_mint}, {}};
static u3_ce_harm _mood__hoon__ut_mull_a[] = {{".2", u3_cwfu_mull}, {}};
static u3_ce_harm _mood__hoon__ut_nest_a[] = {{".2", u3_cwfu_nest}, {}};
static u3_ce_harm _mood__hoon__ut_park_a[] = {{".2", u3_cwfu_park}, {}};
static u3_ce_harm _mood__hoon__ut_peek_a[] = {{".2", u3_cwfu_peek}, {}};
static u3_ce_harm _mood__hoon__ut_play_a[] = {{".2", u3_cwfu_play}, {}};
static u3_ce_harm _mood__hoon__ut_rest_a[] = {{".2", u3_cwfu_rest}, {}};
static u3_ce_harm _mood__hoon__ut_seek_a[] = {{".2", u3_cwfu_seek}, {}};
static u3_ce_harm _mood__hoon__ut_seep_a[] = {{".2", u3_cwfu_seep}, {}};
static u3_ce_harm _mood__hoon__ut_snub_a[] = {{".2", u3_cwfu_snub}, {}};
static u3_ce_harm _mood__hoon__ut_tock_a[] = {{".2", u3_cwfu_tock}, {}};
static u3_ce_harm _mood__hoon__ut_wrap_a[] = {{".2", u3_cwfu_wrap}, {}};
static u3_cs_core _mood__hoon__ut_d[] =
static u3_ce_core _mood__hoon__ut_d[] =
{
{ "busk", _mood__hoon__ut_busk_a },
{ "bust", _mood__hoon__ut_bust_a },
@ -311,13 +311,13 @@ static u3_cs_core _mood__hoon__ut_d[] =
{ "wrap", _mood__hoon__ut_wrap_a },
{}
};
static u3_cs_harm _mood__hoon__ut_a[] =
static u3_ce_harm _mood__hoon__ut_a[] =
{ {"burn", u3_cwfu_burn},
{"repo", u3_cwfu_repo},
{}
};
static u3_cs_harm _mood__hoon__ap_a[] =
static u3_ce_harm _mood__hoon__ap_a[] =
{ // {"hack", u3_cwfp_open},
// {"late", u3_cwfp_open},
{"open", u3_cwfp_open},
@ -326,14 +326,14 @@ static u3_cs_harm _mood__hoon__ap_a[] =
};
#if 0
static u3_cs_harm _mood__hoon__al_a[] =
static u3_ce_harm _mood__hoon__al_a[] =
{ {"bunt", u3_cwfl_bunt},
{"whip", u3_cwfl_whip},
{}
};
#endif
static u3_cs_core _mood__hoon_d[] =
static u3_ce_core _mood__hoon_d[] =
{ { "add", _mood__hoon_add_a },
{ "dec", _mood__hoon_dec_a },
{ "div", _mood__hoon_div_a },
@ -455,22 +455,22 @@ static u3_cs_core _mood__hoon_d[] =
{}
};
static u3_cs_core _mood_d[] =
static u3_ce_core _mood_d[] =
{ { "hoon", 0, _mood__hoon_d },
{}
};
static u3_cs_core _k164_d[] =
static u3_ce_core _k164_d[] =
{ { "mood", 0, _mood_d },
{}
};
static u3_cs_core _d[] = {
static u3_ce_core _d[] = {
{ "k164", 0, _k164_d},
{}
};
u3_cs_dash
u3_ce_dash
u3_Dash = {
_d,
0,

4
v/loop.c
View File

@ -345,8 +345,8 @@ _lo_time(void)
void
u3_lo_open(void)
{
if ( (u3H->rod_u.how.fag_w & u3_cs_flag_gc) ||
(u3H->rod_u.how.fag_w & u3_cs_flag_debug) )
if ( (u3H->rod_u.how.fag_w & u3_ca_flag_gc) ||
(u3H->rod_u.how.fag_w & u3_ca_flag_debug) )
{
u3_ce_grab("lo_open", u3_none);
}

16
v/raft.c
View File

@ -1621,13 +1621,13 @@ _raft_punk(u3_noun ovo)
static void
_raft_comm(c3_d bid_d)
{
u3p(u3_cs_cart) egg_p;
u3p(u3_cv_cart) egg_p;
u3_lo_open();
egg_p = u3A->ova.egg_p;
while ( egg_p ) {
u3_cs_cart* egg_u = u3to(u3_cs_cart, egg_p);
u3_cv_cart* egg_u = u3to(u3_cv_cart, egg_p);
if ( egg_u->ent_d <= bid_d ) {
egg_u->cit = c3y;
@ -1707,8 +1707,8 @@ u3_raft_work(void)
// Delete finished events.
//
while ( u3A->ova.egg_p ) {
u3p(u3_cs_cart) egg_p = u3A->ova.egg_p;
u3_cs_cart* egg_u = u3to(u3_cs_cart, u3A->ova.egg_p);
u3p(u3_cv_cart) egg_p = u3A->ova.egg_p;
u3_cv_cart* egg_u = u3to(u3_cv_cart, u3A->ova.egg_p);
if ( c3y == egg_u->did ) {
vir = egg_u->vir;
@ -1764,8 +1764,8 @@ u3_raft_work(void)
u3z(ova); ova = nex;
if ( u3_nul != ovo ) {
u3_cs_cart* egg_u = u3_ca_malloc(sizeof(*egg_u));
u3p(u3_cs_cart) egg_p = u3of(u3_cs_cart, egg_u);
u3_cv_cart* egg_u = u3_ca_malloc(sizeof(*egg_u));
u3p(u3_cv_cart) egg_p = u3of(u3_cv_cart, egg_u);
egg_u->nex_p = 0;
egg_u->cit = c3n;
@ -1789,8 +1789,8 @@ u3_raft_work(void)
u3A->ova.geg_p = u3A->ova.egg_p = egg_p;
}
else {
c3_assert(0 == u3to(u3_cs_cart, u3A->ova.geg_p)->nex_p);
u3to(u3_cs_cart, u3A->ova.geg_p)->nex_p = egg_p;
c3_assert(0 == u3to(u3_cv_cart, u3A->ova.geg_p)->nex_p);
u3to(u3_cv_cart, u3A->ova.geg_p)->nex_p = egg_p;
u3A->ova.geg_p = egg_p;
}
_raft_kick_all(vir);