mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
33 lines
491 B
ObjectPascal
33 lines
491 B
ObjectPascal
{ %skiptarget=android }
|
|
{ %opt=-O2r -Cg- }
|
|
{ %cpu=i386 }
|
|
{$mode delphi}
|
|
|
|
type
|
|
TBigInt=record
|
|
Digits : PInt64;
|
|
end;
|
|
PBigInt=^TBigInt;
|
|
var
|
|
a : PBigInt;
|
|
t : int64;
|
|
m : longint;
|
|
begin
|
|
new(a);
|
|
with a^ do
|
|
begin
|
|
new(Digits);
|
|
m:=10;
|
|
asm
|
|
mov eax, m
|
|
mul eax
|
|
mov t[0], eax
|
|
mov t[4], edx
|
|
end ['EAX','EDX'];
|
|
Digits^:=t;
|
|
writeln(Digits^);
|
|
if Digits^<>100 then
|
|
halt(1);
|
|
end;
|
|
end.
|