Скачать: CL | DM;

Помогите перевести C++ на Delphi   Найти похожие ветки 

← →
guest2006   (2006-05-27 14:50) [0]

Здравствуйте! Нашел код, который расчитывает частоту процессора.
Есть два вопроса:
1. чем заменить СИшную функцию _rdtsc() в Delphi
2. зачем результат функции GetCPUFrequency() делится на 100000

P.S С остальным вроде все ясно. Заранее благодарен!


#include <intrinsics.h>
#include <stdio.h>

// Delays for the specified amount of milliseconds
static void _Delay(unsigned int ms)
{
  LARGE_INTEGER freq, c1, c2;
long long x;

  // Get High-Res Timer frequency
if (!QueryPerformanceFrequency(&freq))
 return;

// Convert ms to High-Res Timer value
x = freq.QuadPart/1000*ms;

  // Get first snapshot of High-Res Timer value
QueryPerformanceCounter(&c1);
do{
       // Get second snapshot
    QueryPerformanceCounter(&c2);
}while(c2.QuadPart-c1.QuadPart < x);
// Loop while (second-first < x)
}

unsigned int GetCPUFrequency(void)
{
long long first, second;
first = _rdtsc();
_Delay(100);
second = _rdtsc();
return (unsigned int)(second - first);
}

int main(void)
{
printf("MHz %f\n", (double)((double)GetCPUFrequency()/(double)100000));
return 0;
}


---

← →
Джо ©   (2006-05-27 14:53) [1]

> 1. чем заменить СИшную функцию _rdtsc() в Delphi

function RDTSC: comp;
var
 TimeStamp: record
   case byte of
     1: (Whole: comp);
     2: (Lo, Hi: Longint);
 end;
begin
 asm
   db $0F; db $31;
 {$ifdef Cpu386}
   mov [TimeStamp.Lo], eax
   mov [TimeStamp.Hi], edx
 {$else}
   db D32
   mov word ptr TimeStamp.Lo, AX
   db D32
   mov word ptr TimeStamp.Hi, DX
 {$endif}
 end;
 Result := TimeStamp.Whole;
end;
Вот, Яндекс посоветовал такую функцию для этой ассемблерной инструкции.

---

← →
Eraser ©   (2006-05-27 14:54) [2]

Кстати в MSDN по поводу этой функции важное замечание:

On a multiprocessor machine, it should not matter which processor is called. However, you can get different results on different processors due to bugs in the BIOS or the HAL. To specify processor affinity for a thread, use the SetThreadAffinityMask function.

т.е. перед выполнением, этот код необходимо привязать к какому либо процессору.

---

← →
Eraser ©   (2006-05-27 14:55) [3]

> Eraser ©   (27.05.06 14:54) [2]


> этой функции

имеется в виду QueryPerformanceCounter.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c