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(x) tswap32(args[x])
81 uint32_t do_arm_semihosting(CPUState *env)
87 TaskState *ts = env->opaque;
90 args = (uint32_t *)env->regs[1];
96 if (strcmp(s, ":tt") == 0) {
100 return STDOUT_FILENO;
102 return set_swi_errno(ts, open(s, open_modeflags[ARG(1)]));
104 return set_swi_errno(ts, close(ARG(0)));
106 /* Write to debug console. stderr is near enough. */
107 return write(STDERR_FILENO, args, 1);
110 return write(STDERR_FILENO, s, strlen(s));
112 ret = set_swi_errno(ts, write(ARG(0), (void *)ARG(1), ARG(2)));
113 if (ret == (uint32_t)-1)
117 ret = set_swi_errno(ts, read(ARG(0), (void *)ARG(1), ARG(2)));
118 if (ret == (uint32_t)-1)
122 /* XXX: Read from debug cosole. Not implemented. */
125 return isatty(ARG(0));
127 ret = set_swi_errno(ts, lseek(ARG(0), ARG(1), SEEK_SET));
128 if (ret == (uint32_t)-1)
134 ret = set_swi_errno(ts, fstat(ARG(0), &buf));
135 if (ret == (uint32_t)-1)
140 /* XXX: Not implemented. */
143 return set_swi_errno(ts, remove((char *)ARG(0)));
145 return set_swi_errno(ts, rename((char *)ARG(0), (char *)ARG(2)));
147 return clock() / (CLOCKS_PER_SEC / 100);
149 return set_swi_errno(ts, time(NULL));
151 return set_swi_errno(ts, system((char *)ARG(0)));
153 return ts->swi_errno;
154 case SYS_GET_CMDLINE:
155 /* XXX: Not implemented. */
164 /* Some C llibraries assume the heap immediately follows .bss, so
165 allocate it using sbrk. */
166 if (!ts->heap_limit) {
169 ts->heap_base = do_brk(NULL);
170 limit = ts->heap_base + ARM_ANGEL_HEAP_SIZE;
171 /* Try a big heap, and reduce the size if that fails. */
173 ret = do_brk((char *)limit);
176 limit = (ts->heap_base >> 1) + (limit >> 1);
178 ts->heap_limit = limit;
181 ptr = (uint32_t *)tswap32(ARG(0));
182 ptr[0] = tswap32(ts->heap_base);
183 ptr[1] = tswap32(ts->heap_limit);
184 ptr[2] = tswap32(ts->stack_base);
185 ptr[3] = tswap32(0); /* Stack limit. */
191 fprintf(stderr, "qemu: Unsupported SemiHosting SWI 0x%02x\n", nr);
192 cpu_dump_state(env, stderr, fprintf, 0);