33 lines
870 B
C
33 lines
870 B
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001 Sanchez Computer Associates, 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 "gtm_savetraps.h"
|
|
#include "gtm_newintrinsic.h"
|
|
|
|
GBLREF mval dollar_ztrap;
|
|
GBLREF mval dollar_etrap;
|
|
|
|
/* Routine called when we need to save the current Xtrap (etrap or ztrap) but
|
|
don't know which to save.
|
|
*/
|
|
void gtm_savetraps(void)
|
|
{
|
|
mval *intrinsic;
|
|
|
|
if (dollar_ztrap.str.len)
|
|
intrinsic = &dollar_ztrap;
|
|
else
|
|
intrinsic = &dollar_etrap;
|
|
gtm_newintrinsic(intrinsic);
|
|
return;
|
|
}
|