1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20#include <sys/types.h>
21#include <sys/stat.h>
22#include <errno.h>
23#include <fcntl.h>
24#include <unistd.h>
25#include <stdlib.h>
26#include <stdio.h>
27#include <time.h>
28
29#include "qemu.h"
30
31#define SYS_EXIT 1
32#define SYS_READ 3
33#define SYS_WRITE 4
34#define SYS_OPEN 5
35#define SYS_CLOSE 6
36#define SYS_BRK 17
37#define SYS_FSTAT 28
38#define SYS_ISATTY 29
39#define SYS_LSEEK 199
40
41struct m68k_sim_stat {
42 uint16_t sim_st_dev;
43 uint16_t sim_st_ino;
44 uint32_t sim_st_mode;
45 uint16_t sim_st_nlink;
46 uint16_t sim_st_uid;
47 uint16_t sim_st_gid;
48 uint16_t sim_st_rdev;
49 uint32_t sim_st_size;
50 uint32_t sim_st_atime;
51 uint32_t sim_st_mtime;
52 uint32_t sim_st_ctime;
53 uint32_t sim_st_blksize;
54 uint32_t sim_st_blocks;
55};
56
57static inline uint32_t check_err(CPUM68KState *env, uint32_t code)
58{
59 env->dregs[0] = code;
60 if (code == (uint32_t)-1) {
61 env->dregs[1] = errno;
62 } else {
63 env->dregs[1] = 0;
64 }
65 return code;
66}
67
68#define SIM_O_APPEND 0x0008
69#define SIM_O_CREAT 0x0200
70#define SIM_O_TRUNC 0x0400
71#define SIM_O_EXCL 0x0800
72#define SIM_O_NONBLOCK 0x4000
73#define SIM_O_NOCTTY 0x8000
74#define SIM_O_SYNC 0x2000
75
76static int translate_openflags(int flags)
77{
78 int hf;
79
80 switch (flags & 3) {
81 case 0: hf = O_RDONLY; break;
82 case 1: hf = O_WRONLY; break;
83 case 2: hf = O_RDWR; break;
84 default: hf = O_RDWR; break;
85 }
86
87 if (flags & SIM_O_APPEND) hf |= O_APPEND;
88 if (flags & SIM_O_CREAT) hf |= O_CREAT;
89 if (flags & SIM_O_TRUNC) hf |= O_TRUNC;
90 if (flags & SIM_O_EXCL) hf |= O_EXCL;
91 if (flags & SIM_O_NONBLOCK) hf |= O_NONBLOCK;
92 if (flags & SIM_O_NOCTTY) hf |= O_NOCTTY;
93 if (flags & SIM_O_SYNC) hf |= O_SYNC;
94
95 return hf;
96}
97
98#define ARG(x) tswap32(args[x])
99void do_m68k_simcall(CPUM68KState *env, int nr)
100{
101 M68kCPU *cpu = m68k_env_get_cpu(env);
102 uint32_t *args;
103
104 args = (uint32_t *)(unsigned long)(env->aregs[7] + 4);
105 switch (nr) {
106 case SYS_EXIT:
107 exit(ARG(0));
108 case SYS_READ:
109 check_err(env, read(ARG(0), (void *)(unsigned long)ARG(1), ARG(2)));
110 break;
111 case SYS_WRITE:
112 check_err(env, write(ARG(0), (void *)(unsigned long)ARG(1), ARG(2)));
113 break;
114 case SYS_OPEN:
115 check_err(env, open((char *)(unsigned long)ARG(0),
116 translate_openflags(ARG(1)), ARG(2)));
117 break;
118 case SYS_CLOSE:
119 {
120
121 int fd = ARG(0);
122 if (fd > 2)
123 check_err(env, close(fd));
124 else
125 check_err(env, 0);
126 break;
127 }
128 case SYS_BRK:
129 {
130 int32_t ret;
131
132 ret = do_brk((abi_ulong)ARG(0));
133 if (ret == -ENOMEM)
134 ret = -1;
135 check_err(env, ret);
136 }
137 break;
138 case SYS_FSTAT:
139 {
140 struct stat s;
141 int rc;
142 struct m68k_sim_stat *p;
143 rc = check_err(env, fstat(ARG(0), &s));
144 if (rc == 0) {
145 p = (struct m68k_sim_stat *)(unsigned long)ARG(1);
146 p->sim_st_dev = tswap16(s.st_dev);
147 p->sim_st_ino = tswap16(s.st_ino);
148 p->sim_st_mode = tswap32(s.st_mode);
149 p->sim_st_nlink = tswap16(s.st_nlink);
150 p->sim_st_uid = tswap16(s.st_uid);
151 p->sim_st_gid = tswap16(s.st_gid);
152 p->sim_st_rdev = tswap16(s.st_rdev);
153 p->sim_st_size = tswap32(s.st_size);
154 p->sim_st_atime = tswap32(s.st_atime);
155 p->sim_st_mtime = tswap32(s.st_mtime);
156 p->sim_st_ctime = tswap32(s.st_ctime);
157 p->sim_st_blksize = tswap32(s.st_blksize);
158 p->sim_st_blocks = tswap32(s.st_blocks);
159 }
160 }
161 break;
162 case SYS_ISATTY:
163 check_err(env, isatty(ARG(0)));
164 break;
165 case SYS_LSEEK:
166 check_err(env, lseek(ARG(0), (int32_t)ARG(1), ARG(2)));
167 break;
168 default:
169 cpu_abort(CPU(cpu), "Unsupported m68k sim syscall %d\n", nr);
170 }
171}
172
