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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/****************************************************************
* *
* Copyright 2001, 2012 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 "gtm_string.h"
#include "gtm_stdlib.h"
#include <errno.h>
#include "callintogtmxfer.h"
#include "gt_timer.h"
typedef int (*int_fptr)();
/* Note the malloc and free calls below are turned into gtm_malloc/gtm_free respectively by the #defines for those names
* in mdefsp.h.
*/
GBLDEF int (*callintogtm_vectortable[])()=
{
(int_fptr)hiber_start,
(int_fptr)hiber_start_wait_any,
(int_fptr)start_timer,
(int_fptr)cancel_timer,
(int_fptr)malloc,
(int_fptr)free,
(int_fptr)-1L
};
#ifdef GTM64
#define MAX_ADDR_SIZE 64
#else
#define MAX_ADDR_SIZE 32
#endif
#define MAX_ADDR_ENV_SIZE 64
#define GTM_CALLIN_START_ENV "GTM_CALLIN_START="
GBLDEF unsigned char gtmvectortable_address[MAX_ADDR_SIZE];
GBLDEF unsigned char gtmvectortable_env[MAX_ADDR_ENV_SIZE];
error_def(ERR_SYSCALL);
void init_callin_functable(void)
{
unsigned char *env_top, *address_top;
uint4 address_len;
int save_errno;
address_top = GTM64_ONLY(i2ascl)NON_GTM64_ONLY(i2asc)(gtmvectortable_address, (UINTPTR_T)(&callintogtm_vectortable[0]));
*address_top = '\0';
address_len = (uint4)(address_top - >mvectortable_address[0]);
env_top = >mvectortable_env[0];
MEMCPY_LIT(env_top, GTM_CALLIN_START_ENV);
memcpy((env_top + strlen(GTM_CALLIN_START_ENV)), gtmvectortable_address, address_len);
*(env_top + strlen(GTM_CALLIN_START_ENV) + address_len) = '\0';
if (PUTENV((char *)gtmvectortable_env))
{
save_errno = errno;
rts_error(VARLSTCNT(8) ERR_SYSCALL, 5, LEN_AND_LIT("putenv"), CALLFROM, save_errno);
}
}
|
