57 lines
1.6 KiB
C
57 lines
1.6 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2008 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 "op.h"
|
|
#include "unwind_nocounts.h"
|
|
#include "error_trap.h"
|
|
|
|
GBLREF stack_frame *frame_pointer;
|
|
GBLREF stack_frame *error_frame;
|
|
GBLREF tp_frame *tp_pointer;
|
|
|
|
bool unwind_nocounts(void)
|
|
{ short unwind;
|
|
bool dmode;
|
|
stack_frame *fp;
|
|
boolean_t sf_error_ret = FALSE;
|
|
error_def(ERR_TPQUIT);
|
|
|
|
dmode = FALSE;
|
|
unwind = 0;
|
|
/* while unwinding uncounted frames, reset "error_frame" to point to the counted frame in case error_frame happens to be
|
|
* one of the to-be-unwound uncounted frames so we remember to do error_ret() processing (if applicable)
|
|
* while "op_unwind()"ing the counted frame.
|
|
*/
|
|
for (fp = frame_pointer; !(fp->type & SFT_COUNT) && fp->old_frame_pointer; fp = fp->old_frame_pointer)
|
|
{
|
|
if (error_frame == fp)
|
|
{
|
|
SET_ERROR_FRAME(fp->old_frame_pointer);
|
|
assert(NULL != error_frame);
|
|
}
|
|
if (fp->type & SFT_DM)
|
|
dmode = TRUE;
|
|
unwind++;
|
|
}
|
|
if (tp_pointer && tp_pointer->fp < fp)
|
|
rts_error(VARLSTCNT(1) ERR_TPQUIT);
|
|
while (unwind-- > 0)
|
|
{
|
|
assert(error_frame != frame_pointer); /* make sure op_unwind() won't call error_ret() */
|
|
op_unwind();
|
|
}
|
|
return(dmode);
|
|
}
|