91 lines
3.4 KiB
C#
91 lines
3.4 KiB
C#
|
////////////////////////////////////////////////////////////////////////////////
|
||
|
|
//
|
||
|
|
// Microsoft Research Singularity
|
||
|
|
//
|
||
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
||
|
|
//
|
||
|
|
// File: ClockTest.cs
|
||
|
|
//
|
||
|
|
// Note: Simple Singularity test program.
|
||
|
|
//
|
||
|
|
using System;
|
||
|
|
using Microsoft.Singularity.V1.Services;
|
||
|
|
|
||
|
|
using Microsoft.Singularity.Channels;
|
||
|
|
using Microsoft.Contracts;
|
||
|
|
using Microsoft.SingSharp.Reflection;
|
||
|
|
using Microsoft.Singularity.Applications;
|
||
|
|
using Microsoft.Singularity.Io;
|
||
|
|
using Microsoft.Singularity.Configuration;
|
||
|
|
[assembly: Transform(typeof(ApplicationResourceTransform))]
|
||
|
|
|
||
|
|
namespace Microsoft.Singularity.Applications {
|
||
|
|
[ConsoleCategory(DefaultAction=true)]
|
||
|
|
internal class Parameters {
|
||
|
|
[InputEndpoint("data")]
|
||
|
|
public readonly TRef<UnicodePipeContract.Exp:READY> Stdin;
|
||
|
|
|
||
|
|
[OutputEndpoint("data")]
|
||
|
|
public readonly TRef<UnicodePipeContract.Imp:READY> Stdout;
|
||
|
|
|
||
|
|
reflective internal Parameters();
|
||
|
|
|
||
|
|
internal int AppMain() {
|
||
|
|
return ClockTest.AppMain(this);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public class ClockTest
|
||
|
|
{
|
||
|
|
//[ShellCommand("clocktest", "Run clock test")]
|
||
|
|
internal static int AppMain(Parameters! config)
|
||
|
|
{
|
||
|
|
Console.WriteLine("CPU TSC as reference for delay yields:");
|
||
|
|
|
||
|
|
for (uint divisor = 512; divisor > 0; divisor >>= 1) {
|
||
|
|
ulong deltaTSC = (ulong) (ProcessService.GetCyclesPerSecond() / divisor);
|
||
|
|
|
||
|
|
long endKernelTicks = 0;
|
||
|
|
ulong endTSC;
|
||
|
|
|
||
|
|
long startKernelTicks = ProcessService.GetUpTime().Ticks;
|
||
|
|
ulong startTSC = (ulong) (ProcessService.GetCycleCount());
|
||
|
|
|
||
|
|
ulong finalTSC = startTSC + deltaTSC;
|
||
|
|
|
||
|
|
do {
|
||
|
|
endKernelTicks = ProcessService.GetUpTime().Ticks;
|
||
|
|
endTSC = (ulong) (ProcessService.GetCycleCount());
|
||
|
|
} while (endTSC < finalTSC);
|
||
|
|
|
||
|
|
long usKernel = (endKernelTicks - startKernelTicks) / 10;
|
||
|
|
ulong usTSC = 1000000u * (endTSC - startTSC) / (ulong) (ProcessService.GetCyclesPerSecond());
|
||
|
|
Console.Write(" Target {0,7} us TSC {1,7} us HW {2,7} us\n",
|
||
|
|
1000000 / divisor, (int)usTSC, (int)usKernel);
|
||
|
|
}
|
||
|
|
|
||
|
|
Console.WriteLine("\nHW Clock as reference for delay yields:");
|
||
|
|
for (uint divisor = 512; divisor > 0; divisor >>= 1) {
|
||
|
|
long endKernelTicks = 0;
|
||
|
|
ulong endTSC;
|
||
|
|
|
||
|
|
long startKernelTicks = ProcessService.GetUpTime().Ticks;
|
||
|
|
ulong startTSC = (ulong) (ProcessService.GetCycleCount());
|
||
|
|
|
||
|
|
long finalKernelTicks = startKernelTicks + 10000000 / divisor;
|
||
|
|
|
||
|
|
do {
|
||
|
|
endKernelTicks = ProcessService.GetUpTime().Ticks;
|
||
|
|
endTSC = (ulong) (ProcessService.GetCycleCount());
|
||
|
|
} while (endKernelTicks < finalKernelTicks);
|
||
|
|
|
||
|
|
long usKernel = (endKernelTicks - startKernelTicks) / 10;
|
||
|
|
ulong usTSC = 1000000u * (endTSC - startTSC) / (ulong) (ProcessService.GetCyclesPerSecond());
|
||
|
|
Console.Write(" Target {0,7} us TSC {1,7} us HW {2,7} us\n",
|
||
|
|
1000000 / divisor, (int)usTSC, (int)usKernel);
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|