Помогите перевести 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.
т.е. перед выполнением, этот код необходимо привязать к какому либо процессору.

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