1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
/****************************************************************
* *
* Copyright 2001, 2004 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 <rtnhdr.h>
#include "mv_stent.h"
GBLREF mv_stent *mv_chain;
GBLREF unsigned char *stackbase,*stacktop,*msp,*stackwarn;
mval *push_mval(arg1)
mval *arg1;
{
error_def(ERR_STACKOFLOW);
error_def(ERR_STACKCRIT);
PUSH_MV_STENT(MVST_MVAL);
mv_chain->mv_st_cont.mvs_mval = *arg1;
return &mv_chain->mv_st_cont.mvs_mval;
}
|
