2 * Arm "Angel" semihosting syscalls
4 * Copyright (c) 2005, 2007 CodeSourcery.
5 * Written by Paul Brook.
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.
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.
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.
22 #include <sys/types.h>
31 #ifdef CONFIG_USER_ONLY
34 #define ARM_ANGEL_HEAP_SIZE (128 * 1024 * 1024)
40 #define SYS_CLOSE 0x02
41 #define SYS_WRITEC 0x03
42 #define SYS_WRITE0 0x04
43 #define SYS_WRITE 0x05
45 #define SYS_READC 0x07
46 #define SYS_ISTTY 0x09
49 #define SYS_TMPNAM 0x0d
50 #define SYS_REMOVE 0x0e
51 #define SYS_RENAME 0x0f
52 #define SYS_CLOCK 0x10
54 #define SYS_SYSTEM 0x12
55 #define SYS_ERRNO 0x13
56 #define SYS_GET_CMDLINE 0x15
57 #define SYS_HEAPINFO 0x16
64 int open_modeflags[12] = {
69 O_WRONLY | O_CREAT | O_TRUNC,
70 O_WRONLY | O_CREAT | O_TRUNC | O_BINARY,
71 O_RDWR | O_CREAT | O_TRUNC,
72 O_RDWR | O_CREAT | O_TRUNC | O_BINARY,
73 O_WRONLY | O_CREAT | O_APPEND,
74 O_WRONLY | O_CREAT | O_APPEND | O_BINARY,
75 O_RDWR | O_CREAT | O_APPEND,
76 O_RDWR | O_CREAT | O_APPEND | O_BINARY
79 #ifdef CONFIG_USER_ONLY
80 static inline uint32_t set_swi_errno(TaskState *ts, uint32_t code)
82 if (code == (uint32_t)-1)
83 ts->swi_errno = errno;
87 static inline uint32_t set_swi_errno(CPUState *env, uint32_t code)
92 static uint32_t softmmu_tget32(CPUState *env, uint32_t addr)
96 cpu_memory_rw_debug(env, addr, (uint8_t *)&val, 4, 0);
99 static uint32_t softmmu_tget8(CPUState *env, uint32_t addr)
103 cpu_memory_rw_debug(env, addr, &val, 1, 0);
106 #define tget32(p) softmmu_tget32(env, p)
107 #define tget8(p) softmmu_tget8(env, p)
109 static void *softmmu_lock_user(CPUState *env, uint32_t addr, uint32_t len,
113 /* TODO: Make this something that isn't fixed size. */
116 cpu_memory_rw_debug(env, addr, p, len, 0);
119 #define lock_user(p, len, copy) softmmu_lock_user(env, p, len, copy)
120 static char *softmmu_lock_user_string(CPUState *env, uint32_t addr)
125 /* TODO: Make this something that isn't fixed size. */
126 s = p = malloc(1024);
128 cpu_memory_rw_debug(env, addr, &c, 1, 0);
134 #define lock_user_string(p) softmmu_lock_user_string(env, p)
135 static void softmmu_unlock_user(CPUState *env, void *p, target_ulong addr,
139 cpu_memory_rw_debug(env, addr, p, len, 1);
142 #define unlock_user(s, args, len) softmmu_unlock_user(env, s, args, len)
145 #define ARG(n) tget32(args + (n) * 4)
146 #define SET_ARG(n, val) tput32(args + (n) * 4,val)
147 uint32_t do_arm_semihosting(CPUState *env)
154 #ifdef CONFIG_USER_ONLY
155 TaskState *ts = env->opaque;
164 s = lock_user_string(ARG(0));
167 if (strcmp(s, ":tt") == 0) {
171 return STDOUT_FILENO;
173 ret = set_swi_errno(ts, open(s, open_modeflags[ARG(1)], 0644));
174 unlock_user(s, ARG(0), 0);
177 return set_swi_errno(ts, close(ARG(0)));
180 char c = tget8(args);
181 /* Write to debug console. stderr is near enough. */
182 return write(STDERR_FILENO, &c, 1);
185 s = lock_user_string(args);
186 ret = write(STDERR_FILENO, s, strlen(s));
187 unlock_user(s, args, 0);
191 s = lock_user(ARG(1), len, 1);
192 ret = set_swi_errno(ts, write(ARG(0), s, len));
193 unlock_user(s, ARG(1), 0);
194 if (ret == (uint32_t)-1)
199 s = lock_user(ARG(1), len, 0);
201 ret = set_swi_errno(ts, read(ARG(0), s, len));
202 while (ret == -1 && errno == EINTR);
203 unlock_user(s, ARG(1), len);
204 if (ret == (uint32_t)-1)
208 /* XXX: Read from debug cosole. Not implemented. */
211 return isatty(ARG(0));
213 ret = set_swi_errno(ts, lseek(ARG(0), ARG(1), SEEK_SET));
214 if (ret == (uint32_t)-1)
220 ret = set_swi_errno(ts, fstat(ARG(0), &buf));
221 if (ret == (uint32_t)-1)
226 /* XXX: Not implemented. */
229 s = lock_user_string(ARG(0));
230 ret = set_swi_errno(ts, remove(s));
231 unlock_user(s, ARG(0), 0);
236 s = lock_user_string(ARG(0));
237 s2 = lock_user_string(ARG(2));
238 ret = set_swi_errno(ts, rename(s, s2));
239 unlock_user(s2, ARG(2), 0);
240 unlock_user(s, ARG(0), 0);
244 return clock() / (CLOCKS_PER_SEC / 100);
246 return set_swi_errno(ts, time(NULL));
248 s = lock_user_string(ARG(0));
249 ret = set_swi_errno(ts, system(s));
250 unlock_user(s, ARG(0), 0);
252 #ifdef CONFIG_USER_ONLY
253 return ts->swi_errno;
257 case SYS_GET_CMDLINE:
258 #ifdef CONFIG_USER_ONLY
259 /* Build a commandline from the original argv. */
261 char **arg = ts->info->host_argv;
263 /* lock the buffer on the ARM side */
264 char *cmdline_buffer = (char*)lock_user(ARG(0), len, 0);
267 while (*arg && len > 2) {
268 int n = strlen(*arg);
270 if (s != cmdline_buffer) {
281 /* Null terminate the string. */
283 len = s - cmdline_buffer;
285 /* Unlock the buffer on the ARM side. */
286 unlock_user(cmdline_buffer, ARG(0), len);
288 /* Adjust the commandline length argument. */
291 /* Return success if commandline fit into buffer. */
292 return *arg ? -1 : 0;
302 #ifdef CONFIG_USER_ONLY
303 /* Some C libraries assume the heap immediately follows .bss, so
304 allocate it using sbrk. */
305 if (!ts->heap_limit) {
308 ts->heap_base = do_brk(0);
309 limit = ts->heap_base + ARM_ANGEL_HEAP_SIZE;
310 /* Try a big heap, and reduce the size if that fails. */
315 limit = (ts->heap_base >> 1) + (limit >> 1);
317 ts->heap_limit = limit;
320 ptr = lock_user(ARG(0), 16, 0);
321 ptr[0] = tswap32(ts->heap_base);
322 ptr[1] = tswap32(ts->heap_limit);
323 ptr[2] = tswap32(ts->stack_base);
324 ptr[3] = tswap32(0); /* Stack limit. */
325 unlock_user(ptr, ARG(0), 16);
328 ptr = lock_user(ARG(0), 16, 0);
329 /* TODO: Make this use the limit of the loaded application. */
330 ptr[0] = tswap32(limit / 2);
331 ptr[1] = tswap32(limit);
332 ptr[2] = tswap32(limit); /* Stack base */
333 ptr[3] = tswap32(0); /* Stack limit. */
334 unlock_user(ptr, ARG(0), 16);
341 fprintf(stderr, "qemu: Unsupported SemiHosting SWI 0x%02x\n", nr);
342 cpu_dump_state(env, stderr, fprintf, 0);