a.prog = program; a.base_rt_stack = NULL; a.top_rt_stack = NULL;
enqueue_ft(Program * program, activation a, Var * rt_env,	   int f_index, time_t start_time, int id){    task *t = (task *) mymalloc(sizeof(task), M_TASK);    t->kind = TASK_FORKED;    t->t.forked.program = program;    /* The next line was not present before 1.8.2.  a.rt_env was never     * accessed and was eventually overwritten by forked.rt_env in     * do_forked_task().  Makes no sense to store it two places, but here     * we are.  Setting it in the activation simplifies forked_task_bytes()     */    a.rt_env = rt_env;    t->t.forked.a = a;    t->t.forked.rt_env = rt_env;    t->t.forked.f_index = f_index;    t->t.forked.start_time = start_time;    t->t.forked.id = id;    enqueue_waiting(t);}