mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:03:48 +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
589 B
ObjectPascal
32 lines
589 B
ObjectPascal
{ %cpu=i386 }
|
|
{ %OPT=-Cg- }
|
|
{$asmmode intel}
|
|
var
|
|
Digits : array[0..63] of byte;
|
|
type
|
|
PBcd = ^TBcd;
|
|
TBcd = packed record
|
|
Precision: Byte; { 1..64 }
|
|
SignSpecialPlaces: Byte; { Sign:1, Special:1, Places:6 }
|
|
Fraction: packed array [0..31] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }
|
|
end;
|
|
|
|
var
|
|
c : currency;
|
|
bcd : TBcd;
|
|
|
|
begin
|
|
c:=1;
|
|
asm
|
|
lea esi,c
|
|
fild [esi].currency
|
|
|
|
lea esi,bcd
|
|
mov [esi].TBcd.SignSpecialPlaces,dl
|
|
|
|
mov eax,3
|
|
mov digits.byte[eax],0
|
|
mov digits.word[eax],0
|
|
end
|
|
end.
|