Statistics
| Branch: | Revision:

root / savevm.c @ feeee5ac

History | View | Annotate | Download (46.8 kB)

1
/*
2
 * QEMU System Emulator
3
 *
4
 * Copyright (c) 2003-2008 Fabrice Bellard
5
 *
6
 * Permission is hereby granted, free of charge, to any person obtaining a copy
7
 * of this software and associated documentation files (the "Software"), to deal
8
 * in the Software without restriction, including without limitation the rights
9
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10
 * copies of the Software, and to permit persons to whom the Software is
11
 * furnished to do so, subject to the following conditions:
12
 *
13
 * The above copyright notice and this permission notice shall be included in
14
 * all copies or substantial portions of the Software.
15
 *
16
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22
 * THE SOFTWARE.
23
 */
24
#include <unistd.h>
25
#include <fcntl.h>
26
#include <signal.h>
27
#include <time.h>
28
#include <errno.h>
29
#include <sys/time.h>
30
#include <zlib.h>
31

    
32
/* Needed early for CONFIG_BSD etc. */
33
#include "config-host.h"
34

    
35
#ifndef _WIN32
36
#include <sys/times.h>
37
#include <sys/wait.h>
38
#include <termios.h>
39
#include <sys/mman.h>
40
#include <sys/ioctl.h>
41
#include <sys/resource.h>
42
#include <sys/socket.h>
43
#include <netinet/in.h>
44
#include <net/if.h>
45
#include <arpa/inet.h>
46
#include <dirent.h>
47
#include <netdb.h>
48
#include <sys/select.h>
49
#ifdef CONFIG_BSD
50
#include <sys/stat.h>
51
#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__DragonFly__)
52
#include <libutil.h>
53
#else
54
#include <util.h>
55
#endif
56
#ifdef __linux__
57
#include <pty.h>
58
#include <malloc.h>
59
#include <linux/rtc.h>
60
#endif
61
#endif
62
#endif
63

    
64
#ifdef _WIN32
65
#include <windows.h>
66
#include <malloc.h>
67
#include <sys/timeb.h>
68
#include <mmsystem.h>
69
#define getopt_long_only getopt_long
70
#define memalign(align, size) malloc(size)
71
#endif
72

    
73
#include "qemu-common.h"
74
#include "hw/hw.h"
75
#include "net.h"
76
#include "monitor.h"
77
#include "sysemu.h"
78
#include "qemu-timer.h"
79
#include "qemu-char.h"
80
#include "blockdev.h"
81
#include "audio/audio.h"
82
#include "migration.h"
83
#include "qemu_socket.h"
84
#include "qemu-queue.h"
85

    
86
/* point to the block driver where the snapshots are managed */
87
static BlockDriverState *bs_snapshots;
88

    
89
#define SELF_ANNOUNCE_ROUNDS 5
90

    
91
#ifndef ETH_P_RARP
92
#define ETH_P_RARP 0x8035
93
#endif
94
#define ARP_HTYPE_ETH 0x0001
95
#define ARP_PTYPE_IP 0x0800
96
#define ARP_OP_REQUEST_REV 0x3
97

    
98
static int announce_self_create(uint8_t *buf,
99
                                uint8_t *mac_addr)
100
{
101
    /* Ethernet header. */
102
    memset(buf, 0xff, 6);         /* destination MAC addr */
103
    memcpy(buf + 6, mac_addr, 6); /* source MAC addr */
104
    *(uint16_t *)(buf + 12) = htons(ETH_P_RARP); /* ethertype */
105

    
106
    /* RARP header. */
107
    *(uint16_t *)(buf + 14) = htons(ARP_HTYPE_ETH); /* hardware addr space */
108
    *(uint16_t *)(buf + 16) = htons(ARP_PTYPE_IP); /* protocol addr space */
109
    *(buf + 18) = 6; /* hardware addr length (ethernet) */
110
    *(buf + 19) = 4; /* protocol addr length (IPv4) */
111
    *(uint16_t *)(buf + 20) = htons(ARP_OP_REQUEST_REV); /* opcode */
112
    memcpy(buf + 22, mac_addr, 6); /* source hw addr */
113
    memset(buf + 28, 0x00, 4);     /* source protocol addr */
114
    memcpy(buf + 32, mac_addr, 6); /* target hw addr */
115
    memset(buf + 38, 0x00, 4);     /* target protocol addr */
116

    
117
    /* Padding to get up to 60 bytes (ethernet min packet size, minus FCS). */
118
    memset(buf + 42, 0x00, 18);
119

    
120
    return 60; /* len (FCS will be added by hardware) */
121
}
122

    
123
static void qemu_announce_self_iter(NICState *nic, void *opaque)
124
{
125
    uint8_t buf[60];
126
    int len;
127

    
128
    len = announce_self_create(buf, nic->conf->macaddr.a);
129

    
130
    qemu_send_packet_raw(&nic->nc, buf, len);
131
}
132

    
133

    
134
static void qemu_announce_self_once(void *opaque)
135
{
136
    static int count = SELF_ANNOUNCE_ROUNDS;
137
    QEMUTimer *timer = *(QEMUTimer **)opaque;
138

    
139
    qemu_foreach_nic(qemu_announce_self_iter, NULL);
140

    
141
    if (--count) {
142
        /* delay 50ms, 150ms, 250ms, ... */
143
        qemu_mod_timer(timer, qemu_get_clock(rt_clock) +
144
                       50 + (SELF_ANNOUNCE_ROUNDS - count - 1) * 100);
145
    } else {
146
            qemu_del_timer(timer);
147
            qemu_free_timer(timer);
148
    }
149
}
150

    
151
void qemu_announce_self(void)
152
{
153
        static QEMUTimer *timer;
154
        timer = qemu_new_timer(rt_clock, qemu_announce_self_once, &timer);
155
        qemu_announce_self_once(&timer);
156
}
157

    
158
/***********************************************************/
159
/* savevm/loadvm support */
160

    
161
#define IO_BUF_SIZE 32768
162

    
163
struct QEMUFile {
164
    QEMUFilePutBufferFunc *put_buffer;
165
    QEMUFileGetBufferFunc *get_buffer;
166
    QEMUFileCloseFunc *close;
167
    QEMUFileRateLimit *rate_limit;
168
    QEMUFileSetRateLimit *set_rate_limit;
169
    QEMUFileGetRateLimit *get_rate_limit;
170
    void *opaque;
171
    int is_write;
172

    
173
    int64_t buf_offset; /* start of buffer when writing, end of buffer
174
                           when reading */
175
    int buf_index;
176
    int buf_size; /* 0 when writing */
177
    uint8_t buf[IO_BUF_SIZE];
178

    
179
    int has_error;
180
};
181

    
182
typedef struct QEMUFileStdio
183
{
184
    FILE *stdio_file;
185
    QEMUFile *file;
186
} QEMUFileStdio;
187

    
188
typedef struct QEMUFileSocket
189
{
190
    int fd;
191
    QEMUFile *file;
192
} QEMUFileSocket;
193

    
194
static int socket_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
195
{
196
    QEMUFileSocket *s = opaque;
197
    ssize_t len;
198

    
199
    do {
200
        len = recv(s->fd, (void *)buf, size, 0);
201
    } while (len == -1 && socket_error() == EINTR);
202

    
203
    if (len == -1)
204
        len = -socket_error();
205

    
206
    return len;
207
}
208

    
209
static int socket_close(void *opaque)
210
{
211
    QEMUFileSocket *s = opaque;
212
    qemu_free(s);
213
    return 0;
214
}
215

    
216
static int stdio_put_buffer(void *opaque, const uint8_t *buf, int64_t pos, int size)
217
{
218
    QEMUFileStdio *s = opaque;
219
    return fwrite(buf, 1, size, s->stdio_file);
220
}
221

    
222
static int stdio_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
223
{
224
    QEMUFileStdio *s = opaque;
225
    FILE *fp = s->stdio_file;
226
    int bytes;
227

    
228
    do {
229
        clearerr(fp);
230
        bytes = fread(buf, 1, size, fp);
231
    } while ((bytes == 0) && ferror(fp) && (errno == EINTR));
232
    return bytes;
233
}
234

    
235
static int stdio_pclose(void *opaque)
236
{
237
    QEMUFileStdio *s = opaque;
238
    int ret;
239
    ret = pclose(s->stdio_file);
240
    qemu_free(s);
241
    return ret;
242
}
243

    
244
static int stdio_fclose(void *opaque)
245
{
246
    QEMUFileStdio *s = opaque;
247
    fclose(s->stdio_file);
248
    qemu_free(s);
249
    return 0;
250
}
251

    
252
QEMUFile *qemu_popen(FILE *stdio_file, const char *mode)
253
{
254
    QEMUFileStdio *s;
255

    
256
    if (stdio_file == NULL || mode == NULL || (mode[0] != 'r' && mode[0] != 'w') || mode[1] != 0) {
257
        fprintf(stderr, "qemu_popen: Argument validity check failed\n");
258
        return NULL;
259
    }
260

    
261
    s = qemu_mallocz(sizeof(QEMUFileStdio));
262

    
263
    s->stdio_file = stdio_file;
264

    
265
    if(mode[0] == 'r') {
266
        s->file = qemu_fopen_ops(s, NULL, stdio_get_buffer, stdio_pclose, 
267
                                 NULL, NULL, NULL);
268
    } else {
269
        s->file = qemu_fopen_ops(s, stdio_put_buffer, NULL, stdio_pclose, 
270
                                 NULL, NULL, NULL);
271
    }
272
    return s->file;
273
}
274

    
275
QEMUFile *qemu_popen_cmd(const char *command, const char *mode)
276
{
277
    FILE *popen_file;
278

    
279
    popen_file = popen(command, mode);
280
    if(popen_file == NULL) {
281
        return NULL;
282
    }
283

    
284
    return qemu_popen(popen_file, mode);
285
}
286

    
287
int qemu_stdio_fd(QEMUFile *f)
288
{
289
    QEMUFileStdio *p;
290
    int fd;
291

    
292
    p = (QEMUFileStdio *)f->opaque;
293
    fd = fileno(p->stdio_file);
294

    
295
    return fd;
296
}
297

    
298
QEMUFile *qemu_fdopen(int fd, const char *mode)
299
{
300
    QEMUFileStdio *s;
301

    
302
    if (mode == NULL ||
303
        (mode[0] != 'r' && mode[0] != 'w') ||
304
        mode[1] != 'b' || mode[2] != 0) {
305
        fprintf(stderr, "qemu_fdopen: Argument validity check failed\n");
306
        return NULL;
307
    }
308

    
309
    s = qemu_mallocz(sizeof(QEMUFileStdio));
310
    s->stdio_file = fdopen(fd, mode);
311
    if (!s->stdio_file)
312
        goto fail;
313

    
314
    if(mode[0] == 'r') {
315
        s->file = qemu_fopen_ops(s, NULL, stdio_get_buffer, stdio_fclose, 
316
                                 NULL, NULL, NULL);
317
    } else {
318
        s->file = qemu_fopen_ops(s, stdio_put_buffer, NULL, stdio_fclose, 
319
                                 NULL, NULL, NULL);
320
    }
321
    return s->file;
322

    
323
fail:
324
    qemu_free(s);
325
    return NULL;
326
}
327

    
328
QEMUFile *qemu_fopen_socket(int fd)
329
{
330
    QEMUFileSocket *s = qemu_mallocz(sizeof(QEMUFileSocket));
331

    
332
    s->fd = fd;
333
    s->file = qemu_fopen_ops(s, NULL, socket_get_buffer, socket_close, 
334
                             NULL, NULL, NULL);
335
    return s->file;
336
}
337

    
338
static int file_put_buffer(void *opaque, const uint8_t *buf,
339
                            int64_t pos, int size)
340
{
341
    QEMUFileStdio *s = opaque;
342
    fseek(s->stdio_file, pos, SEEK_SET);
343
    return fwrite(buf, 1, size, s->stdio_file);
344
}
345

    
346
static int file_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
347
{
348
    QEMUFileStdio *s = opaque;
349
    fseek(s->stdio_file, pos, SEEK_SET);
350
    return fread(buf, 1, size, s->stdio_file);
351
}
352

    
353
QEMUFile *qemu_fopen(const char *filename, const char *mode)
354
{
355
    QEMUFileStdio *s;
356

    
357
    if (mode == NULL ||
358
        (mode[0] != 'r' && mode[0] != 'w') ||
359
        mode[1] != 'b' || mode[2] != 0) {
360
        fprintf(stderr, "qemu_fopen: Argument validity check failed\n");
361
        return NULL;
362
    }
363

    
364
    s = qemu_mallocz(sizeof(QEMUFileStdio));
365

    
366
    s->stdio_file = fopen(filename, mode);
367
    if (!s->stdio_file)
368
        goto fail;
369
    
370
    if(mode[0] == 'w') {
371
        s->file = qemu_fopen_ops(s, file_put_buffer, NULL, stdio_fclose, 
372
                                 NULL, NULL, NULL);
373
    } else {
374
        s->file = qemu_fopen_ops(s, NULL, file_get_buffer, stdio_fclose, 
375
                               NULL, NULL, NULL);
376
    }
377
    return s->file;
378
fail:
379
    qemu_free(s);
380
    return NULL;
381
}
382

    
383
static int block_put_buffer(void *opaque, const uint8_t *buf,
384
                           int64_t pos, int size)
385
{
386
    bdrv_save_vmstate(opaque, buf, pos, size);
387
    return size;
388
}
389

    
390
static int block_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
391
{
392
    return bdrv_load_vmstate(opaque, buf, pos, size);
393
}
394

    
395
static int bdrv_fclose(void *opaque)
396
{
397
    return 0;
398
}
399

    
400
static QEMUFile *qemu_fopen_bdrv(BlockDriverState *bs, int is_writable)
401
{
402
    if (is_writable)
403
        return qemu_fopen_ops(bs, block_put_buffer, NULL, bdrv_fclose, 
404
                              NULL, NULL, NULL);
405
    return qemu_fopen_ops(bs, NULL, block_get_buffer, bdrv_fclose, NULL, NULL, NULL);
406
}
407

    
408
QEMUFile *qemu_fopen_ops(void *opaque, QEMUFilePutBufferFunc *put_buffer,
409
                         QEMUFileGetBufferFunc *get_buffer,
410
                         QEMUFileCloseFunc *close,
411
                         QEMUFileRateLimit *rate_limit,
412
                         QEMUFileSetRateLimit *set_rate_limit,
413
                         QEMUFileGetRateLimit *get_rate_limit)
414
{
415
    QEMUFile *f;
416

    
417
    f = qemu_mallocz(sizeof(QEMUFile));
418

    
419
    f->opaque = opaque;
420
    f->put_buffer = put_buffer;
421
    f->get_buffer = get_buffer;
422
    f->close = close;
423
    f->rate_limit = rate_limit;
424
    f->set_rate_limit = set_rate_limit;
425
    f->get_rate_limit = get_rate_limit;
426
    f->is_write = 0;
427

    
428
    return f;
429
}
430

    
431
int qemu_file_has_error(QEMUFile *f)
432
{
433
    return f->has_error;
434
}
435

    
436
void qemu_file_set_error(QEMUFile *f)
437
{
438
    f->has_error = 1;
439
}
440

    
441
void qemu_fflush(QEMUFile *f)
442
{
443
    if (!f->put_buffer)
444
        return;
445

    
446
    if (f->is_write && f->buf_index > 0) {
447
        int len;
448

    
449
        len = f->put_buffer(f->opaque, f->buf, f->buf_offset, f->buf_index);
450
        if (len > 0)
451
            f->buf_offset += f->buf_index;
452
        else
453
            f->has_error = 1;
454
        f->buf_index = 0;
455
    }
456
}
457

    
458
static void qemu_fill_buffer(QEMUFile *f)
459
{
460
    int len;
461

    
462
    if (!f->get_buffer)
463
        return;
464

    
465
    if (f->is_write)
466
        abort();
467

    
468
    len = f->get_buffer(f->opaque, f->buf, f->buf_offset, IO_BUF_SIZE);
469
    if (len > 0) {
470
        f->buf_index = 0;
471
        f->buf_size = len;
472
        f->buf_offset += len;
473
    } else if (len != -EAGAIN)
474
        f->has_error = 1;
475
}
476

    
477
int qemu_fclose(QEMUFile *f)
478
{
479
    int ret = 0;
480
    qemu_fflush(f);
481
    if (f->close)
482
        ret = f->close(f->opaque);
483
    qemu_free(f);
484
    return ret;
485
}
486

    
487
void qemu_file_put_notify(QEMUFile *f)
488
{
489
    f->put_buffer(f->opaque, NULL, 0, 0);
490
}
491

    
492
void qemu_put_buffer(QEMUFile *f, const uint8_t *buf, int size)
493
{
494
    int l;
495

    
496
    if (!f->has_error && f->is_write == 0 && f->buf_index > 0) {
497
        fprintf(stderr,
498
                "Attempted to write to buffer while read buffer is not empty\n");
499
        abort();
500
    }
501

    
502
    while (!f->has_error && size > 0) {
503
        l = IO_BUF_SIZE - f->buf_index;
504
        if (l > size)
505
            l = size;
506
        memcpy(f->buf + f->buf_index, buf, l);
507
        f->is_write = 1;
508
        f->buf_index += l;
509
        buf += l;
510
        size -= l;
511
        if (f->buf_index >= IO_BUF_SIZE)
512
            qemu_fflush(f);
513
    }
514
}
515

    
516
void qemu_put_byte(QEMUFile *f, int v)
517
{
518
    if (!f->has_error && f->is_write == 0 && f->buf_index > 0) {
519
        fprintf(stderr,
520
                "Attempted to write to buffer while read buffer is not empty\n");
521
        abort();
522
    }
523

    
524
    f->buf[f->buf_index++] = v;
525
    f->is_write = 1;
526
    if (f->buf_index >= IO_BUF_SIZE)
527
        qemu_fflush(f);
528
}
529

    
530
int qemu_get_buffer(QEMUFile *f, uint8_t *buf, int size1)
531
{
532
    int size, l;
533

    
534
    if (f->is_write)
535
        abort();
536

    
537
    size = size1;
538
    while (size > 0) {
539
        l = f->buf_size - f->buf_index;
540
        if (l == 0) {
541
            qemu_fill_buffer(f);
542
            l = f->buf_size - f->buf_index;
543
            if (l == 0)
544
                break;
545
        }
546
        if (l > size)
547
            l = size;
548
        memcpy(buf, f->buf + f->buf_index, l);
549
        f->buf_index += l;
550
        buf += l;
551
        size -= l;
552
    }
553
    return size1 - size;
554
}
555

    
556
int qemu_get_byte(QEMUFile *f)
557
{
558
    if (f->is_write)
559
        abort();
560

    
561
    if (f->buf_index >= f->buf_size) {
562
        qemu_fill_buffer(f);
563
        if (f->buf_index >= f->buf_size)
564
            return 0;
565
    }
566
    return f->buf[f->buf_index++];
567
}
568

    
569
int64_t qemu_ftell(QEMUFile *f)
570
{
571
    return f->buf_offset - f->buf_size + f->buf_index;
572
}
573

    
574
int64_t qemu_fseek(QEMUFile *f, int64_t pos, int whence)
575
{
576
    if (whence == SEEK_SET) {
577
        /* nothing to do */
578
    } else if (whence == SEEK_CUR) {
579
        pos += qemu_ftell(f);
580
    } else {
581
        /* SEEK_END not supported */
582
        return -1;
583
    }
584
    if (f->put_buffer) {
585
        qemu_fflush(f);
586
        f->buf_offset = pos;
587
    } else {
588
        f->buf_offset = pos;
589
        f->buf_index = 0;
590
        f->buf_size = 0;
591
    }
592
    return pos;
593
}
594

    
595
int qemu_file_rate_limit(QEMUFile *f)
596
{
597
    if (f->rate_limit)
598
        return f->rate_limit(f->opaque);
599

    
600
    return 0;
601
}
602

    
603
size_t qemu_file_get_rate_limit(QEMUFile *f)
604
{
605
    if (f->get_rate_limit)
606
        return f->get_rate_limit(f->opaque);
607

    
608
    return 0;
609
}
610

    
611
size_t qemu_file_set_rate_limit(QEMUFile *f, size_t new_rate)
612
{
613
    /* any failed or completed migration keeps its state to allow probing of
614
     * migration data, but has no associated file anymore */
615
    if (f && f->set_rate_limit)
616
        return f->set_rate_limit(f->opaque, new_rate);
617

    
618
    return 0;
619
}
620

    
621
void qemu_put_be16(QEMUFile *f, unsigned int v)
622
{
623
    qemu_put_byte(f, v >> 8);
624
    qemu_put_byte(f, v);
625
}
626

    
627
void qemu_put_be32(QEMUFile *f, unsigned int v)
628
{
629
    qemu_put_byte(f, v >> 24);
630
    qemu_put_byte(f, v >> 16);
631
    qemu_put_byte(f, v >> 8);
632
    qemu_put_byte(f, v);
633
}
634

    
635
void qemu_put_be64(QEMUFile *f, uint64_t v)
636
{
637
    qemu_put_be32(f, v >> 32);
638
    qemu_put_be32(f, v);
639
}
640

    
641
unsigned int qemu_get_be16(QEMUFile *f)
642
{
643
    unsigned int v;
644
    v = qemu_get_byte(f) << 8;
645
    v |= qemu_get_byte(f);
646
    return v;
647
}
648

    
649
unsigned int qemu_get_be32(QEMUFile *f)
650
{
651
    unsigned int v;
652
    v = qemu_get_byte(f) << 24;
653
    v |= qemu_get_byte(f) << 16;
654
    v |= qemu_get_byte(f) << 8;
655
    v |= qemu_get_byte(f);
656
    return v;
657
}
658

    
659
uint64_t qemu_get_be64(QEMUFile *f)
660
{
661
    uint64_t v;
662
    v = (uint64_t)qemu_get_be32(f) << 32;
663
    v |= qemu_get_be32(f);
664
    return v;
665
}
666

    
667
/* 8 bit int */
668

    
669
static int get_int8(QEMUFile *f, void *pv, size_t size)
670
{
671
    int8_t *v = pv;
672
    qemu_get_s8s(f, v);
673
    return 0;
674
}
675

    
676
static void put_int8(QEMUFile *f, void *pv, size_t size)
677
{
678
    int8_t *v = pv;
679
    qemu_put_s8s(f, v);
680
}
681

    
682
const VMStateInfo vmstate_info_int8 = {
683
    .name = "int8",
684
    .get  = get_int8,
685
    .put  = put_int8,
686
};
687

    
688
/* 16 bit int */
689

    
690
static int get_int16(QEMUFile *f, void *pv, size_t size)
691
{
692
    int16_t *v = pv;
693
    qemu_get_sbe16s(f, v);
694
    return 0;
695
}
696

    
697
static void put_int16(QEMUFile *f, void *pv, size_t size)
698
{
699
    int16_t *v = pv;
700
    qemu_put_sbe16s(f, v);
701
}
702

    
703
const VMStateInfo vmstate_info_int16 = {
704
    .name = "int16",
705
    .get  = get_int16,
706
    .put  = put_int16,
707
};
708

    
709
/* 32 bit int */
710

    
711
static int get_int32(QEMUFile *f, void *pv, size_t size)
712
{
713
    int32_t *v = pv;
714
    qemu_get_sbe32s(f, v);
715
    return 0;
716
}
717

    
718
static void put_int32(QEMUFile *f, void *pv, size_t size)
719
{
720
    int32_t *v = pv;
721
    qemu_put_sbe32s(f, v);
722
}
723

    
724
const VMStateInfo vmstate_info_int32 = {
725
    .name = "int32",
726
    .get  = get_int32,
727
    .put  = put_int32,
728
};
729

    
730
/* 32 bit int. See that the received value is the same than the one
731
   in the field */
732

    
733
static int get_int32_equal(QEMUFile *f, void *pv, size_t size)
734
{
735
    int32_t *v = pv;
736
    int32_t v2;
737
    qemu_get_sbe32s(f, &v2);
738

    
739
    if (*v == v2)
740
        return 0;
741
    return -EINVAL;
742
}
743

    
744
const VMStateInfo vmstate_info_int32_equal = {
745
    .name = "int32 equal",
746
    .get  = get_int32_equal,
747
    .put  = put_int32,
748
};
749

    
750
/* 32 bit int. See that the received value is the less or the same
751
   than the one in the field */
752

    
753
static int get_int32_le(QEMUFile *f, void *pv, size_t size)
754
{
755
    int32_t *old = pv;
756
    int32_t new;
757
    qemu_get_sbe32s(f, &new);
758

    
759
    if (*old <= new)
760
        return 0;
761
    return -EINVAL;
762
}
763

    
764
const VMStateInfo vmstate_info_int32_le = {
765
    .name = "int32 equal",
766
    .get  = get_int32_le,
767
    .put  = put_int32,
768
};
769

    
770
/* 64 bit int */
771

    
772
static int get_int64(QEMUFile *f, void *pv, size_t size)
773
{
774
    int64_t *v = pv;
775
    qemu_get_sbe64s(f, v);
776
    return 0;
777
}
778

    
779
static void put_int64(QEMUFile *f, void *pv, size_t size)
780
{
781
    int64_t *v = pv;
782
    qemu_put_sbe64s(f, v);
783
}
784

    
785
const VMStateInfo vmstate_info_int64 = {
786
    .name = "int64",
787
    .get  = get_int64,
788
    .put  = put_int64,
789
};
790

    
791
/* 8 bit unsigned int */
792

    
793
static int get_uint8(QEMUFile *f, void *pv, size_t size)
794
{
795
    uint8_t *v = pv;
796
    qemu_get_8s(f, v);
797
    return 0;
798
}
799

    
800
static void put_uint8(QEMUFile *f, void *pv, size_t size)
801
{
802
    uint8_t *v = pv;
803
    qemu_put_8s(f, v);
804
}
805

    
806
const VMStateInfo vmstate_info_uint8 = {
807
    .name = "uint8",
808
    .get  = get_uint8,
809
    .put  = put_uint8,
810
};
811

    
812
/* 16 bit unsigned int */
813

    
814
static int get_uint16(QEMUFile *f, void *pv, size_t size)
815
{
816
    uint16_t *v = pv;
817
    qemu_get_be16s(f, v);
818
    return 0;
819
}
820

    
821
static void put_uint16(QEMUFile *f, void *pv, size_t size)
822
{
823
    uint16_t *v = pv;
824
    qemu_put_be16s(f, v);
825
}
826

    
827
const VMStateInfo vmstate_info_uint16 = {
828
    .name = "uint16",
829
    .get  = get_uint16,
830
    .put  = put_uint16,
831
};
832

    
833
/* 32 bit unsigned int */
834

    
835
static int get_uint32(QEMUFile *f, void *pv, size_t size)
836
{
837
    uint32_t *v = pv;
838
    qemu_get_be32s(f, v);
839
    return 0;
840
}
841

    
842
static void put_uint32(QEMUFile *f, void *pv, size_t size)
843
{
844
    uint32_t *v = pv;
845
    qemu_put_be32s(f, v);
846
}
847

    
848
const VMStateInfo vmstate_info_uint32 = {
849
    .name = "uint32",
850
    .get  = get_uint32,
851
    .put  = put_uint32,
852
};
853

    
854
/* 64 bit unsigned int */
855

    
856
static int get_uint64(QEMUFile *f, void *pv, size_t size)
857
{
858
    uint64_t *v = pv;
859
    qemu_get_be64s(f, v);
860
    return 0;
861
}
862

    
863
static void put_uint64(QEMUFile *f, void *pv, size_t size)
864
{
865
    uint64_t *v = pv;
866
    qemu_put_be64s(f, v);
867
}
868

    
869
const VMStateInfo vmstate_info_uint64 = {
870
    .name = "uint64",
871
    .get  = get_uint64,
872
    .put  = put_uint64,
873
};
874

    
875
/* 8 bit int. See that the received value is the same than the one
876
   in the field */
877

    
878
static int get_uint8_equal(QEMUFile *f, void *pv, size_t size)
879
{
880
    uint8_t *v = pv;
881
    uint8_t v2;
882
    qemu_get_8s(f, &v2);
883

    
884
    if (*v == v2)
885
        return 0;
886
    return -EINVAL;
887
}
888

    
889
const VMStateInfo vmstate_info_uint8_equal = {
890
    .name = "uint8 equal",
891
    .get  = get_uint8_equal,
892
    .put  = put_uint8,
893
};
894

    
895
/* 16 bit unsigned int int. See that the received value is the same than the one
896
   in the field */
897

    
898
static int get_uint16_equal(QEMUFile *f, void *pv, size_t size)
899
{
900
    uint16_t *v = pv;
901
    uint16_t v2;
902
    qemu_get_be16s(f, &v2);
903

    
904
    if (*v == v2)
905
        return 0;
906
    return -EINVAL;
907
}
908

    
909
const VMStateInfo vmstate_info_uint16_equal = {
910
    .name = "uint16 equal",
911
    .get  = get_uint16_equal,
912
    .put  = put_uint16,
913
};
914

    
915
/* timers  */
916

    
917
static int get_timer(QEMUFile *f, void *pv, size_t size)
918
{
919
    QEMUTimer *v = pv;
920
    qemu_get_timer(f, v);
921
    return 0;
922
}
923

    
924
static void put_timer(QEMUFile *f, void *pv, size_t size)
925
{
926
    QEMUTimer *v = pv;
927
    qemu_put_timer(f, v);
928
}
929

    
930
const VMStateInfo vmstate_info_timer = {
931
    .name = "timer",
932
    .get  = get_timer,
933
    .put  = put_timer,
934
};
935

    
936
/* uint8_t buffers */
937

    
938
static int get_buffer(QEMUFile *f, void *pv, size_t size)
939
{
940
    uint8_t *v = pv;
941
    qemu_get_buffer(f, v, size);
942
    return 0;
943
}
944

    
945
static void put_buffer(QEMUFile *f, void *pv, size_t size)
946
{
947
    uint8_t *v = pv;
948
    qemu_put_buffer(f, v, size);
949
}
950

    
951
const VMStateInfo vmstate_info_buffer = {
952
    .name = "buffer",
953
    .get  = get_buffer,
954
    .put  = put_buffer,
955
};
956

    
957
/* unused buffers: space that was used for some fields that are
958
   not usefull anymore */
959

    
960
static int get_unused_buffer(QEMUFile *f, void *pv, size_t size)
961
{
962
    uint8_t buf[1024];
963
    int block_len;
964

    
965
    while (size > 0) {
966
        block_len = MIN(sizeof(buf), size);
967
        size -= block_len;
968
        qemu_get_buffer(f, buf, block_len);
969
    }
970
   return 0;
971
}
972

    
973
static void put_unused_buffer(QEMUFile *f, void *pv, size_t size)
974
{
975
    static const uint8_t buf[1024];
976
    int block_len;
977

    
978
    while (size > 0) {
979
        block_len = MIN(sizeof(buf), size);
980
        size -= block_len;
981
        qemu_put_buffer(f, buf, block_len);
982
    }
983
}
984

    
985
const VMStateInfo vmstate_info_unused_buffer = {
986
    .name = "unused_buffer",
987
    .get  = get_unused_buffer,
988
    .put  = put_unused_buffer,
989
};
990

    
991
typedef struct SaveStateEntry {
992
    QTAILQ_ENTRY(SaveStateEntry) entry;
993
    char idstr[256];
994
    int instance_id;
995
    int alias_id;
996
    int version_id;
997
    int section_id;
998
    SaveSetParamsHandler *set_params;
999
    SaveLiveStateHandler *save_live_state;
1000
    SaveStateHandler *save_state;
1001
    LoadStateHandler *load_state;
1002
    const VMStateDescription *vmsd;
1003
    void *opaque;
1004
} SaveStateEntry;
1005

    
1006

    
1007
static QTAILQ_HEAD(savevm_handlers, SaveStateEntry) savevm_handlers =
1008
    QTAILQ_HEAD_INITIALIZER(savevm_handlers);
1009
static int global_section_id;
1010

    
1011
static int calculate_new_instance_id(const char *idstr)
1012
{
1013
    SaveStateEntry *se;
1014
    int instance_id = 0;
1015

    
1016
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1017
        if (strcmp(idstr, se->idstr) == 0
1018
            && instance_id <= se->instance_id) {
1019
            instance_id = se->instance_id + 1;
1020
        }
1021
    }
1022
    return instance_id;
1023
}
1024

    
1025
/* TODO: Individual devices generally have very little idea about the rest
1026
   of the system, so instance_id should be removed/replaced.
1027
   Meanwhile pass -1 as instance_id if you do not already have a clearly
1028
   distinguishing id for all instances of your device class. */
1029
int register_savevm_live(const char *idstr,
1030
                         int instance_id,
1031
                         int version_id,
1032
                         SaveSetParamsHandler *set_params,
1033
                         SaveLiveStateHandler *save_live_state,
1034
                         SaveStateHandler *save_state,
1035
                         LoadStateHandler *load_state,
1036
                         void *opaque)
1037
{
1038
    SaveStateEntry *se;
1039

    
1040
    se = qemu_mallocz(sizeof(SaveStateEntry));
1041
    pstrcpy(se->idstr, sizeof(se->idstr), idstr);
1042
    se->version_id = version_id;
1043
    se->section_id = global_section_id++;
1044
    se->set_params = set_params;
1045
    se->save_live_state = save_live_state;
1046
    se->save_state = save_state;
1047
    se->load_state = load_state;
1048
    se->opaque = opaque;
1049
    se->vmsd = NULL;
1050

    
1051
    if (instance_id == -1) {
1052
        se->instance_id = calculate_new_instance_id(idstr);
1053
    } else {
1054
        se->instance_id = instance_id;
1055
    }
1056
    /* add at the end of list */
1057
    QTAILQ_INSERT_TAIL(&savevm_handlers, se, entry);
1058
    return 0;
1059
}
1060

    
1061
int register_savevm(const char *idstr,
1062
                    int instance_id,
1063
                    int version_id,
1064
                    SaveStateHandler *save_state,
1065
                    LoadStateHandler *load_state,
1066
                    void *opaque)
1067
{
1068
    return register_savevm_live(idstr, instance_id, version_id,
1069
                                NULL, NULL, save_state, load_state, opaque);
1070
}
1071

    
1072
void unregister_savevm(const char *idstr, void *opaque)
1073
{
1074
    SaveStateEntry *se, *new_se;
1075

    
1076
    QTAILQ_FOREACH_SAFE(se, &savevm_handlers, entry, new_se) {
1077
        if (strcmp(se->idstr, idstr) == 0 && se->opaque == opaque) {
1078
            QTAILQ_REMOVE(&savevm_handlers, se, entry);
1079
            qemu_free(se);
1080
        }
1081
    }
1082
}
1083

    
1084
int vmstate_register_with_alias_id(int instance_id,
1085
                                   const VMStateDescription *vmsd,
1086
                                   void *opaque, int alias_id,
1087
                                   int required_for_version)
1088
{
1089
    SaveStateEntry *se;
1090

    
1091
    /* If this triggers, alias support can be dropped for the vmsd. */
1092
    assert(alias_id == -1 || required_for_version >= vmsd->minimum_version_id);
1093

    
1094
    se = qemu_mallocz(sizeof(SaveStateEntry));
1095
    pstrcpy(se->idstr, sizeof(se->idstr), vmsd->name);
1096
    se->version_id = vmsd->version_id;
1097
    se->section_id = global_section_id++;
1098
    se->save_live_state = NULL;
1099
    se->save_state = NULL;
1100
    se->load_state = NULL;
1101
    se->opaque = opaque;
1102
    se->vmsd = vmsd;
1103
    se->alias_id = alias_id;
1104

    
1105
    if (instance_id == -1) {
1106
        se->instance_id = calculate_new_instance_id(vmsd->name);
1107
    } else {
1108
        se->instance_id = instance_id;
1109
    }
1110
    /* add at the end of list */
1111
    QTAILQ_INSERT_TAIL(&savevm_handlers, se, entry);
1112
    return 0;
1113
}
1114

    
1115
int vmstate_register(int instance_id, const VMStateDescription *vmsd,
1116
                     void *opaque)
1117
{
1118
    return vmstate_register_with_alias_id(instance_id, vmsd, opaque, -1, 0);
1119
}
1120

    
1121
void vmstate_unregister(const VMStateDescription *vmsd, void *opaque)
1122
{
1123
    SaveStateEntry *se, *new_se;
1124

    
1125
    QTAILQ_FOREACH_SAFE(se, &savevm_handlers, entry, new_se) {
1126
        if (se->vmsd == vmsd && se->opaque == opaque) {
1127
            QTAILQ_REMOVE(&savevm_handlers, se, entry);
1128
            qemu_free(se);
1129
        }
1130
    }
1131
}
1132

    
1133
int vmstate_load_state(QEMUFile *f, const VMStateDescription *vmsd,
1134
                       void *opaque, int version_id)
1135
{
1136
    VMStateField *field = vmsd->fields;
1137

    
1138
    if (version_id > vmsd->version_id) {
1139
        return -EINVAL;
1140
    }
1141
    if (version_id < vmsd->minimum_version_id_old) {
1142
        return -EINVAL;
1143
    }
1144
    if  (version_id < vmsd->minimum_version_id) {
1145
        return vmsd->load_state_old(f, opaque, version_id);
1146
    }
1147
    if (vmsd->pre_load) {
1148
        int ret = vmsd->pre_load(opaque);
1149
        if (ret)
1150
            return ret;
1151
    }
1152
    while(field->name) {
1153
        if ((field->field_exists &&
1154
             field->field_exists(opaque, version_id)) ||
1155
            (!field->field_exists &&
1156
             field->version_id <= version_id)) {
1157
            void *base_addr = opaque + field->offset;
1158
            int ret, i, n_elems = 1;
1159
            int size = field->size;
1160

    
1161
            if (field->flags & VMS_VBUFFER) {
1162
                size = *(int32_t *)(opaque+field->size_offset);
1163
                if (field->flags & VMS_MULTIPLY) {
1164
                    size *= field->size;
1165
                }
1166
            }
1167
            if (field->flags & VMS_ARRAY) {
1168
                n_elems = field->num;
1169
            } else if (field->flags & VMS_VARRAY_INT32) {
1170
                n_elems = *(int32_t *)(opaque+field->num_offset);
1171
            } else if (field->flags & VMS_VARRAY_UINT16) {
1172
                n_elems = *(uint16_t *)(opaque+field->num_offset);
1173
            }
1174
            if (field->flags & VMS_POINTER) {
1175
                base_addr = *(void **)base_addr + field->start;
1176
            }
1177
            for (i = 0; i < n_elems; i++) {
1178
                void *addr = base_addr + size * i;
1179

    
1180
                if (field->flags & VMS_ARRAY_OF_POINTER) {
1181
                    addr = *(void **)addr;
1182
                }
1183
                if (field->flags & VMS_STRUCT) {
1184
                    ret = vmstate_load_state(f, field->vmsd, addr, field->vmsd->version_id);
1185
                } else {
1186
                    ret = field->info->get(f, addr, size);
1187

    
1188
                }
1189
                if (ret < 0) {
1190
                    return ret;
1191
                }
1192
            }
1193
        }
1194
        field++;
1195
    }
1196
    if (vmsd->post_load) {
1197
        return vmsd->post_load(opaque, version_id);
1198
    }
1199
    return 0;
1200
}
1201

    
1202
void vmstate_save_state(QEMUFile *f, const VMStateDescription *vmsd,
1203
                        void *opaque)
1204
{
1205
    VMStateField *field = vmsd->fields;
1206

    
1207
    if (vmsd->pre_save) {
1208
        vmsd->pre_save(opaque);
1209
    }
1210
    while(field->name) {
1211
        if (!field->field_exists ||
1212
            field->field_exists(opaque, vmsd->version_id)) {
1213
            void *base_addr = opaque + field->offset;
1214
            int i, n_elems = 1;
1215
            int size = field->size;
1216

    
1217
            if (field->flags & VMS_VBUFFER) {
1218
                size = *(int32_t *)(opaque+field->size_offset);
1219
                if (field->flags & VMS_MULTIPLY) {
1220
                    size *= field->size;
1221
                }
1222
            }
1223
            if (field->flags & VMS_ARRAY) {
1224
                n_elems = field->num;
1225
            } else if (field->flags & VMS_VARRAY_INT32) {
1226
                n_elems = *(int32_t *)(opaque+field->num_offset);
1227
            } else if (field->flags & VMS_VARRAY_UINT16) {
1228
                n_elems = *(uint16_t *)(opaque+field->num_offset);
1229
            }
1230
            if (field->flags & VMS_POINTER) {
1231
                base_addr = *(void **)base_addr + field->start;
1232
            }
1233
            for (i = 0; i < n_elems; i++) {
1234
                void *addr = base_addr + size * i;
1235

    
1236
                if (field->flags & VMS_ARRAY_OF_POINTER) {
1237
                    addr = *(void **)addr;
1238
                }
1239
                if (field->flags & VMS_STRUCT) {
1240
                    vmstate_save_state(f, field->vmsd, addr);
1241
                } else {
1242
                    field->info->put(f, addr, size);
1243
                }
1244
            }
1245
        }
1246
        field++;
1247
    }
1248
}
1249

    
1250
static int vmstate_load(QEMUFile *f, SaveStateEntry *se, int version_id)
1251
{
1252
    if (!se->vmsd) {         /* Old style */
1253
        return se->load_state(f, se->opaque, version_id);
1254
    }
1255
    return vmstate_load_state(f, se->vmsd, se->opaque, version_id);
1256
}
1257

    
1258
static void vmstate_save(QEMUFile *f, SaveStateEntry *se)
1259
{
1260
    if (!se->vmsd) {         /* Old style */
1261
        se->save_state(f, se->opaque);
1262
        return;
1263
    }
1264
    vmstate_save_state(f,se->vmsd, se->opaque);
1265
}
1266

    
1267
#define QEMU_VM_FILE_MAGIC           0x5145564d
1268
#define QEMU_VM_FILE_VERSION_COMPAT  0x00000002
1269
#define QEMU_VM_FILE_VERSION         0x00000003
1270

    
1271
#define QEMU_VM_EOF                  0x00
1272
#define QEMU_VM_SECTION_START        0x01
1273
#define QEMU_VM_SECTION_PART         0x02
1274
#define QEMU_VM_SECTION_END          0x03
1275
#define QEMU_VM_SECTION_FULL         0x04
1276

    
1277
int qemu_savevm_state_begin(Monitor *mon, QEMUFile *f, int blk_enable,
1278
                            int shared)
1279
{
1280
    SaveStateEntry *se;
1281

    
1282
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1283
        if(se->set_params == NULL) {
1284
            continue;
1285
        }
1286
        se->set_params(blk_enable, shared, se->opaque);
1287
    }
1288
    
1289
    qemu_put_be32(f, QEMU_VM_FILE_MAGIC);
1290
    qemu_put_be32(f, QEMU_VM_FILE_VERSION);
1291

    
1292
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1293
        int len;
1294

    
1295
        if (se->save_live_state == NULL)
1296
            continue;
1297

    
1298
        /* Section type */
1299
        qemu_put_byte(f, QEMU_VM_SECTION_START);
1300
        qemu_put_be32(f, se->section_id);
1301

    
1302
        /* ID string */
1303
        len = strlen(se->idstr);
1304
        qemu_put_byte(f, len);
1305
        qemu_put_buffer(f, (uint8_t *)se->idstr, len);
1306

    
1307
        qemu_put_be32(f, se->instance_id);
1308
        qemu_put_be32(f, se->version_id);
1309

    
1310
        se->save_live_state(mon, f, QEMU_VM_SECTION_START, se->opaque);
1311
    }
1312

    
1313
    if (qemu_file_has_error(f)) {
1314
        qemu_savevm_state_cancel(mon, f);
1315
        return -EIO;
1316
    }
1317

    
1318
    return 0;
1319
}
1320

    
1321
int qemu_savevm_state_iterate(Monitor *mon, QEMUFile *f)
1322
{
1323
    SaveStateEntry *se;
1324
    int ret = 1;
1325

    
1326
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1327
        if (se->save_live_state == NULL)
1328
            continue;
1329

    
1330
        /* Section type */
1331
        qemu_put_byte(f, QEMU_VM_SECTION_PART);
1332
        qemu_put_be32(f, se->section_id);
1333

    
1334
        ret = se->save_live_state(mon, f, QEMU_VM_SECTION_PART, se->opaque);
1335
        if (!ret) {
1336
            /* Do not proceed to the next vmstate before this one reported
1337
               completion of the current stage. This serializes the migration
1338
               and reduces the probability that a faster changing state is
1339
               synchronized over and over again. */
1340
            break;
1341
        }
1342
    }
1343

    
1344
    if (ret)
1345
        return 1;
1346

    
1347
    if (qemu_file_has_error(f)) {
1348
        qemu_savevm_state_cancel(mon, f);
1349
        return -EIO;
1350
    }
1351

    
1352
    return 0;
1353
}
1354

    
1355
int qemu_savevm_state_complete(Monitor *mon, QEMUFile *f)
1356
{
1357
    SaveStateEntry *se;
1358

    
1359
    cpu_synchronize_all_states();
1360

    
1361
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1362
        if (se->save_live_state == NULL)
1363
            continue;
1364

    
1365
        /* Section type */
1366
        qemu_put_byte(f, QEMU_VM_SECTION_END);
1367
        qemu_put_be32(f, se->section_id);
1368

    
1369
        se->save_live_state(mon, f, QEMU_VM_SECTION_END, se->opaque);
1370
    }
1371

    
1372
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1373
        int len;
1374

    
1375
        if (se->save_state == NULL && se->vmsd == NULL)
1376
            continue;
1377

    
1378
        /* Section type */
1379
        qemu_put_byte(f, QEMU_VM_SECTION_FULL);
1380
        qemu_put_be32(f, se->section_id);
1381

    
1382
        /* ID string */
1383
        len = strlen(se->idstr);
1384
        qemu_put_byte(f, len);
1385
        qemu_put_buffer(f, (uint8_t *)se->idstr, len);
1386

    
1387
        qemu_put_be32(f, se->instance_id);
1388
        qemu_put_be32(f, se->version_id);
1389

    
1390
        vmstate_save(f, se);
1391
    }
1392

    
1393
    qemu_put_byte(f, QEMU_VM_EOF);
1394

    
1395
    if (qemu_file_has_error(f))
1396
        return -EIO;
1397

    
1398
    return 0;
1399
}
1400

    
1401
void qemu_savevm_state_cancel(Monitor *mon, QEMUFile *f)
1402
{
1403
    SaveStateEntry *se;
1404

    
1405
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1406
        if (se->save_live_state) {
1407
            se->save_live_state(mon, f, -1, se->opaque);
1408
        }
1409
    }
1410
}
1411

    
1412
static int qemu_savevm_state(Monitor *mon, QEMUFile *f)
1413
{
1414
    int saved_vm_running;
1415
    int ret;
1416

    
1417
    saved_vm_running = vm_running;
1418
    vm_stop(0);
1419

    
1420
    bdrv_flush_all();
1421

    
1422
    ret = qemu_savevm_state_begin(mon, f, 0, 0);
1423
    if (ret < 0)
1424
        goto out;
1425

    
1426
    do {
1427
        ret = qemu_savevm_state_iterate(mon, f);
1428
        if (ret < 0)
1429
            goto out;
1430
    } while (ret == 0);
1431

    
1432
    ret = qemu_savevm_state_complete(mon, f);
1433

    
1434
out:
1435
    if (qemu_file_has_error(f))
1436
        ret = -EIO;
1437

    
1438
    if (!ret && saved_vm_running)
1439
        vm_start();
1440

    
1441
    return ret;
1442
}
1443

    
1444
static SaveStateEntry *find_se(const char *idstr, int instance_id)
1445
{
1446
    SaveStateEntry *se;
1447

    
1448
    QTAILQ_FOREACH(se, &savevm_handlers, entry) {
1449
        if (!strcmp(se->idstr, idstr) &&
1450
            (instance_id == se->instance_id ||
1451
             instance_id == se->alias_id))
1452
            return se;
1453
    }
1454
    return NULL;
1455
}
1456

    
1457
typedef struct LoadStateEntry {
1458
    QLIST_ENTRY(LoadStateEntry) entry;
1459
    SaveStateEntry *se;
1460
    int section_id;
1461
    int version_id;
1462
} LoadStateEntry;
1463

    
1464
int qemu_loadvm_state(QEMUFile *f)
1465
{
1466
    QLIST_HEAD(, LoadStateEntry) loadvm_handlers =
1467
        QLIST_HEAD_INITIALIZER(loadvm_handlers);
1468
    LoadStateEntry *le, *new_le;
1469
    uint8_t section_type;
1470
    unsigned int v;
1471
    int ret;
1472

    
1473
    v = qemu_get_be32(f);
1474
    if (v != QEMU_VM_FILE_MAGIC)
1475
        return -EINVAL;
1476

    
1477
    v = qemu_get_be32(f);
1478
    if (v == QEMU_VM_FILE_VERSION_COMPAT) {
1479
        fprintf(stderr, "SaveVM v2 format is obsolete and don't work anymore\n");
1480
        return -ENOTSUP;
1481
    }
1482
    if (v != QEMU_VM_FILE_VERSION)
1483
        return -ENOTSUP;
1484

    
1485
    while ((section_type = qemu_get_byte(f)) != QEMU_VM_EOF) {
1486
        uint32_t instance_id, version_id, section_id;
1487
        SaveStateEntry *se;
1488
        char idstr[257];
1489
        int len;
1490

    
1491
        switch (section_type) {
1492
        case QEMU_VM_SECTION_START:
1493
        case QEMU_VM_SECTION_FULL:
1494
            /* Read section start */
1495
            section_id = qemu_get_be32(f);
1496
            len = qemu_get_byte(f);
1497
            qemu_get_buffer(f, (uint8_t *)idstr, len);
1498
            idstr[len] = 0;
1499
            instance_id = qemu_get_be32(f);
1500
            version_id = qemu_get_be32(f);
1501

    
1502
            /* Find savevm section */
1503
            se = find_se(idstr, instance_id);
1504
            if (se == NULL) {
1505
                fprintf(stderr, "Unknown savevm section or instance '%s' %d\n", idstr, instance_id);
1506
                ret = -EINVAL;
1507
                goto out;
1508
            }
1509

    
1510
            /* Validate version */
1511
            if (version_id > se->version_id) {
1512
                fprintf(stderr, "savevm: unsupported version %d for '%s' v%d\n",
1513
                        version_id, idstr, se->version_id);
1514
                ret = -EINVAL;
1515
                goto out;
1516
            }
1517

    
1518
            /* Add entry */
1519
            le = qemu_mallocz(sizeof(*le));
1520

    
1521
            le->se = se;
1522
            le->section_id = section_id;
1523
            le->version_id = version_id;
1524
            QLIST_INSERT_HEAD(&loadvm_handlers, le, entry);
1525

    
1526
            ret = vmstate_load(f, le->se, le->version_id);
1527
            if (ret < 0) {
1528
                fprintf(stderr, "qemu: warning: error while loading state for instance 0x%x of device '%s'\n",
1529
                        instance_id, idstr);
1530
                goto out;
1531
            }
1532
            break;
1533
        case QEMU_VM_SECTION_PART:
1534
        case QEMU_VM_SECTION_END:
1535
            section_id = qemu_get_be32(f);
1536

    
1537
            QLIST_FOREACH(le, &loadvm_handlers, entry) {
1538
                if (le->section_id == section_id) {
1539
                    break;
1540
                }
1541
            }
1542
            if (le == NULL) {
1543
                fprintf(stderr, "Unknown savevm section %d\n", section_id);
1544
                ret = -EINVAL;
1545
                goto out;
1546
            }
1547

    
1548
            ret = vmstate_load(f, le->se, le->version_id);
1549
            if (ret < 0) {
1550
                fprintf(stderr, "qemu: warning: error while loading state section id %d\n",
1551
                        section_id);
1552
                goto out;
1553
            }
1554
            break;
1555
        default:
1556
            fprintf(stderr, "Unknown savevm section type %d\n", section_type);
1557
            ret = -EINVAL;
1558
            goto out;
1559
        }
1560
    }
1561

    
1562
    cpu_synchronize_all_post_init();
1563

    
1564
    ret = 0;
1565

    
1566
out:
1567
    QLIST_FOREACH_SAFE(le, &loadvm_handlers, entry, new_le) {
1568
        QLIST_REMOVE(le, entry);
1569
        qemu_free(le);
1570
    }
1571

    
1572
    if (qemu_file_has_error(f))
1573
        ret = -EIO;
1574

    
1575
    return ret;
1576
}
1577

    
1578
static BlockDriverState *get_bs_snapshots(void)
1579
{
1580
    BlockDriverState *bs;
1581
    DriveInfo *dinfo;
1582

    
1583
    if (bs_snapshots)
1584
        return bs_snapshots;
1585
    QTAILQ_FOREACH(dinfo, &drives, next) {
1586
        bs = dinfo->bdrv;
1587
        if (bdrv_can_snapshot(bs)) {
1588
            goto ok;
1589
        }
1590
    }
1591
    return NULL;
1592
 ok:
1593
    bs_snapshots = bs;
1594
    return bs;
1595
}
1596

    
1597
static int bdrv_snapshot_find(BlockDriverState *bs, QEMUSnapshotInfo *sn_info,
1598
                              const char *name)
1599
{
1600
    QEMUSnapshotInfo *sn_tab, *sn;
1601
    int nb_sns, i, ret;
1602

    
1603
    ret = -ENOENT;
1604
    nb_sns = bdrv_snapshot_list(bs, &sn_tab);
1605
    if (nb_sns < 0)
1606
        return ret;
1607
    for(i = 0; i < nb_sns; i++) {
1608
        sn = &sn_tab[i];
1609
        if (!strcmp(sn->id_str, name) || !strcmp(sn->name, name)) {
1610
            *sn_info = *sn;
1611
            ret = 0;
1612
            break;
1613
        }
1614
    }
1615
    qemu_free(sn_tab);
1616
    return ret;
1617
}
1618

    
1619
/*
1620
 * Deletes snapshots of a given name in all opened images.
1621
 */
1622
static int del_existing_snapshots(Monitor *mon, const char *name)
1623
{
1624
    BlockDriverState *bs;
1625
    DriveInfo *dinfo;
1626
    QEMUSnapshotInfo sn1, *snapshot = &sn1;
1627
    int ret;
1628

    
1629
    QTAILQ_FOREACH(dinfo, &drives, next) {
1630
        bs = dinfo->bdrv;
1631
        if (bdrv_can_snapshot(bs) &&
1632
            bdrv_snapshot_find(bs, snapshot, name) >= 0)
1633
        {
1634
            ret = bdrv_snapshot_delete(bs, name);
1635
            if (ret < 0) {
1636
                monitor_printf(mon,
1637
                               "Error while deleting snapshot on '%s'\n",
1638
                               bdrv_get_device_name(bs));
1639
                return -1;
1640
            }
1641
        }
1642
    }
1643

    
1644
    return 0;
1645
}
1646

    
1647
void do_savevm(Monitor *mon, const QDict *qdict)
1648
{
1649
    DriveInfo *dinfo;
1650
    BlockDriverState *bs, *bs1;
1651
    QEMUSnapshotInfo sn1, *sn = &sn1, old_sn1, *old_sn = &old_sn1;
1652
    int ret;
1653
    QEMUFile *f;
1654
    int saved_vm_running;
1655
    uint32_t vm_state_size;
1656
#ifdef _WIN32
1657
    struct _timeb tb;
1658
#else
1659
    struct timeval tv;
1660
#endif
1661
    const char *name = qdict_get_try_str(qdict, "name");
1662

    
1663
    /* Verify if there is a device that doesn't support snapshots and is writable */
1664
    QTAILQ_FOREACH(dinfo, &drives, next) {
1665
        bs = dinfo->bdrv;
1666

    
1667
        if (bdrv_is_removable(bs) || bdrv_is_read_only(bs)) {
1668
            continue;
1669
        }
1670

    
1671
        if (!bdrv_can_snapshot(bs)) {
1672
            monitor_printf(mon, "Device '%s' is writable but does not support snapshots.\n",
1673
                               bdrv_get_device_name(bs));
1674
            return;
1675
        }
1676
    }
1677

    
1678
    bs = get_bs_snapshots();
1679
    if (!bs) {
1680
        monitor_printf(mon, "No block device can accept snapshots\n");
1681
        return;
1682
    }
1683
    /* ??? Should this occur after vm_stop?  */
1684
    qemu_aio_flush();
1685

    
1686
    saved_vm_running = vm_running;
1687
    vm_stop(0);
1688

    
1689
    memset(sn, 0, sizeof(*sn));
1690
    if (name) {
1691
        ret = bdrv_snapshot_find(bs, old_sn, name);
1692
        if (ret >= 0) {
1693
            pstrcpy(sn->name, sizeof(sn->name), old_sn->name);
1694
            pstrcpy(sn->id_str, sizeof(sn->id_str), old_sn->id_str);
1695
        } else {
1696
            pstrcpy(sn->name, sizeof(sn->name), name);
1697
        }
1698
    }
1699

    
1700
    /* fill auxiliary fields */
1701
#ifdef _WIN32
1702
    _ftime(&tb);
1703
    sn->date_sec = tb.time;
1704
    sn->date_nsec = tb.millitm * 1000000;
1705
#else
1706
    gettimeofday(&tv, NULL);
1707
    sn->date_sec = tv.tv_sec;
1708
    sn->date_nsec = tv.tv_usec * 1000;
1709
#endif
1710
    sn->vm_clock_nsec = qemu_get_clock(vm_clock);
1711

    
1712
    /* Delete old snapshots of the same name */
1713
    if (name && del_existing_snapshots(mon, name) < 0) {
1714
        goto the_end;
1715
    }
1716

    
1717
    /* save the VM state */
1718
    f = qemu_fopen_bdrv(bs, 1);
1719
    if (!f) {
1720
        monitor_printf(mon, "Could not open VM state file\n");
1721
        goto the_end;
1722
    }
1723
    ret = qemu_savevm_state(mon, f);
1724
    vm_state_size = qemu_ftell(f);
1725
    qemu_fclose(f);
1726
    if (ret < 0) {
1727
        monitor_printf(mon, "Error %d while writing VM\n", ret);
1728
        goto the_end;
1729
    }
1730

    
1731
    /* create the snapshots */
1732

    
1733
    QTAILQ_FOREACH(dinfo, &drives, next) {
1734
        bs1 = dinfo->bdrv;
1735
        if (bdrv_can_snapshot(bs1)) {
1736
            /* Write VM state size only to the image that contains the state */
1737
            sn->vm_state_size = (bs == bs1 ? vm_state_size : 0);
1738
            ret = bdrv_snapshot_create(bs1, sn);
1739
            if (ret < 0) {
1740
                monitor_printf(mon, "Error while creating snapshot on '%s'\n",
1741
                               bdrv_get_device_name(bs1));
1742
            }
1743
        }
1744
    }
1745

    
1746
 the_end:
1747
    if (saved_vm_running)
1748
        vm_start();
1749
}
1750

    
1751
int load_vmstate(const char *name)
1752
{
1753
    DriveInfo *dinfo;
1754
    BlockDriverState *bs, *bs1;
1755
    QEMUSnapshotInfo sn;
1756
    QEMUFile *f;
1757
    int ret;
1758

    
1759
    /* Verify if there is a device that doesn't support snapshots and is writable */
1760
    QTAILQ_FOREACH(dinfo, &drives, next) {
1761
        bs = dinfo->bdrv;
1762

    
1763
        if (bdrv_is_removable(bs) || bdrv_is_read_only(bs)) {
1764
            continue;
1765
        }
1766

    
1767
        if (!bdrv_can_snapshot(bs)) {
1768
            error_report("Device '%s' is writable but does not support snapshots.",
1769
                               bdrv_get_device_name(bs));
1770
            return -ENOTSUP;
1771
        }
1772
    }
1773

    
1774
    bs = get_bs_snapshots();
1775
    if (!bs) {
1776
        error_report("No block device supports snapshots");
1777
        return -EINVAL;
1778
    }
1779

    
1780
    /* Flush all IO requests so they don't interfere with the new state.  */
1781
    qemu_aio_flush();
1782

    
1783
    QTAILQ_FOREACH(dinfo, &drives, next) {
1784
        bs1 = dinfo->bdrv;
1785
        if (bdrv_can_snapshot(bs1)) {
1786
            ret = bdrv_snapshot_goto(bs1, name);
1787
            if (ret < 0) {
1788
                switch(ret) {
1789
                case -ENOTSUP:
1790
                    error_report("%sSnapshots not supported on device '%s'",
1791
                                 bs != bs1 ? "Warning: " : "",
1792
                                 bdrv_get_device_name(bs1));
1793
                    break;
1794
                case -ENOENT:
1795
                    error_report("%sCould not find snapshot '%s' on device '%s'",
1796
                                 bs != bs1 ? "Warning: " : "",
1797
                                 name, bdrv_get_device_name(bs1));
1798
                    break;
1799
                default:
1800
                    error_report("%sError %d while activating snapshot on '%s'",
1801
                                 bs != bs1 ? "Warning: " : "",
1802
                                 ret, bdrv_get_device_name(bs1));
1803
                    break;
1804
                }
1805
                /* fatal on snapshot block device */
1806
                if (bs == bs1)
1807
                    return 0;
1808
            }
1809
        }
1810
    }
1811

    
1812
    /* Don't even try to load empty VM states */
1813
    ret = bdrv_snapshot_find(bs, &sn, name);
1814
    if ((ret >= 0) && (sn.vm_state_size == 0))
1815
        return -EINVAL;
1816

    
1817
    /* restore the VM state */
1818
    f = qemu_fopen_bdrv(bs, 0);
1819
    if (!f) {
1820
        error_report("Could not open VM state file");
1821
        return -EINVAL;
1822
    }
1823
    ret = qemu_loadvm_state(f);
1824
    qemu_fclose(f);
1825
    if (ret < 0) {
1826
        error_report("Error %d while loading VM state", ret);
1827
        return ret;
1828
    }
1829
    return 0;
1830
}
1831

    
1832
void do_delvm(Monitor *mon, const QDict *qdict)
1833
{
1834
    DriveInfo *dinfo;
1835
    BlockDriverState *bs, *bs1;
1836
    int ret;
1837
    const char *name = qdict_get_str(qdict, "name");
1838

    
1839
    bs = get_bs_snapshots();
1840
    if (!bs) {
1841
        monitor_printf(mon, "No block device supports snapshots\n");
1842
        return;
1843
    }
1844

    
1845
    QTAILQ_FOREACH(dinfo, &drives, next) {
1846
        bs1 = dinfo->bdrv;
1847
        if (bdrv_can_snapshot(bs1)) {
1848
            ret = bdrv_snapshot_delete(bs1, name);
1849
            if (ret < 0) {
1850
                if (ret == -ENOTSUP)
1851
                    monitor_printf(mon,
1852
                                   "Snapshots not supported on device '%s'\n",
1853
                                   bdrv_get_device_name(bs1));
1854
                else
1855
                    monitor_printf(mon, "Error %d while deleting snapshot on "
1856
                                   "'%s'\n", ret, bdrv_get_device_name(bs1));
1857
            }
1858
        }
1859
    }
1860
}
1861

    
1862
void do_info_snapshots(Monitor *mon)
1863
{
1864
    DriveInfo *dinfo;
1865
    BlockDriverState *bs, *bs1;
1866
    QEMUSnapshotInfo *sn_tab, *sn;
1867
    int nb_sns, i;
1868
    char buf[256];
1869

    
1870
    bs = get_bs_snapshots();
1871
    if (!bs) {
1872
        monitor_printf(mon, "No available block device supports snapshots\n");
1873
        return;
1874
    }
1875
    monitor_printf(mon, "Snapshot devices:");
1876
    QTAILQ_FOREACH(dinfo, &drives, next) {
1877
        bs1 = dinfo->bdrv;
1878
        if (bdrv_can_snapshot(bs1)) {
1879
            if (bs == bs1)
1880
                monitor_printf(mon, " %s", bdrv_get_device_name(bs1));
1881
        }
1882
    }
1883
    monitor_printf(mon, "\n");
1884

    
1885
    nb_sns = bdrv_snapshot_list(bs, &sn_tab);
1886
    if (nb_sns < 0) {
1887
        monitor_printf(mon, "bdrv_snapshot_list: error %d\n", nb_sns);
1888
        return;
1889
    }
1890
    monitor_printf(mon, "Snapshot list (from %s):\n",
1891
                   bdrv_get_device_name(bs));
1892
    monitor_printf(mon, "%s\n", bdrv_snapshot_dump(buf, sizeof(buf), NULL));
1893
    for(i = 0; i < nb_sns; i++) {
1894
        sn = &sn_tab[i];
1895
        monitor_printf(mon, "%s\n", bdrv_snapshot_dump(buf, sizeof(buf), sn));
1896
    }
1897
    qemu_free(sn_tab);
1898
}