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, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 
23 /*
24  * Copyright (c) 1999 by Sun Microsystems, Inc.
25  * All rights reserved.
26  */
27 
28 #pragma ident	"%Z%%M%	%I%	%E% SMI"
29 
30 #include <stdio.h>
31 
32 #include <fcode/private.h>
33 
34 /*
35  * Return a pointer to the allocated instance data.
36  * If the data was initialised then return a pointer to the initialisation
37  * buffer otherwise return a pointer to the un-init data.
38  */
39 token_t *
alloc_instance_data(fcode_env_t * env,int init,int n,int * offset)40 alloc_instance_data(fcode_env_t *env, int init, int n, int *offset)
41 {
42 	int ptr;
43 
44 	*offset = ptr = MYSELF->device->data_size[init];
45 	MYSELF->device->data_size[init] += n;
46 	if (init == INIT_DATA)
47 		return (&MYSELF->device->init_data[ptr]);
48 	else
49 		return (&MYSELF->data[init][ptr]);
50 }
51 
52 token_t *
get_instance_address(fcode_env_t * env)53 get_instance_address(fcode_env_t *env)
54 {
55 	int which;
56 	token_t *ptr;
57 	token_t offset;
58 
59 	CHECK_DEPTH(env, 1, "get_instance_address");
60 	ptr = (token_t *) POP(DS);
61 	offset = *ptr;
62 	if (offset < 0) {
63 		offset = -offset;
64 		which = UINIT_DATA;
65 	} else {
66 		which = INIT_DATA;
67 	}
68 	return (&MYSELF->data[which][offset]);
69 }
70 
71 void
fetch_instance_data(fcode_env_t * env)72 fetch_instance_data(fcode_env_t *env)
73 {
74 	token_t *ptr;
75 
76 	CHECK_DEPTH(env, 1, "get_instance_data");
77 	ptr = get_instance_address(env);
78 	PUSH(DS, *ptr);
79 }
80 
81 void
set_instance_data(fcode_env_t * env)82 set_instance_data(fcode_env_t *env)
83 {
84 	token_t *ptr;
85 
86 	CHECK_DEPTH(env, 2, "set_instance_data");
87 	ptr = get_instance_address(env);
88 	*ptr = POP(DS);
89 }
90 
91 void
address_instance_data(fcode_env_t * env)92 address_instance_data(fcode_env_t *env)
93 {
94 	token_t *ptr;
95 
96 	CHECK_DEPTH(env, 1, "address_instance_data");
97 	ptr = get_instance_address(env);
98 	PUSH(DS, (fstack_t) ptr);
99 }
100 
101 void
instance_variable(fcode_env_t * env)102 instance_variable(fcode_env_t *env)
103 {
104 	token_t *ptr;
105 
106 	PUSH(DS, (fstack_t) WA);
107 	ptr = get_instance_address(env);
108 	PUSH(DS, (fstack_t) ptr);
109 }
110 
111 void
idefer_exec(fcode_env_t * env)112 idefer_exec(fcode_env_t *env)
113 {
114 	CHECK_DEPTH(env, 1, "idefer_exec");
115 	fetch_instance_data(env);
116 	execute(env);
117 }
118