nvmm.c revision 1.30 1 /* $NetBSD: nvmm.c,v 1.30 2020/05/24 08:08:49 maxv Exp $ */
2
3 /*
4 * Copyright (c) 2018-2019 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Maxime Villard.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33 __KERNEL_RCSID(0, "$NetBSD: nvmm.c,v 1.30 2020/05/24 08:08:49 maxv Exp $");
34
35 #include <sys/param.h>
36 #include <sys/systm.h>
37 #include <sys/kernel.h>
38
39 #include <sys/cpu.h>
40 #include <sys/conf.h>
41 #include <sys/kmem.h>
42 #include <sys/module.h>
43 #include <sys/proc.h>
44 #include <sys/mman.h>
45 #include <sys/file.h>
46 #include <sys/filedesc.h>
47 #include <sys/kauth.h>
48
49 #include <uvm/uvm.h>
50 #include <uvm/uvm_page.h>
51
52 #include "ioconf.h"
53
54 #include <dev/nvmm/nvmm.h>
55 #include <dev/nvmm/nvmm_internal.h>
56 #include <dev/nvmm/nvmm_ioctl.h>
57
58 static struct nvmm_machine machines[NVMM_MAX_MACHINES];
59 static volatile unsigned int nmachines __cacheline_aligned;
60
61 static const struct nvmm_impl *nvmm_impl_list[] = {
62 &nvmm_x86_svm, /* x86 AMD SVM */
63 &nvmm_x86_vmx /* x86 Intel VMX */
64 };
65
66 static const struct nvmm_impl *nvmm_impl = NULL;
67
68 static struct nvmm_owner root_owner;
69
70 /* -------------------------------------------------------------------------- */
71
72 static int
73 nvmm_machine_alloc(struct nvmm_machine **ret)
74 {
75 struct nvmm_machine *mach;
76 size_t i;
77
78 for (i = 0; i < NVMM_MAX_MACHINES; i++) {
79 mach = &machines[i];
80
81 rw_enter(&mach->lock, RW_WRITER);
82 if (mach->present) {
83 rw_exit(&mach->lock);
84 continue;
85 }
86
87 mach->present = true;
88 mach->time = time_second;
89 *ret = mach;
90 atomic_inc_uint(&nmachines);
91 return 0;
92 }
93
94 return ENOBUFS;
95 }
96
97 static void
98 nvmm_machine_free(struct nvmm_machine *mach)
99 {
100 KASSERT(rw_write_held(&mach->lock));
101 KASSERT(mach->present);
102 mach->present = false;
103 atomic_dec_uint(&nmachines);
104 }
105
106 static int
107 nvmm_machine_get(struct nvmm_owner *owner, nvmm_machid_t machid,
108 struct nvmm_machine **ret, bool writer)
109 {
110 struct nvmm_machine *mach;
111 krw_t op = writer ? RW_WRITER : RW_READER;
112
113 if (machid >= NVMM_MAX_MACHINES) {
114 return EINVAL;
115 }
116 mach = &machines[machid];
117
118 rw_enter(&mach->lock, op);
119 if (!mach->present) {
120 rw_exit(&mach->lock);
121 return ENOENT;
122 }
123 if (owner != &root_owner && mach->owner != owner) {
124 rw_exit(&mach->lock);
125 return EPERM;
126 }
127 *ret = mach;
128
129 return 0;
130 }
131
132 static void
133 nvmm_machine_put(struct nvmm_machine *mach)
134 {
135 rw_exit(&mach->lock);
136 }
137
138 /* -------------------------------------------------------------------------- */
139
140 static int
141 nvmm_vcpu_alloc(struct nvmm_machine *mach, nvmm_cpuid_t cpuid,
142 struct nvmm_cpu **ret)
143 {
144 struct nvmm_cpu *vcpu;
145
146 if (cpuid >= NVMM_MAX_VCPUS) {
147 return EINVAL;
148 }
149 vcpu = &mach->cpus[cpuid];
150
151 mutex_enter(&vcpu->lock);
152 if (vcpu->present) {
153 mutex_exit(&vcpu->lock);
154 return EBUSY;
155 }
156
157 vcpu->present = true;
158 vcpu->comm = NULL;
159 vcpu->hcpu_last = -1;
160 *ret = vcpu;
161 return 0;
162 }
163
164 static void
165 nvmm_vcpu_free(struct nvmm_machine *mach, struct nvmm_cpu *vcpu)
166 {
167 KASSERT(mutex_owned(&vcpu->lock));
168 vcpu->present = false;
169 if (vcpu->comm != NULL) {
170 uvm_deallocate(kernel_map, (vaddr_t)vcpu->comm, PAGE_SIZE);
171 }
172 }
173
174 static int
175 nvmm_vcpu_get(struct nvmm_machine *mach, nvmm_cpuid_t cpuid,
176 struct nvmm_cpu **ret)
177 {
178 struct nvmm_cpu *vcpu;
179
180 if (cpuid >= NVMM_MAX_VCPUS) {
181 return EINVAL;
182 }
183 vcpu = &mach->cpus[cpuid];
184
185 mutex_enter(&vcpu->lock);
186 if (!vcpu->present) {
187 mutex_exit(&vcpu->lock);
188 return ENOENT;
189 }
190 *ret = vcpu;
191
192 return 0;
193 }
194
195 static void
196 nvmm_vcpu_put(struct nvmm_cpu *vcpu)
197 {
198 mutex_exit(&vcpu->lock);
199 }
200
201 /* -------------------------------------------------------------------------- */
202
203 static void
204 nvmm_kill_machines(struct nvmm_owner *owner)
205 {
206 struct nvmm_machine *mach;
207 struct nvmm_cpu *vcpu;
208 size_t i, j;
209 int error;
210
211 for (i = 0; i < NVMM_MAX_MACHINES; i++) {
212 mach = &machines[i];
213
214 rw_enter(&mach->lock, RW_WRITER);
215 if (!mach->present || mach->owner != owner) {
216 rw_exit(&mach->lock);
217 continue;
218 }
219
220 /* Kill it. */
221 for (j = 0; j < NVMM_MAX_VCPUS; j++) {
222 error = nvmm_vcpu_get(mach, j, &vcpu);
223 if (error)
224 continue;
225 (*nvmm_impl->vcpu_destroy)(mach, vcpu);
226 nvmm_vcpu_free(mach, vcpu);
227 nvmm_vcpu_put(vcpu);
228 }
229 (*nvmm_impl->machine_destroy)(mach);
230 uvmspace_free(mach->vm);
231
232 /* Drop the kernel UOBJ refs. */
233 for (j = 0; j < NVMM_MAX_HMAPPINGS; j++) {
234 if (!mach->hmap[j].present)
235 continue;
236 uao_detach(mach->hmap[j].uobj);
237 }
238
239 nvmm_machine_free(mach);
240
241 rw_exit(&mach->lock);
242 }
243 }
244
245 /* -------------------------------------------------------------------------- */
246
247 static int
248 nvmm_capability(struct nvmm_owner *owner, struct nvmm_ioc_capability *args)
249 {
250 args->cap.version = NVMM_KERN_VERSION;
251 args->cap.state_size = nvmm_impl->state_size;
252 args->cap.max_machines = NVMM_MAX_MACHINES;
253 args->cap.max_vcpus = NVMM_MAX_VCPUS;
254 args->cap.max_ram = NVMM_MAX_RAM;
255
256 (*nvmm_impl->capability)(&args->cap);
257
258 return 0;
259 }
260
261 static int
262 nvmm_machine_create(struct nvmm_owner *owner,
263 struct nvmm_ioc_machine_create *args)
264 {
265 struct nvmm_machine *mach;
266 int error;
267
268 error = nvmm_machine_alloc(&mach);
269 if (error)
270 return error;
271
272 /* Curproc owns the machine. */
273 mach->owner = owner;
274
275 /* Zero out the host mappings. */
276 memset(&mach->hmap, 0, sizeof(mach->hmap));
277
278 /* Create the machine vmspace. */
279 mach->gpa_begin = 0;
280 mach->gpa_end = NVMM_MAX_RAM;
281 mach->vm = uvmspace_alloc(0, mach->gpa_end - mach->gpa_begin, false);
282
283 /* Create the comm uobj. */
284 mach->commuobj = uao_create(NVMM_MAX_VCPUS * PAGE_SIZE, 0);
285
286 (*nvmm_impl->machine_create)(mach);
287
288 args->machid = mach->machid;
289 nvmm_machine_put(mach);
290
291 return 0;
292 }
293
294 static int
295 nvmm_machine_destroy(struct nvmm_owner *owner,
296 struct nvmm_ioc_machine_destroy *args)
297 {
298 struct nvmm_machine *mach;
299 struct nvmm_cpu *vcpu;
300 int error;
301 size_t i;
302
303 error = nvmm_machine_get(owner, args->machid, &mach, true);
304 if (error)
305 return error;
306
307 for (i = 0; i < NVMM_MAX_VCPUS; i++) {
308 error = nvmm_vcpu_get(mach, i, &vcpu);
309 if (error)
310 continue;
311
312 (*nvmm_impl->vcpu_destroy)(mach, vcpu);
313 nvmm_vcpu_free(mach, vcpu);
314 nvmm_vcpu_put(vcpu);
315 }
316
317 (*nvmm_impl->machine_destroy)(mach);
318
319 /* Free the machine vmspace. */
320 uvmspace_free(mach->vm);
321
322 /* Drop the kernel UOBJ refs. */
323 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
324 if (!mach->hmap[i].present)
325 continue;
326 uao_detach(mach->hmap[i].uobj);
327 }
328
329 nvmm_machine_free(mach);
330 nvmm_machine_put(mach);
331
332 return 0;
333 }
334
335 static int
336 nvmm_machine_configure(struct nvmm_owner *owner,
337 struct nvmm_ioc_machine_configure *args)
338 {
339 struct nvmm_machine *mach;
340 size_t allocsz;
341 uint64_t op;
342 void *data;
343 int error;
344
345 op = NVMM_MACH_CONF_MD(args->op);
346 if (__predict_false(op >= nvmm_impl->mach_conf_max)) {
347 return EINVAL;
348 }
349
350 allocsz = nvmm_impl->mach_conf_sizes[op];
351 data = kmem_alloc(allocsz, KM_SLEEP);
352
353 error = nvmm_machine_get(owner, args->machid, &mach, true);
354 if (error) {
355 kmem_free(data, allocsz);
356 return error;
357 }
358
359 error = copyin(args->conf, data, allocsz);
360 if (error) {
361 goto out;
362 }
363
364 error = (*nvmm_impl->machine_configure)(mach, op, data);
365
366 out:
367 nvmm_machine_put(mach);
368 kmem_free(data, allocsz);
369 return error;
370 }
371
372 static int
373 nvmm_vcpu_create(struct nvmm_owner *owner, struct nvmm_ioc_vcpu_create *args)
374 {
375 struct nvmm_machine *mach;
376 struct nvmm_cpu *vcpu;
377 int error;
378
379 error = nvmm_machine_get(owner, args->machid, &mach, false);
380 if (error)
381 return error;
382
383 error = nvmm_vcpu_alloc(mach, args->cpuid, &vcpu);
384 if (error)
385 goto out;
386
387 /* Allocate the comm page. */
388 uao_reference(mach->commuobj);
389 error = uvm_map(kernel_map, (vaddr_t *)&vcpu->comm, PAGE_SIZE,
390 mach->commuobj, args->cpuid * PAGE_SIZE, 0, UVM_MAPFLAG(UVM_PROT_RW,
391 UVM_PROT_RW, UVM_INH_SHARE, UVM_ADV_RANDOM, 0));
392 if (error) {
393 uao_detach(mach->commuobj);
394 nvmm_vcpu_free(mach, vcpu);
395 nvmm_vcpu_put(vcpu);
396 goto out;
397 }
398 error = uvm_map_pageable(kernel_map, (vaddr_t)vcpu->comm,
399 (vaddr_t)vcpu->comm + PAGE_SIZE, false, 0);
400 if (error) {
401 nvmm_vcpu_free(mach, vcpu);
402 nvmm_vcpu_put(vcpu);
403 goto out;
404 }
405 memset(vcpu->comm, 0, PAGE_SIZE);
406
407 error = (*nvmm_impl->vcpu_create)(mach, vcpu);
408 if (error) {
409 nvmm_vcpu_free(mach, vcpu);
410 nvmm_vcpu_put(vcpu);
411 goto out;
412 }
413
414 nvmm_vcpu_put(vcpu);
415
416 atomic_inc_uint(&mach->ncpus);
417
418 out:
419 nvmm_machine_put(mach);
420 return error;
421 }
422
423 static int
424 nvmm_vcpu_destroy(struct nvmm_owner *owner, struct nvmm_ioc_vcpu_destroy *args)
425 {
426 struct nvmm_machine *mach;
427 struct nvmm_cpu *vcpu;
428 int error;
429
430 error = nvmm_machine_get(owner, args->machid, &mach, false);
431 if (error)
432 return error;
433
434 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
435 if (error)
436 goto out;
437
438 (*nvmm_impl->vcpu_destroy)(mach, vcpu);
439 nvmm_vcpu_free(mach, vcpu);
440 nvmm_vcpu_put(vcpu);
441
442 atomic_dec_uint(&mach->ncpus);
443
444 out:
445 nvmm_machine_put(mach);
446 return error;
447 }
448
449 static int
450 nvmm_vcpu_configure(struct nvmm_owner *owner,
451 struct nvmm_ioc_vcpu_configure *args)
452 {
453 struct nvmm_machine *mach;
454 struct nvmm_cpu *vcpu;
455 size_t allocsz;
456 uint64_t op;
457 void *data;
458 int error;
459
460 op = NVMM_VCPU_CONF_MD(args->op);
461 if (__predict_false(op >= nvmm_impl->vcpu_conf_max))
462 return EINVAL;
463
464 allocsz = nvmm_impl->vcpu_conf_sizes[op];
465 data = kmem_alloc(allocsz, KM_SLEEP);
466
467 error = nvmm_machine_get(owner, args->machid, &mach, false);
468 if (error) {
469 kmem_free(data, allocsz);
470 return error;
471 }
472
473 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
474 if (error) {
475 nvmm_machine_put(mach);
476 kmem_free(data, allocsz);
477 return error;
478 }
479
480 error = copyin(args->conf, data, allocsz);
481 if (error) {
482 goto out;
483 }
484
485 error = (*nvmm_impl->vcpu_configure)(vcpu, op, data);
486
487 out:
488 nvmm_vcpu_put(vcpu);
489 nvmm_machine_put(mach);
490 kmem_free(data, allocsz);
491 return error;
492 }
493
494 static int
495 nvmm_vcpu_setstate(struct nvmm_owner *owner,
496 struct nvmm_ioc_vcpu_setstate *args)
497 {
498 struct nvmm_machine *mach;
499 struct nvmm_cpu *vcpu;
500 int error;
501
502 error = nvmm_machine_get(owner, args->machid, &mach, false);
503 if (error)
504 return error;
505
506 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
507 if (error)
508 goto out;
509
510 (*nvmm_impl->vcpu_setstate)(vcpu);
511 nvmm_vcpu_put(vcpu);
512
513 out:
514 nvmm_machine_put(mach);
515 return error;
516 }
517
518 static int
519 nvmm_vcpu_getstate(struct nvmm_owner *owner,
520 struct nvmm_ioc_vcpu_getstate *args)
521 {
522 struct nvmm_machine *mach;
523 struct nvmm_cpu *vcpu;
524 int error;
525
526 error = nvmm_machine_get(owner, args->machid, &mach, false);
527 if (error)
528 return error;
529
530 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
531 if (error)
532 goto out;
533
534 (*nvmm_impl->vcpu_getstate)(vcpu);
535 nvmm_vcpu_put(vcpu);
536
537 out:
538 nvmm_machine_put(mach);
539 return error;
540 }
541
542 static int
543 nvmm_vcpu_inject(struct nvmm_owner *owner, struct nvmm_ioc_vcpu_inject *args)
544 {
545 struct nvmm_machine *mach;
546 struct nvmm_cpu *vcpu;
547 int error;
548
549 error = nvmm_machine_get(owner, args->machid, &mach, false);
550 if (error)
551 return error;
552
553 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
554 if (error)
555 goto out;
556
557 error = (*nvmm_impl->vcpu_inject)(vcpu);
558 nvmm_vcpu_put(vcpu);
559
560 out:
561 nvmm_machine_put(mach);
562 return error;
563 }
564
565 static int
566 nvmm_do_vcpu_run(struct nvmm_machine *mach, struct nvmm_cpu *vcpu,
567 struct nvmm_vcpu_exit *exit)
568 {
569 struct vmspace *vm = mach->vm;
570 int ret;
571
572 while (1) {
573 /* Got a signal? Or pending resched? Leave. */
574 if (__predict_false(nvmm_return_needed())) {
575 exit->reason = NVMM_VCPU_EXIT_NONE;
576 return 0;
577 }
578
579 /* Run the VCPU. */
580 ret = (*nvmm_impl->vcpu_run)(mach, vcpu, exit);
581 if (__predict_false(ret != 0)) {
582 return ret;
583 }
584
585 /* Process nested page faults. */
586 if (__predict_true(exit->reason != NVMM_VCPU_EXIT_MEMORY)) {
587 break;
588 }
589 if (exit->u.mem.gpa >= mach->gpa_end) {
590 break;
591 }
592 if (uvm_fault(&vm->vm_map, exit->u.mem.gpa, exit->u.mem.prot)) {
593 break;
594 }
595 }
596
597 return 0;
598 }
599
600 static int
601 nvmm_vcpu_run(struct nvmm_owner *owner, struct nvmm_ioc_vcpu_run *args)
602 {
603 struct nvmm_machine *mach;
604 struct nvmm_cpu *vcpu;
605 int error;
606
607 error = nvmm_machine_get(owner, args->machid, &mach, false);
608 if (error)
609 return error;
610
611 error = nvmm_vcpu_get(mach, args->cpuid, &vcpu);
612 if (error)
613 goto out;
614
615 error = nvmm_do_vcpu_run(mach, vcpu, &args->exit);
616 nvmm_vcpu_put(vcpu);
617
618 out:
619 nvmm_machine_put(mach);
620 return error;
621 }
622
623 /* -------------------------------------------------------------------------- */
624
625 static struct uvm_object *
626 nvmm_hmapping_getuobj(struct nvmm_machine *mach, uintptr_t hva, size_t size,
627 size_t *off)
628 {
629 struct nvmm_hmapping *hmapping;
630 size_t i;
631
632 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
633 hmapping = &mach->hmap[i];
634 if (!hmapping->present) {
635 continue;
636 }
637 if (hva >= hmapping->hva &&
638 hva + size <= hmapping->hva + hmapping->size) {
639 *off = hva - hmapping->hva;
640 return hmapping->uobj;
641 }
642 }
643
644 return NULL;
645 }
646
647 static int
648 nvmm_hmapping_validate(struct nvmm_machine *mach, uintptr_t hva, size_t size)
649 {
650 struct nvmm_hmapping *hmapping;
651 size_t i;
652
653 if ((hva % PAGE_SIZE) != 0 || (size % PAGE_SIZE) != 0) {
654 return EINVAL;
655 }
656 if (hva == 0) {
657 return EINVAL;
658 }
659
660 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
661 hmapping = &mach->hmap[i];
662 if (!hmapping->present) {
663 continue;
664 }
665
666 if (hva >= hmapping->hva &&
667 hva + size <= hmapping->hva + hmapping->size) {
668 break;
669 }
670
671 if (hva >= hmapping->hva &&
672 hva < hmapping->hva + hmapping->size) {
673 return EEXIST;
674 }
675 if (hva + size > hmapping->hva &&
676 hva + size <= hmapping->hva + hmapping->size) {
677 return EEXIST;
678 }
679 if (hva <= hmapping->hva &&
680 hva + size >= hmapping->hva + hmapping->size) {
681 return EEXIST;
682 }
683 }
684
685 return 0;
686 }
687
688 static struct nvmm_hmapping *
689 nvmm_hmapping_alloc(struct nvmm_machine *mach)
690 {
691 struct nvmm_hmapping *hmapping;
692 size_t i;
693
694 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
695 hmapping = &mach->hmap[i];
696 if (!hmapping->present) {
697 hmapping->present = true;
698 return hmapping;
699 }
700 }
701
702 return NULL;
703 }
704
705 static int
706 nvmm_hmapping_free(struct nvmm_machine *mach, uintptr_t hva, size_t size)
707 {
708 struct vmspace *vmspace = curproc->p_vmspace;
709 struct nvmm_hmapping *hmapping;
710 size_t i;
711
712 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
713 hmapping = &mach->hmap[i];
714 if (!hmapping->present || hmapping->hva != hva ||
715 hmapping->size != size) {
716 continue;
717 }
718
719 uvm_unmap(&vmspace->vm_map, hmapping->hva,
720 hmapping->hva + hmapping->size);
721 uao_detach(hmapping->uobj);
722
723 hmapping->uobj = NULL;
724 hmapping->present = false;
725
726 return 0;
727 }
728
729 return ENOENT;
730 }
731
732 static int
733 nvmm_hva_map(struct nvmm_owner *owner, struct nvmm_ioc_hva_map *args)
734 {
735 struct vmspace *vmspace = curproc->p_vmspace;
736 struct nvmm_machine *mach;
737 struct nvmm_hmapping *hmapping;
738 vaddr_t uva;
739 int error;
740
741 error = nvmm_machine_get(owner, args->machid, &mach, true);
742 if (error)
743 return error;
744
745 error = nvmm_hmapping_validate(mach, args->hva, args->size);
746 if (error)
747 goto out;
748
749 hmapping = nvmm_hmapping_alloc(mach);
750 if (hmapping == NULL) {
751 error = ENOBUFS;
752 goto out;
753 }
754
755 hmapping->hva = args->hva;
756 hmapping->size = args->size;
757 hmapping->uobj = uao_create(hmapping->size, 0);
758 uva = hmapping->hva;
759
760 /* Take a reference for the user. */
761 uao_reference(hmapping->uobj);
762
763 /* Map the uobj into the user address space, as pageable. */
764 error = uvm_map(&vmspace->vm_map, &uva, hmapping->size, hmapping->uobj,
765 0, 0, UVM_MAPFLAG(UVM_PROT_RW, UVM_PROT_RW, UVM_INH_SHARE,
766 UVM_ADV_RANDOM, UVM_FLAG_FIXED|UVM_FLAG_UNMAP));
767 if (error) {
768 uao_detach(hmapping->uobj);
769 }
770
771 out:
772 nvmm_machine_put(mach);
773 return error;
774 }
775
776 static int
777 nvmm_hva_unmap(struct nvmm_owner *owner, struct nvmm_ioc_hva_unmap *args)
778 {
779 struct nvmm_machine *mach;
780 int error;
781
782 error = nvmm_machine_get(owner, args->machid, &mach, true);
783 if (error)
784 return error;
785
786 error = nvmm_hmapping_free(mach, args->hva, args->size);
787
788 nvmm_machine_put(mach);
789 return error;
790 }
791
792 /* -------------------------------------------------------------------------- */
793
794 static int
795 nvmm_gpa_map(struct nvmm_owner *owner, struct nvmm_ioc_gpa_map *args)
796 {
797 struct nvmm_machine *mach;
798 struct uvm_object *uobj;
799 gpaddr_t gpa;
800 size_t off;
801 int error;
802
803 error = nvmm_machine_get(owner, args->machid, &mach, false);
804 if (error)
805 return error;
806
807 if ((args->prot & ~(PROT_READ|PROT_WRITE|PROT_EXEC)) != 0) {
808 error = EINVAL;
809 goto out;
810 }
811
812 if ((args->gpa % PAGE_SIZE) != 0 || (args->size % PAGE_SIZE) != 0 ||
813 (args->hva % PAGE_SIZE) != 0) {
814 error = EINVAL;
815 goto out;
816 }
817 if (args->hva == 0) {
818 error = EINVAL;
819 goto out;
820 }
821 if (args->gpa < mach->gpa_begin || args->gpa >= mach->gpa_end) {
822 error = EINVAL;
823 goto out;
824 }
825 if (args->gpa + args->size <= args->gpa) {
826 error = EINVAL;
827 goto out;
828 }
829 if (args->gpa + args->size > mach->gpa_end) {
830 error = EINVAL;
831 goto out;
832 }
833 gpa = args->gpa;
834
835 uobj = nvmm_hmapping_getuobj(mach, args->hva, args->size, &off);
836 if (uobj == NULL) {
837 error = EINVAL;
838 goto out;
839 }
840
841 /* Take a reference for the machine. */
842 uao_reference(uobj);
843
844 /* Map the uobj into the machine address space, as pageable. */
845 error = uvm_map(&mach->vm->vm_map, &gpa, args->size, uobj, off, 0,
846 UVM_MAPFLAG(args->prot, UVM_PROT_RWX, UVM_INH_NONE,
847 UVM_ADV_RANDOM, UVM_FLAG_FIXED|UVM_FLAG_UNMAP));
848 if (error) {
849 uao_detach(uobj);
850 goto out;
851 }
852 if (gpa != args->gpa) {
853 uao_detach(uobj);
854 printf("[!] uvm_map problem\n");
855 error = EINVAL;
856 goto out;
857 }
858
859 out:
860 nvmm_machine_put(mach);
861 return error;
862 }
863
864 static int
865 nvmm_gpa_unmap(struct nvmm_owner *owner, struct nvmm_ioc_gpa_unmap *args)
866 {
867 struct nvmm_machine *mach;
868 gpaddr_t gpa;
869 int error;
870
871 error = nvmm_machine_get(owner, args->machid, &mach, false);
872 if (error)
873 return error;
874
875 if ((args->gpa % PAGE_SIZE) != 0 || (args->size % PAGE_SIZE) != 0) {
876 error = EINVAL;
877 goto out;
878 }
879 if (args->gpa < mach->gpa_begin || args->gpa >= mach->gpa_end) {
880 error = EINVAL;
881 goto out;
882 }
883 if (args->gpa + args->size <= args->gpa) {
884 error = EINVAL;
885 goto out;
886 }
887 if (args->gpa + args->size >= mach->gpa_end) {
888 error = EINVAL;
889 goto out;
890 }
891 gpa = args->gpa;
892
893 /* Unmap the memory from the machine. */
894 uvm_unmap(&mach->vm->vm_map, gpa, gpa + args->size);
895
896 out:
897 nvmm_machine_put(mach);
898 return error;
899 }
900
901 /* -------------------------------------------------------------------------- */
902
903 static int
904 nvmm_ctl_mach_info(struct nvmm_owner *owner, struct nvmm_ioc_ctl *args)
905 {
906 struct nvmm_ctl_mach_info ctl;
907 struct nvmm_machine *mach;
908 struct nvmm_cpu *vcpu;
909 int error;
910 size_t i;
911
912 if (args->size != sizeof(ctl))
913 return EINVAL;
914 error = copyin(args->data, &ctl, sizeof(ctl));
915 if (error)
916 return error;
917
918 error = nvmm_machine_get(owner, ctl.machid, &mach, true);
919 if (error)
920 return error;
921
922 ctl.nvcpus = 0;
923 for (i = 0; i < NVMM_MAX_VCPUS; i++) {
924 error = nvmm_vcpu_get(mach, i, &vcpu);
925 if (error)
926 continue;
927 ctl.nvcpus++;
928 nvmm_vcpu_put(vcpu);
929 }
930
931 ctl.nram = 0;
932 for (i = 0; i < NVMM_MAX_HMAPPINGS; i++) {
933 if (!mach->hmap[i].present)
934 continue;
935 ctl.nram += mach->hmap[i].size;
936 }
937
938 ctl.pid = mach->owner->pid;
939 ctl.time = mach->time;
940
941 nvmm_machine_put(mach);
942
943 error = copyout(&ctl, args->data, sizeof(ctl));
944 if (error)
945 return error;
946
947 return 0;
948 }
949
950 static int
951 nvmm_ctl(struct nvmm_owner *owner, struct nvmm_ioc_ctl *args)
952 {
953 switch (args->op) {
954 case NVMM_CTL_MACH_INFO:
955 return nvmm_ctl_mach_info(owner, args);
956 default:
957 return EINVAL;
958 }
959 }
960
961 /* -------------------------------------------------------------------------- */
962
963 static int
964 nvmm_init(void)
965 {
966 size_t i, n;
967
968 for (i = 0; i < __arraycount(nvmm_impl_list); i++) {
969 if (!(*nvmm_impl_list[i]->ident)()) {
970 continue;
971 }
972 nvmm_impl = nvmm_impl_list[i];
973 break;
974 }
975 if (nvmm_impl == NULL) {
976 printf("NVMM: CPU not supported\n");
977 return ENOTSUP;
978 }
979
980 for (i = 0; i < NVMM_MAX_MACHINES; i++) {
981 machines[i].machid = i;
982 rw_init(&machines[i].lock);
983 for (n = 0; n < NVMM_MAX_VCPUS; n++) {
984 machines[i].cpus[n].present = false;
985 machines[i].cpus[n].cpuid = n;
986 mutex_init(&machines[i].cpus[n].lock, MUTEX_DEFAULT,
987 IPL_NONE);
988 }
989 }
990
991 (*nvmm_impl->init)();
992
993 return 0;
994 }
995
996 static void
997 nvmm_fini(void)
998 {
999 size_t i, n;
1000
1001 for (i = 0; i < NVMM_MAX_MACHINES; i++) {
1002 rw_destroy(&machines[i].lock);
1003 for (n = 0; n < NVMM_MAX_VCPUS; n++) {
1004 mutex_destroy(&machines[i].cpus[n].lock);
1005 }
1006 }
1007
1008 (*nvmm_impl->fini)();
1009 nvmm_impl = NULL;
1010 }
1011
1012 /* -------------------------------------------------------------------------- */
1013
1014 static dev_type_open(nvmm_open);
1015
1016 const struct cdevsw nvmm_cdevsw = {
1017 .d_open = nvmm_open,
1018 .d_close = noclose,
1019 .d_read = noread,
1020 .d_write = nowrite,
1021 .d_ioctl = noioctl,
1022 .d_stop = nostop,
1023 .d_tty = notty,
1024 .d_poll = nopoll,
1025 .d_mmap = nommap,
1026 .d_kqfilter = nokqfilter,
1027 .d_discard = nodiscard,
1028 .d_flag = D_OTHER | D_MPSAFE
1029 };
1030
1031 static int nvmm_ioctl(file_t *, u_long, void *);
1032 static int nvmm_close(file_t *);
1033 static int nvmm_mmap(file_t *, off_t *, size_t, int, int *, int *,
1034 struct uvm_object **, int *);
1035
1036 const struct fileops nvmm_fileops = {
1037 .fo_read = fbadop_read,
1038 .fo_write = fbadop_write,
1039 .fo_ioctl = nvmm_ioctl,
1040 .fo_fcntl = fnullop_fcntl,
1041 .fo_poll = fnullop_poll,
1042 .fo_stat = fbadop_stat,
1043 .fo_close = nvmm_close,
1044 .fo_kqfilter = fnullop_kqfilter,
1045 .fo_restart = fnullop_restart,
1046 .fo_mmap = nvmm_mmap,
1047 };
1048
1049 static int
1050 nvmm_open(dev_t dev, int flags, int type, struct lwp *l)
1051 {
1052 struct nvmm_owner *owner;
1053 struct file *fp;
1054 int error, fd;
1055
1056 if (__predict_false(nvmm_impl == NULL))
1057 return ENXIO;
1058 if (minor(dev) != 0)
1059 return EXDEV;
1060 if (!(flags & O_CLOEXEC))
1061 return EINVAL;
1062 error = fd_allocfile(&fp, &fd);
1063 if (error)
1064 return error;
1065
1066 if (OFLAGS(flags) & O_WRONLY) {
1067 owner = &root_owner;
1068 } else {
1069 owner = kmem_alloc(sizeof(*owner), KM_SLEEP);
1070 owner->pid = l->l_proc->p_pid;
1071 }
1072
1073 return fd_clone(fp, fd, flags, &nvmm_fileops, owner);
1074 }
1075
1076 static int
1077 nvmm_close(file_t *fp)
1078 {
1079 struct nvmm_owner *owner = fp->f_data;
1080
1081 KASSERT(owner != NULL);
1082 nvmm_kill_machines(owner);
1083 if (owner != &root_owner) {
1084 kmem_free(owner, sizeof(*owner));
1085 }
1086 fp->f_data = NULL;
1087
1088 return 0;
1089 }
1090
1091 static int
1092 nvmm_mmap(file_t *fp, off_t *offp, size_t size, int prot, int *flagsp,
1093 int *advicep, struct uvm_object **uobjp, int *maxprotp)
1094 {
1095 struct nvmm_owner *owner = fp->f_data;
1096 struct nvmm_machine *mach;
1097 nvmm_machid_t machid;
1098 nvmm_cpuid_t cpuid;
1099 int error;
1100
1101 if (prot & PROT_EXEC)
1102 return EACCES;
1103 if (size != PAGE_SIZE)
1104 return EINVAL;
1105
1106 cpuid = NVMM_COMM_CPUID(*offp);
1107 if (__predict_false(cpuid >= NVMM_MAX_VCPUS))
1108 return EINVAL;
1109
1110 machid = NVMM_COMM_MACHID(*offp);
1111 error = nvmm_machine_get(owner, machid, &mach, false);
1112 if (error)
1113 return error;
1114
1115 uao_reference(mach->commuobj);
1116 *uobjp = mach->commuobj;
1117 *offp = cpuid * PAGE_SIZE;
1118 *maxprotp = prot;
1119 *advicep = UVM_ADV_RANDOM;
1120
1121 nvmm_machine_put(mach);
1122 return 0;
1123 }
1124
1125 static int
1126 nvmm_ioctl(file_t *fp, u_long cmd, void *data)
1127 {
1128 struct nvmm_owner *owner = fp->f_data;
1129
1130 KASSERT(owner != NULL);
1131
1132 switch (cmd) {
1133 case NVMM_IOC_CAPABILITY:
1134 return nvmm_capability(owner, data);
1135 case NVMM_IOC_MACHINE_CREATE:
1136 return nvmm_machine_create(owner, data);
1137 case NVMM_IOC_MACHINE_DESTROY:
1138 return nvmm_machine_destroy(owner, data);
1139 case NVMM_IOC_MACHINE_CONFIGURE:
1140 return nvmm_machine_configure(owner, data);
1141 case NVMM_IOC_VCPU_CREATE:
1142 return nvmm_vcpu_create(owner, data);
1143 case NVMM_IOC_VCPU_DESTROY:
1144 return nvmm_vcpu_destroy(owner, data);
1145 case NVMM_IOC_VCPU_CONFIGURE:
1146 return nvmm_vcpu_configure(owner, data);
1147 case NVMM_IOC_VCPU_SETSTATE:
1148 return nvmm_vcpu_setstate(owner, data);
1149 case NVMM_IOC_VCPU_GETSTATE:
1150 return nvmm_vcpu_getstate(owner, data);
1151 case NVMM_IOC_VCPU_INJECT:
1152 return nvmm_vcpu_inject(owner, data);
1153 case NVMM_IOC_VCPU_RUN:
1154 return nvmm_vcpu_run(owner, data);
1155 case NVMM_IOC_GPA_MAP:
1156 return nvmm_gpa_map(owner, data);
1157 case NVMM_IOC_GPA_UNMAP:
1158 return nvmm_gpa_unmap(owner, data);
1159 case NVMM_IOC_HVA_MAP:
1160 return nvmm_hva_map(owner, data);
1161 case NVMM_IOC_HVA_UNMAP:
1162 return nvmm_hva_unmap(owner, data);
1163 case NVMM_IOC_CTL:
1164 return nvmm_ctl(owner, data);
1165 default:
1166 return EINVAL;
1167 }
1168 }
1169
1170 /* -------------------------------------------------------------------------- */
1171
1172 void
1173 nvmmattach(int nunits)
1174 {
1175 /* nothing */
1176 }
1177
1178 MODULE(MODULE_CLASS_MISC, nvmm, NULL);
1179
1180 static int
1181 nvmm_modcmd(modcmd_t cmd, void *arg)
1182 {
1183 int error;
1184
1185 switch (cmd) {
1186 case MODULE_CMD_INIT:
1187 error = nvmm_init();
1188 if (error)
1189 return error;
1190
1191 #if defined(_MODULE)
1192 {
1193 devmajor_t bmajor = NODEVMAJOR;
1194 devmajor_t cmajor = 345;
1195
1196 /* mknod /dev/nvmm c 345 0 */
1197 error = devsw_attach("nvmm", NULL, &bmajor,
1198 &nvmm_cdevsw, &cmajor);
1199 if (error) {
1200 nvmm_fini();
1201 return error;
1202 }
1203 }
1204 #endif
1205 return 0;
1206
1207 case MODULE_CMD_FINI:
1208 if (nmachines > 0) {
1209 return EBUSY;
1210 }
1211 #if defined(_MODULE)
1212 {
1213 error = devsw_detach(NULL, &nvmm_cdevsw);
1214 if (error) {
1215 return error;
1216 }
1217 }
1218 #endif
1219 nvmm_fini();
1220 return 0;
1221
1222 case MODULE_CMD_AUTOUNLOAD:
1223 return EBUSY;
1224
1225 default:
1226 return ENOTTY;
1227 }
1228 }
1229