Statistics
| Branch: | Revision:

root / savevm.c @ 4556bd8b

History | View | Annotate | Download (46.3 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 "block.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
    pclose(s->stdio_file);
239
    qemu_free(s);
240
    return 0;
241
}
242

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

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

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

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

    
262
    s->stdio_file = stdio_file;
263

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

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

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

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

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

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

    
294
    return fd;
295
}
296

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    
427
    return f;
428
}
429

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    
599
    return 0;
600
}
601

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

    
607
    return 0;
608
}
609

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

    
617
    return 0;
618
}
619

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

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

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

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

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

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

    
666
/* 8 bit int */
667

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

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

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

    
687
/* 16 bit int */
688

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

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

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

    
708
/* 32 bit int */
709

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

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

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

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

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

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

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

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

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

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

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

    
769
/* 64 bit int */
770

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

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

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

    
790
/* 8 bit unsigned int */
791

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

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

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

    
811
/* 16 bit unsigned int */
812

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

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

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

    
832
/* 32 bit unsigned int */
833

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

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

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

    
853
/* 64 bit unsigned int */
854

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

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

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

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

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

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

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

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

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

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

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

    
914
/* timers  */
915

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

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

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

    
935
/* uint8_t buffers */
936

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

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

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

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

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

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

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

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

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

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

    
1005

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    
1317
    return 0;
1318
}
1319

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

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

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

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

    
1343
    if (ret)
1344
        return 1;
1345

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

    
1351
    return 0;
1352
}
1353

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

    
1358
    cpu_synchronize_all_states();
1359

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

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

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

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

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

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

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

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

    
1389
        vmstate_save(f, se);
1390
    }
1391

    
1392
    qemu_put_byte(f, QEMU_VM_EOF);
1393

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

    
1397
    return 0;
1398
}
1399

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

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

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

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

    
1419
    bdrv_flush_all();
1420

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

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

    
1431
    ret = qemu_savevm_state_complete(mon, f);
1432

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

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

    
1440
    return ret;
1441
}
1442

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    
1561
    cpu_synchronize_all_post_init();
1562

    
1563
    ret = 0;
1564

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

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

    
1574
    return ret;
1575
}
1576

    
1577
/* device can contain snapshots */
1578
static int bdrv_can_snapshot(BlockDriverState *bs)
1579
{
1580
    return (bs &&
1581
            !bdrv_is_removable(bs) &&
1582
            !bdrv_is_read_only(bs));
1583
}
1584

    
1585
/* device must be snapshots in order to have a reliable snapshot */
1586
static int bdrv_has_snapshot(BlockDriverState *bs)
1587
{
1588
    return (bs &&
1589
            !bdrv_is_removable(bs) &&
1590
            !bdrv_is_read_only(bs));
1591
}
1592

    
1593
static BlockDriverState *get_bs_snapshots(void)
1594
{
1595
    BlockDriverState *bs;
1596
    DriveInfo *dinfo;
1597

    
1598
    if (bs_snapshots)
1599
        return bs_snapshots;
1600
    QTAILQ_FOREACH(dinfo, &drives, next) {
1601
        bs = dinfo->bdrv;
1602
        if (bdrv_can_snapshot(bs))
1603
            goto ok;
1604
    }
1605
    return NULL;
1606
 ok:
1607
    bs_snapshots = bs;
1608
    return bs;
1609
}
1610

    
1611
static int bdrv_snapshot_find(BlockDriverState *bs, QEMUSnapshotInfo *sn_info,
1612
                              const char *name)
1613
{
1614
    QEMUSnapshotInfo *sn_tab, *sn;
1615
    int nb_sns, i, ret;
1616

    
1617
    ret = -ENOENT;
1618
    nb_sns = bdrv_snapshot_list(bs, &sn_tab);
1619
    if (nb_sns < 0)
1620
        return ret;
1621
    for(i = 0; i < nb_sns; i++) {
1622
        sn = &sn_tab[i];
1623
        if (!strcmp(sn->id_str, name) || !strcmp(sn->name, name)) {
1624
            *sn_info = *sn;
1625
            ret = 0;
1626
            break;
1627
        }
1628
    }
1629
    qemu_free(sn_tab);
1630
    return ret;
1631
}
1632

    
1633
/*
1634
 * Deletes snapshots of a given name in all opened images.
1635
 */
1636
static int del_existing_snapshots(Monitor *mon, const char *name)
1637
{
1638
    BlockDriverState *bs;
1639
    DriveInfo *dinfo;
1640
    QEMUSnapshotInfo sn1, *snapshot = &sn1;
1641
    int ret;
1642

    
1643
    QTAILQ_FOREACH(dinfo, &drives, next) {
1644
        bs = dinfo->bdrv;
1645
        if (bdrv_can_snapshot(bs) &&
1646
            bdrv_snapshot_find(bs, snapshot, name) >= 0)
1647
        {
1648
            ret = bdrv_snapshot_delete(bs, name);
1649
            if (ret < 0) {
1650
                monitor_printf(mon,
1651
                               "Error while deleting snapshot on '%s'\n",
1652
                               bdrv_get_device_name(bs));
1653
                return -1;
1654
            }
1655
        }
1656
    }
1657

    
1658
    return 0;
1659
}
1660

    
1661
void do_savevm(Monitor *mon, const QDict *qdict)
1662
{
1663
    DriveInfo *dinfo;
1664
    BlockDriverState *bs, *bs1;
1665
    QEMUSnapshotInfo sn1, *sn = &sn1, old_sn1, *old_sn = &old_sn1;
1666
    int ret;
1667
    QEMUFile *f;
1668
    int saved_vm_running;
1669
    uint32_t vm_state_size;
1670
#ifdef _WIN32
1671
    struct _timeb tb;
1672
#else
1673
    struct timeval tv;
1674
#endif
1675
    const char *name = qdict_get_try_str(qdict, "name");
1676

    
1677
    bs = get_bs_snapshots();
1678
    if (!bs) {
1679
        monitor_printf(mon, "No block device can accept snapshots\n");
1680
        return;
1681
    }
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_has_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
    bs = get_bs_snapshots();
1760
    if (!bs) {
1761
        error_report("No block device supports snapshots");
1762
        return -EINVAL;
1763
    }
1764

    
1765
    /* Flush all IO requests so they don't interfere with the new state.  */
1766
    qemu_aio_flush();
1767

    
1768
    QTAILQ_FOREACH(dinfo, &drives, next) {
1769
        bs1 = dinfo->bdrv;
1770
        if (bdrv_has_snapshot(bs1)) {
1771
            ret = bdrv_snapshot_goto(bs1, name);
1772
            if (ret < 0) {
1773
                switch(ret) {
1774
                case -ENOTSUP:
1775
                    error_report("%sSnapshots not supported on device '%s'",
1776
                                 bs != bs1 ? "Warning: " : "",
1777
                                 bdrv_get_device_name(bs1));
1778
                    break;
1779
                case -ENOENT:
1780
                    error_report("%sCould not find snapshot '%s' on device '%s'",
1781
                                 bs != bs1 ? "Warning: " : "",
1782
                                 name, bdrv_get_device_name(bs1));
1783
                    break;
1784
                default:
1785
                    error_report("%sError %d while activating snapshot on '%s'",
1786
                                 bs != bs1 ? "Warning: " : "",
1787
                                 ret, bdrv_get_device_name(bs1));
1788
                    break;
1789
                }
1790
                /* fatal on snapshot block device */
1791
                if (bs == bs1)
1792
                    return 0;
1793
            }
1794
        }
1795
    }
1796

    
1797
    /* Don't even try to load empty VM states */
1798
    ret = bdrv_snapshot_find(bs, &sn, name);
1799
    if ((ret >= 0) && (sn.vm_state_size == 0))
1800
        return -EINVAL;
1801

    
1802
    /* restore the VM state */
1803
    f = qemu_fopen_bdrv(bs, 0);
1804
    if (!f) {
1805
        error_report("Could not open VM state file");
1806
        return -EINVAL;
1807
    }
1808
    ret = qemu_loadvm_state(f);
1809
    qemu_fclose(f);
1810
    if (ret < 0) {
1811
        error_report("Error %d while loading VM state", ret);
1812
        return ret;
1813
    }
1814
    return 0;
1815
}
1816

    
1817
void do_delvm(Monitor *mon, const QDict *qdict)
1818
{
1819
    DriveInfo *dinfo;
1820
    BlockDriverState *bs, *bs1;
1821
    int ret;
1822
    const char *name = qdict_get_str(qdict, "name");
1823

    
1824
    bs = get_bs_snapshots();
1825
    if (!bs) {
1826
        monitor_printf(mon, "No block device supports snapshots\n");
1827
        return;
1828
    }
1829

    
1830
    QTAILQ_FOREACH(dinfo, &drives, next) {
1831
        bs1 = dinfo->bdrv;
1832
        if (bdrv_has_snapshot(bs1)) {
1833
            ret = bdrv_snapshot_delete(bs1, name);
1834
            if (ret < 0) {
1835
                if (ret == -ENOTSUP)
1836
                    monitor_printf(mon,
1837
                                   "Snapshots not supported on device '%s'\n",
1838
                                   bdrv_get_device_name(bs1));
1839
                else
1840
                    monitor_printf(mon, "Error %d while deleting snapshot on "
1841
                                   "'%s'\n", ret, bdrv_get_device_name(bs1));
1842
            }
1843
        }
1844
    }
1845
}
1846

    
1847
void do_info_snapshots(Monitor *mon)
1848
{
1849
    DriveInfo *dinfo;
1850
    BlockDriverState *bs, *bs1;
1851
    QEMUSnapshotInfo *sn_tab, *sn;
1852
    int nb_sns, i;
1853
    char buf[256];
1854

    
1855
    bs = get_bs_snapshots();
1856
    if (!bs) {
1857
        monitor_printf(mon, "No available block device supports snapshots\n");
1858
        return;
1859
    }
1860
    monitor_printf(mon, "Snapshot devices:");
1861
    QTAILQ_FOREACH(dinfo, &drives, next) {
1862
        bs1 = dinfo->bdrv;
1863
        if (bdrv_has_snapshot(bs1)) {
1864
            if (bs == bs1)
1865
                monitor_printf(mon, " %s", bdrv_get_device_name(bs1));
1866
        }
1867
    }
1868
    monitor_printf(mon, "\n");
1869

    
1870
    nb_sns = bdrv_snapshot_list(bs, &sn_tab);
1871
    if (nb_sns < 0) {
1872
        monitor_printf(mon, "bdrv_snapshot_list: error %d\n", nb_sns);
1873
        return;
1874
    }
1875
    monitor_printf(mon, "Snapshot list (from %s):\n",
1876
                   bdrv_get_device_name(bs));
1877
    monitor_printf(mon, "%s\n", bdrv_snapshot_dump(buf, sizeof(buf), NULL));
1878
    for(i = 0; i < nb_sns; i++) {
1879
        sn = &sn_tab[i];
1880
        monitor_printf(mon, "%s\n", bdrv_snapshot_dump(buf, sizeof(buf), sn));
1881
    }
1882
    qemu_free(sn_tab);
1883
}