https://community.intel.com/t5/Intel-Moderncode-for-Parallel/About-timer-pas/m-p/769183#M104 <DIV><BR />Hello,</DIV> <DIV>&nbsp;</DIV> <DIV><BR />Inside parallelhashlist.zip i have put a new timer.pas that compiles correctly </DIV> <DIV>under both Win32 and Win64, i have changed &nbsp;the Tick method inside </DIV> <DIV>timer.pas and added the 64 bits parts&nbsp;so &nbsp;that it&nbsp;works correctly under </DIV> <DIV>Win64:</DIV> <DIV>&nbsp;</DIV> <DIV>Here is the new Tick method:&nbsp;&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>----</DIV> <DIV>&nbsp;</DIV> <DIV>function TLkBaseTimer.Tick: int64; register;<BR />//asm<BR />&nbsp;// rdtsc;<BR />//db 0fh, 31h <BR />//end;<BR />asm<BR />&nbsp; rdtsc<BR />{$IFDEF CPU64}<BR />&nbsp; shl&nbsp;&nbsp; rdx, 32<BR />&nbsp; or&nbsp;&nbsp;&nbsp; rax, rdx<BR />{$ENDIF CPU64}<BR />end; { GetCPUTimeStamp }</DIV> <DIV>&nbsp;</DIV> <DIV>--</DIV> <DIV>&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>How to use the timer to time in microseconds ? </DIV> <DIV>&nbsp;</DIV> <DIV>Like this:</DIV> <DIV>&nbsp;</DIV> <DIV>Call Timestart() first like this:</DIV> <DIV>&nbsp;</DIV> <DIV>HPT.Timestart;</DIV> <DIV>&nbsp;</DIV> <DIV>and after that you can write the Time in microseconds like this</DIV> <DIV>&nbsp;</DIV> <DIV>writeln('Time in microseconds: ',hpt.TimePeriod);</DIV> <DIV>&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>Please look inside test1.pas inside parallelhashlist.zip i have given you </DIV> <DIV>an example on how to use timer.pas to time the throuput of your multithreaded </DIV> <DIV>program...</DIV> <DIV>&nbsp;</DIV> <DIV>You can download parallelhashlist from:<BR /><BR /><BR /><A href="http://pages.videotron.com/aminer/">http://pages.videotron.com/aminer/</A></DIV> <DIV>&nbsp;</DIV> <DIV><BR />Sincerely,</DIV> <DIV>Amine Moulay Ramdane,</DIV> <DIV>&nbsp;<BR /><BR /></DIV> Fri, 10 Aug 2012 17:22:20 GMT aminer10 2012-08-10T17:22:20Z https://community.intel.com/t5/Intel-Moderncode-for-Parallel/About-timer-pas/m-p/769183#M104 <DIV><BR />Hello,</DIV> <DIV>&nbsp;</DIV> <DIV><BR />Inside parallelhashlist.zip i have put a new timer.pas that compiles correctly </DIV> <DIV>under both Win32 and Win64, i have changed &nbsp;the Tick method inside </DIV> <DIV>timer.pas and added the 64 bits parts&nbsp;so &nbsp;that it&nbsp;works correctly under </DIV> <DIV>Win64:</DIV> <DIV>&nbsp;</DIV> <DIV>Here is the new Tick method:&nbsp;&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>----</DIV> <DIV>&nbsp;</DIV> <DIV>function TLkBaseTimer.Tick: int64; register;<BR />//asm<BR />&nbsp;// rdtsc;<BR />//db 0fh, 31h <BR />//end;<BR />asm<BR />&nbsp; rdtsc<BR />{$IFDEF CPU64}<BR />&nbsp; shl&nbsp;&nbsp; rdx, 32<BR />&nbsp; or&nbsp;&nbsp;&nbsp; rax, rdx<BR />{$ENDIF CPU64}<BR />end; { GetCPUTimeStamp }</DIV> <DIV>&nbsp;</DIV> <DIV>--</DIV> <DIV>&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>How to use the timer to time in microseconds ? </DIV> <DIV>&nbsp;</DIV> <DIV>Like this:</DIV> <DIV>&nbsp;</DIV> <DIV>Call Timestart() first like this:</DIV> <DIV>&nbsp;</DIV> <DIV>HPT.Timestart;</DIV> <DIV>&nbsp;</DIV> <DIV>and after that you can write the Time in microseconds like this</DIV> <DIV>&nbsp;</DIV> <DIV>writeln('Time in microseconds: ',hpt.TimePeriod);</DIV> <DIV>&nbsp;</DIV> <DIV>&nbsp;</DIV> <DIV>Please look inside test1.pas inside parallelhashlist.zip i have given you </DIV> <DIV>an example on how to use timer.pas to time the throuput of your multithreaded </DIV> <DIV>program...</DIV> <DIV>&nbsp;</DIV> <DIV>You can download parallelhashlist from:<BR /><BR /><BR /><A href="http://pages.videotron.com/aminer/">http://pages.videotron.com/aminer/</A></DIV> <DIV>&nbsp;</DIV> <DIV><BR />Sincerely,</DIV> <DIV>Amine Moulay Ramdane,</DIV> <DIV>&nbsp;<BR /><BR /></DIV> Fri, 10 Aug 2012 17:22:20 GMT https://community.intel.com/t5/Intel-Moderncode-for-Parallel/About-timer-pas/m-p/769183#M104 aminer10 2012-08-10T17:22:20Z