paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 06:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new test for the recently fixed intel assembler reader stuff

Browse Source 
git-svn-id: trunk@1108 -
This commit is contained in:
florian 2005-09-18 09:07:46 +00:00
parent fa1575aeab
commit 40dd9b9404
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4972,6 +4972,7 @@ tests/tbs/tb0491.pp svneol=native#text/plain
tests/tbs/tb0492.pp svneol=native#text/plain tests/tbs/tb0492.pp svneol=native#text/plain
tests/tbs/tb0493.pp svneol=native#text/plain tests/tbs/tb0493.pp svneol=native#text/plain
tests/tbs/tb0494.pp -text tests/tbs/tb0494.pp -text
tests/tbs/tb0495.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain tests/tbs/ub0069.pp svneol=native#text/plain
tests/tbs/ub0119.pp svneol=native#text/plain tests/tbs/ub0119.pp svneol=native#text/plain

30
tests/tbs/tb0495.pp Normal file
View File

@ -0,0 +1,30 @@
{ %cpu=i386 }
{$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.