/*{
** Name: OPU_RELEASE - Return memory to the global memory pool
**
** Description:
** This routine returns memory from the given mark to the end of the
** ULM memory stream to the global memory pool.
[@comment_line@]...
**
** Inputs:
** global -
** State info for the current query.
** ulmrcb -
** address of local control block, or NULL if
** global->ops_mstate.ops_ulmrcb should be used
** mark -
** The mark stating where to start returning memory.
**
** Outputs:
**
** Returns:
** none
** Exceptions:
** none
**
** Side Effects:
** Memory is returned to the global memory pool
**
** History:
** 18-apr-87 (seputis)
** initial creation
** 11-oct-2006 (hayke02)
** Send E_OP0002_NOMEMORY to errlog.log. This change fixes bug 116309.
[@history_template@]...
*/
VOID
opu_release(
OPS_STATE *global,
ULM_RCB *ulmrcb,
ULM_SMARK *mark)
{
DB_STATUS ulmstatus; /* return status from ULM */
if (!ulmrcb)
{
ulmrcb = &global->ops_mstate.ops_ulmrcb; /* use global ulmrcb if
** control block is not defined */
ulmrcb->ulm_streamid_p = &global->ops_mstate.ops_streamid;
/* mark memory
** in the global stream */
}
/* store the mark to be initialized */
ulmrcb->ulm_smark = mark;
ulmstatus = ulm_reclaim( ulmrcb );
if ( DB_FAILURE_MACRO(ulmstatus) )
{
if (ulmrcb->ulm_error.err_code == E_UL0005_NOMEM)
{
opx_lerror(E_OP0002_NOMEMORY, 0, 0, 0, 0, 0);
opx_error( E_OP0002_NOMEMORY); /* out of memory */
}
#ifdef E_OP0093_ULM_ERROR
else
opx_verror( ulmstatus, E_OP0093_ULM_ERROR,
ulmrcb->ulm_error.err_code); /* check for error */
#endif
}
}
/*{
** Name: OPU_RSMEMORY_RECLAIM - Return memory to the global memory pool
**
** Description:
** This routine returns memory from the given mark to the end of the
** ULM memory stream to the global memory pool.
[@comment_line@]...
**
** Inputs:
** global -
** State info for the current query.
** global->ops_mstate.ops_ulmrcb -
** The ULM control block.
** global->ops_mstate.ops_sstreamid -
** The stream id.
** mark -
** The mark stating where to start returning memory.
**
** Outputs:
**
** Returns:
** The address of the allocated memory.
** Exceptions:
** none
**
** Side Effects:
** Memory is returned to the global memory pool
**
** History:
** 19-July-87 (eric)
** written
** 11-oct-2006 (hayke02)
** Send E_OP0002_NOMEMORY to errlog.log. This change fixes bug 116309.
[@history_template@]...
*/
VOID
opu_Rsmemory_reclaim(
OPS_STATE *global,
ULM_SMARK *mark)
{
DB_STATUS ulmstatus; /* return status from ULM */
/* store the stream id */
global->ops_mstate.ops_ulmrcb.ulm_streamid_p = &global->ops_mstate.ops_sstreamid;
/* store the mark to be initialized */
global->ops_mstate.ops_ulmrcb.ulm_smark = mark;
if ( (ulmstatus = ulm_reclaim( &global->ops_mstate.ops_ulmrcb )) != E_DB_OK )
{
if (global->ops_mstate.ops_ulmrcb.ulm_error.err_code == E_UL0005_NOMEM)
{
opx_lerror(E_OP0002_NOMEMORY, 0, 0, 0, 0, 0);
opx_error( E_OP0002_NOMEMORY); /* out of memory */
}
#ifdef E_OP0093_ULM_ERROR
else
opx_verror( ulmstatus, E_OP0093_ULM_ERROR,
global->ops_mstate.ops_ulmrcb.ulm_error.err_code); /* check for error */
#endif
}
}
