* new test for the recently fixed intel assembler reader stuff

git-svn-id: trunk@1108 -

.gitattributes

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

tests/tbs/tb0495.pp

@@ -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.