Fix some SLIRP warnings
[qemu/mini2440.git] / migration.c
blob0ef777adde93b0a037c16d536651f7eca130f670
1 /*
2 * QEMU live migration
4 * Copyright IBM, Corp. 2008
6 * Authors:
7 * Anthony Liguori <aliguori@us.ibm.com>
9 * This work is licensed under the terms of the GNU GPL, version 2. See
10 * the COPYING file in the top-level directory.
14 #include "qemu-common.h"
15 #include "migration.h"
16 #include "console.h"
17 #include "buffered_file.h"
18 #include "sysemu.h"
19 #include "block.h"
20 #include "qemu_socket.h"
22 //#define DEBUG_MIGRATION
24 #ifdef DEBUG_MIGRATION
25 #define dprintf(fmt, ...) \
26 do { printf("migration: " fmt, ## __VA_ARGS__); } while (0)
27 #else
28 #define dprintf(fmt, ...) \
29 do { } while (0)
30 #endif
32 /* Migration speed throttling */
33 static uint32_t max_throttle = (32 << 20);
35 static MigrationState *current_migration;
37 void qemu_start_incoming_migration(const char *uri)
39 const char *p;
41 if (strstart(uri, "tcp:", &p))
42 tcp_start_incoming_migration(p);
43 #if !defined(WIN32)
44 else if (strstart(uri, "exec:", &p))
45 exec_start_incoming_migration(p);
46 #endif
47 else
48 fprintf(stderr, "unknown migration protocol: %s\n", uri);
51 void do_migrate(int detach, const char *uri)
53 MigrationState *s = NULL;
54 const char *p;
56 if (strstart(uri, "tcp:", &p))
57 s = tcp_start_outgoing_migration(p, max_throttle, detach);
58 #if !defined(WIN32)
59 else if (strstart(uri, "exec:", &p))
60 s = exec_start_outgoing_migration(p, max_throttle, detach);
61 #endif
62 else
63 term_printf("unknown migration protocol: %s\n", uri);
65 if (s == NULL)
66 term_printf("migration failed\n");
67 else {
68 if (current_migration)
69 current_migration->release(current_migration);
71 current_migration = s;
75 void do_migrate_cancel(void)
77 MigrationState *s = current_migration;
79 if (s)
80 s->cancel(s);
83 void do_migrate_set_speed(const char *value)
85 double d;
86 char *ptr;
88 d = strtod(value, &ptr);
89 switch (*ptr) {
90 case 'G': case 'g':
91 d *= 1024;
92 case 'M': case 'm':
93 d *= 1024;
94 case 'K': case 'k':
95 d *= 1024;
96 default:
97 break;
100 max_throttle = (uint32_t)d;
103 void do_info_migrate(void)
105 MigrationState *s = current_migration;
107 if (s) {
108 term_printf("Migration status: ");
109 switch (s->get_status(s)) {
110 case MIG_STATE_ACTIVE:
111 term_printf("active\n");
112 break;
113 case MIG_STATE_COMPLETED:
114 term_printf("completed\n");
115 break;
116 case MIG_STATE_ERROR:
117 term_printf("failed\n");
118 break;
119 case MIG_STATE_CANCELLED:
120 term_printf("cancelled\n");
121 break;
126 /* shared migration helpers */
128 void migrate_fd_error(FdMigrationState *s)
130 dprintf("setting error state\n");
131 s->state = MIG_STATE_ERROR;
132 migrate_fd_cleanup(s);
135 void migrate_fd_cleanup(FdMigrationState *s)
137 qemu_set_fd_handler2(s->fd, NULL, NULL, NULL, NULL);
139 if (s->file) {
140 dprintf("closing file\n");
141 qemu_fclose(s->file);
144 if (s->fd != -1)
145 close(s->fd);
147 /* Don't resume monitor until we've flushed all of the buffers */
148 if (s->detach == 2) {
149 monitor_resume();
150 s->detach = 0;
153 s->fd = -1;
156 void migrate_fd_put_notify(void *opaque)
158 FdMigrationState *s = opaque;
160 qemu_set_fd_handler2(s->fd, NULL, NULL, NULL, NULL);
161 qemu_file_put_notify(s->file);
164 ssize_t migrate_fd_put_buffer(void *opaque, const void *data, size_t size)
166 FdMigrationState *s = opaque;
167 ssize_t ret;
169 do {
170 ret = s->write(s, data, size);
171 } while (ret == -1 && ((s->get_error(s)) == EINTR || (s->get_error(s)) == EWOULDBLOCK));
173 if (ret == -1)
174 ret = -(s->get_error(s));
176 if (ret == -EAGAIN)
177 qemu_set_fd_handler2(s->fd, NULL, NULL, migrate_fd_put_notify, s);
179 return ret;
182 void migrate_fd_connect(FdMigrationState *s)
184 int ret;
186 s->file = qemu_fopen_ops_buffered(s,
187 s->bandwidth_limit,
188 migrate_fd_put_buffer,
189 migrate_fd_put_ready,
190 migrate_fd_wait_for_unfreeze,
191 migrate_fd_close);
193 dprintf("beginning savevm\n");
194 ret = qemu_savevm_state_begin(s->file);
195 if (ret < 0) {
196 dprintf("failed, %d\n", ret);
197 migrate_fd_error(s);
198 return;
201 migrate_fd_put_ready(s);
204 void migrate_fd_put_ready(void *opaque)
206 FdMigrationState *s = opaque;
208 if (s->state != MIG_STATE_ACTIVE) {
209 dprintf("put_ready returning because of non-active state\n");
210 return;
213 dprintf("iterate\n");
214 if (qemu_savevm_state_iterate(s->file) == 1) {
215 dprintf("done iterating\n");
216 vm_stop(0);
218 bdrv_flush_all();
219 qemu_savevm_state_complete(s->file);
220 s->state = MIG_STATE_COMPLETED;
221 migrate_fd_cleanup(s);
225 int migrate_fd_get_status(MigrationState *mig_state)
227 FdMigrationState *s = migrate_to_fms(mig_state);
228 return s->state;
231 void migrate_fd_cancel(MigrationState *mig_state)
233 FdMigrationState *s = migrate_to_fms(mig_state);
235 if (s->state != MIG_STATE_ACTIVE)
236 return;
238 dprintf("cancelling migration\n");
240 s->state = MIG_STATE_CANCELLED;
242 migrate_fd_cleanup(s);
245 void migrate_fd_release(MigrationState *mig_state)
247 FdMigrationState *s = migrate_to_fms(mig_state);
249 dprintf("releasing state\n");
251 if (s->state == MIG_STATE_ACTIVE) {
252 s->state = MIG_STATE_CANCELLED;
253 migrate_fd_cleanup(s);
255 free(s);
258 void migrate_fd_wait_for_unfreeze(void *opaque)
260 FdMigrationState *s = opaque;
261 int ret;
263 dprintf("wait for unfreeze\n");
264 if (s->state != MIG_STATE_ACTIVE)
265 return;
267 do {
268 fd_set wfds;
270 FD_ZERO(&wfds);
271 FD_SET(s->fd, &wfds);
273 ret = select(s->fd + 1, NULL, &wfds, NULL, NULL);
274 } while (ret == -1 && (s->get_error(s)) == EINTR);
277 int migrate_fd_close(void *opaque)
279 FdMigrationState *s = opaque;
280 return s->close(s);