1 /*
2  * This file and its contents are supplied under the terms of the
3  * Common Development and Distribution License ("CDDL"), version 1.0.
4  * You may only use this file in accordance with the terms of version
5  * 1.0 of the CDDL.
6  *
7  * A full copy of the text of the CDDL should have accompanied this
8  * source.  A copy of the CDDL is also available via the Internet at
9  * http://www.illumos.org/license/CDDL.
10  */
11 
12 /*
13  * Copyright 2022 Oxide Computer Company
14  */
15 
16 #include <stdio.h>
17 #include <unistd.h>
18 #include <stdlib.h>
19 #include <strings.h>
20 #include <libgen.h>
21 #include <assert.h>
22 
23 #include <sys/types.h>
24 #include <sys/sysmacros.h>
25 #include <sys/debug.h>
26 #include <sys/vmm.h>
27 #include <sys/vmm_dev.h>
28 #include <vmmapi.h>
29 
30 #include "in_guest.h"
31 #include "test_defs.h"
32 
33 typedef struct reading {
34 	hrtime_t	when;
35 	uint32_t	value;
36 } reading_t;
37 
38 static bool
39 check_reading(reading_t before, reading_t after, uint_t tick_margin,
40     uint_t ppm_margin)
41 {
42 	hrtime_t time_delta = after.when - before.when;
43 	uint32_t tick_delta;
44 
45 	if (after.value < before.value) {
46 		/* handle rollover */
47 		tick_delta = (UINT32_MAX - before.value) + after.value;
48 	} else {
49 		tick_delta = after.value - before.value;
50 	}
51 
52 	/* is the number of ticks OK? */
53 	if (tick_delta < HPET_TARGET_TICKS) {
54 		test_fail_msg("inadequate passage of ticks %u < %u\n",
55 		    tick_delta, HPET_TARGET_TICKS);
56 	} else if ((tick_delta - HPET_TARGET_TICKS) > tick_margin) {
57 		(void) printf("%u ticks outside margin %u\n", tick_delta,
58 		    HPET_TARGET_TICKS + tick_margin);
59 		return (false);
60 	}
61 
62 	hrtime_t time_target = (tick_delta * NANOSEC) / HPET_FREQ;
63 
64 	hrtime_t offset;
65 	if (time_delta < time_target) {
66 		offset = time_target - time_delta;
67 	} else {
68 		offset = time_delta - time_target;
69 	}
70 	uint64_t ppm = (offset * 1000000) / time_target;
71 	(void) printf("margin limits: ticks=%u ppm=%lu\n",
72 	    tick_margin, ppm_margin);
73 	(void) printf("%u ticks in %lu ns (error %lu ppm)\n",
74 	    tick_delta, time_delta, ppm);
75 	if (ppm > ppm_margin) {
76 		(void) printf("UNACCEPTABLE!\n");
77 		return (false);
78 	}
79 	return (true);
80 }
81 
82 int
83 main(int argc, char *argv[])
84 {
85 	const char *test_suite_name = basename(argv[0]);
86 	struct vmctx *ctx = NULL;
87 	int err;
88 
89 	ctx = test_initialize(test_suite_name);
90 
91 	err = test_setup_vcpu(ctx, 0, MEM_LOC_PAYLOAD, MEM_LOC_STACK);
92 	if (err != 0) {
93 		test_fail_errno(err, "Could not initialize vcpu0");
94 	}
95 
96 	struct vm_entry ventry = { 0 };
97 	struct vm_exit vexit = { 0 };
98 	reading_t readings[2];
99 	uint_t nread = 0;
100 	uint_t nrepeat = 0;
101 
102 	const uint_t margin_ticks = MAX(1, HPET_TARGET_TICKS / 10000);
103 	const uint_t margin_ppm = 400;
104 
105 	do {
106 		const enum vm_exit_kind kind =
107 		    test_run_vcpu(ctx, 0, &ventry, &vexit);
108 		if (kind == VEK_REENTR) {
109 			continue;
110 		} else if (kind != VEK_UNHANDLED) {
111 			test_fail_vmexit(&vexit);
112 		}
113 
114 		uint32_t v;
115 		if (vexit_match_inout(&vexit, false, IOP_TEST_VALUE, 4, &v)) {
116 			readings[nread].when = gethrtime();
117 			readings[nread].value = v;
118 
119 			ventry_fulfill_inout(&vexit, &ventry, 0);
120 
121 			nread++;
122 			if (nread != 2) {
123 				continue;
124 			}
125 
126 			if (check_reading(readings[0], readings[1],
127 			    margin_ticks, margin_ppm)) {
128 				test_pass();
129 			} else {
130 				nrepeat++;
131 				if (nrepeat < 3) {
132 					nread = 0;
133 					(void) printf("retry %u\n", nrepeat);
134 					continue;
135 				}
136 				test_fail_msg("bad result after %u retries\n",
137 				    nrepeat);
138 			}
139 		} else {
140 			test_fail_vmexit(&vexit);
141 		}
142 
143 	} while (true);
144 
145 	return (0);
146 }
147