On 11/01/2011 00:23, Martin wrote:
I did some more test., I will check in later...
Variant has also changed. Maybe intended, but no result can be optained...
*** gdb 7.2-50 (fpc trunk / Dwarf3) TTestWatches TTestWatches
TestWatches
<ptype ArgVariantInt>
&"ptype ArgVariantInt\n"
~"type = Variant = record \n"
~" <no data fields>\n"
~"end\n"
^done
(gdb)
<-data-evaluate-expression ArgVariantInt>
^done,value="{}"
(gdb)
*** it used to be:
*** gdb 7.0 (fpc 2.4.2 / Stabs) TTestWatches TTestWatches TestWatches
<ptype ArgVariantInt>
&"ptype ArgVariantInt\n"
~"type = VARIANT = record \n"
~" VTYPE : WORD;\n"
~" RES1 : WORD;\n"
~" RES2 : WORD;\n"
~" RES3 : WORD;\n"
~" VSMALLINT : SMALLINT;\n"
~" VINTEGER : LONGINT;\n"
~" VSINGLE : record <unknown>;\n"
~" VDOUBLE : DOUBLE;\n"
~" VDATE : TDATETIME;\n"
~" VCURRENCY : record <unknown>;\n"
~" VOLESTR : PWIDECHAR;\n"
~" VDISPATCH : POINTER;\n"
~" VERROR : HRESULT;\n"
~" VBOOLEAN : record <unknown>;\n"
~" VUNKNOWN : POINTER;\n"
~" VSHORTINT : SHORTINT;\n"
~" VBYTE : BYTE;\n"
~" VWORD : WORD;\n"
~" VLONGWORD : LONGWORD;\n"
~" VINT64 : INT64;\n"
~" VQWORD : QWORD;\n"
~" VWORD64 : QWORD;\n"
~" VSTRING : POINTER;\n"
~" VANY : POINTER;\n"
~" VARRAY : PVARARRAY;\n"
~" VPOINTER : POINTER;\n"
~" VRECORD : POINTER;\n"
~" PRECINFO : POINTER;\n"
~" VLONGS : record <unknown>;\n"
~" VWORDS : record <unknown>;\n"
~" VBYTES : record <unknown>;\n"
~"end\n"
^done
(gdb)
<-data-evaluate-expression ArgVariantInt>
^done,value="{VTYPE = 16, RES1 = 0, RES2 = 0, RES3 = 0, VSMALLINT = 5,
VINTEGER = 5, VSINGLE = <incomplete type>, VDOUBLE =
2.4703282292062327e-323, VDATE = 2.4703282292062327e-323, VCURRENCY =
<incomplete type>, VOLESTR = 0x5 <Address 0x5 out of bounds>, VDISPATCH
= 0x5, VERROR = 5, VBOOLEAN = <incomplete type>, VUNKNOWN = 0x5,
VSHORTINT = 5, VBYTE = 5, VWORD = 5, VLONGWORD = 5, VINT64 = 5, VQWORD =
5, VWORD64 = 5, VSTRING = 0x5, VANY = 0x5, VARRAY = 0x5, VPOINTER = 0x5,
VRECORD = 0x5, PRECINFO = 0x0, VLONGS = <incomplete type>, VWORDS =
<incomplete type>, VBYTES = <incomplete type>}"
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
