Kernel/src/embed.c

171 	    ec_panic("Aborting: Can't find boot file! Please check either\na) your program's setting for eclipsedir in ec_set_option(), or\nb) your setting for ECLIPSEDIR environment variable.\n","ec_init()");
552 ec_refs_destroy(ec_refs variable)
554     if (!(variable->refstate & EC_REF_C))
556     if (variable->refstate & EC_REF_P)
559 	variable->next->prev = variable->prev;
560 	variable->prev->next = variable->next;
562     variable->refstate = EC_REF_FREE;
563     hp_free_size((generic_ptr)variable, sizeof(struct eclipse_ref_));
570     ec_refs variable = g_emu_.allrefs.next;
573     while (variable != &g_emu_.allrefs)
575 	if (variable->var.val.ptr == parray)
577 	    if (!(variable->refstate == EC_REF_C_P))
579 	    variable->refstate &= ~EC_REF_P;
580 	    variable->next->prev = variable->prev;	/* unlink */
581 	    variable->prev->next = variable->next;
582 	    variable->var = *((pword*) pdata);		/* reset value */
585 	variable = variable->next;
590 ec_refs_size(const ec_refs variable)
592     return variable->size;
624 _ec_ref_init(ec_refs variable)
628     int n = variable->size;
630     if (variable->refstate != EC_REF_C)
633     initpw = variable->var;
634     variable->refstate = EC_REF_C_P;
642     Make_Struct(&(variable->var), pw);
656     variable->next = g_emu_.allrefs.next;
657     variable->prev = &g_emu_.allrefs;
658     g_emu_.allrefs.next->prev = variable;
659     g_emu_.allrefs.next = variable;
663 ec_refs_set(ec_refs variable, int i, const pword w)
665     if (variable->refstate != EC_REF_C_P)
666 	_ec_ref_init(variable);
667     if (i >= variable->size)
670     (void) ec_assign(variable->var.val.ptr+i+1, w.val,w.tag);
674 ec_refs_get(const ec_refs variable, int i)
676     if (variable->refstate != EC_REF_C_P)
677 	_ec_ref_init(variable);
678     if (i >= variable->size)
681     return variable->var.val.ptr[i+1];
698 ec_ref_set(ec_ref variable, const pword w)
700     ec_refs_set((ec_refs) variable, 0, w);
704 ec_ref_get(const ec_ref variable)
706     return ec_refs_get((ec_refs) variable, 0);
710 ec_ref_destroy(ec_ref variable)
712     ec_refs_destroy((ec_refs) variable);