2 * Arm "Angel" semihosting syscalls
4 * Copyright (c) 2005 CodeSourcery, LLC. Written by Paul Brook.
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 #include <sys/types.h>
31 #define ARM_ANGEL_HEAP_SIZE (128 * 1024 * 1024)
34 #define SYS_CLOSE 0x02
35 #define SYS_WRITEC 0x03
36 #define SYS_WRITE0 0x04
37 #define SYS_WRITE 0x05
39 #define SYS_READC 0x07
40 #define SYS_ISTTY 0x09
43 #define SYS_TMPNAM 0x0d
44 #define SYS_REMOVE 0x0e
45 #define SYS_RENAME 0x0f
46 #define SYS_CLOCK 0x10
48 #define SYS_SYSTEM 0x12
49 #define SYS_ERRNO 0x13
50 #define SYS_GET_CMDLINE 0x15
51 #define SYS_HEAPINFO 0x16
58 int open_modeflags[12] = {
63 O_WRONLY | O_CREAT | O_TRUNC,
64 O_WRONLY | O_CREAT | O_TRUNC | O_BINARY,
65 O_RDWR | O_CREAT | O_TRUNC,
66 O_RDWR | O_CREAT | O_TRUNC | O_BINARY,
67 O_WRONLY | O_CREAT | O_APPEND,
68 O_WRONLY | O_CREAT | O_APPEND | O_BINARY,
69 O_RDWR | O_CREAT | O_APPEND,
70 O_RDWR | O_CREAT | O_APPEND | O_BINARY
73 static inline uint32_t set_swi_errno(TaskState *ts, uint32_t code)
75 if (code == (uint32_t)-1)
76 ts->swi_errno = errno;
80 #define ARG(n) tget32(args + (n) * 4)
81 #define SET_ARG(n, val) tput32(args + (n) * 4,val)
82 uint32_t do_arm_semihosting(CPUState *env)
88 TaskState *ts = env->opaque;
94 s = (char *)g2h(ARG(0));
97 if (strcmp(s, ":tt") == 0) {
101 return STDOUT_FILENO;
103 return set_swi_errno(ts, open(s, open_modeflags[ARG(1)], 0644));
105 return set_swi_errno(ts, close(ARG(0)));
108 char c = tget8(args);
109 /* Write to debug console. stderr is near enough. */
110 return write(STDERR_FILENO, &c, 1);
113 s = lock_user_string(args);
114 ret = write(STDERR_FILENO, s, strlen(s));
115 unlock_user(s, args, 0);
118 ret = set_swi_errno(ts, write(ARG(0), g2h(ARG(1)), ARG(2)));
119 if (ret == (uint32_t)-1)
123 ret = set_swi_errno(ts, read(ARG(0), g2h(ARG(1)), ARG(2)));
124 if (ret == (uint32_t)-1)
128 /* XXX: Read from debug cosole. Not implemented. */
131 return isatty(ARG(0));
133 ret = set_swi_errno(ts, lseek(ARG(0), ARG(1), SEEK_SET));
134 if (ret == (uint32_t)-1)
140 ret = set_swi_errno(ts, fstat(ARG(0), &buf));
141 if (ret == (uint32_t)-1)
146 /* XXX: Not implemented. */
149 return set_swi_errno(ts, remove((char *)g2h(ARG(0))));
151 return set_swi_errno(ts, rename((char *)g2h(ARG(0)),
152 (char *)g2h(ARG(2))));
154 return clock() / (CLOCKS_PER_SEC / 100);
156 return set_swi_errno(ts, time(NULL));
158 return set_swi_errno(ts, system((char *)g2h(ARG(0))));
160 return ts->swi_errno;
161 case SYS_GET_CMDLINE:
162 /* Build a commandline from the original argv. */
164 char **arg = ts->info->host_argv;
166 /* lock the buffer on the ARM side */
167 char *cmdline_buffer = (char*)lock_user(ARG(0), len, 0);
170 while (*arg && len > 2) {
171 int n = strlen(*arg);
173 if (s != cmdline_buffer) {
184 /* Null terminate the string. */
186 len = s - cmdline_buffer;
188 /* Unlock the buffer on the ARM side. */
189 unlock_user(cmdline_buffer, ARG(0), len);
191 /* Adjust the commandline length argument. */
194 /* Return success if commandline fit into buffer. */
195 return *arg ? -1 : 0;
202 /* Some C llibraries assume the heap immediately follows .bss, so
203 allocate it using sbrk. */
204 if (!ts->heap_limit) {
207 ts->heap_base = do_brk(0);
208 limit = ts->heap_base + ARM_ANGEL_HEAP_SIZE;
209 /* Try a big heap, and reduce the size if that fails. */
214 limit = (ts->heap_base >> 1) + (limit >> 1);
216 ts->heap_limit = limit;
219 page_unprotect_range (ARG(0), 32);
220 ptr = (uint32_t *)g2h(ARG(0));
221 ptr[0] = tswap32(ts->heap_base);
222 ptr[1] = tswap32(ts->heap_limit);
223 ptr[2] = tswap32(ts->stack_base);
224 ptr[3] = tswap32(0); /* Stack limit. */
230 fprintf(stderr, "qemu: Unsupported SemiHosting SWI 0x%02x\n", nr);
231 cpu_dump_state(env, stderr, fprintf, 0);