Community
cancel
Showing results for 
Search instead for 
Did you mean: 
aminer10
Beginner
52 Views

About timer.pas ...


Hello,
 

Inside parallelhashlist.zip i have put a new timer.pas that compiles correctly
under both Win32 and Win64, i have changed  the Tick method inside
timer.pas and added the 64 bits parts so  that it works correctly under
Win64:
 
Here is the new Tick method:  
 
----
 
function TLkBaseTimer.Tick: int64; register;
//asm
 // rdtsc;
//db 0fh, 31h
//end;
asm
  rdtsc
{$IFDEF CPU64}
  shl   rdx, 32
  or    rax, rdx
{$ENDIF CPU64}
end; { GetCPUTimeStamp }
 
--
 
 
How to use the timer to time in microseconds ?
 
Like this:
 
Call Timestart() first like this:
 
HPT.Timestart;
 
and after that you can write the Time in microseconds like this
 
writeln('Time in microseconds: ',hpt.TimePeriod);
 
 
Please look inside test1.pas inside parallelhashlist.zip i have given you
an example on how to use timer.pas to time the throuput of your multithreaded
program...
 
You can download parallelhashlist from:


http://pages.videotron.com/aminer/
 

Sincerely,
Amine Moulay Ramdane,
 

0 Kudos
0 Replies
Reply