mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 06:35:32 +03:00
27 lines
420 B
C
27 lines
420 B
C
|
/* f/hevn.c
|
||
|
|
**
|
||
|
|
** This file is in the public domain.
|
||
|
|
*/
|
||
|
|
#include "all.h"
|
||
|
|
|
||
|
|
/* u2_hv_init(): initialize state.
|
||
|
|
*/
|
||
|
|
u2_ray
|
||
|
|
u2_hv_init(u2_ray wir_r)
|
||
|
|
{
|
||
|
|
u2_ray hev_r = u2_rl_ralloc(wir_r, c3_wiseof(u2_loom_hevn));
|
||
|
|
|
||
|
|
u2_hevx_be(hev_r, u2_pryr, god) = 0;
|
||
|
|
u2_hevx_at(hev_r, lad) = 0;
|
||
|
|
|
||
|
|
return hev_r;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* u2_hv_mark(): mark heaven for gc.
|
||
|
|
*/
|
||
|
|
c3_w
|
||
|
|
u2_hv_mark(void)
|
||
|
|
{
|
||
|
|
return u2_rl_gc_mark_noun(u2_Wire, u2_hevn_at(lad));
|
||
|
|
}
|