updates single-homing and legacy boot event

conform to current release-candidate expectations
This commit is contained in:
Joe Bryan 2018-11-20 23:06:27 -05:00
parent 68912c40e4
commit ca4989784d
2 changed files with 14 additions and 15 deletions

View File

@ -950,13 +950,14 @@ _pier_disk_consolidate(u3_pier* pir_u,
/* prepend identity event to module sequence
*/
{
u3_noun wir = u3nt(c3__name, u3dc("scot", 'p', u3k(who)), u3_nul);
u3_noun car = u3nc(c3__veal, u3k(who));
u3_noun ovo = u3nc(wir, car);
// {
// u3_noun wir = u3nt(c3__name, u3dc("scot", 'p', u3k(who)), u3_nul);
// u3_noun car = u3nc(c3__veal, u3k(who));
// u3_noun ovo = u3nc(wir, car);
seq = u3nc(ovo, u3k(mod));
}
// seq = u3nc(ovo, u3k(mod));
// }
seq = mod;
/* insert with timestamp
*/
@ -982,10 +983,7 @@ _pier_disk_consolidate(u3_pier* pir_u,
*/
{
u3_noun wir = u3nq(u3_blip, c3__term, '1', u3_nul);
u3_noun car = u3nq(c3__boot,
c3__sith,
u3k(who),
u3nc(u3k(tic), u3k(sec)));
u3_noun car = u3nt(c3__boot, c3__fake, u3k(who));
ovo = u3nc(wir, car);
}

View File

@ -216,17 +216,18 @@ _serf_poke_live(c3_d evt_d, // event number
// XX revise when real keys are supported
// XX dispatch on evt_d, wire, or card tag?
//
if ( 6ULL == evt_d ) {
// vir=[[wire %veal @p] ~]
// fec=[%veal @p]
if ( c3__boot == u3h(u3t(ovo)) ) {
// ovo=[%boot *]
// vir=[[wire %init @p] ~]
// fec=[%init @p]
//
u3_noun fec = u3t(u3h(vir));
c3_assert( c3__veal == u3h(fec) );
c3_assert( c3__init == u3h(fec) );
c3_assert( u3_none == u3A->our );
u3A->our = u3k(u3t(fec));
u3A->fak = c3y;
u3A->fak = ( c3__fake == u3h(u3t(u3t(ovo))) ) ? c3y : c3n;
{
u3_noun nam = u3dc("scot", 'p', u3k(u3A->our));