Примеры использования rdtsc в языках высокого уровня: различия между версиями

м
<source> -> <syntaxhighlight> (phab:T237267)
м (→‎[[w:PureBasic|PureBasic]]: установка шаблона "по алфавиту" по консенсусу на форуме с помощью AWB)
м (<source> -> <syntaxhighlight> (phab:T237267))
 
== [[w:Microsoft Visual C++|Microsoft Visual C++]] ==
<sourcesyntaxhighlight lang="c">
#include <intrin.h>
#pragma intrinsic(__rdtsc)
return __rdtsc();
}
</syntaxhighlight>
</source>
 
== [[w:GNU Compiler Collection|GNU С / C++]] ==
<sourcesyntaxhighlight lang="c">
#include <stdint.h>
extern __inline__ uint64_t rdtsc() {
return x;
}
</syntaxhighlight>
</source>
 
== [[w:Pascal|Pascal]] / [[w:Delphi (язык программирования)|Delphi]] ==
<sourcesyntaxhighlight lang="delphi">
function RDTSC: comp;
var TimeStamp: record case byte of
Result := TimeStamp.Whole;
end;
</syntaxhighlight>
</source>
 
В более новых версиях Delphi можно реализовать это так:
<sourcesyntaxhighlight lang="delphi">
function RDTSC: UInt64; register;
asm
{$ENDIF}
end;
</syntaxhighlight>
</source>
 
== [[w:PureBasic|PureBasic]] ==
<sourcesyntaxhighlight lang="asm">
Procedure.q RDTSC()
!rdtsc
ProcedureReturn
EndProcedure
</syntaxhighlight>
</source>
 
{{Темы|Программирование}}
583

правки