Текущий архив: 2006.06.18;
Скачать: 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 вся ветка
Текущий архив: 2006.06.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
