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)], 0644));
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 *)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);