mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:28:16 +02:00
15 lines
163 B
ObjectPascal
15 lines
163 B
ObjectPascal
{ %OPT=-Sew }
|
|
{ %CPU=x86_64 }
|
|
{ %NORUN }
|
|
|
|
{$asmmode intel}
|
|
begin
|
|
asm
|
|
mov rax,cr0
|
|
mov rax,cr4
|
|
mov rax,tr3
|
|
mov rax,cr3
|
|
mov rax,dr0
|
|
end;
|
|
end.
|