src/useremul/useremul_netbsd.c

/*
 *  Copyright (C) 2004-2007  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright  
 *     notice, this list of conditions and the following disclaimer in the 
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE   
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *
 *
 *  $Id: useremul_netbsd.c,v 1.3 2007/06/15 01:08:14 debug Exp $
 *
 *  NetBSD userland (syscall) emulation.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "cpu.h"
#include "machine.h"
#include "memory.h"
#include "useremul.h"

#include "errno_netbsd.h"
#include "syscall_netbsd.h"


/*
 *  useremul_netbsd_setup():
 *
 *  Set up an emulated userland environment suitable for running NetBSD
 *  binaries.
 */
void useremul_netbsd_setup(struct cpu *cpu, int argc, char **host_argv)
{
        uint64_t stack_top = 0x7fff0000;
        uint64_t stacksize = 8 * 1048576;
        uint64_t stack_margin = 16384;
        uint64_t cur_argv;
        int i, i2;
        int envc = 1;

        switch (cpu->machine->arch) {
        case ARCH_MIPS:
                /*  See netbsd/sys/src/arch/mips/mips_machdep.c:setregs()  */
                cpu->cd.mips.gpr[MIPS_GPR_A0] = stack_top - stack_margin;
                cpu->cd.mips.gpr[MIPS_GPR_T9] = cpu->pc;

                /*  The userland stack:  */
                cpu->cd.mips.gpr[MIPS_GPR_SP] = stack_top - stack_margin;
                add_symbol_name(&cpu->machine->symbol_context,
                    stack_top - stacksize, stacksize, "userstack", 0, 0);

                /*  Stack contents:  (TODO: is this correct?)  */
                store_32bit_word(cpu, stack_top - stack_margin, argc);

                cur_argv = stack_top - stack_margin + 128 + (argc + envc)
                    * sizeof(uint32_t);
                for (i=0; i<argc; i++) {
                        debug("adding argv[%i]: '%s'\n", i, host_argv[i]);

                        store_32bit_word(cpu, stack_top - stack_margin +
                            4 + i*sizeof(uint32_t), cur_argv);
                        store_string(cpu, cur_argv, host_argv[i]);
                        cur_argv += strlen(host_argv[i]) + 1;
                }

                /*  Store a NULL value between the args and the environment
                    strings:  */
                store_32bit_word(cpu, stack_top - stack_margin +
                    4 + i*sizeof(uint32_t), 0);  i++;

                /*  TODO: get environment strings from somewhere  */

                /*  Store all environment strings:  */
                for (i2 = 0; i2 < envc; i2 ++) {
                        store_32bit_word(cpu, stack_top - stack_margin + 4
                            + (i+i2)*sizeof(uint32_t), cur_argv);
                        store_string(cpu, cur_argv, "DISPLAY=localhost:0.0");
                        cur_argv += strlen("DISPLAY=localhost:0.0") + 1;
                }
                break;

        default:
                fatal("useremul_netbsd_setup(): unimplemented arch\n");
                exit(1);
        }
}


/*
 *  useremul_netbsd():
 *
 *  NetBSD syscall emulation.
 */
void useremul_netbsd(struct cpu *cpu, uint32_t code)
{
        int syscall_nr = -1, error_flag = 0, result_high_set = 0;
        uint64_t arg0=0,arg1=0,arg2=0,arg3=0,stack0=0,stack1=0,stack2=0;
        int64_t result = 0;


        /*
         *  Retrieve syscall arguments (in registers and/or the stack):
         */

        switch (cpu->machine->arch) {

        case ARCH_MIPS:
                syscall_nr = cpu->cd.mips.gpr[MIPS_GPR_V0];
                if (syscall_nr == NETBSD_SYS___syscall) {
                        syscall_nr = cpu->cd.mips.gpr[MIPS_GPR_A0] +
                            (cpu->cd.mips.gpr[MIPS_GPR_A1] << 32);
                        arg0 = cpu->cd.mips.gpr[MIPS_GPR_A2];
                        arg1 = cpu->cd.mips.gpr[MIPS_GPR_A3];

                        /*  TODO:  stack arguments? Are these correct?  */
                        arg2 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 8);
                        arg3 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 16);
                        stack0 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 24);
                        stack1 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 32);
                        stack2 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 40);
                } else {
                        arg0 = cpu->cd.mips.gpr[MIPS_GPR_A0];
                        arg1 = cpu->cd.mips.gpr[MIPS_GPR_A1];
                        arg2 = cpu->cd.mips.gpr[MIPS_GPR_A2];
                        arg3 = cpu->cd.mips.gpr[MIPS_GPR_A3];

                        /*  TODO:  stack arguments? Are these correct?  */
                        stack0 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 4);
                        stack1 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 8);
                        stack2 = load_32bit_word(cpu,
                            cpu->cd.mips.gpr[MIPS_GPR_SP] + 12);
                }
                break;
        }


        /*
         *  Handle the syscall:
         */

        switch (syscall_nr) {

        case NETBSD_SYS_exit:
                useremul_syscall_exit(cpu, arg0);
                break;

        case NETBSD_SYS_sync:
                useremul_syscall_sync(cpu);
                break;

        default:
                fatal("[ UNIMPLEMENTED NetBSD syscall nr %i ]\n", syscall_nr);
                error_flag = 1;  result = NETBSD_ENOSYS;

                /*  For now, let's abort execution:  */
                cpu->running = 0;
        }


        /*
         *  Return:
         */

        switch (cpu->machine->arch) {

        case ARCH_MIPS:
                /*
                 *  NetBSD/mips return values:
                 *
                 *  a3 is 0 if the syscall was ok, otherwise 1.
                 *  v0 (and sometimes v1) contain the result value.
                 */
                cpu->cd.mips.gpr[MIPS_GPR_A3] = error_flag;
                if (error_flag)
                        cpu->cd.mips.gpr[MIPS_GPR_V0] = (int32_t)result;

                if (result_high_set)
                        cpu->cd.mips.gpr[MIPS_GPR_V1] = (int32_t)(result >> 32);
                break;
        }
}

1	/*
2	* Copyright (C) 2004-2007 Anders Gavare. All rights reserved.
3	*
4	* Redistribution and use in source and binary forms, with or without
5	* modification, are permitted provided that the following conditions are met:
6	*
7	* 1. Redistributions of source code must retain the above copyright
8	* notice, this list of conditions and the following disclaimer.
9	* 2. Redistributions in binary form must reproduce the above copyright
10	* notice, this list of conditions and the following disclaimer in the
11	* documentation and/or other materials provided with the distribution.
12	* 3. The name of the author may not be used to endorse or promote products
13	* derived from this software without specific prior written permission.
14	*
15	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18	* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25	* SUCH DAMAGE.
26	*
27	*
28	* $Id: useremul_netbsd.c,v 1.3 2007/06/15 01:08:14 debug Exp $
29	*
30	* NetBSD userland (syscall) emulation.
31	*/
32
33	#include <stdio.h>
34	#include <stdlib.h>
35	#include <string.h>
36
37	#include "cpu.h"
38	#include "machine.h"
39	#include "memory.h"
40	#include "useremul.h"
41
42	#include "errno_netbsd.h"
43	#include "syscall_netbsd.h"
44
45
46	/*
47	* useremul_netbsd_setup():
48	*
49	* Set up an emulated userland environment suitable for running NetBSD
50	* binaries.
51	*/
52	void useremul_netbsd_setup(struct cpu cpu, int argc, char *host_argv)
53	{
54	uint64_t stack_top = 0x7fff0000;
55	uint64_t stacksize = 8 * 1048576;
56	uint64_t stack_margin = 16384;
57	uint64_t cur_argv;
58	int i, i2;
59	int envc = 1;
60
61	switch (cpu->machine->arch) {
62	case ARCH_MIPS:
63	/* See netbsd/sys/src/arch/mips/mips_machdep.c:setregs() */
64	cpu->cd.mips.gpr[MIPS_GPR_A0] = stack_top - stack_margin;
65	cpu->cd.mips.gpr[MIPS_GPR_T9] = cpu->pc;
66
67	/* The userland stack: */
68	cpu->cd.mips.gpr[MIPS_GPR_SP] = stack_top - stack_margin;
69	add_symbol_name(&cpu->machine->symbol_context,
70	stack_top - stacksize, stacksize, "userstack", 0, 0);
71
72	/* Stack contents: (TODO: is this correct?) */
73	store_32bit_word(cpu, stack_top - stack_margin, argc);
74
75	cur_argv = stack_top - stack_margin + 128 + (argc + envc)
76	* sizeof(uint32_t);
77	for (i=0; i<argc; i++) {
78	debug("adding argv[%i]: '%s'\n", i, host_argv[i]);
79
80	store_32bit_word(cpu, stack_top - stack_margin +
81	4 + i*sizeof(uint32_t), cur_argv);
82	store_string(cpu, cur_argv, host_argv[i]);
83	cur_argv += strlen(host_argv[i]) + 1;
84	}
85
86	/* Store a NULL value between the args and the environment
87	strings: */
88	store_32bit_word(cpu, stack_top - stack_margin +
89	4 + i*sizeof(uint32_t), 0); i++;
90
91	/* TODO: get environment strings from somewhere */
92
93	/* Store all environment strings: */
94	for (i2 = 0; i2 < envc; i2 ++) {
95	store_32bit_word(cpu, stack_top - stack_margin + 4
96	+ (i+i2)*sizeof(uint32_t), cur_argv);
97	store_string(cpu, cur_argv, "DISPLAY=localhost:0.0");
98	cur_argv += strlen("DISPLAY=localhost:0.0") + 1;
99	}
100	break;
101
102	default:
103	fatal("useremul_netbsd_setup(): unimplemented arch\n");
104	exit(1);
105	}
106	}
107
108
109	/*
110	* useremul_netbsd():
111	*
112	* NetBSD syscall emulation.
113	*/
114	void useremul_netbsd(struct cpu *cpu, uint32_t code)
115	{
116	int syscall_nr = -1, error_flag = 0, result_high_set = 0;
117	uint64_t arg0=0,arg1=0,arg2=0,arg3=0,stack0=0,stack1=0,stack2=0;
118	int64_t result = 0;
119
120
121	/*
122	* Retrieve syscall arguments (in registers and/or the stack):
123	*/
124
125	switch (cpu->machine->arch) {
126
127	case ARCH_MIPS:
128	syscall_nr = cpu->cd.mips.gpr[MIPS_GPR_V0];
129	if (syscall_nr == NETBSD_SYS___syscall) {
130	syscall_nr = cpu->cd.mips.gpr[MIPS_GPR_A0] +
131	(cpu->cd.mips.gpr[MIPS_GPR_A1] << 32);
132	arg0 = cpu->cd.mips.gpr[MIPS_GPR_A2];
133	arg1 = cpu->cd.mips.gpr[MIPS_GPR_A3];
134
135	/* TODO: stack arguments? Are these correct? */
136	arg2 = load_32bit_word(cpu,
137	cpu->cd.mips.gpr[MIPS_GPR_SP] + 8);
138	arg3 = load_32bit_word(cpu,
139	cpu->cd.mips.gpr[MIPS_GPR_SP] + 16);
140	stack0 = load_32bit_word(cpu,
141	cpu->cd.mips.gpr[MIPS_GPR_SP] + 24);
142	stack1 = load_32bit_word(cpu,
143	cpu->cd.mips.gpr[MIPS_GPR_SP] + 32);
144	stack2 = load_32bit_word(cpu,
145	cpu->cd.mips.gpr[MIPS_GPR_SP] + 40);
146	} else {
147	arg0 = cpu->cd.mips.gpr[MIPS_GPR_A0];
148	arg1 = cpu->cd.mips.gpr[MIPS_GPR_A1];
149	arg2 = cpu->cd.mips.gpr[MIPS_GPR_A2];
150	arg3 = cpu->cd.mips.gpr[MIPS_GPR_A3];
151
152	/* TODO: stack arguments? Are these correct? */
153	stack0 = load_32bit_word(cpu,
154	cpu->cd.mips.gpr[MIPS_GPR_SP] + 4);
155	stack1 = load_32bit_word(cpu,
156	cpu->cd.mips.gpr[MIPS_GPR_SP] + 8);
157	stack2 = load_32bit_word(cpu,
158	cpu->cd.mips.gpr[MIPS_GPR_SP] + 12);
159	}
160	break;
161	}
162
163
164	/*
165	* Handle the syscall:
166	*/
167
168	switch (syscall_nr) {
169
170	case NETBSD_SYS_exit:
171	useremul_syscall_exit(cpu, arg0);
172	break;
173
174	case NETBSD_SYS_sync:
175	useremul_syscall_sync(cpu);
176	break;
177
178	default:
179	fatal("[ UNIMPLEMENTED NetBSD syscall nr %i ]\n", syscall_nr);
180	error_flag = 1; result = NETBSD_ENOSYS;
181
182	/* For now, let's abort execution: */
183	cpu->running = 0;
184	}
185
186
187	/*
188	* Return:
189	*/
190
191	switch (cpu->machine->arch) {
192
193	case ARCH_MIPS:
194	/*
195	* NetBSD/mips return values:
196	*
197	* a3 is 0 if the syscall was ok, otherwise 1.
198	* v0 (and sometimes v1) contain the result value.
199	*/
200	cpu->cd.mips.gpr[MIPS_GPR_A3] = error_flag;
201	if (error_flag)
202	cpu->cd.mips.gpr[MIPS_GPR_V0] = (int32_t)result;
203
204	if (result_high_set)
205	cpu->cd.mips.gpr[MIPS_GPR_V1] = (int32_t)(result >> 32);
206	break;
207	}
208	}
209