blob: 060acc889de836d59f3a69e8ddeeb0719604aef5 [file] [log] [blame]
ths831b7822007-01-18 20:06:33 +00001/*
2 * Darwin syscalls
3 *
4 * Copyright (c) 2003 Fabrice Bellard
5 * Copyright (c) 2006 Pierre d'Herbemont
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
Blue Swirl8167ee82009-07-16 20:47:01 +000018 * along with this program; if not, see <http://www.gnu.org/licenses/>.
ths831b7822007-01-18 20:06:33 +000019 */
20#include <fcntl.h>
21#include <stdio.h>
22#include <stdlib.h>
23#include <errno.h>
24
bellard263466f2007-02-05 19:47:42 +000025#include <mach/host_info.h>
ths831b7822007-01-18 20:06:33 +000026#include <mach/mach.h>
27#include <mach/mach_time.h>
bellard263466f2007-02-05 19:47:42 +000028#include <mach/message.h>
ths831b7822007-01-18 20:06:33 +000029
30#include <pthread.h>
31#include <dirent.h>
32
33#include <sys/stat.h>
34#include <sys/syscall.h>
35#include <sys/sysctl.h>
36#include <sys/types.h>
37#include <unistd.h>
38#include <sys/ioctl.h>
39#include <sys/mman.h>
40#include <sys/types.h>
41#include <sys/dirent.h>
42#include <sys/uio.h>
43#include <sys/termios.h>
44#include <sys/ptrace.h>
45#include <net/if.h>
46
47#include <sys/param.h>
48#include <sys/mount.h>
49
50#include <sys/attr.h>
51
52#include <mach/ndr.h>
53#include <mach/mig_errors.h>
54
thsee999a82007-03-19 13:43:04 +000055#include <sys/xattr.h>
56
ths831b7822007-01-18 20:06:33 +000057#include "qemu.h"
58
59//#define DEBUG_SYSCALL
60
61#ifdef DEBUG_SYSCALL
62# define DEBUG_FORCE_ENABLE_LOCAL() int __DEBUG_qemu_user_force_enable = 1
63# define DEBUG_BEGIN_ENABLE __DEBUG_qemu_user_force_enable = 1;
64# define DEBUG_END_ENABLE __DEBUG_qemu_user_force_enable = 0;
65
66# define DEBUG_DISABLE_ALL() static int __DEBUG_qemu_user_force_enable = 0
67# define DEBUG_ENABLE_ALL() static int __DEBUG_qemu_user_force_enable = 1
68 DEBUG_ENABLE_ALL();
69
aliguori93fcfe32009-01-15 22:34:14 +000070# define DPRINTF(...) do { qemu_log(__VA_ARGS__); \
ths831b7822007-01-18 20:06:33 +000071 if(__DEBUG_qemu_user_force_enable) fprintf(stderr, __VA_ARGS__); \
72 } while(0)
73#else
74# define DEBUG_FORCE_ENABLE_LOCAL()
75# define DEBUG_BEGIN_ENABLE
76# define DEBUG_END_ENABLE
77
aliguori93fcfe32009-01-15 22:34:14 +000078# define DPRINTF(...) do { qemu_log(__VA_ARGS__); } while(0)
ths831b7822007-01-18 20:06:33 +000079#endif
80
81enum {
82 bswap_out = 0,
83 bswap_in = 1
84};
85
86extern const char *interp_prefix;
87
88static inline long get_errno(long ret)
89{
90 if (ret == -1)
91 return -errno;
92 else
93 return ret;
94}
95
96static inline int is_error(long ret)
97{
98 return (unsigned long)ret >= (unsigned long)(-4096);
99}
100
101/* ------------------------------------------------------------
102 Mach syscall handling
103*/
104
105void static inline print_description_msg_header(mach_msg_header_t *hdr)
106{
107 char *name = NULL;
108 int i;
109 struct { int number; char *name; } msg_name[] =
110 {
111 /* see http://fxr.watson.org/fxr/source/compat/mach/mach_namemap.c?v=NETBSD */
112 { 200, "host_info" },
113 { 202, "host_page_size" },
114 { 206, "host_get_clock_service" },
115 { 206, "host_get_clock_service" },
116 { 206, "host_get_clock_service" },
117 { 306, "host_get_clock_service" },
118 { 3204, "mach_port_allocate" },
119 { 3206, "mach_port_deallocate" },
120 { 3404, "mach_ports_lookup" },
121 { 3409, "mach_task_get_special_port" },
122 { 3414, "mach_task_get_exception_ports" },
123 { 3418, "mach_semaphore_create" },
124 { 3504, "mach_semaphore_create" },
125 { 3509, "mach_semaphore_create" },
126 { 3518, "semaphore_create" },
127 { 3616, "thread_policy" },
128 { 3801, "vm_allocate" },
129 { 3802, "vm_deallocate" },
130 { 3802, "vm_deallocate" },
131 { 3803, "vm_protect" },
132 { 3812, "vm_map" },
133 { 4241776, "lu_message_send_id" }, /* lookupd */
134 { 4241876, "lu_message_reply_id" }, /* lookupd */
135 };
136
malcb1503cd2008-12-22 20:33:55 +0000137 for(i = 0; i < ARRAY_SIZE(msg_name); i++) {
ths831b7822007-01-18 20:06:33 +0000138 if(msg_name[i].number == hdr->msgh_id)
139 {
140 name = msg_name[i].name;
141 break;
142 }
143 }
144 if(!name)
145 DPRINTF("unknown mach msg %d 0x%x\n", hdr->msgh_id, hdr->msgh_id);
146 else
147 DPRINTF("%s\n", name);
148#if 0
149 DPRINTF("Bits: %8x\n", hdr->msgh_bits);
150 DPRINTF("Size: %8x\n", hdr->msgh_size);
151 DPRINTF("Rmte: %8x\n", hdr->msgh_remote_port);
152 DPRINTF("Locl: %8x\n", hdr->msgh_local_port);
153 DPRINTF("Rsrv: %8x\n", hdr->msgh_reserved);
154
155 DPRINTF("Id : %8x\n", hdr->msgh_id);
156
157 NDR_record_t *ndr = (NDR_record_t *)(hdr + 1);
158 DPRINTF("hdr = %p, sizeof(hdr) = %x, NDR = %p\n", hdr, (unsigned int)sizeof(mach_msg_header_t), ndr);
159 DPRINTF("%d %d %d %d %d %d %d %d\n",
160 ndr->mig_vers, ndr->if_vers, ndr->reserved1, ndr->mig_encoding,
161 ndr->int_rep, ndr->char_rep, ndr->float_rep, ndr->reserved2);
162#endif
163}
164
165static inline void print_mach_msg_return(mach_msg_return_t ret)
166{
167 int i, found = 0;
168#define MACH_MSG_RET(msg) { msg, #msg }
169 struct { int code; char *name; } msg_name[] =
170 {
171 /* ref: http://darwinsource.opendarwin.org/10.4.2/xnu-792.2.4/osfmk/man/mach_msg.html */
172 /* send message */
173 MACH_MSG_RET(MACH_SEND_MSG_TOO_SMALL),
174 MACH_MSG_RET(MACH_SEND_NO_BUFFER),
175 MACH_MSG_RET(MACH_SEND_INVALID_DATA),
176 MACH_MSG_RET(MACH_SEND_INVALID_HEADER),
177 MACH_MSG_RET(MACH_SEND_INVALID_DEST),
178 MACH_MSG_RET(MACH_SEND_INVALID_NOTIFY),
179 MACH_MSG_RET(MACH_SEND_INVALID_REPLY),
180 MACH_MSG_RET(MACH_SEND_INVALID_TRAILER),
181 MACH_MSG_RET(MACH_SEND_INVALID_MEMORY),
182 MACH_MSG_RET(MACH_SEND_INVALID_RIGHT),
183 MACH_MSG_RET(MACH_SEND_INVALID_TYPE),
184 MACH_MSG_RET(MACH_SEND_INTERRUPTED),
185 MACH_MSG_RET(MACH_SEND_TIMED_OUT),
186
187 MACH_MSG_RET(MACH_RCV_BODY_ERROR),
188 MACH_MSG_RET(MACH_RCV_HEADER_ERROR),
189
190 MACH_MSG_RET(MACH_RCV_IN_SET),
191 MACH_MSG_RET(MACH_RCV_INTERRUPTED),
192
193 MACH_MSG_RET(MACH_RCV_INVALID_DATA),
194 MACH_MSG_RET(MACH_RCV_INVALID_NAME),
195 MACH_MSG_RET(MACH_RCV_INVALID_NOTIFY),
196 MACH_MSG_RET(MACH_RCV_INVALID_TRAILER),
197 MACH_MSG_RET(MACH_RCV_INVALID_TYPE),
198
199 MACH_MSG_RET(MACH_RCV_PORT_CHANGED),
200 MACH_MSG_RET(MACH_RCV_PORT_DIED),
201
202 MACH_MSG_RET(MACH_RCV_SCATTER_SMALL),
203 MACH_MSG_RET(MACH_RCV_TIMED_OUT),
204 MACH_MSG_RET(MACH_RCV_TOO_LARGE)
205 };
206#undef MACH_MSG_RET
207
208 if( ret == MACH_MSG_SUCCESS)
209 DPRINTF("MACH_MSG_SUCCESS\n");
210 else
211 {
malcb1503cd2008-12-22 20:33:55 +0000212 for( i = 0; i < ARRAY_SIZE(msg_name); i++) {
bellard263466f2007-02-05 19:47:42 +0000213 if(msg_name[i].code == ret) {
214 DPRINTF("%s\n", msg_name[i].name);
ths831b7822007-01-18 20:06:33 +0000215 found = 1;
bellard263466f2007-02-05 19:47:42 +0000216 break;
ths831b7822007-01-18 20:06:33 +0000217 }
218 }
219 if(!found)
220 qerror("unknow mach message ret code %d\n", ret);
ths831b7822007-01-18 20:06:33 +0000221 }
222}
223
224static inline void swap_mach_msg_header(mach_msg_header_t *hdr)
225{
226 hdr->msgh_bits = tswap32(hdr->msgh_bits);
227 hdr->msgh_size = tswap32(hdr->msgh_size);
228 hdr->msgh_remote_port = tswap32(hdr->msgh_remote_port);
229 hdr->msgh_local_port = tswap32(hdr->msgh_local_port);
230 hdr->msgh_reserved = tswap32(hdr->msgh_reserved);
231 hdr->msgh_id = tswap32(hdr->msgh_id);
232}
233
234struct complex_msg {
235 mach_msg_header_t hdr;
236 mach_msg_body_t body;
237};
238
bellard263466f2007-02-05 19:47:42 +0000239static inline void swap_mach_msg_body(struct complex_msg *complex_msg, int bswap)
ths831b7822007-01-18 20:06:33 +0000240{
241 mach_msg_port_descriptor_t *descr = (mach_msg_port_descriptor_t *)(complex_msg+1);
242 int i,j;
ths831b7822007-01-18 20:06:33 +0000243
244 if(bswap == bswap_in)
245 tswap32s(&complex_msg->body.msgh_descriptor_count);
246
247 DPRINTF("body.msgh_descriptor_count %d\n", complex_msg->body.msgh_descriptor_count);
248
249 for(i = 0; i < complex_msg->body.msgh_descriptor_count; i++) {
250 switch(descr->type)
251 {
252 case MACH_MSG_PORT_DESCRIPTOR:
253 tswap32s(&descr->name);
254 descr++;
255 break;
256 case MACH_MSG_OOL_DESCRIPTOR:
257 {
258 mach_msg_ool_descriptor_t *ool = (void *)descr;
259 tswap32s((uint32_t *)&ool->address);
260 tswap32s(&ool->size);
261
262 descr = (mach_msg_port_descriptor_t *)(ool+1);
263 break;
264 }
265 case MACH_MSG_OOL_PORTS_DESCRIPTOR:
266 {
267 mach_msg_ool_ports_descriptor_t *ool_ports = (void *)descr;
268 mach_port_name_t * port_names;
269
270 if(bswap == bswap_in)
271 {
272 tswap32s((uint32_t *)&ool_ports->address);
273 tswap32s(&ool_ports->count);
274 }
275
276 port_names = ool_ports->address;
277
278 for(j = 0; j < ool_ports->count; j++)
279 tswap32s(&port_names[j]);
280
281 if(bswap == bswap_out)
282 {
283 tswap32s((uint32_t *)&ool_ports->address);
284 tswap32s(&ool_ports->count);
285 }
286
287 descr = (mach_msg_port_descriptor_t *)(ool_ports+1);
288 break;
289 }
290 default: qerror("unknow mach msg descriptor type %x\n", descr->type);
291 }
292 }
293 if(bswap == bswap_out)
294 tswap32s(&complex_msg->body.msgh_descriptor_count);
bellard263466f2007-02-05 19:47:42 +0000295}
296
297static inline void swap_mach_msg(mach_msg_header_t *hdr, int bswap)
298{
299 if (bswap == bswap_out && hdr->msgh_bits & MACH_MSGH_BITS_COMPLEX)
300 swap_mach_msg_body((struct complex_msg *)hdr, bswap);
301
302 swap_mach_msg_header(hdr);
303
304 if (bswap == bswap_in && hdr->msgh_bits & MACH_MSGH_BITS_COMPLEX)
305 swap_mach_msg_body((struct complex_msg *)hdr, bswap);
ths831b7822007-01-18 20:06:33 +0000306}
307
308static inline uint32_t target_mach_msg_trap(
309 mach_msg_header_t *hdr, uint32_t options, uint32_t send_size,
bellard263466f2007-02-05 19:47:42 +0000310 uint32_t rcv_size, uint32_t rcv_name, uint32_t time_out, uint32_t notify)
ths831b7822007-01-18 20:06:33 +0000311{
bellard263466f2007-02-05 19:47:42 +0000312 extern int mach_msg_trap(mach_msg_header_t *, mach_msg_option_t,
313 mach_msg_size_t, mach_msg_size_t, mach_port_t,
314 mach_msg_timeout_t, mach_port_t);
ths831b7822007-01-18 20:06:33 +0000315 mach_msg_audit_trailer_t *trailer;
316 mach_msg_id_t msg_id;
317 uint32_t ret = 0;
ths831b7822007-01-18 20:06:33 +0000318 int i;
319
bellard263466f2007-02-05 19:47:42 +0000320 swap_mach_msg(hdr, bswap_in);
ths831b7822007-01-18 20:06:33 +0000321
322 msg_id = hdr->msgh_id;
323
bellard263466f2007-02-05 19:47:42 +0000324 print_description_msg_header(hdr);
ths831b7822007-01-18 20:06:33 +0000325
326 ret = mach_msg_trap(hdr, options, send_size, rcv_size, rcv_name, time_out, notify);
327
328 print_mach_msg_return(ret);
329
ths831b7822007-01-18 20:06:33 +0000330 if( (options & MACH_RCV_MSG) && (REQUESTED_TRAILER_SIZE(options) > 0) )
331 {
332 /* XXX: the kernel always return the full trailer with MACH_SEND_MSG, so we should
333 probably always bswap it */
334 /* warning: according to Mac OS X Internals (the book) msg_size might be expressed in
335 natural_t units but according to xnu/osfmk/mach/message.h: "The size of
336 the message must be specified in bytes" */
337 trailer = (mach_msg_audit_trailer_t *)((uint8_t *)hdr + hdr->msgh_size);
338 /* XXX: Should probably do that based on the option asked by the sender, but dealing
339 with kernel answer seems more sound */
340 switch(trailer->msgh_trailer_size)
341 {
342 case sizeof(mach_msg_audit_trailer_t):
343 for(i = 0; i < 8; i++)
344 tswap32s(&trailer->msgh_audit.val[i]);
345 /* Fall in mach_msg_security_trailer_t case */
346 case sizeof(mach_msg_security_trailer_t):
347 tswap32s(&trailer->msgh_sender.val[0]);
348 tswap32s(&trailer->msgh_sender.val[1]);
349 /* Fall in mach_msg_seqno_trailer_t case */
350 case sizeof(mach_msg_seqno_trailer_t):
351 tswap32s(&trailer->msgh_seqno);
352 /* Fall in mach_msg_trailer_t case */
353 case sizeof(mach_msg_trailer_t):
354 tswap32s(&trailer->msgh_trailer_type);
355 tswap32s(&trailer->msgh_trailer_size);
356 break;
357 case 0:
358 /* Safer not to byteswap, but probably wrong */
359 break;
360 default:
361 qerror("unknow trailer type given its size %d\n", trailer->msgh_trailer_size);
362 break;
363 }
364 }
365
366 /* Special message handling */
367 switch (msg_id) {
368 case 200: /* host_info */
369 {
370 mig_reply_error_t *err = (mig_reply_error_t *)hdr;
ths7ed40ac2007-02-22 20:43:09 +0000371 struct {
372 uint32_t unknow1;
373 uint32_t max_cpus;
374 uint32_t avail_cpus;
375 uint32_t memory_size;
376 uint32_t cpu_type;
377 uint32_t cpu_subtype;
378 } *data = (void *)(err+1);
ths831b7822007-01-18 20:06:33 +0000379
bellard263466f2007-02-05 19:47:42 +0000380 DPRINTF("maxcpu = 0x%x\n", data->max_cpus);
381 DPRINTF("numcpu = 0x%x\n", data->avail_cpus);
382 DPRINTF("memsize = 0x%x\n", data->memory_size);
ths831b7822007-01-18 20:06:33 +0000383
384#if defined(TARGET_I386)
385 data->cpu_type = CPU_TYPE_I386;
386 DPRINTF("cpu_type changed to 0x%x(i386)\n", data->cpu_type);
ths831b7822007-01-18 20:06:33 +0000387 data->cpu_subtype = CPU_SUBTYPE_PENT;
388 DPRINTF("cpu_subtype changed to 0x%x(i386_pent)\n", data->cpu_subtype);
389#elif defined(TARGET_PPC)
bellard263466f2007-02-05 19:47:42 +0000390 data->cpu_type = CPU_TYPE_POWERPC;
391 DPRINTF("cpu_type changed to 0x%x(ppc)\n", data->cpu_type);
ths831b7822007-01-18 20:06:33 +0000392 data->cpu_subtype = CPU_SUBTYPE_POWERPC_750;
393 DPRINTF("cpu_subtype changed to 0x%x(ppc_all)\n", data->cpu_subtype);
394#else
395# error target not supported
396#endif
397 break;
398 }
399 case 202: /* host_page_size */
400 {
401 mig_reply_error_t *err = (mig_reply_error_t *)hdr;
402 uint32_t *pagesize = (uint32_t *)(err+1);
403
404 DPRINTF("pagesize = %d\n", *pagesize);
405 break;
406 }
407 default: break;
408 }
409
bellard263466f2007-02-05 19:47:42 +0000410 swap_mach_msg(hdr, bswap_out);
ths831b7822007-01-18 20:06:33 +0000411
412 return ret;
413}
414
415long do_mach_syscall(void *cpu_env, int num, uint32_t arg1, uint32_t arg2, uint32_t arg3,
416 uint32_t arg4, uint32_t arg5, uint32_t arg6, uint32_t arg7,
417 uint32_t arg8)
418{
blueswir13f47aa82008-03-09 06:59:01 +0000419 extern uint32_t mach_reply_port(void);
ths831b7822007-01-18 20:06:33 +0000420
421 long ret = 0;
422
423 arg1 = tswap32(arg1);
424 arg2 = tswap32(arg2);
425 arg3 = tswap32(arg3);
426 arg4 = tswap32(arg4);
427 arg5 = tswap32(arg5);
428 arg6 = tswap32(arg6);
429 arg7 = tswap32(arg7);
430 arg8 = tswap32(arg8);
431
432 DPRINTF("mach syscall %d : " , num);
433
434 switch(num) {
435 /* see xnu/osfmk/mach/syscall_sw.h */
436 case -26:
437 DPRINTF("mach_reply_port()\n");
438 ret = mach_reply_port();
439 break;
440 case -27:
441 DPRINTF("mach_thread_self()\n");
442 ret = mach_thread_self();
443 break;
444 case -28:
445 DPRINTF("mach_task_self()\n");
446 ret = mach_task_self();
447 break;
448 case -29:
449 DPRINTF("mach_host_self()\n");
450 ret = mach_host_self();
451 break;
452 case -31:
453 DPRINTF("mach_msg_trap(0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x)\n",
454 arg1, arg2, arg3, arg4, arg5, arg6, arg7);
ths831b7822007-01-18 20:06:33 +0000455 ret = target_mach_msg_trap((mach_msg_header_t *)arg1, arg2, arg3, arg4, arg5, arg6, arg7);
ths831b7822007-01-18 20:06:33 +0000456 break;
thsee999a82007-03-19 13:43:04 +0000457/* may need more translation if target arch is different from host */
458#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__))
459 case -33:
460 DPRINTF("semaphore_signal_trap(0x%x)\n", arg1);
461 ret = semaphore_signal_trap(arg1);
462 break;
463 case -34:
464 DPRINTF("semaphore_signal_all_trap(0x%x)\n", arg1);
465 ret = semaphore_signal_all_trap(arg1);
466 break;
467 case -35:
468 DPRINTF("semaphore_signal_thread_trap(0x%x)\n", arg1, arg2);
469 ret = semaphore_signal_thread_trap(arg1,arg2);
470 break;
471#endif
ths831b7822007-01-18 20:06:33 +0000472 case -36:
473 DPRINTF("semaphore_wait_trap(0x%x)\n", arg1);
474 extern int semaphore_wait_trap(int); // XXX: is there any header for that?
475 ret = semaphore_wait_trap(arg1);
476 break;
thsee999a82007-03-19 13:43:04 +0000477/* may need more translation if target arch is different from host */
478#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__))
479 case -37:
480 DPRINTF("semaphore_wait_signal_trap(0x%x, 0x%x)\n", arg1, arg2);
481 ret = semaphore_wait_signal_trap(arg1,arg2);
482 break;
483#endif
ths831b7822007-01-18 20:06:33 +0000484 case -43:
485 DPRINTF("map_fd(0x%x, 0x%x, 0x%x, 0x%x, 0x%x)\n",
486 arg1, arg2, arg3, arg4, arg5);
487 ret = map_fd(arg1, arg2, (void*)arg3, arg4, arg5);
488 tswap32s((uint32_t*)arg3);
489 break;
thsee999a82007-03-19 13:43:04 +0000490/* may need more translation if target arch is different from host */
491#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__))
492 case -61:
493 DPRINTF("syscall_thread_switch(0x%x, 0x%x, 0x%x)\n",
494 arg1, arg2, arg3);
495 ret = syscall_thread_switch(arg1, arg2, arg3); // just a hint to the scheduler; can drop?
496 break;
497#endif
ths831b7822007-01-18 20:06:33 +0000498 case -89:
499 DPRINTF("mach_timebase_info(0x%x)\n", arg1);
500 struct mach_timebase_info info;
501 ret = mach_timebase_info(&info);
502 if(!is_error(ret))
503 {
504 struct mach_timebase_info *outInfo = (void*)arg1;
505 outInfo->numer = tswap32(info.numer);
506 outInfo->denom = tswap32(info.denom);
507 }
508 break;
509 case -90:
510 DPRINTF("mach_wait_until()\n");
511 extern int mach_wait_until(uint64_t); // XXX: is there any header for that?
512 ret = mach_wait_until(((uint64_t)arg2<<32) | (uint64_t)arg1);
513 break;
514 case -91:
515 DPRINTF("mk_timer_create()\n");
516 extern int mk_timer_create(); // XXX: is there any header for that?
517 ret = mk_timer_create();
518 break;
519 case -92:
520 DPRINTF("mk_timer_destroy()\n");
521 extern int mk_timer_destroy(int); // XXX: is there any header for that?
522 ret = mk_timer_destroy(arg1);
523 break;
524 case -93:
525 DPRINTF("mk_timer_create()\n");
526 extern int mk_timer_arm(int, uint64_t); // XXX: is there any header for that?
527 ret = mk_timer_arm(arg1, ((uint64_t)arg3<<32) | (uint64_t)arg2);
528 break;
529 case -94:
530 DPRINTF("mk_timer_cancel()\n");
531 extern int mk_timer_cancel(int, uint64_t *); // XXX: is there any header for that?
532 ret = mk_timer_cancel(arg1, (uint64_t *)arg2);
533 if((!is_error(ret)) && arg2)
534 tswap64s((uint64_t *)arg2);
535 break;
536 default:
537 gemu_log("qemu: Unsupported mach syscall: %d(0x%x)\n", num, num);
538 gdb_handlesig (cpu_env, SIGTRAP);
539 exit(0);
540 break;
541 }
542 return ret;
543}
544
545/* ------------------------------------------------------------
546 thread type syscall handling
547*/
548long do_thread_syscall(void *cpu_env, int num, uint32_t arg1, uint32_t arg2, uint32_t arg3,
549 uint32_t arg4, uint32_t arg5, uint32_t arg6, uint32_t arg7,
550 uint32_t arg8)
551{
552 extern uint32_t cthread_set_self(uint32_t);
blueswir13f47aa82008-03-09 06:59:01 +0000553 extern uint32_t processor_facilities_used(void);
ths831b7822007-01-18 20:06:33 +0000554 long ret = 0;
555
556 arg1 = tswap32(arg1);
557 arg2 = tswap32(arg2);
558 arg3 = tswap32(arg3);
559 arg4 = tswap32(arg4);
560 arg5 = tswap32(arg5);
561 arg6 = tswap32(arg6);
562 arg7 = tswap32(arg7);
563 arg8 = tswap32(arg8);
564
565 DPRINTF("thread syscall %d : " , num);
566
567 switch(num) {
568#ifdef TARGET_I386
569 case 0x3:
570#endif
571 case 0x7FF1: /* cthread_set_self */
572 DPRINTF("cthread_set_self(0x%x)\n", (unsigned int)arg1);
573 ret = cthread_set_self(arg1);
574#ifdef TARGET_I386
575 /* we need to update the LDT with the address of the thread */
576 write_dt((void *)(((CPUX86State *) cpu_env)->ldt.base + (4 * sizeof(uint64_t))), arg1, 1,
577 DESC_G_MASK | DESC_B_MASK | DESC_P_MASK | DESC_S_MASK |
578 (3 << DESC_DPL_SHIFT) | (0x2 << DESC_TYPE_SHIFT));
579 /* New i386 convention, %gs should be set to our this LDT entry */
580 cpu_x86_load_seg(cpu_env, R_GS, 0x27);
581 /* Old i386 convention, the kernel returns the selector for the cthread (pre-10.4.8?)*/
582 ret = 0x27;
583#endif
584 break;
585 case 0x7FF2: /* Called the super-fast pthread_self handler by the apple guys */
586 DPRINTF("pthread_self()\n");
587 ret = (uint32_t)pthread_self();
588 break;
589 case 0x7FF3:
590 DPRINTF("processor_facilities_used()\n");
591#ifdef __i386__
592 qerror("processor_facilities_used: not implemented!\n");
593#else
594 ret = (uint32_t)processor_facilities_used();
595#endif
596 break;
597 default:
598 gemu_log("qemu: Unsupported thread syscall: %d(0x%x)\n", num, num);
599 gdb_handlesig (cpu_env, SIGTRAP);
600 exit(0);
601 break;
602 }
603 return ret;
604}
605
606/* ------------------------------------------------------------
607 ioctl handling
608*/
609static inline void byteswap_termios(struct termios *t)
610{
611 tswap32s((uint32_t*)&t->c_iflag);
612 tswap32s((uint32_t*)&t->c_oflag);
613 tswap32s((uint32_t*)&t->c_cflag);
614 tswap32s((uint32_t*)&t->c_lflag);
615 /* 20 (char) bytes then */
616 tswap32s((uint32_t*)&t->c_ispeed);
617 tswap32s((uint32_t*)&t->c_ospeed);
618}
619
620static inline void byteswap_winsize(struct winsize *w)
621{
622 tswap16s(&w->ws_row);
623 tswap16s(&w->ws_col);
624 tswap16s(&w->ws_xpixel);
625 tswap16s(&w->ws_ypixel);
626}
627
Blue Swirl001faf32009-05-13 17:53:17 +0000628#define STRUCT(name, ...) STRUCT_ ## name,
ths831b7822007-01-18 20:06:33 +0000629#define STRUCT_SPECIAL(name) STRUCT_ ## name,
630enum {
631#include "ioctls_types.h"
632};
633#undef STRUCT
634#undef STRUCT_SPECIAL
635
Blue Swirl001faf32009-05-13 17:53:17 +0000636#define STRUCT(name, ...) const argtype struct_ ## name ## _def[] = { __VA_ARGS__, TYPE_NULL };
ths831b7822007-01-18 20:06:33 +0000637#define STRUCT_SPECIAL(name)
638#include "ioctls_types.h"
639#undef STRUCT
640#undef STRUCT_SPECIAL
641
642typedef struct IOCTLEntry {
643 unsigned int target_cmd;
644 unsigned int host_cmd;
645 const char *name;
646 int access;
647 const argtype arg_type[5];
648} IOCTLEntry;
649
650#define IOC_R 0x0001
651#define IOC_W 0x0002
652#define IOC_RW (IOC_R | IOC_W)
653
654#define MAX_STRUCT_SIZE 4096
655
blueswir19f106a72008-10-05 10:52:52 +0000656static IOCTLEntry ioctl_entries[] = {
Blue Swirl001faf32009-05-13 17:53:17 +0000657#define IOCTL(cmd, access, ...) \
658 { cmd, cmd, #cmd, access, { __VA_ARGS__ } },
ths831b7822007-01-18 20:06:33 +0000659#include "ioctls.h"
660 { 0, 0, },
661};
662
663/* ??? Implement proper locking for ioctls. */
664static long do_ioctl(long fd, long cmd, long arg)
665{
666 const IOCTLEntry *ie;
667 const argtype *arg_type;
668 int ret;
669 uint8_t buf_temp[MAX_STRUCT_SIZE];
670 int target_size;
671 void *argptr;
672
673 ie = ioctl_entries;
674 for(;;) {
675 if (ie->target_cmd == 0) {
676 gemu_log("Unsupported ioctl: cmd=0x%04lx\n", cmd);
677 return -ENOSYS;
678 }
679 if (ie->target_cmd == cmd)
680 break;
681 ie++;
682 }
683 arg_type = ie->arg_type;
684#if defined(DEBUG)
685 gemu_log("ioctl: cmd=0x%04lx (%s)\n", cmd, ie->name);
686#endif
687 switch(arg_type[0]) {
688 case TYPE_NULL:
689 /* no argument */
690 ret = get_errno(ioctl(fd, ie->host_cmd));
691 break;
692 case TYPE_PTRVOID:
693 case TYPE_INT:
694 /* int argment */
695 ret = get_errno(ioctl(fd, ie->host_cmd, arg));
696 break;
697 case TYPE_PTR:
698 arg_type++;
699 target_size = thunk_type_size(arg_type, 0);
700 switch(ie->access) {
701 case IOC_R:
702 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
703 if (!is_error(ret)) {
704 argptr = lock_user(arg, target_size, 0);
705 thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET);
706 unlock_user(argptr, arg, target_size);
707 }
708 break;
709 case IOC_W:
710 argptr = lock_user(arg, target_size, 1);
711 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
712 unlock_user(argptr, arg, 0);
713 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
714 break;
715 default:
716 case IOC_RW:
717 argptr = lock_user(arg, target_size, 1);
718 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
719 unlock_user(argptr, arg, 0);
720 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
721 if (!is_error(ret)) {
722 argptr = lock_user(arg, target_size, 0);
723 thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET);
724 unlock_user(argptr, arg, target_size);
725 }
726 break;
727 }
728 break;
729 default:
730 gemu_log("Unsupported ioctl type: cmd=0x%04lx type=%d\n", cmd, arg_type[0]);
731 ret = -ENOSYS;
732 break;
733 }
734 return ret;
735}
736
737/* ------------------------------------------------------------
738 Unix syscall handling
739*/
740
741static inline void byteswap_attrlist(struct attrlist *a)
742{
743 tswap16s(&a->bitmapcount);
744 tswap16s(&a->reserved);
745 tswap32s(&a->commonattr);
746 tswap32s(&a->volattr);
747 tswap32s(&a->dirattr);
748 tswap32s(&a->fileattr);
749 tswap32s(&a->forkattr);
750}
751
752struct attrbuf_header {
753 unsigned long length;
754};
755
756static inline void byteswap_attrbuf(struct attrbuf_header *attrbuf, struct attrlist *attrlist)
757{
758 DPRINTF("attrBuf.lenght %lx\n", attrbuf->length);
759}
760
761static inline void byteswap_statfs(struct statfs *s)
762{
763 tswap16s((uint16_t*)&s->f_otype);
764 tswap16s((uint16_t*)&s->f_oflags);
765 tswap32s((uint32_t*)&s->f_bsize);
766 tswap32s((uint32_t*)&s->f_iosize);
767 tswap32s((uint32_t*)&s->f_blocks);
768 tswap32s((uint32_t*)&s->f_bfree);
769 tswap32s((uint32_t*)&s->f_bavail);
770 tswap32s((uint32_t*)&s->f_files);
771 tswap32s((uint32_t*)&s->f_ffree);
772 tswap32s((uint32_t*)&s->f_fsid.val[0]);
773 tswap32s((uint32_t*)&s->f_fsid.val[1]);
774 tswap16s((uint16_t*)&s->f_reserved1);
775 tswap16s((uint16_t*)&s->f_type);
776 tswap32s((uint32_t*)&s->f_flags);
777}
778
779static inline void byteswap_stat(struct stat *s)
780{
781 tswap32s((uint32_t*)&s->st_dev);
782 tswap32s(&s->st_ino);
783 tswap16s(&s->st_mode);
784 tswap16s(&s->st_nlink);
785 tswap32s(&s->st_uid);
786 tswap32s(&s->st_gid);
787 tswap32s((uint32_t*)&s->st_rdev);
788 tswap32s((uint32_t*)&s->st_atimespec.tv_sec);
789 tswap32s((uint32_t*)&s->st_atimespec.tv_nsec);
790 tswap32s((uint32_t*)&s->st_mtimespec.tv_sec);
791 tswap32s((uint32_t*)&s->st_mtimespec.tv_nsec);
792 tswap32s((uint32_t*)&s->st_ctimespec.tv_sec);
793 tswap32s((uint32_t*)&s->st_ctimespec.tv_nsec);
794 tswap64s((uint64_t*)&s->st_size);
795 tswap64s((uint64_t*)&s->st_blocks);
796 tswap32s((uint32_t*)&s->st_blksize);
797 tswap32s(&s->st_flags);
798 tswap32s(&s->st_gen);
799}
800
801static inline void byteswap_dirents(struct dirent *d, int bytes)
802{
803 char *b;
804 for( b = (char*)d; (int)b < (int)d+bytes; )
805 {
806 unsigned short s = ((struct dirent *)b)->d_reclen;
807 tswap32s(&((struct dirent *)b)->d_ino);
808 tswap16s(&((struct dirent *)b)->d_reclen);
809 if(s<=0)
810 break;
811 b += s;
812 }
813}
814
815static inline void byteswap_iovec(struct iovec *v, int n)
816{
817 int i;
818 for(i = 0; i < n; i++)
819 {
820 tswap32s((uint32_t*)&v[i].iov_base);
821 tswap32s((uint32_t*)&v[i].iov_len);
822 }
823}
824
825static inline void byteswap_timeval(struct timeval *t)
826{
827 tswap32s((uint32_t*)&t->tv_sec);
828 tswap32s((uint32_t*)&t->tv_usec);
829}
830
831long do_unix_syscall_indirect(void *cpu_env, int num);
blueswir13f47aa82008-03-09 06:59:01 +0000832long do_sync(void);
ths831b7822007-01-18 20:06:33 +0000833long do_exit(uint32_t arg1);
834long do_getlogin(char *out, uint32_t size);
835long do_open(char * arg1, uint32_t arg2, uint32_t arg3);
836long do_getfsstat(struct statfs * arg1, uint32_t arg2, uint32_t arg3);
837long do_sigprocmask(uint32_t arg1, uint32_t * arg2, uint32_t * arg3);
838long do_execve(char* arg1, char ** arg2, char ** arg3);
839long do_getgroups(uint32_t arg1, gid_t * arg2);
840long do_gettimeofday(struct timeval * arg1, void * arg2);
841long do_readv(uint32_t arg1, struct iovec * arg2, uint32_t arg3);
842long do_writev(uint32_t arg1, struct iovec * arg2, uint32_t arg3);
843long do_utimes(char * arg1, struct timeval * arg2);
844long do_futimes(uint32_t arg1, struct timeval * arg2);
845long do_statfs(char * arg1, struct statfs * arg2);
846long do_fstatfs(uint32_t arg1, struct statfs * arg2);
847long do_stat(char * arg1, struct stat * arg2);
848long do_fstat(uint32_t arg1, struct stat * arg2);
849long do_lstat(char * arg1, struct stat * arg2);
850long do_getdirentries(uint32_t arg1, void* arg2, uint32_t arg3, void* arg4);
851long do_lseek(void *cpu_env, int num);
bellard263466f2007-02-05 19:47:42 +0000852long do___sysctl(int * name, uint32_t namelen, void * oldp, size_t * oldlenp, void * newp, size_t newlen /* ignored */);
ths831b7822007-01-18 20:06:33 +0000853long do_getattrlist(void * arg1, void * arg2, void * arg3, uint32_t arg4, uint32_t arg5);
854long do_getdirentriesattr(uint32_t arg1, void * arg2, void * arg3, size_t arg4, void * arg5, void * arg6, void* arg7, uint32_t arg8);
bellard263466f2007-02-05 19:47:42 +0000855long do_fcntl(int fd, int cmd, int arg);
ths831b7822007-01-18 20:06:33 +0000856
857long no_syscall(void *cpu_env, int num);
858
859long do_pread(uint32_t arg1, void * arg2, size_t arg3, off_t arg4)
860{
Blue Swirl0bfcd592010-05-22 08:02:12 +0000861 DPRINTF("0x%x, %p, 0x%lx, 0x%" PRIx64 "\n", arg1, arg2, arg3, arg4);
bellard263466f2007-02-05 19:47:42 +0000862 long ret = pread(arg1, arg2, arg3, arg4);
ths831b7822007-01-18 20:06:33 +0000863 return ret;
864}
bellard263466f2007-02-05 19:47:42 +0000865
866long do_read(int d, void *buf, size_t nbytes)
867{
868 DPRINTF("0x%x, %p, 0x%lx\n", d, buf, nbytes);
869 long ret = get_errno(read(d, buf, nbytes));
870 if(!is_error(ret))
871 DPRINTF("%x\n", *(uint32_t*)buf);
872 return ret;
873}
874
ths831b7822007-01-18 20:06:33 +0000875long unimpl_unix_syscall(void *cpu_env, int num);
876
877typedef long (*syscall_function_t)(void *cpu_env, int num);
878
879
880/* define a table that will handle the syscall number->function association */
881#define VOID void
882#define INT (uint32_t)get_int_arg(&i, cpu_env)
883#define INT64 (uint64_t)get_int64_arg(&i, cpu_env)
884#define UINT (unsigned int)INT
885#define PTR (void*)INT
886
887#define SIZE INT
888#define OFFSET INT64
889
890#define WRAPPER_CALL_DIRECT_0(function, args) long __qemu_##function(void *cpu_env) { return (long)function(); }
891#define WRAPPER_CALL_DIRECT_1(function, _arg1) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; return (long)function(arg1); }
892#define WRAPPER_CALL_DIRECT_2(function, _arg1, _arg2) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; return (long)function(arg1, arg2); }
893#define WRAPPER_CALL_DIRECT_3(function, _arg1, _arg2, _arg3) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; return (long)function(arg1, arg2, arg3); }
894#define WRAPPER_CALL_DIRECT_4(function, _arg1, _arg2, _arg3, _arg4) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; return (long)function(arg1, arg2, arg3, arg4); }
895#define WRAPPER_CALL_DIRECT_5(function, _arg1, _arg2, _arg3, _arg4, _arg5) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; return (long)function(arg1, arg2, arg3, arg4, arg5); }
896#define WRAPPER_CALL_DIRECT_6(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6); }
897#define WRAPPER_CALL_DIRECT_7(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6, _arg7) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; typeof(_arg7) arg7 = _arg7; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6, arg7); }
898#define WRAPPER_CALL_DIRECT_8(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6, _arg7, _arg8) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; typeof(_arg7) arg7 = _arg7; typeof(_arg8) arg8 = _arg8; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8); }
Blue Swirl001faf32009-05-13 17:53:17 +0000899#define WRAPPER_CALL_DIRECT(function, nargs, ...) WRAPPER_CALL_DIRECT_##nargs(function, __VA_ARGS__)
900#define WRAPPER_CALL_NOERRNO(function, nargs, ...) WRAPPER_CALL_DIRECT(function, nargs, __VA_ARGS__)
901#define WRAPPER_CALL_INDIRECT(function, nargs, ...)
902#define ENTRY(name, number, function, nargs, call_type, ...) WRAPPER_##call_type(function, nargs, __VA_ARGS__)
ths831b7822007-01-18 20:06:33 +0000903
904#include "syscalls.h"
905
906#undef ENTRY
907#undef WRAPPER_CALL_DIRECT
908#undef WRAPPER_CALL_NOERRNO
909#undef WRAPPER_CALL_INDIRECT
910#undef OFFSET
911#undef SIZE
912#undef INT
913#undef PTR
914#undef INT64
915
916#define _ENTRY(name, number, function, nargs, call_type) [number] = {\
917 name, \
918 number, \
919 (syscall_function_t)function, \
920 nargs, \
921 call_type \
922 },
923
924#define ENTRY_CALL_DIRECT(name, number, function, nargs, call_type) _ENTRY(name, number, __qemu_##function, nargs, call_type)
925#define ENTRY_CALL_NOERRNO(name, number, function, nargs, call_type) ENTRY_CALL_DIRECT(name, number, function, nargs, call_type)
926#define ENTRY_CALL_INDIRECT(name, number, function, nargs, call_type) _ENTRY(name, number, function, nargs, call_type)
Blue Swirl001faf32009-05-13 17:53:17 +0000927#define ENTRY(name, number, function, nargs, call_type, ...) ENTRY_##call_type(name, number, function, nargs, call_type)
ths831b7822007-01-18 20:06:33 +0000928
929#define CALL_DIRECT 1
930#define CALL_INDIRECT 2
931#define CALL_NOERRNO (CALL_DIRECT | 4 /* = 5 */)
932
933struct unix_syscall {
934 char * name;
935 int number;
936 syscall_function_t function;
937 int nargs;
938 int call_type;
939} unix_syscall_table[SYS_MAXSYSCALL] = {
940#include "syscalls.h"
941};
942
943#undef ENTRY
944#undef _ENTRY
945#undef ENTRY_CALL_DIRECT
946#undef ENTRY_CALL_INDIRECT
947#undef ENTRY_CALL_NOERRNO
948
949/* Actual syscalls implementation */
950
951long do_unix_syscall_indirect(void *cpu_env, int num)
952{
953 long ret;
954 int new_num;
955 int i = 0;
956
957 new_num = get_int_arg(&i, cpu_env);
958#ifdef TARGET_I386
959 ((CPUX86State*)cpu_env)->regs[R_ESP] += 4;
960 /* XXX: not necessary */
961 ((CPUX86State*)cpu_env)->regs[R_EAX] = new_num;
962#elif TARGET_PPC
963 {
964 int i;
965 uint32_t **regs = ((CPUPPCState*)cpu_env)->gpr;
966 for(i = 3; i < 11; i++)
967 *regs[i] = *regs[i+1];
968 /* XXX: not necessary */
969 *regs[0] = new_num;
970 }
971#endif
972 ret = do_unix_syscall(cpu_env, new_num);
973#ifdef TARGET_I386
974 ((CPUX86State*)cpu_env)->regs[R_ESP] -= 4;
975 /* XXX: not necessary */
976 ((CPUX86State*)cpu_env)->regs[R_EAX] = num;
977#elif TARGET_PPC
978 {
979 int i;
980 /* XXX: not really needed those regs are volatile accross calls */
981 uint32_t **regs = ((CPUPPCState*)cpu_env)->gpr;
982 for(i = 11; i > 3; i--)
983 *regs[i] = *regs[i-1];
984 regs[3] = new_num;
985 *regs[0] = num;
986 }
987#endif
988 return ret;
989}
990
991long do_exit(uint32_t arg1)
992{
993 exit(arg1);
994 /* not reached */
995 return -1;
996}
997
blueswir13f47aa82008-03-09 06:59:01 +0000998long do_sync(void)
ths831b7822007-01-18 20:06:33 +0000999{
1000 sync();
1001 return 0;
1002}
1003
1004long do_getlogin(char *out, uint32_t size)
1005{
1006 char *login = getlogin();
1007 if(!login)
1008 return -1;
1009 memcpy(out, login, size);
1010 return 0;
1011}
1012long do_open(char * arg1, uint32_t arg2, uint32_t arg3)
1013{
1014 /* XXX: don't let the %s stay in there */
1015 DPRINTF("open(%s, 0x%x, 0x%x)\n", arg1, arg2, arg3);
1016 return get_errno(open(arg1, arg2, arg3));
1017}
1018
1019long do_getfsstat(struct statfs * arg1, uint32_t arg2, uint32_t arg3)
1020{
1021 long ret;
1022 DPRINTF("getfsstat(%p, 0x%x, 0x%x)\n", arg1, arg2, arg3);
1023 ret = get_errno(getfsstat(arg1, arg2, arg3));
1024 if((!is_error(ret)) && arg1)
1025 byteswap_statfs(arg1);
1026 return ret;
1027}
1028
1029long do_sigprocmask(uint32_t arg1, uint32_t * arg2, uint32_t * arg3)
1030{
1031 long ret;
1032 DPRINTF("sigprocmask(%d, %p, %p)\n", arg1, arg2, arg3);
1033 gemu_log("XXX: sigprocmask not tested (%d, %p, %p)\n", arg1, arg2, arg3);
1034 if(arg2)
1035 tswap32s(arg2);
1036 ret = get_errno(sigprocmask(arg1, (void *)arg2, (void *)arg3));
1037 if((!is_error(ret)) && arg3)
1038 tswap32s(arg3);
1039 if(arg2)
1040 tswap32s(arg2);
1041 return ret;
1042}
1043
1044long do_execve(char* arg1, char ** arg2, char ** arg3)
1045{
1046 long ret;
1047 char **argv = arg2;
1048 char **envp = arg3;
1049 int argc;
1050 int envc;
1051
1052 /* XXX: don't let the %s stay in here */
1053 DPRINTF("execve(%s, %p, %p)\n", arg1, arg2, arg3);
1054
1055 for(argc = 0; argv[argc]; argc++);
1056 for(envc = 0; envp[envc]; envc++);
1057
1058 argv = (char**)malloc(sizeof(char*)*argc);
1059 envp = (char**)malloc(sizeof(char*)*envc);
1060
1061 for(; argc >= 0; argc--)
1062 argv[argc] = (char*)tswap32((uint32_t)(arg2)[argc]);
1063
1064 for(; envc >= 0; envc--)
1065 envp[envc] = (char*)tswap32((uint32_t)(arg3)[envc]);
1066
1067 ret = get_errno(execve(arg1, argv, envp));
1068 free(argv);
1069 free(envp);
1070 return ret;
1071}
1072
1073long do_getgroups(uint32_t arg1, gid_t * arg2)
1074{
1075 long ret;
1076 int i;
1077 DPRINTF("getgroups(0x%x, %p)\n", arg1, arg2);
1078 ret = get_errno(getgroups(arg1, arg2));
1079 if(ret > 0)
1080 for(i = 0; i < arg1; i++)
1081 tswap32s(&arg2[i]);
1082 return ret;
1083}
1084
1085long do_gettimeofday(struct timeval * arg1, void * arg2)
1086{
1087 long ret;
1088 DPRINTF("gettimeofday(%p, %p)\n",
1089 arg1, arg2);
1090 ret = get_errno(gettimeofday(arg1, arg2));
1091 if(!is_error(ret))
1092 {
1093 /* timezone no longer used according to the manpage, so don't bother with it */
1094 byteswap_timeval(arg1);
1095 }
1096 return ret;
1097}
1098
1099long do_readv(uint32_t arg1, struct iovec * arg2, uint32_t arg3)
1100{
1101 long ret;
1102 DPRINTF("readv(0x%x, %p, 0x%x)\n", arg1, arg2, arg3);
1103 if(arg2)
1104 byteswap_iovec(arg2, arg3);
1105 ret = get_errno(readv(arg1, arg2, arg3));
1106 if((!is_error(ret)) && arg2)
1107 byteswap_iovec(arg2, arg3);
1108 return ret;
1109}
1110
1111long do_writev(uint32_t arg1, struct iovec * arg2, uint32_t arg3)
1112{
1113 long ret;
1114 DPRINTF("writev(0x%x, %p, 0x%x)\n", arg1, arg2, arg3);
1115 if(arg2)
1116 byteswap_iovec(arg2, arg3);
1117 ret = get_errno(writev(arg1, arg2, arg3));
1118 if((!is_error(ret)) && arg2)
1119 byteswap_iovec(arg2, arg3);
1120 return ret;
1121}
1122
1123long do_utimes(char * arg1, struct timeval * arg2)
1124{
1125 DPRINTF("utimes(%p, %p)\n", arg1, arg2);
1126 if(arg2)
1127 {
1128 byteswap_timeval(arg2);
1129 byteswap_timeval(arg2+1);
1130 }
1131 return get_errno(utimes(arg1, arg2));
1132}
1133
1134long do_futimes(uint32_t arg1, struct timeval * arg2)
1135{
1136 DPRINTF("futimes(0x%x, %p)\n", arg1, arg2);
1137 if(arg2)
1138 {
1139 byteswap_timeval(arg2);
1140 byteswap_timeval(arg2+1);
1141 }
1142 return get_errno(futimes(arg1, arg2));
1143}
1144
1145long do_statfs(char * arg1, struct statfs * arg2)
1146{
1147 long ret;
1148 DPRINTF("statfs(%p, %p)\n", arg1, arg2);
1149 ret = get_errno(statfs(arg1, arg2));
1150 if(!is_error(ret))
1151 byteswap_statfs(arg2);
1152 return ret;
1153}
1154
1155long do_fstatfs(uint32_t arg1, struct statfs* arg2)
1156{
1157 long ret;
1158 DPRINTF("fstatfs(0x%x, %p)\n",
1159 arg1, arg2);
1160 ret = get_errno(fstatfs(arg1, arg2));
1161 if(!is_error(ret))
1162 byteswap_statfs(arg2);
1163
1164 return ret;
1165}
1166
1167long do_stat(char * arg1, struct stat * arg2)
1168{
1169 long ret;
1170 /* XXX: don't let the %s stay in there */
1171 DPRINTF("stat(%s, %p)\n", arg1, arg2);
1172 ret = get_errno(stat(arg1, arg2));
1173 if(!is_error(ret))
1174 byteswap_stat(arg2);
1175 return ret;
1176}
1177
1178long do_fstat(uint32_t arg1, struct stat * arg2)
1179{
1180 long ret;
1181 DPRINTF("fstat(0x%x, %p)\n", arg1, arg2);
1182 ret = get_errno(fstat(arg1, arg2));
1183 if(!is_error(ret))
1184 byteswap_stat(arg2);
1185 return ret;
1186}
1187
1188long do_lstat(char * arg1, struct stat * arg2)
1189{
1190 long ret;
1191 /* XXX: don't let the %s stay in there */
1192 DPRINTF("lstat(%s, %p)\n", (const char *)arg1, arg2);
1193 ret = get_errno(lstat(arg1, arg2));
1194 if(!is_error(ret))
1195 byteswap_stat(arg2);
1196 return ret;
1197}
1198
1199long do_getdirentries(uint32_t arg1, void* arg2, uint32_t arg3, void* arg4)
1200{
1201 long ret;
1202 DPRINTF("getdirentries(0x%x, %p, 0x%x, %p)\n", arg1, arg2, arg3, arg4);
1203 if(arg4)
1204 tswap32s((uint32_t *)arg4);
1205 ret = get_errno(getdirentries(arg1, arg2, arg3, arg4));
1206 if(arg4)
1207 tswap32s((uint32_t *)arg4);
1208 if(!is_error(ret))
1209 byteswap_dirents(arg2, ret);
1210 return ret;
1211}
1212
1213long do_lseek(void *cpu_env, int num)
1214{
1215 long ret;
1216 int i = 0;
1217 uint32_t arg1 = get_int_arg(&i, cpu_env);
1218 uint64_t offset = get_int64_arg(&i, cpu_env);
1219 uint32_t arg3 = get_int_arg(&i, cpu_env);
1220 uint64_t r = lseek(arg1, offset, arg3);
1221#ifdef TARGET_I386
1222 /* lowest word in eax, highest in edx */
1223 ret = r & 0xffffffff; /* will be set to eax after do_unix_syscall exit */
1224 ((CPUX86State *)cpu_env)->regs[R_EDX] = (uint32_t)((r >> 32) & 0xffffffff) ;
1225#elif defined TARGET_PPC
1226 ret = r & 0xffffffff; /* will be set to r3 after do_unix_syscall exit */
1227 ((CPUPPCState *)cpu_env)->gpr[4] = (uint32_t)((r >> 32) & 0xffffffff) ;
1228#else
1229 qerror("64 bit ret value on your arch?");
1230#endif
1231 return get_errno(ret);
1232}
1233
bellard263466f2007-02-05 19:47:42 +00001234void no_swap(void * oldp, int size)
1235{
1236}
1237
1238void sysctl_tswap32s(void * oldp, int size)
1239{
1240 tswap32s(oldp);
1241}
1242
1243void bswap_oid(uint32_t * oldp, int size)
1244{
1245 int count = size / sizeof(int);
1246 int i = 0;
1247 do { tswap32s(oldp + i); } while (++i < count);
1248}
1249
1250void sysctl_usrstack(uint32_t * oldp, int size)
1251{
1252 DPRINTF("sysctl_usrstack: 0x%x\n", *oldp);
1253 tswap32s(oldp);
1254}
1255
1256void sysctl_ncpu(uint32_t * ncpu, int size)
1257{
1258 *ncpu = 0x1;
1259 DPRINTF("sysctl_ncpu: 0x%x\n", *ncpu);
1260 tswap32s(ncpu);
1261}
1262
1263void sysctl_exec(char * exec, int size)
1264{
1265 DPRINTF("sysctl_exec: %s\n", exec);
1266}
1267
1268void sysctl_translate(char * exec, int size)
1269{
1270 DPRINTF("sysctl_translate: %s\n", exec);
1271}
1272
1273struct sysctl_dir {
1274 int num;
1275 const char * name;
1276 void (*swap_func)(void *, int);
1277 struct sysctl_dir *childs;
1278};
1279
1280#define ENTRYD(num, name, childs) { num, name, NULL, childs }
1281#define ENTRYE(num, name, func) { num, name, (void (*)(void *, int))func, NULL }
1282struct sysctl_dir sysctls_unspec[] = {
1283 ENTRYE(3, "oip", bswap_oid),
1284 { 0, NULL, NULL, NULL }
1285};
1286
1287struct sysctl_dir sysctls_kern[] = {
1288 ENTRYE(KERN_TRANSLATE, "translate", sysctl_translate), /* 44 */
1289 ENTRYE(KERN_EXEC, "exec", sysctl_exec), /* 45 */
1290 ENTRYE(KERN_USRSTACK32, "KERN_USRSTACK32", sysctl_usrstack), /* 35 */
1291 ENTRYE(KERN_SHREG_PRIVATIZABLE, "KERN_SHREG_PRIVATIZABLE", sysctl_tswap32s), /* 54 */
1292 { 0, NULL, NULL, NULL }
1293};
1294
1295struct sysctl_dir sysctls_hw[] = {
1296 ENTRYE(HW_NCPU, "ncpud", sysctl_tswap32s),
1297 ENTRYE(104, "104", no_swap),
1298 ENTRYE(105, "105", no_swap),
1299 { 0, NULL, NULL, NULL }
1300};
1301
1302struct sysctl_dir sysctls[] = {
1303 ENTRYD(CTL_UNSPEC, "unspec", sysctls_unspec),
1304 ENTRYD(CTL_KERN, "kern", sysctls_kern),
1305 ENTRYD(CTL_HW, "hw", sysctls_hw ),
1306 { 0, NULL, NULL, NULL }
1307};
1308
1309#undef ENTRYE
1310#undef ENTRYD
1311
1312static inline struct sysctl_dir * get_sysctl_entry_for_mib(int mib, struct sysctl_dir * sysctl_elmt)
1313{
1314 if(!sysctl_elmt)
1315 return NULL;
1316 for(; sysctl_elmt->name != NULL ; sysctl_elmt++) {
1317 if(sysctl_elmt->num == mib)
1318 return sysctl_elmt;
1319 }
1320 return NULL;
1321}
1322
1323static inline long bswap_syctl(int * mib, int count, void *buf, int size)
1324{
1325 int i;
1326 struct sysctl_dir * sysctl = sysctls;
1327 struct sysctl_dir * ret = NULL;
1328
1329 for(i = 0; i < count; i++) {
1330
1331 if(!(ret = sysctl = get_sysctl_entry_for_mib(mib[i], sysctl))) {
1332 gemu_log("bswap_syctl: can't find mib %d\n", mib[i]);
1333 return -ENOTDIR;
1334 }
1335 if(!(sysctl = sysctl->childs))
1336 break;
1337 }
ths3b46e622007-09-17 08:09:54 +00001338
bellard263466f2007-02-05 19:47:42 +00001339 if(ret->childs)
1340 qerror("we shouldn't have a directory element\n");
1341
1342 ret->swap_func(buf, size);
1343 return 0;
1344}
1345
1346static inline void print_syctl(int * mib, int count)
1347{
1348 int i;
1349 struct sysctl_dir * sysctl = sysctls;
1350 struct sysctl_dir * ret = NULL;
1351
1352 for(i = 0; i < count; i++) {
1353 if(!(ret = sysctl = get_sysctl_entry_for_mib(mib[i], sysctl))){
1354 gemu_log("print_syctl: can't find mib %d\n", mib[i]);
1355 return;
1356 }
1357 DPRINTF("%s.", sysctl->name);
1358 if(!(sysctl = sysctl->childs))
1359 break;
1360 }
1361 DPRINTF("\n");
1362}
1363
1364long do___sysctl(int * name, uint32_t namelen, void * oldp, size_t * oldlenp, void * newp, size_t newlen /* ignored */)
ths831b7822007-01-18 20:06:33 +00001365{
1366 long ret = 0;
1367 int i;
1368 DPRINTF("sysctl(%p, 0x%x, %p, %p, %p, 0x%lx)\n",
bellard263466f2007-02-05 19:47:42 +00001369 name, namelen, oldp, oldlenp, newp, newlen);
1370 if(name) {
ths831b7822007-01-18 20:06:33 +00001371 i = 0;
bellard263466f2007-02-05 19:47:42 +00001372 do { tswap32s( name + i); } while (++i < namelen);
1373 print_syctl(name, namelen);
1374 //bswap_syctl(name, namelen, newp, newlen);
1375 tswap32s((uint32_t*)oldlenp);
ths831b7822007-01-18 20:06:33 +00001376 }
ths3b46e622007-09-17 08:09:54 +00001377
bellard263466f2007-02-05 19:47:42 +00001378 if(name) /* Sometimes sysctl is called with no arg1, ignore */
1379 ret = get_errno(sysctl(name, namelen, oldp, oldlenp, newp, newlen));
ths831b7822007-01-18 20:06:33 +00001380
ths7ed40ac2007-02-22 20:43:09 +00001381#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__)
bellard263466f2007-02-05 19:47:42 +00001382 if (!is_error(ret) && bswap_syctl(name, namelen, oldp, *oldlenp) != 0) {
1383 return -ENOTDIR;
1384 }
ths7ed40ac2007-02-22 20:43:09 +00001385#endif
1386
bellard263466f2007-02-05 19:47:42 +00001387 if(name) {
1388 //bswap_syctl(name, namelen, newp, newlen);
1389 tswap32s((uint32_t*)oldlenp);
ths831b7822007-01-18 20:06:33 +00001390
ths831b7822007-01-18 20:06:33 +00001391 i = 0;
bellard263466f2007-02-05 19:47:42 +00001392 do { tswap32s( name + i); } while (++i < namelen);
ths831b7822007-01-18 20:06:33 +00001393 }
ths831b7822007-01-18 20:06:33 +00001394 return ret;
1395}
1396
1397long do_getattrlist(void * arg1, void * arg2, void * arg3, uint32_t arg4, uint32_t arg5)
1398{
1399 struct attrlist * attrlist = (void *)arg2;
1400 long ret;
1401
1402#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__)
bellard263466f2007-02-05 19:47:42 +00001403 gemu_log("SYS_getdirentriesattr unimplemented\n");
1404 return -ENOTSUP;
ths831b7822007-01-18 20:06:33 +00001405#endif
1406 /* XXX: don't let the %s stay in there */
1407 DPRINTF("getattrlist(%s, %p, %p, 0x%x, 0x%x)\n",
1408 (char *)arg1, arg2, arg3, arg4, arg5);
1409
1410 if(arg2) /* XXX: We should handle that in a copy especially
1411 if the structure is not writable */
1412 byteswap_attrlist(attrlist);
1413
1414 ret = get_errno(getattrlist((const char* )arg1, attrlist, (void *)arg3, arg4, arg5));
1415
1416 if(!is_error(ret))
1417 {
1418 byteswap_attrbuf((void *)arg3, attrlist);
1419 byteswap_attrlist(attrlist);
1420 }
1421 return ret;
1422}
1423
1424long do_getdirentriesattr(uint32_t arg1, void * arg2, void * arg3, size_t arg4, void * arg5, void * arg6, void* arg7, uint32_t arg8)
1425{
1426 DPRINTF("getdirentriesattr(0x%x, %p, %p, 0x%lx, %p, %p, %p, 0x%x)\n",
1427 arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
1428#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__)
1429 qerror("SYS_getdirentriesattr unimplemented\n");
1430#endif
1431
1432 return get_errno(getdirentriesattr( arg1, (struct attrlist * )arg2, (void *)arg3, arg4,
1433 (unsigned long *)arg5, (unsigned long *)arg6,
1434 (unsigned long *)arg7, arg8));
1435}
1436
bellard263466f2007-02-05 19:47:42 +00001437static inline void bswap_flock(struct flock *f)
1438{
1439 tswap64s(&f->l_start);
1440 tswap64s(&f->l_len);
1441 tswap32s(&f->l_pid);
1442 tswap16s(&f->l_type);
1443 tswap16s(&f->l_whence);
1444}
1445
1446static inline void bswap_fstore(struct fstore *f)
1447{
1448 tswap32s(&f->fst_flags);
1449 tswap32s(&f->fst_posmode);
1450 tswap64s(&f->fst_offset);
1451 tswap64s(&f->fst_length);
1452 tswap64s(&f->fst_bytesalloc);
1453}
1454
1455static inline void bswap_radvisory(struct radvisory *f)
1456{
1457 tswap64s(&f->ra_offset);
1458 tswap32s(&f->ra_count);
1459}
1460
1461static inline void bswap_fbootstraptransfer(struct fbootstraptransfer *f)
1462{
1463 tswap64s(&f->fbt_offset);
1464 tswap32s((uint32_t*)&f->fbt_length);
1465 tswap32s((uint32_t*)&f->fbt_buffer); /* XXX: this is a ptr */
1466}
1467
1468static inline void bswap_log2phys(struct log2phys *f)
1469{
1470 tswap32s(&f->l2p_flags);
1471 tswap64s(&f->l2p_contigbytes);
1472 tswap64s(&f->l2p_devoffset);
1473}
1474
1475static inline void bswap_fcntl_arg(int cmd, void * arg)
1476{
1477 switch(cmd)
1478 {
1479 case F_DUPFD:
1480 case F_GETFD:
1481 case F_SETFD:
1482 case F_GETFL:
1483 case F_SETFL:
1484 case F_GETOWN:
1485 case F_SETOWN:
1486 case F_SETSIZE:
1487 case F_RDAHEAD:
1488 case F_FULLFSYNC:
1489 break;
1490 case F_GETLK:
1491 case F_SETLK:
1492 case F_SETLKW:
1493 bswap_flock(arg);
1494 break;
1495 case F_PREALLOCATE:
1496 bswap_fstore(arg);
1497 break;
1498 case F_RDADVISE:
1499 bswap_radvisory(arg);
1500 break;
1501 case F_READBOOTSTRAP:
1502 case F_WRITEBOOTSTRAP:
1503 bswap_fbootstraptransfer(arg);
1504 break;
1505 case F_LOG2PHYS:
1506 bswap_log2phys(arg);
1507 break;
1508 default:
1509 gemu_log("unknow cmd in fcntl\n");
1510 }
1511}
1512
1513long do_fcntl(int fd, int cmd, int arg)
1514{
1515 long ret;
1516 bswap_fcntl_arg(cmd, (void *)arg);
1517 ret = get_errno(fcntl(fd, cmd, arg));
1518 if(!is_error(ret))
1519 bswap_fcntl_arg(cmd, (void *)arg);
1520 return ret;
1521}
ths831b7822007-01-18 20:06:33 +00001522
1523long no_syscall(void *cpu_env, int num)
1524{
1525 /* XXX: We should probably fordward it to the host kernel */
1526 qerror("no unix syscall %d\n", num);
1527 /* not reached */
1528 return -1;
1529}
1530
1531long unimpl_unix_syscall(void *cpu_env, int num)
1532{
1533 if( (num < 0) || (num > SYS_MAXSYSCALL-1) )
1534 qerror("unix syscall %d is out of unix syscall bounds (0-%d) " , num, SYS_MAXSYSCALL-1);
1535
1536 gemu_log("qemu: Unsupported unix syscall %s %d\n", unix_syscall_table[num].name , num);
1537 gdb_handlesig (cpu_env, SIGTRAP);
1538 exit(-1);
1539}
1540
1541long do_unix_syscall(void *cpu_env, int num)
1542{
1543 long ret = 0;
1544
1545 DPRINTF("unix syscall %d: " , num);
1546
1547 if( (num < 0) || (num > SYS_MAXSYSCALL-1) )
1548 qerror("unix syscall %d is out of unix syscall bounds (0-%d) " , num, SYS_MAXSYSCALL-1);
1549
1550 DPRINTF("%s [%s]", unix_syscall_table[num].name, unix_syscall_table[num].call_type & CALL_DIRECT ? "direct" : "indirect" );
1551 ret = unix_syscall_table[num].function(cpu_env, num);
1552
1553 if(!(unix_syscall_table[num].call_type & CALL_NOERRNO))
1554 ret = get_errno(ret);
1555
1556 DPRINTF("[returned 0x%x(%d)]\n", (int)ret, (int)ret);
1557 return ret;
1558}
1559
1560/* ------------------------------------------------------------
1561 syscall_init
1562*/
1563void syscall_init(void)
1564{
1565 /* Nothing yet */
1566}