тип VARIANT

Доброго времени суток!

Есть у кого-нибудь определение типа VARIANT для FASM? Ну или хотя бы для MASM.

 

Код (Text):

1. struct DECIMAL
2.   wReserved dw ?
3.   union
4.     struct
5.       scale db ?
6.       sign db ?
7.     ends
8.     signscale dw ?
9.   ends
10.   Hi32 dd ?
11.   union
12.     struct
13.       Lo32 dd ?
14.       Mid32 dd ?
15.     ends
16.     Lo64 dq ?
17.   ends
18. ends
19.  
20. struct VARIANT
21.   union
22.     struct
23.       vt dw ?
24.       resv rw 3
25.       union
26.         llVal dq ?
27.         lVal  dd ?
28.         iVal  dw ?
29.         bVal  db ?
30.         ; остальные типы не нужны, ассемблер все равно
31.       ends
32.     ends
33.     decVal DECIMAL
34.   ends
35. ends

Upd: добавил decVal.

 

спасибо

 

В труЪ Delphi Variant были ещё типы с плавающей точкой, 10 байт под самый длинный из них.