mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 18:59:30 +02:00
61522d00a2
usage in case PIC generation is on (some by adding PIC-versions of
the assembler code, most by adding -Cg- to the options to be used).
Note: the Intel assembler reader does not yet support the Delphi
PIC construct, so tests with that (like test/tasmread and test/tcg1)
do not work with -Cg on non-Darwin (Darwin needs a different PIC
construct)
git-svn-id: trunk@9370 -
32 lines
467 B
ObjectPascal
32 lines
467 B
ObjectPascal
{ %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.
|