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