profil.c

Go to the documentation of this file.

/*
 * PROJECT:         ReactOS HAL
 * LICENSE:         GPL - See COPYING in the top level directory
 * FILE:            hal/halx86/generic/profil.c
 * PURPOSE:         System Profiling
 * PROGRAMMERS:     Alex Ionescu (alex.ionescu@reactos.org)
 *                  Eric Kohl
 */
 
/* INCLUDES ******************************************************************/
 
#include <hal.h>
#define NDEBUG
#include <debug.h>
 
/* GLOBALS *******************************************************************/
 
BOOLEAN HalpProfilingStopped = TRUE;
UCHAR HalpProfileRate = 8;
 
/* FUNCTIONS *****************************************************************/
 
/*
 * @implemented
 */
VOID
NTAPI
HalStopProfileInterrupt(IN KPROFILE_SOURCE ProfileSource)
{
    UCHAR StatusB;
 
    UNREFERENCED_PARAMETER(ProfileSource);
 
    /* Acquire the CMOS lock */
    HalpAcquireCmosSpinLock();
 
    /* Read Status Register B */
    StatusB = HalpReadCmos(RTC_REGISTER_B);
 
    /* Disable periodic interrupts */
    StatusB = StatusB & ~RTC_REG_B_PI;
 
    /* Write new value into Status Register B */
    HalpWriteCmos(RTC_REGISTER_B, StatusB);
 
    HalpProfilingStopped = TRUE;
 
    /* Release the CMOS lock */
    HalpReleaseCmosSpinLock();
}
 
/*
 * @unimplemented
 */
VOID
NTAPI
HalStartProfileInterrupt(IN KPROFILE_SOURCE ProfileSource)
{
    UCHAR StatusA, StatusB;
 
    UNREFERENCED_PARAMETER(ProfileSource);
 
    HalpProfilingStopped = FALSE;
 
    /* Acquire the CMOS lock */
    HalpAcquireCmosSpinLock();
 
    /* Set the interval in Status Register A */
    StatusA = HalpReadCmos(RTC_REGISTER_A);
    StatusA = (StatusA & 0xF0) | HalpProfileRate;
    HalpWriteCmos(RTC_REGISTER_A, StatusA);
 
    /* Enable periodic interrupts in Status Register B */
    StatusB = HalpReadCmos(RTC_REGISTER_B);
    StatusB = StatusB | RTC_REG_B_PI;
    HalpWriteCmos(RTC_REGISTER_B, StatusB);
 
    /* Release the CMOS lock */
    HalpReleaseCmosSpinLock();
}
 
/*
 * @unimplemented
 */
ULONG_PTR
NTAPI
HalSetProfileInterval(IN ULONG_PTR Interval)
{
    ULONG_PTR CurrentValue, NextValue;
    UCHAR i;
 
    /* Normalize interval. 122100 ns is the smallest supported */
    Interval &= ~(1 << 31);
    if (Interval < 1221)
        Interval = 1221;
 
    /* Highest rate value of 15 means 500 ms */
    CurrentValue = 5000000;
    for (i = 15; ; i--)
    {
        NextValue = (CurrentValue + 1) / 2;
        if (Interval > CurrentValue - NextValue / 2)
            break;
        CurrentValue = NextValue;
    }
 
    /* Interval as needed by RTC */
    HalpProfileRate = i;
 
    /* Reset the  */
    if (!HalpProfilingStopped)
    {
       HalStartProfileInterrupt(0);
    }
 
    return CurrentValue;
}