]> git.proxmox.com Git - mirror_qemu.git/blame - block/qcow2-snapshot.c
Merge remote-tracking branch 'remotes/bonzini/tags/for-upstream' into staging
[mirror_qemu.git] / block / qcow2-snapshot.c
CommitLineData
c142442b
KW
1/*
2 * Block driver for the QCOW version 2 format
3 *
4 * Copyright (c) 2004-2006 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
80c71a24 25#include "qemu/osdep.h"
da34e65c 26#include "qapi/error.h"
737e150e 27#include "block/block_int.h"
0d8c41da 28#include "qcow2.h"
58369e22 29#include "qemu/bswap.h"
d49b6836 30#include "qemu/error-report.h"
f348b6d1 31#include "qemu/cutils.h"
c142442b 32
ed6ccf0f 33void qcow2_free_snapshots(BlockDriverState *bs)
c142442b 34{
ff99129a 35 BDRVQcow2State *s = bs->opaque;
c142442b
KW
36 int i;
37
38 for(i = 0; i < s->nb_snapshots; i++) {
7267c094
AL
39 g_free(s->snapshots[i].name);
40 g_free(s->snapshots[i].id_str);
c142442b 41 }
7267c094 42 g_free(s->snapshots);
c142442b
KW
43 s->snapshots = NULL;
44 s->nb_snapshots = 0;
45}
46
ed6ccf0f 47int qcow2_read_snapshots(BlockDriverState *bs)
c142442b 48{
ff99129a 49 BDRVQcow2State *s = bs->opaque;
c142442b 50 QCowSnapshotHeader h;
c2c9a466 51 QCowSnapshotExtraData extra;
c142442b
KW
52 QCowSnapshot *sn;
53 int i, id_str_size, name_size;
54 int64_t offset;
55 uint32_t extra_data_size;
42deb29f 56 int ret;
c142442b
KW
57
58 if (!s->nb_snapshots) {
59 s->snapshots = NULL;
60 s->snapshots_size = 0;
61 return 0;
62 }
63
64 offset = s->snapshots_offset;
5839e53b 65 s->snapshots = g_new0(QCowSnapshot, s->nb_snapshots);
42deb29f 66
c142442b 67 for(i = 0; i < s->nb_snapshots; i++) {
42deb29f 68 /* Read statically sized part of the snapshot header */
9e029689 69 offset = ROUND_UP(offset, 8);
cf2ab8fc 70 ret = bdrv_pread(bs->file, offset, &h, sizeof(h));
42deb29f 71 if (ret < 0) {
c142442b 72 goto fail;
42deb29f
KW
73 }
74
c142442b
KW
75 offset += sizeof(h);
76 sn = s->snapshots + i;
77 sn->l1_table_offset = be64_to_cpu(h.l1_table_offset);
78 sn->l1_size = be32_to_cpu(h.l1_size);
79 sn->vm_state_size = be32_to_cpu(h.vm_state_size);
80 sn->date_sec = be32_to_cpu(h.date_sec);
81 sn->date_nsec = be32_to_cpu(h.date_nsec);
82 sn->vm_clock_nsec = be64_to_cpu(h.vm_clock_nsec);
83 extra_data_size = be32_to_cpu(h.extra_data_size);
84
85 id_str_size = be16_to_cpu(h.id_str_size);
86 name_size = be16_to_cpu(h.name_size);
87
c2c9a466 88 /* Read extra data */
cf2ab8fc 89 ret = bdrv_pread(bs->file, offset, &extra,
c2c9a466
KW
90 MIN(sizeof(extra), extra_data_size));
91 if (ret < 0) {
92 goto fail;
93 }
c142442b
KW
94 offset += extra_data_size;
95
c2c9a466
KW
96 if (extra_data_size >= 8) {
97 sn->vm_state_size = be64_to_cpu(extra.vm_state_size_large);
98 }
99
90b27759
KW
100 if (extra_data_size >= 16) {
101 sn->disk_size = be64_to_cpu(extra.disk_size);
102 } else {
103 sn->disk_size = bs->total_sectors * BDRV_SECTOR_SIZE;
104 }
105
42deb29f 106 /* Read snapshot ID */
7267c094 107 sn->id_str = g_malloc(id_str_size + 1);
cf2ab8fc 108 ret = bdrv_pread(bs->file, offset, sn->id_str, id_str_size);
42deb29f 109 if (ret < 0) {
c142442b 110 goto fail;
42deb29f 111 }
c142442b
KW
112 offset += id_str_size;
113 sn->id_str[id_str_size] = '\0';
114
42deb29f 115 /* Read snapshot name */
7267c094 116 sn->name = g_malloc(name_size + 1);
cf2ab8fc 117 ret = bdrv_pread(bs->file, offset, sn->name, name_size);
42deb29f 118 if (ret < 0) {
c142442b 119 goto fail;
42deb29f 120 }
c142442b
KW
121 offset += name_size;
122 sn->name[name_size] = '\0';
5dae6e30
KW
123
124 if (offset - s->snapshots_offset > QCOW_MAX_SNAPSHOTS_SIZE) {
125 ret = -EFBIG;
126 goto fail;
127 }
c142442b 128 }
42deb29f 129
5dae6e30 130 assert(offset - s->snapshots_offset <= INT_MAX);
c142442b
KW
131 s->snapshots_size = offset - s->snapshots_offset;
132 return 0;
42deb29f
KW
133
134fail:
ed6ccf0f 135 qcow2_free_snapshots(bs);
42deb29f 136 return ret;
c142442b
KW
137}
138
139/* add at the end of the file a new list of snapshots */
7c80ab3f 140static int qcow2_write_snapshots(BlockDriverState *bs)
c142442b 141{
ff99129a 142 BDRVQcow2State *s = bs->opaque;
c142442b
KW
143 QCowSnapshot *sn;
144 QCowSnapshotHeader h;
c2c9a466 145 QCowSnapshotExtraData extra;
c142442b 146 int i, name_size, id_str_size, snapshots_size;
d69969c4
KW
147 struct {
148 uint32_t nb_snapshots;
149 uint64_t snapshots_offset;
150 } QEMU_PACKED header_data;
5dae6e30 151 int64_t offset, snapshots_offset = 0;
07fd8779 152 int ret;
c142442b
KW
153
154 /* compute the size of the snapshots */
155 offset = 0;
156 for(i = 0; i < s->nb_snapshots; i++) {
157 sn = s->snapshots + i;
9e029689 158 offset = ROUND_UP(offset, 8);
c142442b 159 offset += sizeof(h);
c2c9a466 160 offset += sizeof(extra);
c142442b
KW
161 offset += strlen(sn->id_str);
162 offset += strlen(sn->name);
5dae6e30
KW
163
164 if (offset > QCOW_MAX_SNAPSHOTS_SIZE) {
165 ret = -EFBIG;
166 goto fail;
167 }
c142442b 168 }
5dae6e30
KW
169
170 assert(offset <= INT_MAX);
c142442b
KW
171 snapshots_size = offset;
172
07fd8779 173 /* Allocate space for the new snapshot list */
ed6ccf0f 174 snapshots_offset = qcow2_alloc_clusters(bs, snapshots_size);
c142442b 175 offset = snapshots_offset;
5d757b56 176 if (offset < 0) {
37d41f0a
HR
177 ret = offset;
178 goto fail;
5d757b56 179 }
f6977f15
SH
180 ret = bdrv_flush(bs);
181 if (ret < 0) {
37d41f0a 182 goto fail;
f6977f15 183 }
c142442b 184
cf93980e
HR
185 /* The snapshot list position has not yet been updated, so these clusters
186 * must indeed be completely free */
966b000f 187 ret = qcow2_pre_write_overlap_check(bs, 0, offset, snapshots_size, false);
cf93980e 188 if (ret < 0) {
37d41f0a 189 goto fail;
cf93980e
HR
190 }
191
192
07fd8779 193 /* Write all snapshots to the new list */
c142442b
KW
194 for(i = 0; i < s->nb_snapshots; i++) {
195 sn = s->snapshots + i;
196 memset(&h, 0, sizeof(h));
197 h.l1_table_offset = cpu_to_be64(sn->l1_table_offset);
198 h.l1_size = cpu_to_be32(sn->l1_size);
c2c9a466
KW
199 /* If it doesn't fit in 32 bit, older implementations should treat it
200 * as a disk-only snapshot rather than truncate the VM state */
201 if (sn->vm_state_size <= 0xffffffff) {
202 h.vm_state_size = cpu_to_be32(sn->vm_state_size);
203 }
c142442b
KW
204 h.date_sec = cpu_to_be32(sn->date_sec);
205 h.date_nsec = cpu_to_be32(sn->date_nsec);
206 h.vm_clock_nsec = cpu_to_be64(sn->vm_clock_nsec);
c2c9a466
KW
207 h.extra_data_size = cpu_to_be32(sizeof(extra));
208
209 memset(&extra, 0, sizeof(extra));
210 extra.vm_state_size_large = cpu_to_be64(sn->vm_state_size);
90b27759 211 extra.disk_size = cpu_to_be64(sn->disk_size);
c142442b
KW
212
213 id_str_size = strlen(sn->id_str);
214 name_size = strlen(sn->name);
88fb1535 215 assert(id_str_size <= UINT16_MAX && name_size <= UINT16_MAX);
c142442b
KW
216 h.id_str_size = cpu_to_be16(id_str_size);
217 h.name_size = cpu_to_be16(name_size);
9e029689 218 offset = ROUND_UP(offset, 8);
07fd8779 219
d9ca2ea2 220 ret = bdrv_pwrite(bs->file, offset, &h, sizeof(h));
07fd8779 221 if (ret < 0) {
c142442b 222 goto fail;
07fd8779 223 }
c142442b 224 offset += sizeof(h);
07fd8779 225
d9ca2ea2 226 ret = bdrv_pwrite(bs->file, offset, &extra, sizeof(extra));
c2c9a466
KW
227 if (ret < 0) {
228 goto fail;
229 }
230 offset += sizeof(extra);
231
d9ca2ea2 232 ret = bdrv_pwrite(bs->file, offset, sn->id_str, id_str_size);
07fd8779 233 if (ret < 0) {
c142442b 234 goto fail;
07fd8779 235 }
c142442b 236 offset += id_str_size;
07fd8779 237
d9ca2ea2 238 ret = bdrv_pwrite(bs->file, offset, sn->name, name_size);
07fd8779 239 if (ret < 0) {
c142442b 240 goto fail;
07fd8779 241 }
c142442b
KW
242 offset += name_size;
243 }
244
07fd8779
KW
245 /*
246 * Update the header to point to the new snapshot table. This requires the
247 * new table and its refcounts to be stable on disk.
07fd8779
KW
248 */
249 ret = bdrv_flush(bs);
250 if (ret < 0) {
251 goto fail;
252 }
253
d69969c4
KW
254 QEMU_BUILD_BUG_ON(offsetof(QCowHeader, snapshots_offset) !=
255 offsetof(QCowHeader, nb_snapshots) + sizeof(header_data.nb_snapshots));
256
257 header_data.nb_snapshots = cpu_to_be32(s->nb_snapshots);
258 header_data.snapshots_offset = cpu_to_be64(snapshots_offset);
07fd8779 259
d9ca2ea2 260 ret = bdrv_pwrite_sync(bs->file, offsetof(QCowHeader, nb_snapshots),
d69969c4 261 &header_data, sizeof(header_data));
07fd8779 262 if (ret < 0) {
c142442b 263 goto fail;
07fd8779 264 }
c142442b
KW
265
266 /* free the old snapshot table */
6cfcb9b8
KW
267 qcow2_free_clusters(bs, s->snapshots_offset, s->snapshots_size,
268 QCOW2_DISCARD_SNAPSHOT);
c142442b
KW
269 s->snapshots_offset = snapshots_offset;
270 s->snapshots_size = snapshots_size;
271 return 0;
07fd8779
KW
272
273fail:
9186ad96
HR
274 if (snapshots_offset > 0) {
275 qcow2_free_clusters(bs, snapshots_offset, snapshots_size,
276 QCOW2_DISCARD_ALWAYS);
277 }
07fd8779 278 return ret;
c142442b
KW
279}
280
281static void find_new_snapshot_id(BlockDriverState *bs,
282 char *id_str, int id_str_size)
283{
ff99129a 284 BDRVQcow2State *s = bs->opaque;
c142442b 285 QCowSnapshot *sn;
00c49b21
HR
286 int i;
287 unsigned long id, id_max = 0;
c142442b
KW
288
289 for(i = 0; i < s->nb_snapshots; i++) {
290 sn = s->snapshots + i;
291 id = strtoul(sn->id_str, NULL, 10);
292 if (id > id_max)
293 id_max = id;
294 }
00c49b21 295 snprintf(id_str, id_str_size, "%lu", id_max + 1);
c142442b
KW
296}
297
a89d89d3
WX
298static int find_snapshot_by_id_and_name(BlockDriverState *bs,
299 const char *id,
300 const char *name)
c142442b 301{
ff99129a 302 BDRVQcow2State *s = bs->opaque;
c142442b
KW
303 int i;
304
a89d89d3
WX
305 if (id && name) {
306 for (i = 0; i < s->nb_snapshots; i++) {
307 if (!strcmp(s->snapshots[i].id_str, id) &&
308 !strcmp(s->snapshots[i].name, name)) {
309 return i;
310 }
311 }
312 } else if (id) {
313 for (i = 0; i < s->nb_snapshots; i++) {
314 if (!strcmp(s->snapshots[i].id_str, id)) {
315 return i;
316 }
317 }
318 } else if (name) {
319 for (i = 0; i < s->nb_snapshots; i++) {
320 if (!strcmp(s->snapshots[i].name, name)) {
321 return i;
322 }
323 }
c142442b 324 }
a89d89d3 325
c142442b
KW
326 return -1;
327}
328
a89d89d3
WX
329static int find_snapshot_by_id_or_name(BlockDriverState *bs,
330 const char *id_or_name)
c142442b 331{
a89d89d3 332 int ret;
c142442b 333
a89d89d3
WX
334 ret = find_snapshot_by_id_and_name(bs, id_or_name, NULL);
335 if (ret >= 0) {
c142442b 336 return ret;
c142442b 337 }
a89d89d3 338 return find_snapshot_by_id_and_name(bs, NULL, id_or_name);
c142442b
KW
339}
340
341/* if no id is provided, a new one is constructed */
ed6ccf0f 342int qcow2_snapshot_create(BlockDriverState *bs, QEMUSnapshotInfo *sn_info)
c142442b 343{
ff99129a 344 BDRVQcow2State *s = bs->opaque;
d1ea98d5
KW
345 QCowSnapshot *new_snapshot_list = NULL;
346 QCowSnapshot *old_snapshot_list = NULL;
347 QCowSnapshot sn1, *sn = &sn1;
c142442b
KW
348 int i, ret;
349 uint64_t *l1_table = NULL;
5d757b56 350 int64_t l1_table_offset;
c142442b 351
ce48f2f4
KW
352 if (s->nb_snapshots >= QCOW_MAX_SNAPSHOTS) {
353 return -EFBIG;
354 }
355
aa8b34c1
KW
356 if (has_data_file(bs)) {
357 return -ENOTSUP;
358 }
359
c142442b
KW
360 memset(sn, 0, sizeof(*sn));
361
407bc150
YW
362 /* Generate an ID */
363 find_new_snapshot_id(bs, sn_info->id_str, sizeof(sn_info->id_str));
c142442b 364
03343166 365 /* Populate sn with passed data */
7267c094 366 sn->id_str = g_strdup(sn_info->id_str);
7267c094 367 sn->name = g_strdup(sn_info->name);
03343166 368
90b27759 369 sn->disk_size = bs->total_sectors * BDRV_SECTOR_SIZE;
c142442b
KW
370 sn->vm_state_size = sn_info->vm_state_size;
371 sn->date_sec = sn_info->date_sec;
372 sn->date_nsec = sn_info->date_nsec;
373 sn->vm_clock_nsec = sn_info->vm_clock_nsec;
374
03343166 375 /* Allocate the L1 table of the snapshot and copy the current one there. */
5d757b56
KW
376 l1_table_offset = qcow2_alloc_clusters(bs, s->l1_size * sizeof(uint64_t));
377 if (l1_table_offset < 0) {
d1ea98d5 378 ret = l1_table_offset;
5d757b56
KW
379 goto fail;
380 }
381
382 sn->l1_table_offset = l1_table_offset;
c142442b
KW
383 sn->l1_size = s->l1_size;
384
5839e53b 385 l1_table = g_try_new(uint64_t, s->l1_size);
de82815d
KW
386 if (s->l1_size && l1_table == NULL) {
387 ret = -ENOMEM;
388 goto fail;
389 }
390
c142442b
KW
391 for(i = 0; i < s->l1_size; i++) {
392 l1_table[i] = cpu_to_be64(s->l1_table[i]);
393 }
d1ea98d5 394
231bb267 395 ret = qcow2_pre_write_overlap_check(bs, 0, sn->l1_table_offset,
966b000f 396 s->l1_size * sizeof(uint64_t), false);
cf93980e
HR
397 if (ret < 0) {
398 goto fail;
399 }
400
d9ca2ea2 401 ret = bdrv_pwrite(bs->file, sn->l1_table_offset, l1_table,
d1ea98d5
KW
402 s->l1_size * sizeof(uint64_t));
403 if (ret < 0) {
c142442b 404 goto fail;
d1ea98d5
KW
405 }
406
7267c094 407 g_free(l1_table);
c142442b
KW
408 l1_table = NULL;
409
d1ea98d5
KW
410 /*
411 * Increase the refcounts of all clusters and make sure everything is
412 * stable on disk before updating the snapshot table to contain a pointer
413 * to the new L1 table.
414 */
415 ret = qcow2_update_snapshot_refcount(bs, s->l1_table_offset, s->l1_size, 1);
416 if (ret < 0) {
417 goto fail;
418 }
419
d1ea98d5 420 /* Append the new snapshot to the snapshot list */
5839e53b 421 new_snapshot_list = g_new(QCowSnapshot, s->nb_snapshots + 1);
c142442b 422 if (s->snapshots) {
d1ea98d5
KW
423 memcpy(new_snapshot_list, s->snapshots,
424 s->nb_snapshots * sizeof(QCowSnapshot));
425 old_snapshot_list = s->snapshots;
c142442b 426 }
d1ea98d5 427 s->snapshots = new_snapshot_list;
c142442b
KW
428 s->snapshots[s->nb_snapshots++] = *sn;
429
d1ea98d5
KW
430 ret = qcow2_write_snapshots(bs);
431 if (ret < 0) {
432 g_free(s->snapshots);
433 s->snapshots = old_snapshot_list;
84757f7e 434 s->nb_snapshots--;
c142442b 435 goto fail;
d1ea98d5
KW
436 }
437
438 g_free(old_snapshot_list);
439
1ebf561c
KW
440 /* The VM state isn't needed any more in the active L1 table; in fact, it
441 * hurts by causing expensive COW for the next snapshot. */
d2cb36af 442 qcow2_cluster_discard(bs, qcow2_vm_state_offset(s),
9e029689 443 ROUND_UP(sn->vm_state_size, s->cluster_size),
d2cb36af 444 QCOW2_DISCARD_NEVER, false);
1ebf561c 445
c142442b 446#ifdef DEBUG_ALLOC
6cbc3031
PH
447 {
448 BdrvCheckResult result = {0};
b35278f7 449 qcow2_check_refcounts(bs, &result, 0);
6cbc3031 450 }
c142442b
KW
451#endif
452 return 0;
03343166
KW
453
454fail:
455 g_free(sn->id_str);
7267c094
AL
456 g_free(sn->name);
457 g_free(l1_table);
d1ea98d5
KW
458
459 return ret;
c142442b
KW
460}
461
462/* copy the snapshot 'snapshot_name' into the current disk image */
ed6ccf0f 463int qcow2_snapshot_goto(BlockDriverState *bs, const char *snapshot_id)
c142442b 464{
ff99129a 465 BDRVQcow2State *s = bs->opaque;
c142442b 466 QCowSnapshot *sn;
a8475d75 467 Error *local_err = NULL;
35d7ace7
KW
468 int i, snapshot_index;
469 int cur_l1_bytes, sn_l1_bytes;
589f284b 470 int ret;
43a0cac4 471 uint64_t *sn_l1_table = NULL;
c142442b 472
aa8b34c1
KW
473 if (has_data_file(bs)) {
474 return -ENOTSUP;
475 }
476
589f284b 477 /* Search the snapshot */
c142442b 478 snapshot_index = find_snapshot_by_id_or_name(bs, snapshot_id);
589f284b 479 if (snapshot_index < 0) {
c142442b 480 return -ENOENT;
589f284b 481 }
c142442b
KW
482 sn = &s->snapshots[snapshot_index];
483
a8475d75
AG
484 ret = qcow2_validate_table(bs, sn->l1_table_offset, sn->l1_size,
485 sizeof(uint64_t), QCOW_MAX_L1_SIZE,
486 "Snapshot L1 table", &local_err);
487 if (ret < 0) {
488 error_report_err(local_err);
489 goto fail;
490 }
491
90b27759
KW
492 if (sn->disk_size != bs->total_sectors * BDRV_SECTOR_SIZE) {
493 error_report("qcow2: Loading snapshots with different disk "
494 "size is not implemented");
495 ret = -ENOTSUP;
496 goto fail;
497 }
498
589f284b
KW
499 /*
500 * Make sure that the current L1 table is big enough to contain the whole
501 * L1 table of the snapshot. If the snapshot L1 table is smaller, the
502 * current one must be padded with zeros.
503 */
504 ret = qcow2_grow_l1_table(bs, sn->l1_size, true);
505 if (ret < 0) {
c142442b 506 goto fail;
589f284b 507 }
c142442b 508
35d7ace7
KW
509 cur_l1_bytes = s->l1_size * sizeof(uint64_t);
510 sn_l1_bytes = sn->l1_size * sizeof(uint64_t);
511
589f284b
KW
512 /*
513 * Copy the snapshot L1 table to the current L1 table.
514 *
515 * Before overwriting the old current L1 table on disk, make sure to
516 * increase all refcounts for the clusters referenced by the new one.
43a0cac4
KW
517 * Decrease the refcount referenced by the old one only when the L1
518 * table is overwritten.
589f284b 519 */
de82815d
KW
520 sn_l1_table = g_try_malloc0(cur_l1_bytes);
521 if (cur_l1_bytes && sn_l1_table == NULL) {
522 ret = -ENOMEM;
523 goto fail;
524 }
43a0cac4 525
cf2ab8fc 526 ret = bdrv_pread(bs->file, sn->l1_table_offset,
9a4f4c31 527 sn_l1_table, sn_l1_bytes);
43a0cac4
KW
528 if (ret < 0) {
529 goto fail;
530 }
531
532 ret = qcow2_update_snapshot_refcount(bs, sn->l1_table_offset,
533 sn->l1_size, 1);
589f284b 534 if (ret < 0) {
c142442b 535 goto fail;
589f284b
KW
536 }
537
231bb267 538 ret = qcow2_pre_write_overlap_check(bs, QCOW2_OL_ACTIVE_L1,
966b000f
KW
539 s->l1_table_offset, cur_l1_bytes,
540 false);
cf93980e
HR
541 if (ret < 0) {
542 goto fail;
543 }
544
d9ca2ea2 545 ret = bdrv_pwrite_sync(bs->file, s->l1_table_offset, sn_l1_table,
589f284b
KW
546 cur_l1_bytes);
547 if (ret < 0) {
c142442b 548 goto fail;
589f284b
KW
549 }
550
43a0cac4
KW
551 /*
552 * Decrease refcount of clusters of current L1 table.
553 *
554 * At this point, the in-memory s->l1_table points to the old L1 table,
555 * whereas on disk we already have the new one.
556 *
557 * qcow2_update_snapshot_refcount special cases the current L1 table to use
558 * the in-memory data instead of really using the offset to load a new one,
559 * which is why this works.
560 */
561 ret = qcow2_update_snapshot_refcount(bs, s->l1_table_offset,
562 s->l1_size, -1);
563
564 /*
565 * Now update the in-memory L1 table to be in sync with the on-disk one. We
566 * need to do this even if updating refcounts failed.
567 */
c142442b 568 for(i = 0;i < s->l1_size; i++) {
43a0cac4 569 s->l1_table[i] = be64_to_cpu(sn_l1_table[i]);
c142442b
KW
570 }
571
43a0cac4
KW
572 if (ret < 0) {
573 goto fail;
574 }
575
576 g_free(sn_l1_table);
577 sn_l1_table = NULL;
578
579 /*
580 * Update QCOW_OFLAG_COPIED in the active L1 table (it may have changed
581 * when we decreased the refcount of the old snapshot.
582 */
583 ret = qcow2_update_snapshot_refcount(bs, s->l1_table_offset, s->l1_size, 0);
589f284b 584 if (ret < 0) {
c142442b 585 goto fail;
589f284b 586 }
c142442b
KW
587
588#ifdef DEBUG_ALLOC
6cbc3031
PH
589 {
590 BdrvCheckResult result = {0};
b35278f7 591 qcow2_check_refcounts(bs, &result, 0);
6cbc3031 592 }
c142442b
KW
593#endif
594 return 0;
589f284b
KW
595
596fail:
43a0cac4 597 g_free(sn_l1_table);
589f284b 598 return ret;
c142442b
KW
599}
600
a89d89d3
WX
601int qcow2_snapshot_delete(BlockDriverState *bs,
602 const char *snapshot_id,
603 const char *name,
604 Error **errp)
c142442b 605{
ff99129a 606 BDRVQcow2State *s = bs->opaque;
9a476780 607 QCowSnapshot sn;
c142442b
KW
608 int snapshot_index, ret;
609
aa8b34c1
KW
610 if (has_data_file(bs)) {
611 return -ENOTSUP;
612 }
613
9a476780 614 /* Search the snapshot */
a89d89d3 615 snapshot_index = find_snapshot_by_id_and_name(bs, snapshot_id, name);
9a476780 616 if (snapshot_index < 0) {
a89d89d3 617 error_setg(errp, "Can't find the snapshot");
c142442b 618 return -ENOENT;
9a476780
KW
619 }
620 sn = s->snapshots[snapshot_index];
c142442b 621
db5794f1
AG
622 ret = qcow2_validate_table(bs, sn.l1_table_offset, sn.l1_size,
623 sizeof(uint64_t), QCOW_MAX_L1_SIZE,
624 "Snapshot L1 table", errp);
625 if (ret < 0) {
626 return ret;
627 }
628
9a476780
KW
629 /* Remove it from the snapshot list */
630 memmove(s->snapshots + snapshot_index,
631 s->snapshots + snapshot_index + 1,
632 (s->nb_snapshots - snapshot_index - 1) * sizeof(sn));
633 s->nb_snapshots--;
634 ret = qcow2_write_snapshots(bs);
635 if (ret < 0) {
39a611a3
JC
636 error_setg_errno(errp, -ret,
637 "Failed to remove snapshot from snapshot list");
c142442b 638 return ret;
9a476780
KW
639 }
640
641 /*
642 * The snapshot is now unused, clean up. If we fail after this point, we
643 * won't recover but just leak clusters.
644 */
645 g_free(sn.id_str);
646 g_free(sn.name);
647
648 /*
649 * Now decrease the refcounts of clusters referenced by the snapshot and
650 * free the L1 table.
651 */
652 ret = qcow2_update_snapshot_refcount(bs, sn.l1_table_offset,
653 sn.l1_size, -1);
654 if (ret < 0) {
39a611a3 655 error_setg_errno(errp, -ret, "Failed to free the cluster and L1 table");
c142442b 656 return ret;
9a476780 657 }
6cfcb9b8
KW
658 qcow2_free_clusters(bs, sn.l1_table_offset, sn.l1_size * sizeof(uint64_t),
659 QCOW2_DISCARD_SNAPSHOT);
c142442b 660
9a476780
KW
661 /* must update the copied flag on the current cluster offsets */
662 ret = qcow2_update_snapshot_refcount(bs, s->l1_table_offset, s->l1_size, 0);
c142442b 663 if (ret < 0) {
39a611a3
JC
664 error_setg_errno(errp, -ret,
665 "Failed to update snapshot status in disk");
c142442b
KW
666 return ret;
667 }
9a476780 668
c142442b 669#ifdef DEBUG_ALLOC
6cbc3031
PH
670 {
671 BdrvCheckResult result = {0};
b35278f7 672 qcow2_check_refcounts(bs, &result, 0);
6cbc3031 673 }
c142442b
KW
674#endif
675 return 0;
676}
677
ed6ccf0f 678int qcow2_snapshot_list(BlockDriverState *bs, QEMUSnapshotInfo **psn_tab)
c142442b 679{
ff99129a 680 BDRVQcow2State *s = bs->opaque;
c142442b
KW
681 QEMUSnapshotInfo *sn_tab, *sn_info;
682 QCowSnapshot *sn;
683 int i;
684
aa8b34c1
KW
685 if (has_data_file(bs)) {
686 return -ENOTSUP;
687 }
c142442b
KW
688 if (!s->nb_snapshots) {
689 *psn_tab = NULL;
690 return s->nb_snapshots;
691 }
692
5839e53b 693 sn_tab = g_new0(QEMUSnapshotInfo, s->nb_snapshots);
c142442b
KW
694 for(i = 0; i < s->nb_snapshots; i++) {
695 sn_info = sn_tab + i;
696 sn = s->snapshots + i;
697 pstrcpy(sn_info->id_str, sizeof(sn_info->id_str),
698 sn->id_str);
699 pstrcpy(sn_info->name, sizeof(sn_info->name),
700 sn->name);
701 sn_info->vm_state_size = sn->vm_state_size;
702 sn_info->date_sec = sn->date_sec;
703 sn_info->date_nsec = sn->date_nsec;
704 sn_info->vm_clock_nsec = sn->vm_clock_nsec;
705 }
706 *psn_tab = sn_tab;
707 return s->nb_snapshots;
708}
709
7b4c4781
WX
710int qcow2_snapshot_load_tmp(BlockDriverState *bs,
711 const char *snapshot_id,
712 const char *name,
713 Error **errp)
51ef6727 714{
e3f652b3 715 int i, snapshot_index;
ff99129a 716 BDRVQcow2State *s = bs->opaque;
51ef6727 717 QCowSnapshot *sn;
e3f652b3
KW
718 uint64_t *new_l1_table;
719 int new_l1_bytes;
720 int ret;
51ef6727 721
e3f652b3
KW
722 assert(bs->read_only);
723
724 /* Search the snapshot */
7b4c4781 725 snapshot_index = find_snapshot_by_id_and_name(bs, snapshot_id, name);
51ef6727 726 if (snapshot_index < 0) {
7b4c4781
WX
727 error_setg(errp,
728 "Can't find snapshot");
51ef6727 729 return -ENOENT;
730 }
51ef6727 731 sn = &s->snapshots[snapshot_index];
51ef6727 732
e3f652b3 733 /* Allocate and read in the snapshot's L1 table */
314e8d39
AG
734 ret = qcow2_validate_table(bs, sn->l1_table_offset, sn->l1_size,
735 sizeof(uint64_t), QCOW_MAX_L1_SIZE,
736 "Snapshot L1 table", errp);
737 if (ret < 0) {
738 return ret;
6a83f8b5 739 }
c05e4667 740 new_l1_bytes = sn->l1_size * sizeof(uint64_t);
9a4f4c31 741 new_l1_table = qemu_try_blockalign(bs->file->bs,
9e029689 742 ROUND_UP(new_l1_bytes, 512));
de82815d
KW
743 if (new_l1_table == NULL) {
744 return -ENOMEM;
745 }
51ef6727 746
cf2ab8fc 747 ret = bdrv_pread(bs->file, sn->l1_table_offset,
9a4f4c31 748 new_l1_table, new_l1_bytes);
e3f652b3 749 if (ret < 0) {
7b4c4781 750 error_setg(errp, "Failed to read l1 table for snapshot");
de82815d 751 qemu_vfree(new_l1_table);
e3f652b3 752 return ret;
51ef6727 753 }
754
e3f652b3 755 /* Switch the L1 table */
de82815d 756 qemu_vfree(s->l1_table);
e3f652b3
KW
757
758 s->l1_size = sn->l1_size;
759 s->l1_table_offset = sn->l1_table_offset;
760 s->l1_table = new_l1_table;
761
51ef6727 762 for(i = 0;i < s->l1_size; i++) {
763 be64_to_cpus(&s->l1_table[i]);
764 }
e3f652b3 765
51ef6727 766 return 0;
767}