64 lines
1.7 KiB
C
64 lines
1.7 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2012 Fidelity Information Services, Inc *
|
|
* *
|
|
* This source code contains the intellectual property *
|
|
* of its copyright holder(s), and is made available *
|
|
* under a license. If you do not know the terms of *
|
|
* the license, please stop and do not read further. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
#include "mdef.h"
|
|
#include <rtnhdr.h>
|
|
#include "stack_frame.h"
|
|
#include "tp_frame.h"
|
|
#include "error.h"
|
|
#include "error_trap.h"
|
|
#include "mv_stent.h"
|
|
#include "op.h"
|
|
#include "fgncal.h"
|
|
#ifdef GTM_TRIGGER
|
|
#include "gdsroot.h"
|
|
#include "gtm_facility.h"
|
|
#include "fileinfo.h"
|
|
#include "gdsbt.h"
|
|
#include "gdsfhead.h"
|
|
#include "gv_trigger.h"
|
|
#include "gtm_trigger.h"
|
|
#endif
|
|
|
|
GBLDEF unsigned char *fgncal_stack;
|
|
GBLREF unsigned char *stackbase, *stacktop, *stackwarn, *msp;
|
|
GBLREF mv_stent *mv_chain;
|
|
GBLREF stack_frame *frame_pointer;
|
|
|
|
error_def(ERR_STACKUNDERFLO);
|
|
|
|
void fgncal_unwind(void)
|
|
{
|
|
mv_stent *mvc;
|
|
|
|
assert((msp <= stackbase) && (msp > stacktop));
|
|
assert((mv_chain <= (mv_stent *)stackbase) && (mv_chain > (mv_stent *)stacktop));
|
|
assert((frame_pointer <= (stack_frame*)stackbase) && (frame_pointer > (stack_frame *)stacktop));
|
|
while (frame_pointer && (frame_pointer < (stack_frame *)fgncal_stack))
|
|
{
|
|
# ifdef GTM_TRIGGER
|
|
if (SFT_TRIGR & frame_pointer->type)
|
|
gtm_trigger_fini(TRUE, FALSE);
|
|
else
|
|
# endif
|
|
op_unwind();
|
|
}
|
|
for (mvc = mv_chain; mvc < (mv_stent *)fgncal_stack; )
|
|
{
|
|
unw_mv_ent(mvc);
|
|
mvc = (mv_stent *)(mvc->mv_st_next + (char *) mvc);
|
|
}
|
|
mv_chain = mvc;
|
|
msp = fgncal_stack;
|
|
if (msp > stackbase)
|
|
rts_error(VARLSTCNT(1) ERR_STACKUNDERFLO);
|
|
}
|