Kernel/src/emu_c_env.c

63 #define DELAY_SLOT		1	/* 'suspend' attribute slot */
596     dyn_event_q_slot_t *slot;
600     slot = g_emu_.dyn_event_q.prehead->next; /* get */
604     for( cnt = 0; cnt < total; cnt++, slot = slot->next )
606 	p_fprintf(current_err_, " %d:%x", slot->event_data.tag.kernel, slot->event_data.val.ptr);
704 	dyn_event_q_slot_t *slot = g_emu_.dyn_event_q.prehead->next; /* get */
707 	for( cnt = 0; cnt < total; cnt++, slot = slot->next )
709 	    if (slot->event_data.tag.all == event.tag.all
710 	     && slot->event_data.val.all == event.val.all)
734 	dyn_event_q_slot_t *slot;
739 	if ((slot = (dyn_event_q_slot_t *)hp_alloc_size(sizeof(dyn_event_q_slot_t))) == NULL)
744 	slot->next = g_emu_.dyn_event_q.tail->next;
745 	g_emu_.dyn_event_q.tail->next = slot;
908     dyn_event_q_slot_t *slot, *prev;
922     slot = prev->next; /* get */
927 	pevent = &slot->event_data;
932 	    prev->next = slot->next;
933 	    slot->next = g_emu_.dyn_event_q.tail->next; /* insert before put */
934 	    g_emu_.dyn_event_q.tail->next = slot; /* update put */
936 	    slot = prev->next;
940 	prev = slot;
941 	slot = slot->next;
948     event_q_assert(slot == g_emu_.dyn_event_q.tail);
949     pevent = &slot->event_data;
1030 	dyn_event_q_slot_t *slot = g_emu_.dyn_event_q.tail->next; /* put */
1052 	    g_emu_.dyn_event_q.tail->next = slot->next;
1053 	    hp_free_size((generic_ptr)slot, sizeof(dyn_event_q_slot_t));
1054 	    slot = g_emu_.dyn_event_q.tail->next;
1250 	int slot)
1260 	    return insert_suspension(val.ptr, position, susp, slot);
1277 		res = insert_suspension(arg_i, position, susp, slot);
1280 				susp, slot);
1293 add_attribute(word tv, pword *va, word ta, int slot)
1310     s[slot+2].val.ptr = va;
1311     s[slot+2].tag.kernel = ta;
1374 	int slot)
1381 	t = MetaTerm(var)->val.ptr + slot;	/* find the dlist to insert */
1384 	    if (slot != DELAY_SLOT)
1395 	    if (slot != DELAY_SLOT)
1403 	if (slot != DELAY_SLOT)
1408 	s = add_attribute(var->tag.kernel, t, (word) TCOMP, slot);