40 lines
1.5 KiB
C
40 lines
1.5 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2003 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 "gtmci.h"
|
|
#include "make_mode.h"
|
|
|
|
/* The code created and returned by make_cimode() is executed in the frame GTM$CI at level 1 of
|
|
* every nested call-in environment. For every M routine being called-in from C, GTM$CI code
|
|
* will setup argument registers/stack and executes the M routine. When the M routine returns
|
|
* from its final QUIT, GTM$CI returns to gtm_ci(). make_cimode generates machine equivalents
|
|
* for the following operations in that order:
|
|
*
|
|
* CALL ci_restart :setup register/stack arguments from 'param_list' and transfer control
|
|
* to op_extcall/op_extexfun which return only after the M routine finishes and QUITs.
|
|
* CALL ci_ret_code :transfer control from the M routine back to C (gtm_ci). Never returns.
|
|
* CALL opp_ret :an implicit QUIT although it is never executed.
|
|
*
|
|
* Before GTM$CI executes, it is assumed that the global 'param_list' has been populated with
|
|
* argument/return mval *.
|
|
*/
|
|
rhdtyp *make_cimode(void)
|
|
{
|
|
static rhdtyp *base_address = NULL;
|
|
|
|
if (NULL == base_address)
|
|
base_address = make_mode(CI_MODE);
|
|
return base_address;
|
|
}
|