migration: do cleanup operation after completion
[kvmfornfv.git] / qemu / linux-user / m68k-sim.c
1 /*
2  *  m68k simulator syscall interface
3  *
4  *  Copyright (c) 2005 CodeSourcery, LLC. Written by Paul Brook.
5  *
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.
10  *
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.
15  *
16  *  You should have received a copy of the GNU General Public License
17  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
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
41 struct 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
57 static 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
76 static 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])
99 void 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             /* Ignore attempts to close stdin/out/err.  */
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 }