#include "libcflat.h"
#include "processor.h"

#define IA32_TSC_ADJUST 0x3b

int main()
{
	u64 t1, t2, t3, t4, t5;
	u64 est_delta_time;

	if (cpuid(7).b & (1 << 1)) { // IA32_TSC_ADJUST Feature is enabled?
		report("IA32_TSC_ADJUST msr initialization",
				rdmsr(IA32_TSC_ADJUST) == 0x0);
		t3 = 100000000000ull;
		t1 = rdtsc();
		wrmsr(IA32_TSC_ADJUST, t3);
		t2 = rdtsc();
		report("IA32_TSC_ADJUST msr read / write",
				rdmsr(IA32_TSC_ADJUST) == t3);
		report("TSC adjustment for IA32_TSC_ADJUST value",
				(t2 - t1) >= t3);
		t3 = 0x0;
		wrmsr(IA32_TSC_ADJUST, t3);
		report("IA32_TSC_ADJUST msr read / write",
				rdmsr(IA32_TSC_ADJUST) == t3);
		t4 = 100000000000ull;
		t1 = rdtsc();
		wrtsc(t4);
		t2 = rdtsc();
		t5 = rdmsr(IA32_TSC_ADJUST);
		// est of time between reading tsc and writing tsc,
		// (based on IA32_TSC_ADJUST msr value) should be small
		est_delta_time = t4 - t5 - t1;
		// arbitray 2x latency (wrtsc->rdtsc) threshold
		report("IA32_TSC_ADJUST msr adjustment on tsc write",
				est_delta_time <= (2 * (t2 - t4)));
	}
	else {
		report("IA32_TSC_ADJUST feature not enabled", true);
	}
	return report_summary();
}