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