fis-gtm/sr_port/op_get_msf.c

33 lines
1.3 KiB
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. *
* *
****************************************************************/
/* This function is supplied for those microprocessors that are especially lacking
in registers. Wherever possible, the frame_pointer value is kept in a register
in generated code; where not possible, it is necessary to obtain the current
value from the external variable. Because the external variable is linked into
the GT.M executable rather than into generated code, it is better to obtain
the value from a function called via the transfer table in order to avoid the
possibility of the location of frame_pointer changing between releases of the
GT.M executable. Otherwise, customers on machines with fewer registers (e.g.,
the Intel 80x86 series) would have to recompile all of their programs with
every new release of GT.M. */
#include "mdef.h"
#include "rtnhdr.h"
#include "stack_frame.h"
GBLREF stack_frame *frame_pointer;
stack_frame *op_get_msf (void)
{
return frame_pointer;
}