/*
* Must be called on the worker that created the bag, no check yet!
*/
static int
p_dbag_dissolve(value vdbag, type tdbag, value vl, type tl)
{
aport_id_t bag_aport_id;
dbag_descr_t *dbag_descr;
amsg_t this_msg;
amsg_ref_t *this_msg_data_hdr;
pword list;
register pword *car, *cdr;
Check_Integer(tdbag);
bag_aport_id = (aport_id_t) vdbag.nint;
Check_Output_List(tl);
if (aport_get_option(bag_aport_id, APORT_DATA_PTR,
(aport_optval_t *) &dbag_descr) != AMSG_OK)
{
Bip_Error(MPS_ERROR);
}
this_msg = dbag_descr->first.msg;
this_msg_data_hdr = dbag_descr->first.msg_data_hdr;
hp_free_size((generic_ptr) dbag_descr, sizeof(dbag_descr_t));
cdr = &list;
while (this_msg_data_hdr != &dbag_descr->first)
{
pword *pw1;
amsg_t old_msg;
car = TG;
Push_List_Frame();
Make_List(cdr, car);
cdr = car + 1;
pw1 = dbformat_to_term((char*)(this_msg_data_hdr+1), D_UNKNOWN, tdict);
if (!pw1)
{
value va;
va.did = d_.abort;
Bip_Throw(va, tdict);
}
car->val.ptr = pw1->val.ptr;
car->tag.kernel = pw1->tag.kernel;
old_msg = this_msg;
this_msg = this_msg_data_hdr->msg;
this_msg_data_hdr = this_msg_data_hdr->msg_data_hdr;
(void) amsg_free(old_msg);
}
Make_Nil(cdr);
if (aport_deallocate(bag_aport_id) != AMSG_OK)
{
Bip_Error(MPS_ERROR);
}
Return_Unify_Pw(vl, tl, list.val, list.tag);
}
void Winapi
ec_refs_destroy(ec_refs variable)
{
if (!(variable->refstate & EC_REF_C))
ec_panic("ec_ref already freed from C","ec_refs_destroy()");
if (variable->refstate & EC_REF_P)
{
/* Unlink the ec_ref to make the global stack array become garbage */
variable->next->prev = variable->prev;
variable->prev->next = variable->next;
}
variable->refstate = EC_REF_FREE;
hp_free_size((generic_ptr)variable, sizeof(struct eclipse_ref_));
}