FreePascal.ru

Спасибо. Вы мне очень помогли.

Всем привет. Есть такой код:


function isVME: boolean;
var
vm: LongWord;
begin
asm
.L1:
rdtsc
movl %eax, %ebx
rdtsc
subl %ebx, %eax
pushl %eax
cmpl $1, %eax
jz .L1
movl %eax, vm
end;

if vm < 512 then isVME &#58;= false else isVME &#58;= true
end;

var
vm&#58 ...