1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21/*
22 * Copyright 2007 Sun Microsystems, Inc.   All rights reserved.
23 * Use is subject to license terms.
24 */
25
26#pragma ident	"%Z%%M%	%I%	%E% SMI"
27
28#include <stdio.h>
29#include <stdlib.h>
30#include <string.h>
31
32#include <fcode/private.h>
33#include <fcode/log.h>
34
35fcode_env_t *initial_env = 0;
36int dict_size = 0x4000000;	/* 64Mb, hopefully big enough... */
37int stack_size = 0x200;
38
39void *
40safe_malloc(size_t n, char *f, int l)
41{
42	void *p;
43
44	p = malloc((size_t)n);
45#if defined(__sparcv9)
46	/*
47	 * For Ultrasparc, we must force addresses to be less than 4Gb,
48	 * since Fcode assumes that addresses can be stored in 32 bits.
49	 * To get around this would require turning all addresses into
50	 * cookies, which is a lot of work.
51	 */
52	if (((uint64_t)p) >= 0x100000000) {
53		log_message(MSG_WARN, "Malloc returned address > 4Gb\n");
54	}
55#endif	/* __sparcv9 */
56	if (p) {
57		memset(p, 0, (size_t)n);
58	} else
59		log_message(MSG_ERROR, "%s:%d:Malloc(%llx) failed\n", f, l,
60		    (uint64_t)n);
61	return (p);
62}
63
64void *
65safe_realloc(void *p, size_t n, char *f, int l)
66{
67	void *newp;
68
69	if ((newp = safe_malloc(n, f, l)) == NULL) {
70		log_message(MSG_ERROR, "%s:%d:realloc(%p, %x) failed\n", f, l,
71		    p, n);
72		safe_free(p, f, l);
73		return (NULL);
74	}
75	if (p) {
76		memcpy(newp, p, n);
77		safe_free(p, f, l);
78	}
79	return (newp);
80}
81
82void
83safe_free(void *p, char *f, int l)
84{
85	if (p) {
86		free(p);
87	}
88}
89
90char *
91safe_strdup(char *s, char *f, int l)
92{
93	char *p = strdup(s);
94
95	return (p);
96}
97
98#pragma init(_init)
99
100static void
101_init(void)
102{
103	int i;
104	acf_t f_error_addr;
105	fcode_env_t *env;
106
107	NOTICE;
108
109	fcode_impl_count = 0;
110	env = MALLOC(sizeof (fcode_env_t));
111	env->table = MALLOC((MAX_FCODE + 1) * sizeof (fcode_token));
112	env->base = MALLOC(dict_size);
113	env->here = env->base;
114	env->ds = env->ds0 = MALLOC(stack_size * sizeof (fstack_t));
115	env->rs = env->rs0 = MALLOC(stack_size * sizeof (fstack_t));
116	env->order = MALLOC(MAX_ORDER * sizeof (token_t));
117	env->input = MALLOC(sizeof (input_typ));
118	env->num_base = 0x10;
119
120	/* Setup the initial forth environment */
121	do_forth(env);
122	do_definitions(env);
123	install_handlers(env);
124
125	initial_env = env;
126
127	/*
128	 * Need to define this early because it is the default for
129	 * all unimpl, FCODE functions
130	 */
131	P1275(0x0fc, IMMEDIATE,	"ferror",		f_error);
132	f_error_addr = LINK_TO_ACF(env->lastlink);
133	for (i = 0; i <= MAX_FCODE; i++) {
134		DEBUGF(ANY, env->table[i].usage = 0);
135		SET_TOKEN(i, IMMEDIATE, "ferror", f_error_addr);
136	}
137	fcode_impl_count = 0;
138}
139