|
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 |
|
56 #include <sys/xattr.h> |
|
57 |
|
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 < ARRAY_SIZE(msg_name); 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 < ARRAY_SIZE(msg_name); 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; |
|
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); |
|
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(void); |
|
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; |
|
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 |
|
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; |
|
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 |
|
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; |
|
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 |
|
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(void); |
|
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 static 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(void); |
|
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(void) |
|
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 } |
|
1339 |
|
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 } |
|
1378 |
|
1379 if(name) /* Sometimes sysctl is called with no arg1, ignore */ |
|
1380 ret = get_errno(sysctl(name, namelen, oldp, oldlenp, newp, newlen)); |
|
1381 |
|
1382 #if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__) |
|
1383 if (!is_error(ret) && bswap_syctl(name, namelen, oldp, *oldlenp) != 0) { |
|
1384 return -ENOTDIR; |
|
1385 } |
|
1386 #endif |
|
1387 |
|
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 } |