mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-01 15:40:22 +02:00
FpDebug: tests pointer math
git-svn-id: trunk@64401 -
This commit is contained in:
martin
parent
71e66e0c64
commit
20f6b975cf
@ -588,9 +588,12 @@ procedure TTestWatches.TestWatchesValue;
|
||||
|
||||
type
|
||||
TTestLoc = (tlAny, tlConst, tlParam, tlArrayWrap, tlPointer, tlPointerAny, tlClassConst, tlClassVar);
|
||||
TTestIgn = set of (
|
||||
tiPointerMath // pointer math / (ptr+n)^ / ptr[n]
|
||||
);
|
||||
|
||||
procedure AddWatches(t: TWatchExpectationList; AName: String; APrefix: String; AOffs: Integer; AChr1: Char;
|
||||
ALoc: TTestLoc = tlAny; APostFix: String = '');
|
||||
ALoc: TTestLoc = tlAny; APostFix: String = ''; AIgnFlags: TTestIgn = []);
|
||||
var
|
||||
p, e: String;
|
||||
n, StartIdx, i, StartIdxClassConst: Integer;
|
||||
@ -659,12 +662,12 @@ procedure TTestWatches.TestWatchesValue;
|
||||
t.Add(AName, p+'Char3'+e, weChar(' '));
|
||||
|
||||
// tlConst => strings are stored as shortstring
|
||||
t.Add(AName, p+'String1'+e, weShortStr(AChr1, 'ShortStr1')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String1e'+e, weShortStr('', 'ShortStr1')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String10'+e, weShortStr(AChr1+'bc1', 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String10e'+e, weShortStr('', 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String10x'+e, weShortStr(AChr1+'S'#0'B'#9'b'#10#13, 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String255'+e, weShortStr(AChr1+'bcd0123456789', 'ShortStr255'));
|
||||
t.Add(AName, p+'String1'+e, weShortStr(AChr1, 'ShortStr1')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]).NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'String1e'+e, weShortStr('', 'ShortStr1')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]).NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'String10'+e, weShortStr(AChr1+'bc1', 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]).NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'String10e'+e, weShortStr('', 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]).NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'String10x'+e, weShortStr(AChr1+'S'#0'B'#9'b'#10#13, 'ShortStr10')) .IgnTypeName([], ALoc in [tlConst, tlClassConst]).NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'String255'+e, weShortStr(AChr1+'bcd0123456789', 'ShortStr255')) .NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
|
||||
t.Add(AName, p+'Ansi1'+e, weAnsiStr(Succ(AChr1))) .IgnKindPtr(stDwarf2).IgnKind(stDwarf3Up)
|
||||
.IgnTypeName([], ALoc in [tlConst, tlClassConst]).IgnKind([], ALoc in [tlConst, tlClassConst]);
|
||||
@ -685,10 +688,10 @@ procedure TTestWatches.TestWatchesValue;
|
||||
|
||||
// char by index
|
||||
// TODO: no typename => calculated value ?
|
||||
t.Add(AName, p+'String10'+e+'[2]', weChar('b', '')).CharFromIndex;
|
||||
t.Add(AName, p+'String10'+e+'[2]', weChar('b', '')).CharFromIndex.NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'Ansi2'+e+'[2]', weChar('a', '')).CharFromIndex;
|
||||
t.Add(AName, p+'PChar2'+e+'[1]', weChar('a', '')).CharFromIndex.SkipIf(ALoc in [tlConst, tlClassConst]);
|
||||
t.Add(AName, p+'String10'+e+'[1]', weChar(AChr1, '')).CharFromIndex;
|
||||
t.Add(AName, p+'String10'+e+'[1]', weChar(AChr1, '')).CharFromIndex.NotImplemented(stDwarf3up, tiPointerMath in AIgnFlags);
|
||||
t.Add(AName, p+'Ansi2'+e+'[1]', weChar(AChr1, '')).CharFromIndex;
|
||||
t.Add(AName, p+'PChar2'+e+'[0]', weChar(AChr1, '')).CharFromIndex.SkipIf(ALoc in [tlConst, tlClassConst]);
|
||||
|
||||
@ -1187,6 +1190,7 @@ begin
|
||||
AddWatches(t, 'glob const', 'gc', 000, 'A', tlConst);
|
||||
AddWatches(t, 'glob var', 'gv', 001, 'B');
|
||||
AddWatches(t, 'glob var (@)^', '(@gv', 001, 'B', tlAny, ')^');
|
||||
AddWatches(t, 'glob var (@)[0]', '(@gv', 001, 'B', tlAny, ')[0]');
|
||||
// AddWatches(t, 'glob var @^', '@gv', 001, 'B', tlAny, '^');
|
||||
|
||||
AddWatches(t, 'glob MyClass1', 'MyClass1.mc', 002, 'C');
|
||||
@ -1240,6 +1244,17 @@ begin
|
||||
|
||||
AddWatches(t, 'glob var pointer', 'gvp_', 001, 'B', tlPointer, '^'); // pointer
|
||||
AddWatches(t, 'glob var named pointer', 'gvpt_', 001, 'B', tlPointer, '^'); // pointer
|
||||
(*
|
||||
ptr[0] is tested above: glob var (@)[0]', '(@gv', 001, 'B', tlAny, ')[0]'
|
||||
More pointer ops tested in Expression testcase
|
||||
// Using array index [1] or greater will fail some pchar tests, as the become pchar<>string
|
||||
// they need .CharFromIndex at least for Dwarf2...
|
||||
*)
|
||||
//AddWatches(t, 'glob var pointer 2 (@gva[1+0])', 'gvp2_', 006, 'L', tlPointer, '[0]'); // pointer
|
||||
//AddWatches(t, 'glob var pointer 2 (@gva[1+2])', 'gvp2_', 009, 'O', tlPointer, '[2]'); // pointer // fails gvp2_Char[2] / gvp2_WideChar[2] and similar => needs to
|
||||
AddWatches(t, 'glob var pointer 2 (@gva[1-1])', 'gvp2_', 005, 'K', tlPointer, '[-1]', [tiPointerMath]); // pointer
|
||||
AddWatches(t, 'glob var pointer 2 (@gva[1]+2)^','(gvp2_', 009, 'O', tlPointer, '+2)^', [tiPointerMath]); // pointer
|
||||
//AddWatches(t, 'glob var pointer 2 (@gva[1]-1)^','(gvp2_', 005, 'K', tlPointer, '-1)^'); // pointer
|
||||
|
||||
// type names do not match....
|
||||
c := t.Count;
|
||||
@ -2306,6 +2321,10 @@ begin
|
||||
t.Add('Const-EQ: ', '17.8 < 17.5', weBool(False));
|
||||
t.Add('Const-EQ: ', '17.1 > 17.5', weBool(False));
|
||||
|
||||
t.Add('Const-EQ: ', '12 = ''abc''', weBool(False)).ExpectError();
|
||||
|
||||
t.Add('Pointer-Op: ', 'LongInt(Pointer(10)+4)', weInteger(14));
|
||||
|
||||
AddWatches(t, 'glob', 'gv', 001, 'B', '', tlAny, 'gv', 001, 'B', '', tlAny);
|
||||
AddWatches(t, 'glob', 'gc', 000, 'A', '', tlConst, 'gv', 001, 'B', '', tlAny);
|
||||
AddWatches(t, 'glob', 'gv', 001, 'B', '', tlAny, 'gc', 000, 'A', '', tlConst);
|
||||
|
||||
@ -361,6 +361,8 @@ var
|
||||
(* LOCATION: global var pointer <each type> *)
|
||||
// gvp_Byte: ^Byte;
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gvp_, "_OP_=: ^", (=;//, "_O2_=: ^", _EQ_=, _BLOCK_=TestVar, _BLOCK2_=TestPointer )
|
||||
// gvp2_Byte: ^Byte; // gvp2_Byte := @gvaByte[1];
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gvp2_, "_OP_=: ^", (=;//, "_O2_=: ^", _EQ_=, _BLOCK_=TestVar, _BLOCK2_=TestPointer )
|
||||
|
||||
(* LOCATION: global var TYPE alias // NO PRE-ASSIGNED VALUE *)
|
||||
// gvp_Byte: PxByte;
|
||||
@ -378,6 +380,8 @@ var
|
||||
(* LOCATION: global var untyped pointer // NO PRE-ASSIGNED VALUE *)
|
||||
// gv_ptr_Byte: pointer;
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptr_, "_OP_=:pointer;//", "_O2_=:pointer;//" )
|
||||
// gv_ptr2_Byte: pointer; //gv_ptr2_Byte := @gvaByte[1]
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptr2_, "_OP_=:pointer;//", "_O2_=:pointer;//" )
|
||||
// gv_aptr_Byte: array [0..2] of pointer;
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_aptr_, "_OP_=:array [0..2] of pointer;//", "_O2_=:array [0..2] of pointer;//" )
|
||||
|
||||
@ -550,12 +554,17 @@ begin
|
||||
|
||||
|
||||
(* INIT: global var ARRAY OF <each type> *)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,"pre__=SetLength(gva", "_OP_=,2);//", "_O2_=,2);//", _BLOCK_=TestSetLen)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,"pre__=SetLength(gva", "_OP_=,4);//", "_O2_=,4);//", _BLOCK_=TestSetLen)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gva, ADD=5, CHR1='K', _OP_=:=, _O2_={, _EQ_=}:=, _pre2_=gc, "{e}=[0]", _BLOCK_=TestAssign)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gva, ADD=6, CHR1='L', _OP_=:=, _O2_={, _EQ_=}:=, _pre2_=gc, "{e}=[1]", _BLOCK_=TestAssign)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gva, ADD=8, CHR1='N', _OP_=:=, _O2_={, _EQ_=}:=, _pre2_=gc, "{e}=[2]", _BLOCK_=TestAssign)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gva, ADD=9, CHR1='O', _OP_=:=, _O2_={, _EQ_=}:=, _pre2_=gc, "{e}=[3]", _BLOCK_=TestAssign)
|
||||
// gvp_a_Byte := @gvaByte;
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gvp_a_, "_OP_= {", "_O2_={ ", "//@@=} :=", _pre3_=@gva ) // }
|
||||
|
||||
// gv_ptr2_Byte := @gvaByte[1];
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptr2_, "_OP_= {", "_O2_={ ", "//@@=} :=", _pre3_=@gva ) //, {e3}=[1] }
|
||||
|
||||
|
||||
(* INIT: global var ARRAY [0..2] OF <each type> *)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gv_sa_, ADD=7, CHR1='O', _OP_=:=, _O2_={, _EQ_=}:=, _pre2_=gc, "{e}=[0]", _BLOCK_=TestAssign)
|
||||
@ -572,6 +581,7 @@ begin
|
||||
|
||||
(* INIT: global var pointer <each type> *)
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gvp_, _OP_={, _O2_={, _pre3_=@gv, "//@@=} :=", _BLOCK_=TestVar, _BLOCK2_=TestPointer) //}
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gvp2_, _OP_={, _O2_={, _pre3_=@gva, "//@@=} :=", {e3}=[1], _BLOCK_=TestVar, _BLOCK2_=TestPointer) //}
|
||||
|
||||
|
||||
BreakDummy:= 1; // TEST_BREAKPOINT=Prg
|
||||
|
||||
@ -3,129 +3,129 @@
|
||||
|
||||
// ADD max 15
|
||||
|
||||
pre__Byte{e} _OP_ Byte (1 + ADD); //@@ _pre3_Byte;
|
||||
pre__Word{e} _OP_ Word (100 + ADD); //@@ _pre3_Word;
|
||||
pre__Longword{e} _OP_ Longword (1000 + ADD); //@@ _pre3_Longword;
|
||||
pre__QWord{e} _OP_ QWord (10000 + ADD); //@@ _pre3_QWord;
|
||||
pre__Shortint{e} _OP_ Shortint (50 + ADD); //@@ _pre3_Shortint;
|
||||
pre__Smallint{e} _OP_ Smallint (500 + ADD); //@@ _pre3_Smallint;
|
||||
pre__Longint{e} _OP_ Longint (5000 + ADD); //@@ _pre3_Longint;
|
||||
pre__Int64{e} _OP_ Int64 (50000 + ADD); //@@ _pre3_Int64;
|
||||
pre__IntRange{e} _OP_ TIntRange (-50 + ADD); //@@ _pre3_IntRange;
|
||||
pre__CardinalRange{e} _OP_ TCardinalRange(50 + ADD); //@@ _pre3_CardinalRange;
|
||||
pre__Byte{e} _OP_ Byte (1 + ADD); //@@ _pre3_Byte{e3};
|
||||
pre__Word{e} _OP_ Word (100 + ADD); //@@ _pre3_Word{e3};
|
||||
pre__Longword{e} _OP_ Longword (1000 + ADD); //@@ _pre3_Longword{e3};
|
||||
pre__QWord{e} _OP_ QWord (10000 + ADD); //@@ _pre3_QWord{e3};
|
||||
pre__Shortint{e} _OP_ Shortint (50 + ADD); //@@ _pre3_Shortint{e3};
|
||||
pre__Smallint{e} _OP_ Smallint (500 + ADD); //@@ _pre3_Smallint{e3};
|
||||
pre__Longint{e} _OP_ Longint (5000 + ADD); //@@ _pre3_Longint{e3};
|
||||
pre__Int64{e} _OP_ Int64 (50000 + ADD); //@@ _pre3_Int64{e3};
|
||||
pre__IntRange{e} _OP_ TIntRange (-50 + ADD); //@@ _pre3_IntRange{e3};
|
||||
pre__CardinalRange{e} _OP_ TCardinalRange(50 + ADD); //@@ _pre3_CardinalRange{e3};
|
||||
|
||||
pre__Byte_2{e} _OP_ Byte (240 + ADD); //@@ _pre3_Byte_2;
|
||||
pre__Word_2{e} _OP_ Word (65501 + ADD); //@@ _pre3_Word_2;
|
||||
pre__Longword_2{e} _OP_ Longword (4123456789 + ADD); //@@ _pre3_Longword_2;
|
||||
pre__QWord_2{e} _OP_ QWord (15446744073709551610 + ADD); //@@ _pre3_QWord_2;
|
||||
pre__Shortint_2{e} _OP_ Shortint (112 + ADD); //@@ _pre3_Shortint_2;
|
||||
pre__Smallint_2{e} _OP_ Smallint (32012 + ADD); //@@ _pre3_Smallint_2;
|
||||
pre__Longint_2{e} _OP_ Longint (20123456 + ADD); //@@ _pre3_Longint_2;
|
||||
pre__Int64_2{e} _OP_ Int64 (9123372036854775801 + ADD); //@@ _pre3_Int64_2;
|
||||
pre__Byte_2{e} _OP_ Byte (240 + ADD); //@@ _pre3_Byte_2{e3};
|
||||
pre__Word_2{e} _OP_ Word (65501 + ADD); //@@ _pre3_Word_2{e3};
|
||||
pre__Longword_2{e} _OP_ Longword (4123456789 + ADD); //@@ _pre3_Longword_2{e3};
|
||||
pre__QWord_2{e} _OP_ QWord (15446744073709551610 + ADD); //@@ _pre3_QWord_2{e3};
|
||||
pre__Shortint_2{e} _OP_ Shortint (112 + ADD); //@@ _pre3_Shortint_2{e3};
|
||||
pre__Smallint_2{e} _OP_ Smallint (32012 + ADD); //@@ _pre3_Smallint_2{e3};
|
||||
pre__Longint_2{e} _OP_ Longint (20123456 + ADD); //@@ _pre3_Longint_2{e3};
|
||||
pre__Int64_2{e} _OP_ Int64 (9123372036854775801 + ADD); //@@ _pre3_Int64_2{e3};
|
||||
|
||||
pre__Shortint_3{e} _OP_ Shortint (-112 + ADD); //@@ _pre3_Shortint_3;
|
||||
pre__Smallint_3{e} _OP_ Smallint (-32012 + ADD); //@@ _pre3_Smallint_3;
|
||||
pre__Longint_3{e} _OP_ Longint (-20123456 + ADD); //@@ _pre3_Longint_3;
|
||||
pre__Int64_3{e} _OP_ Int64 (-9123372036854775801 + ADD); //@@ _pre3_Int64_3;
|
||||
pre__Shortint_3{e} _OP_ Shortint (-112 + ADD); //@@ _pre3_Shortint_3{e3};
|
||||
pre__Smallint_3{e} _OP_ Smallint (-32012 + ADD); //@@ _pre3_Smallint_3{e3};
|
||||
pre__Longint_3{e} _OP_ Longint (-20123456 + ADD); //@@ _pre3_Longint_3{e3};
|
||||
pre__Int64_3{e} _OP_ Int64 (-9123372036854775801 + ADD); //@@ _pre3_Int64_3{e3};
|
||||
|
||||
pre__Bool1{e} _OP_ Boolean (False); //@@ _pre3_Bool1;
|
||||
pre__Bool2{e} _OP_ Boolean (True); //@@ _pre3_Bool2;
|
||||
pre__Bool1{e} _OP_ Boolean (False); //@@ _pre3_Bool1{e3};
|
||||
pre__Bool2{e} _OP_ Boolean (True); //@@ _pre3_Bool2{e3};
|
||||
|
||||
pre__Real{e} _OP_ Real (50.25 + ADD); //@@ _pre3_Real;
|
||||
pre__Single{e} _OP_ Single (100.125 + ADD); //@@ _pre3_Single;
|
||||
pre__Double{e} _OP_ Double (1000.125 + ADD); //@@ _pre3_Double;
|
||||
pre__Extended{e} _OP_ Extended (10000.175 + ADD); //@@ _pre3_Extended;
|
||||
//pre__Comp{e} _OP_ Comp (50.125 + ADD); //@@ //_pre3_Comp;
|
||||
pre__Real{e} _OP_ Real (50.25 + ADD); //@@ _pre3_Real{e3};
|
||||
pre__Single{e} _OP_ Single (100.125 + ADD); //@@ _pre3_Single{e3};
|
||||
pre__Double{e} _OP_ Double (1000.125 + ADD); //@@ _pre3_Double{e3};
|
||||
pre__Extended{e} _OP_ Extended (10000.175 + ADD); //@@ _pre3_Extended{e3};
|
||||
//pre__Comp{e} _OP_ Comp (50.125 + ADD); //@@ //_pre3_Comp{e3};
|
||||
{$IFDEF TestAssign}
|
||||
{$IFDEF TestType}
|
||||
// pre__Currency{e} _OP_ TxCurrency (125.123 + ADD); //@@ _pre3_Currency;
|
||||
// pre__Currency{e} _OP_ TxCurrency (125.123 + ADD); //@@ _pre3_Currency{e3};
|
||||
{$ELSE}
|
||||
pre__Currency{e} _OP_ Currency (125.123 + ADD); //@@ _pre3_Currency;
|
||||
pre__Currency{e} _OP_ Currency (125.123 + ADD); //@@ _pre3_Currency{e3};
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
pre__Currency{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency;
|
||||
pre__Currency{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency{e3};
|
||||
{$ENDIF}
|
||||
|
||||
pre__Real_2{e} _OP_ Real (-50.25 + ADD); //@@ _pre3_Real_2;
|
||||
pre__Single_2{e} _OP_ Single (-100.125 + ADD); //@@ _pre3_Single_2;
|
||||
pre__Double_2{e} _OP_ Double (-1000.125 + ADD); //@@ _pre3_Double_2;
|
||||
pre__Extended_2{e} _OP_ Extended (-10000.175 + ADD); //@@ _pre3_Extended_2;
|
||||
//pre__Comp_2{e} _OP_ Comp (-150.125 + ADD); //@@ //_pre3_Comp_2;
|
||||
pre__Real_2{e} _OP_ Real (-50.25 + ADD); //@@ _pre3_Real_2{e3};
|
||||
pre__Single_2{e} _OP_ Single (-100.125 + ADD); //@@ _pre3_Single_2{e3};
|
||||
pre__Double_2{e} _OP_ Double (-1000.125 + ADD); //@@ _pre3_Double_2{e3};
|
||||
pre__Extended_2{e} _OP_ Extended (-10000.175 + ADD); //@@ _pre3_Extended_2{e3};
|
||||
//pre__Comp_2{e} _OP_ Comp (-150.125 + ADD); //@@ //_pre3_Comp_2{e3};
|
||||
{$IFDEF TestAssign}
|
||||
{$IFDEF TestType}
|
||||
// pre__Currency_2{e} _OP_ TxCurrency_2 (-125.123 + ADD); //@@ _pre3_Currency_2;
|
||||
// pre__Currency_2{e} _OP_ TxCurrency_2 (-125.123 + ADD); //@@ _pre3_Currency_2{e3};
|
||||
{$ELSE}
|
||||
pre__Currency_2{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency_2;
|
||||
pre__Currency_2{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency_2{e3};
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
pre__Currency_2{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency_2;
|
||||
pre__Currency_2{e} _OP_ Currency (-125.123 + ADD); //@@ _pre3_Currency_2{e3};
|
||||
{$ENDIF}
|
||||
|
||||
pre__Ptr1{e} _OP_ Pointer (0 ); //@@ _pre3_Ptr1;
|
||||
pre__Ptr2{e} _OP_ Pointer (1000 + ADD); //@@ _pre3_Ptr2;
|
||||
pre__Ptr1{e} _OP_ Pointer (0 ); //@@ _pre3_Ptr1{e3};
|
||||
pre__Ptr2{e} _OP_ Pointer (1000 + ADD); //@@ _pre3_Ptr2{e3};
|
||||
|
||||
// **** Char and String types ****
|
||||
|
||||
pre__Char{e} _OP_ char (CHR1 ); //@@ _pre3_Char;
|
||||
pre__Char2{e} _OP_ char (#0 ); //@@ _pre3_Char2;
|
||||
pre__Char3{e} _OP_ char (' ' ); //@@ _pre3_Char3;
|
||||
pre__Char{e} _OP_ char (CHR1 ); //@@ _pre3_Char{e3};
|
||||
pre__Char2{e} _OP_ char (#0 ); //@@ _pre3_Char2{e3};
|
||||
pre__Char3{e} _OP_ char (' ' ); //@@ _pre3_Char3{e3};
|
||||
|
||||
pre__String1{e} _OP_ ShortStr1 (CHR1+'' ); //@@ _pre3_String1;
|
||||
pre__String1e{e} _OP_ ShortStr1 ( '' ); //@@ _pre3_String1e;
|
||||
pre__String10{e} _OP_ ShortStr10 (CHR1+'bc1' ); //@@ _pre3_String10;
|
||||
pre__String10e{e} _OP_ ShortStr10 ( '' ); //@@ _pre3_String10e;
|
||||
pre__String10x{e} _OP_ ShortStr10 (CHR1+'S'#0'B'#9'b'#10#13); //@@ _pre3_String10x;
|
||||
pre__String255{e} _OP_ ShortStr255 (CHR1+'bcd0123456789' ); //@@ _pre3_String255;
|
||||
pre__Ansi1{e} _OP_ AnsiString (succ(CHR1) ); //@@ _pre3_Ansi1;
|
||||
pre__Ansi2{e} _OP_ AnsiString (CHR1+'abcd0123' ); //@@ _pre3_Ansi2;
|
||||
pre__Ansi3{e} _OP_ AnsiString ( '' ); //@@ _pre3_Ansi3;
|
||||
pre__Ansi4{e} _OP_ TStrA (CHR1+'A'#0'B'#9'b'#10#13); //@@ _pre3_Ansi4;
|
||||
pre__Ansi5{e} _OP_ AnsiString (CHR1+'bcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_Ansi5;
|
||||
pre__String1{e} _OP_ ShortStr1 (CHR1+'' ); //@@ _pre3_String1{e3};
|
||||
pre__String1e{e} _OP_ ShortStr1 ( '' ); //@@ _pre3_String1e{e3};
|
||||
pre__String10{e} _OP_ ShortStr10 (CHR1+'bc1' ); //@@ _pre3_String10{e3};
|
||||
pre__String10e{e} _OP_ ShortStr10 ( '' ); //@@ _pre3_String10e{e3};
|
||||
pre__String10x{e} _OP_ ShortStr10 (CHR1+'S'#0'B'#9'b'#10#13); //@@ _pre3_String10x{e3};
|
||||
pre__String255{e} _OP_ ShortStr255 (CHR1+'bcd0123456789' ); //@@ _pre3_String255{e3};
|
||||
pre__Ansi1{e} _OP_ AnsiString (succ(CHR1) ); //@@ _pre3_Ansi1{e3};
|
||||
pre__Ansi2{e} _OP_ AnsiString (CHR1+'abcd0123' ); //@@ _pre3_Ansi2{e3};
|
||||
pre__Ansi3{e} _OP_ AnsiString ( '' ); //@@ _pre3_Ansi3{e3};
|
||||
pre__Ansi4{e} _OP_ TStrA (CHR1+'A'#0'B'#9'b'#10#13); //@@ _pre3_Ansi4{e3};
|
||||
pre__Ansi5{e} _OP_ AnsiString (CHR1+'bcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_Ansi5{e3};
|
||||
|
||||
pre__Ansi5_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_Ansi5_Int;
|
||||
pre__Ansi5_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_Ansi5_Int{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__Ansi5_Int{e} _OP_ PtrUInt(pre__Ansi5{e}); //@@ //}}
|
||||
{$ENDIF}
|
||||
|
||||
pre__PChar{e} _OP_ PChar ( nil ); //@@ _pre3_PChar;
|
||||
pre__PChar2{e} _OP_ TPChr ( nil ); //@@ _pre3_PChar2;
|
||||
pre__PChar{e} _OP_ PChar ( nil ); //@@ _pre3_PChar{e3};
|
||||
pre__PChar2{e} _OP_ TPChr ( nil ); //@@ _pre3_PChar2{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__PChar2{e} := @pre__Ansi2{e}[1]; //@@ _pre3_PChar2; // }
|
||||
pre__PChar2{e} := @pre__Ansi2{e}[1]; //@@ _pre3_PChar2{e3}; // }
|
||||
{$ENDIF}
|
||||
|
||||
pre__WideChar{e} _OP_ char (CHR1 ); //@@ _pre3_WideChar;
|
||||
pre__WideChar2{e} _OP_ char (#0 ); //@@ _pre3_WideChar2;
|
||||
pre__WideChar3{e} _OP_ char (' ' ); //@@ _pre3_WideChar3;
|
||||
pre__WideChar{e} _OP_ char (CHR1 ); //@@ _pre3_WideChar{e3};
|
||||
pre__WideChar2{e} _OP_ char (#0 ); //@@ _pre3_WideChar2{e3};
|
||||
pre__WideChar3{e} _OP_ char (' ' ); //@@ _pre3_WideChar3{e3};
|
||||
|
||||
pre__WideString1{e} _OP_ WideString (succ(CHR1) ); //@@ _pre3_WideString1;
|
||||
pre__WideString2{e} _OP_ WideString (CHR1+'abcX0123' ); //@@ _pre3_WideString2;
|
||||
pre__WideString3{e} _OP_ WideString ( '' ); //@@ _pre3_WideString3;
|
||||
pre__WideString4{e} _OP_ TWStrA (CHR1+'A'#0'X'#9'b'#10#13); //@@ _pre3_WideString4;
|
||||
pre__WideString5{e} _OP_ TWStrTA (CHR1+'XcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_WideString5;
|
||||
pre__WideString1{e} _OP_ WideString (succ(CHR1) ); //@@ _pre3_WideString1{e3};
|
||||
pre__WideString2{e} _OP_ WideString (CHR1+'abcX0123' ); //@@ _pre3_WideString2{e3};
|
||||
pre__WideString3{e} _OP_ WideString ( '' ); //@@ _pre3_WideString3{e3};
|
||||
pre__WideString4{e} _OP_ TWStrA (CHR1+'A'#0'X'#9'b'#10#13); //@@ _pre3_WideString4{e3};
|
||||
pre__WideString5{e} _OP_ TWStrTA (CHR1+'XcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_WideString5{e3};
|
||||
|
||||
pre__PWideChar{e} _OP_ PWideChar ( nil ); //@@ _pre3_PWideChar;
|
||||
pre__PWideChar2{e} _OP_ TPWChr ( nil ); //@@ _pre3_PWideChar2;
|
||||
pre__PWideChar{e} _OP_ PWideChar ( nil ); //@@ _pre3_PWideChar{e3};
|
||||
pre__PWideChar2{e} _OP_ TPWChr ( nil ); //@@ _pre3_PWideChar2{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__PWideChar2{e} := @pre__WideString2{e}[1]; //@@ _pre3_PWideChar2; // }
|
||||
pre__PWideChar2{e} := @pre__WideString2{e}[1]; //@@ _pre3_PWideChar2{e3}; // }
|
||||
{$ENDIF}
|
||||
|
||||
pre__UnicodeString1{e} _OP_ UnicodeString (succ(CHR1) ); //@@ _pre3_UnicodeString1;
|
||||
pre__UnicodeString2{e} _OP_ UnicodeString (CHR1+'aBcX0123' ); //@@ _pre3_UnicodeString2;
|
||||
pre__UnicodeString3{e} _OP_ UnicodeString ( '' ); //@@ _pre3_UnicodeString3;
|
||||
pre__UnicodeString4{e} _OP_ TUStrA (CHR1+'B'#0'X'#9'b'#10#13); //@@ _pre3_UnicodeString4;
|
||||
pre__UnicodeString5{e} _OP_ TUStrTA (CHR1+'YcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_UnicodeString5;
|
||||
pre__UnicodeString1{e} _OP_ UnicodeString (succ(CHR1) ); //@@ _pre3_UnicodeString1{e3};
|
||||
pre__UnicodeString2{e} _OP_ UnicodeString (CHR1+'aBcX0123' ); //@@ _pre3_UnicodeString2{e3};
|
||||
pre__UnicodeString3{e} _OP_ UnicodeString ( '' ); //@@ _pre3_UnicodeString3{e3};
|
||||
pre__UnicodeString4{e} _OP_ TUStrA (CHR1+'B'#0'X'#9'b'#10#13); //@@ _pre3_UnicodeString4{e3};
|
||||
pre__UnicodeString5{e} _OP_ TUStrTA (CHR1+'YcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghijAbcdefghij'); //@@ _pre3_UnicodeString5{e3};
|
||||
|
||||
// wide string char...
|
||||
|
||||
// types that may get confused with strings
|
||||
|
||||
{$IFnDEF TestAssign}
|
||||
pre__ShortRec{e} _O2_ TShortRec _EQ_ (length: 5; st: (CHR1, 'b',CHR1, 'b','c')); //@@ _pre3_ShortRec;
|
||||
pre__ShortRec{e} _O2_ TShortRec _EQ_ (length: 5; st: (CHR1, 'b',CHR1, 'b','c')); //@@ _pre3_ShortRec{e3};
|
||||
{$ELSE}
|
||||
{$IFDEF TestType} // incomplete values
|
||||
pre__ShortRec{e} := pre__ShortRec; pre__ShortRec{e}.st[1] := CHR1; pre__ShortRec{e}.st[3] := CHR1; //@@ _pre3_ShortRec; // }}
|
||||
pre__ShortRec{e} := pre__ShortRec; pre__ShortRec{e}.st[1] := CHR1; pre__ShortRec{e}.st[3] := CHR1; //@@ _pre3_ShortRec{e3}; // }}
|
||||
{$ELSE}
|
||||
pre__ShortRec{e} := _pre2_ShortRec; pre__ShortRec{e}.st[1] := CHR1; pre__ShortRec{e}.st[3] := CHR1; //@@ _pre3_ShortRec; // }}
|
||||
pre__ShortRec{e} := _pre2_ShortRec; pre__ShortRec{e}.st[1] := CHR1; pre__ShortRec{e}.st[3] := CHR1; //@@ _pre3_ShortRec{e3}; // }}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
@ -133,63 +133,63 @@
|
||||
// **** Dyn ARRAY ****
|
||||
|
||||
{$IFnDEF TestPointer}
|
||||
pre__CharDynArray{e} _O2_ array of char _EQ_ (nil); //@@ _pre3_CharDynArray; // open array if used as function arg;
|
||||
pre__CharDynArray2{e} _O2_ array of char _EQ_ (nil); //@@ _pre3_CharDynArray2; // len = 3 // open array if used as function arg;
|
||||
pre__CharDynArray{e} _O2_ array of char _EQ_ (nil); //@@ _pre3_CharDynArray{e3}; // open array if used as function arg;
|
||||
pre__CharDynArray2{e} _O2_ array of char _EQ_ (nil); //@@ _pre3_CharDynArray2{e3}; // len = 3 // open array if used as function arg;
|
||||
{$ENDIF} // TestPointer
|
||||
pre__CharDynArray3{e} _O2_ TCharDynArray _EQ_ (nil); //@@ _pre3_CharDynArray3;
|
||||
pre__CharDynArray4{e} _O2_ TCharDynArray _EQ_ (nil); //@@ _pre3_CharDynArray4; // len = 3;
|
||||
pre__CharDynArray3{e} _O2_ TCharDynArray _EQ_ (nil); //@@ _pre3_CharDynArray3{e3};
|
||||
pre__CharDynArray4{e} _O2_ TCharDynArray _EQ_ (nil); //@@ _pre3_CharDynArray4{e3}; // len = 3;
|
||||
|
||||
{$IFnDEF TestPointer}
|
||||
pre__WCharDynArray{e} _O2_ array of widechar _EQ_ (nil); //@@ _pre3_WCharDynArray;
|
||||
pre__WCharDynArray2{e} _O2_ array of widechar _EQ_ (nil); //@@ _pre3_WCharDynArray2; // len = 3;
|
||||
pre__WCharDynArray{e} _O2_ array of widechar _EQ_ (nil); //@@ _pre3_WCharDynArray{e3};
|
||||
pre__WCharDynArray2{e} _O2_ array of widechar _EQ_ (nil); //@@ _pre3_WCharDynArray2{e3}; // len = 3;
|
||||
{$ENDIF} // TestPointer
|
||||
pre__WCharDynArray3{e} _O2_ TWCharDynArray _EQ_ (nil); //@@ _pre3_WCharDynArray3;
|
||||
pre__WCharDynArray4{e} _O2_ TWCharDynArray _EQ_ (nil); //@@ _pre3_WCharDynArray4; // len = 3;
|
||||
pre__WCharDynArray3{e} _O2_ TWCharDynArray _EQ_ (nil); //@@ _pre3_WCharDynArray3{e3};
|
||||
pre__WCharDynArray4{e} _O2_ TWCharDynArray _EQ_ (nil); //@@ _pre3_WCharDynArray4{e3}; // len = 3;
|
||||
|
||||
{$IFnDEF TestPointer}
|
||||
pre__IntDynArray{e} _O2_ array of Integer _EQ_ (nil); //@@ _pre3_IntDynArray; // open array if used as function arg;
|
||||
pre__IntDynArray2{e} _O2_ array of Integer _EQ_ (nil); //@@ _pre3_IntDynArray2; // len = 3 // open array if used as function arg;
|
||||
pre__IntDynArray{e} _O2_ array of Integer _EQ_ (nil); //@@ _pre3_IntDynArray{e3}; // open array if used as function arg;
|
||||
pre__IntDynArray2{e} _O2_ array of Integer _EQ_ (nil); //@@ _pre3_IntDynArray2{e3}; // len = 3 // open array if used as function arg;
|
||||
{$ENDIF} // TestPointer
|
||||
pre__IntDynArray3{e} _O2_ TIntDynArray _EQ_ (nil); //@@ _pre3_IntDynArray3;
|
||||
pre__IntDynArray4{e} _O2_ TIntDynArray _EQ_ (nil); //@@ _pre3_IntDynArray4; // len = 3;
|
||||
pre__IntDynArray3{e} _O2_ TIntDynArray _EQ_ (nil); //@@ _pre3_IntDynArray3{e3};
|
||||
pre__IntDynArray4{e} _O2_ TIntDynArray _EQ_ (nil); //@@ _pre3_IntDynArray4{e3}; // len = 3;
|
||||
|
||||
pre__IntDynArray5{e} _OP_ TIntDynArray ( nil ); //@@ _pre3_IntDynArray5; // REAL CONST = nil
|
||||
pre__IntDynArray5{e} _OP_ TIntDynArray ( nil ); //@@ _pre3_IntDynArray5{e3}; // REAL CONST = nil
|
||||
|
||||
pre__IntDynArray4_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_IntDynArray4_Int;
|
||||
pre__IntDynArray4_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_IntDynArray4_Int{e3};
|
||||
|
||||
{$IFnDEF TestPointer}
|
||||
pre__AnsiDynArray{e} _O2_ array of AnsiString _EQ_ (nil); //@@ _pre3_AnsiDynArray; // open array if used as function arg;
|
||||
pre__AnsiDynArray2{e} _O2_ array of AnsiString _EQ_ (nil); //@@ _pre3_AnsiDynArray2; // len = 3 // open array if used as function arg;
|
||||
pre__AnsiDynArray{e} _O2_ array of AnsiString _EQ_ (nil); //@@ _pre3_AnsiDynArray{e3}; // open array if used as function arg;
|
||||
pre__AnsiDynArray2{e} _O2_ array of AnsiString _EQ_ (nil); //@@ _pre3_AnsiDynArray2{e3}; // len = 3 // open array if used as function arg;
|
||||
{$ENDIF} // TestPointer
|
||||
pre__AnsiDynArray3{e} _O2_ TAnsiDynArray _EQ_ (nil); //@@ _pre3_AnsiDynArray3;
|
||||
pre__AnsiDynArray4{e} _O2_ TAnsiDynArray _EQ_ (nil); //@@ _pre3_AnsiDynArray4; // len = 3;
|
||||
pre__AnsiDynArray3{e} _O2_ TAnsiDynArray _EQ_ (nil); //@@ _pre3_AnsiDynArray3{e3};
|
||||
pre__AnsiDynArray4{e} _O2_ TAnsiDynArray _EQ_ (nil); //@@ _pre3_AnsiDynArray4{e3}; // len = 3;
|
||||
|
||||
{$IFnDEF TestPointer}
|
||||
pre__ShortStrDynArray{e} _O2_ array of ShortStr10 _EQ_ (nil); //@@ _pre3_ShortStrDynArray; // open array if used as function arg;
|
||||
pre__ShortStrDynArray2{e} _O2_ array of ShortStr10 _EQ_ (nil); //@@ _pre3_ShortStrDynArray2; // len = 3 // open array if used as function arg;
|
||||
pre__ShortStrDynArray{e} _O2_ array of ShortStr10 _EQ_ (nil); //@@ _pre3_ShortStrDynArray{e3}; // open array if used as function arg;
|
||||
pre__ShortStrDynArray2{e} _O2_ array of ShortStr10 _EQ_ (nil); //@@ _pre3_ShortStrDynArray2{e3}; // len = 3 // open array if used as function arg;
|
||||
{$ENDIF} // TestPointer
|
||||
pre__ShortStrDynArray3{e} _O2_ TShortStrDynArray _EQ_ (nil); //@@ _pre3_ShortStrDynArray3;
|
||||
pre__ShortStrDynArray4{e} _O2_ TShortStrDynArray _EQ_ (nil); //@@ _pre3_ShortStrDynArray4; // len = 3;
|
||||
pre__ShortStrDynArray3{e} _O2_ TShortStrDynArray _EQ_ (nil); //@@ _pre3_ShortStrDynArray3{e3};
|
||||
pre__ShortStrDynArray4{e} _O2_ TShortStrDynArray _EQ_ (nil); //@@ _pre3_ShortStrDynArray4{e3}; // len = 3;
|
||||
|
||||
pre__DynDynArrayInt{e} _O2_ TDynDynArrayInt _EQ_ (nil); //@@ _pre3_DynDynArrayInt;
|
||||
pre__DynDynArrayInt2{e} _O2_ TDynDynArrayInt _EQ_ (nil); //@@ _pre3_DynDynArrayInt2;
|
||||
pre__DynDynArrayInt{e} _O2_ TDynDynArrayInt _EQ_ (nil); //@@ _pre3_DynDynArrayInt{e3};
|
||||
pre__DynDynArrayInt2{e} _O2_ TDynDynArrayInt _EQ_ (nil); //@@ _pre3_DynDynArrayInt2{e3};
|
||||
|
||||
pre__FiveDynArray{e} _O2_ TFiveDynArray _EQ_ (nil); //@@ _pre3_FiveDynArray;
|
||||
pre__FiveDynArrayPack{e} _O2_ TFiveDynArrayPack _EQ_ (nil); //@@ _pre3_FiveDynArrayPack;
|
||||
pre__FivePackDynArray{e} _O2_ TFivePackDynArray _EQ_ (nil); //@@ _pre3_FivePackDynArray;
|
||||
pre__FivePackDynArrayPack{e} _O2_ TFivePackDynArrayPack _EQ_ (nil); //@@ _pre3_FivePackDynArrayPack;
|
||||
pre__RecFiveDynArray{e} _O2_ TRecFiveDynArray _EQ_ (nil); //@@ _pre3_RecFiveDynArray;
|
||||
pre__RecFiveDynPackArray{e} _O2_ TRecFiveDynPackArray _EQ_ (nil); //@@ _pre3_RecFiveDynPackArray;
|
||||
pre__RecFivePackDynArray{e} _O2_ TRecFivePackDynArray _EQ_ (nil); //@@ _pre3_RecFivePackDynArray;
|
||||
pre__RecFivePackDynPackArray{e} _O2_ TRecFivePackDynPackArray _EQ_ (nil); //@@ _pre3_RecFivePackDynPackArray;
|
||||
pre__FiveDynArray{e} _O2_ TFiveDynArray _EQ_ (nil); //@@ _pre3_FiveDynArray{e3};
|
||||
pre__FiveDynArrayPack{e} _O2_ TFiveDynArrayPack _EQ_ (nil); //@@ _pre3_FiveDynArrayPack{e3};
|
||||
pre__FivePackDynArray{e} _O2_ TFivePackDynArray _EQ_ (nil); //@@ _pre3_FivePackDynArray{e3};
|
||||
pre__FivePackDynArrayPack{e} _O2_ TFivePackDynArrayPack _EQ_ (nil); //@@ _pre3_FivePackDynArrayPack{e3};
|
||||
pre__RecFiveDynArray{e} _O2_ TRecFiveDynArray _EQ_ (nil); //@@ _pre3_RecFiveDynArray{e3};
|
||||
pre__RecFiveDynPackArray{e} _O2_ TRecFiveDynPackArray _EQ_ (nil); //@@ _pre3_RecFiveDynPackArray{e3};
|
||||
pre__RecFivePackDynArray{e} _O2_ TRecFivePackDynArray _EQ_ (nil); //@@ _pre3_RecFivePackDynArray{e3};
|
||||
pre__RecFivePackDynPackArray{e} _O2_ TRecFivePackDynPackArray _EQ_ (nil); //@@ _pre3_RecFivePackDynPackArray{e3};
|
||||
{$IFnDEF TestAssignGC}
|
||||
{$IFnDEF TestParam}
|
||||
{$IFnDEF TestArg}
|
||||
{$IFnDEF TestPointer}
|
||||
pre__FiveDynArray2{e} _O2_ array of record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FiveDynArray2;
|
||||
pre__FiveDynArrayPack2{e} _O2_ packed array of record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FiveDynArrayPack2;
|
||||
pre__FivePackDynArray2{e} _O2_ array of packed record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FivePackDynArray2;
|
||||
pre__FivePackDynArrayPack2{e} _O2_ packed array of packed record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FivePackDynArrayPack2;
|
||||
pre__FiveDynArray2{e} _O2_ array of record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FiveDynArray2{e3};
|
||||
pre__FiveDynArrayPack2{e} _O2_ packed array of record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FiveDynArrayPack2{e3};
|
||||
pre__FivePackDynArray2{e} _O2_ array of packed record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FivePackDynArray2{e3};
|
||||
pre__FivePackDynArrayPack2{e} _O2_ packed array of packed record a:longint; b: byte end _EQ_ (nil); //@@ _pre3_FivePackDynArrayPack2{e3};
|
||||
{$ENDIF} // TestPointer
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
@ -289,183 +289,183 @@
|
||||
{$IFnDEF TestArg}
|
||||
{$IFnDEF TestPointer}
|
||||
{$IFnDEF TestAssign}
|
||||
pre__CharStatArray{e} _O2_ array[1..5] of char _EQ_ (CHR1, 'b',CHR1, 'B','c'); //@@ _pre3_CharStatArray;
|
||||
pre__WCharStatArray{e} _O2_ array[1..5] of widechar _EQ_ (CHR1, 'b',CHR1, 'B','d'); //@@ _pre3_WCharStatArray;
|
||||
pre__IntStatArray{e} _O2_ array[1..5] of Integer _EQ_ (-1, 300+ADD, 2, 0, 1); //@@ _pre3_IntStatArray;
|
||||
pre__AnsiStatArray{e} _O2_ array[1..5] of AnsiString _EQ_ (CHR1, 'b123',CHR1+'ab', 'B','cdef'#9); //@@ _pre3_AnsiStatArray;
|
||||
pre__ShortStrStatArray{e} _O2_ array[1..5] of ShortStr10 _EQ_ (CHR1, 'b123',CHR1+'ab', 'C','cdef'#9); //@@ _pre3_ShortStrStatArray;
|
||||
pre__CharStatArray{e} _O2_ array[1..5] of char _EQ_ (CHR1, 'b',CHR1, 'B','c'); //@@ _pre3_CharStatArray{e3};
|
||||
pre__WCharStatArray{e} _O2_ array[1..5] of widechar _EQ_ (CHR1, 'b',CHR1, 'B','d'); //@@ _pre3_WCharStatArray{e3};
|
||||
pre__IntStatArray{e} _O2_ array[1..5] of Integer _EQ_ (-1, 300+ADD, 2, 0, 1); //@@ _pre3_IntStatArray{e3};
|
||||
pre__AnsiStatArray{e} _O2_ array[1..5] of AnsiString _EQ_ (CHR1, 'b123',CHR1+'ab', 'B','cdef'#9); //@@ _pre3_AnsiStatArray{e3};
|
||||
pre__ShortStrStatArray{e} _O2_ array[1..5] of ShortStr10 _EQ_ (CHR1, 'b123',CHR1+'ab', 'C','cdef'#9); //@@ _pre3_ShortStrStatArray{e3};
|
||||
|
||||
// pre__FiveStatArray2{e} _O2_ array [2..4] of record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArray2;
|
||||
// pre__FiveStatArrayPack2{e} _O2_ packed array [2..4] of record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArrayPack2;
|
||||
// pre__FivePackStatArray2{e} _O2_ array [2..4] of packed record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArray2;
|
||||
// pre__FivePackStatArrayPack2{e} _O2_ packed array [2..4] of packed record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArrayPack2;
|
||||
// pre__FiveStatArray2{e} _O2_ array [2..4] of record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArray2{e3};
|
||||
// pre__FiveStatArrayPack2{e} _O2_ packed array [2..4] of record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArrayPack2{e3};
|
||||
// pre__FivePackStatArray2{e} _O2_ array [2..4] of packed record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArray2{e3};
|
||||
// pre__FivePackStatArrayPack2{e} _O2_ packed array [2..4] of packed record a:longint; b: byte end _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArrayPack2{e3};
|
||||
|
||||
pre__ArrayEnum1{e} _O2_ array [TEnum] of word _EQ_ (500+ADD,701,702,703); //@@ _pre3_ArrayEnum1;
|
||||
pre__ArrayEnumSub1{e} _O2_ array [TEnumSub] of word _EQ_ (600+ADD,801); //@@ _pre3_ArrayEnumSub1;
|
||||
pre__ArrayEnum2{e} _O2_ array [EnVal1..EnVal4] of word _EQ_ (300+ADD,701,702,703); //@@ _pre3_ArrayEnum2;
|
||||
pre__ArrayEnumSub2{e} _O2_ array [EnVal1..EnVal2] of word _EQ_ (400+ADD,801); //@@ _pre3_ArrayEnumSub2;
|
||||
pre__ArrayEnum1{e} _O2_ array [TEnum] of word _EQ_ (500+ADD,701,702,703); //@@ _pre3_ArrayEnum1{e3};
|
||||
pre__ArrayEnumSub1{e} _O2_ array [TEnumSub] of word _EQ_ (600+ADD,801); //@@ _pre3_ArrayEnumSub1{e3};
|
||||
pre__ArrayEnum2{e} _O2_ array [EnVal1..EnVal4] of word _EQ_ (300+ADD,701,702,703); //@@ _pre3_ArrayEnum2{e3};
|
||||
pre__ArrayEnumSub2{e} _O2_ array [EnVal1..EnVal2] of word _EQ_ (400+ADD,801); //@@ _pre3_ArrayEnumSub2{e3};
|
||||
{$ELSE}
|
||||
pre__CharStatArray{e} := _pre2_CharStatArray; pre__CharStatArray{e}[1] := CHR1; pre__CharStatArray{e}[3] := CHR1; //@@ _pre3_CharStatArray; // }}}
|
||||
pre__WCharStatArray{e} := _pre2_WCharStatArray; pre__WCharStatArray{e}[1] := CHR1; pre__WCharStatArray{e}[3] := CHR1; //@@ _pre3_WCharStatArray; // }}}
|
||||
pre__IntStatArray{e} := _pre2_IntStatArray; pre__IntStatArray{e}[2] := 300+ADD; //@@ _pre3_IntStatArray; // }}}
|
||||
pre__AnsiStatArray{e} := _pre2_AnsiStatArray; pre__AnsiStatArray{e}[1] := CHR1; pre__AnsiStatArray{e}[3] := CHR1+'ab'; //@@ _pre3_AnsiStatArray; // }}}
|
||||
pre__ShortStrStatArray{e} := _pre2_ShortStrStatArray;pre__ShortStrStatArray{e}[1] := CHR1;pre__ShortStrStatArray{e}[3] := CHR1+'ab'; //@@ _pre3_ShortStrStatArray; // }}}
|
||||
pre__CharStatArray{e} := _pre2_CharStatArray; pre__CharStatArray{e}[1] := CHR1; pre__CharStatArray{e}[3] := CHR1; //@@ _pre3_CharStatArray{e3}; // }}}
|
||||
pre__WCharStatArray{e} := _pre2_WCharStatArray; pre__WCharStatArray{e}[1] := CHR1; pre__WCharStatArray{e}[3] := CHR1; //@@ _pre3_WCharStatArray{e3}; // }}}
|
||||
pre__IntStatArray{e} := _pre2_IntStatArray; pre__IntStatArray{e}[2] := 300+ADD; //@@ _pre3_IntStatArray{e3}; // }}}
|
||||
pre__AnsiStatArray{e} := _pre2_AnsiStatArray; pre__AnsiStatArray{e}[1] := CHR1; pre__AnsiStatArray{e}[3] := CHR1+'ab'; //@@ _pre3_AnsiStatArray{e3}; // }}}
|
||||
pre__ShortStrStatArray{e} := _pre2_ShortStrStatArray;pre__ShortStrStatArray{e}[1] := CHR1;pre__ShortStrStatArray{e}[3] := CHR1+'ab'; //@@ _pre3_ShortStrStatArray{e3}; // }}}
|
||||
|
||||
// pre__FiveStatArray2{e} := _pre2_FiveStatArray2; pre__FiveStatArray2{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArray2;
|
||||
// pre__FiveStatArrayPack2{e} := _pre2_FiveStatArrayPack2; pre__FiveStatArrayPack2{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArrayPack2;
|
||||
// pre__FivePackStatArray2{e} := _pre2_FivePackStatArray2; pre__FivePackStatArray2{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArray2;
|
||||
// pre__FivePackStatArrayPack2{e} := _pre2_FivePackStatArrayPack2; pre__FivePackStatArrayPack2{e}[3].a := -8-ADD; //@@ _pre3_FivePackStatArrayPack2;
|
||||
// pre__FiveStatArray2{e} := _pre2_FiveStatArray2; pre__FiveStatArray2{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArray2{e3};
|
||||
// pre__FiveStatArrayPack2{e} := _pre2_FiveStatArrayPack2; pre__FiveStatArrayPack2{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArrayPack2{e3};
|
||||
// pre__FivePackStatArray2{e} := _pre2_FivePackStatArray2; pre__FivePackStatArray2{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArray2{e3};
|
||||
// pre__FivePackStatArrayPack2{e} := _pre2_FivePackStatArrayPack2; pre__FivePackStatArrayPack2{e}[3].a := -8-ADD; //@@ _pre3_FivePackStatArrayPack2{e3};
|
||||
|
||||
pre__ArrayEnum1{e} := _pre2_ArrayEnum1; pre__ArrayEnum1{e}[EnVal1] := 500+ADD; //@@ _pre3_ArrayEnum1; // }}
|
||||
pre__ArrayEnumSub1{e} := _pre2_ArrayEnumSub1; pre__ArrayEnumSub1{e}[EnVal1] := 600+ADD; //@@ _pre3_ArrayEnumSub1; // }}
|
||||
pre__ArrayEnum2{e} := _pre2_ArrayEnum2; pre__ArrayEnum2{e}[EnVal1] := 300+ADD; //@@ _pre3_ArrayEnum2; // }}
|
||||
pre__ArrayEnumSub2{e} := _pre2_ArrayEnumSub2; pre__ArrayEnumSub2{e}[EnVal1] := 400+ADD; //@@ _pre3_ArrayEnumSub2; // }}
|
||||
pre__ArrayEnum1{e} := _pre2_ArrayEnum1; pre__ArrayEnum1{e}[EnVal1] := 500+ADD; //@@ _pre3_ArrayEnum1{e3}; // }}
|
||||
pre__ArrayEnumSub1{e} := _pre2_ArrayEnumSub1; pre__ArrayEnumSub1{e}[EnVal1] := 600+ADD; //@@ _pre3_ArrayEnumSub1{e3}; // }}
|
||||
pre__ArrayEnum2{e} := _pre2_ArrayEnum2; pre__ArrayEnum2{e}[EnVal1] := 300+ADD; //@@ _pre3_ArrayEnum2{e3}; // }}
|
||||
pre__ArrayEnumSub2{e} := _pre2_ArrayEnumSub2; pre__ArrayEnumSub2{e}[EnVal1] := 400+ADD; //@@ _pre3_ArrayEnumSub2{e3}; // }}
|
||||
{$ENDIF}
|
||||
{$ENDIF} // TestPointer
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFnDEF TestAssign}
|
||||
pre__CharStatArray2{e} _O2_ TCharStatArray _EQ_ (CHR1, 'c',CHR1, 'B','c'); //@@ _pre3_CharStatArray2;
|
||||
pre__WCharStatArray2{e} _O2_ TWCharStatArray _EQ_ (CHR1, 'c',CHR1, 'B','d'); //@@ _pre3_WCharStatArray2;
|
||||
pre__IntStatArray2{e} _O2_ TIntStatArray _EQ_ (-2, 200+ADD, 2, 0, 1); //@@ _pre3_IntStatArray2;
|
||||
pre__AnsiStatArray2{e} _O2_ TAnsiStatArray _EQ_ (CHR1, 'c123',CHR1+'ad', 'D','cxx'#9); //@@ _pre3_AnsiStatArray2;
|
||||
pre__ShortStrStatArray2{e} _O2_ TShortStrStatArray _EQ_ (CHR1, 'c123',CHR1+'ad', 'C','cxx'#9); //@@ _pre3_ShortStrStatArray2;
|
||||
pre__CharStatArray2{e} _O2_ TCharStatArray _EQ_ (CHR1, 'c',CHR1, 'B','c'); //@@ _pre3_CharStatArray2{e3};
|
||||
pre__WCharStatArray2{e} _O2_ TWCharStatArray _EQ_ (CHR1, 'c',CHR1, 'B','d'); //@@ _pre3_WCharStatArray2{e3};
|
||||
pre__IntStatArray2{e} _O2_ TIntStatArray _EQ_ (-2, 200+ADD, 2, 0, 1); //@@ _pre3_IntStatArray2{e3};
|
||||
pre__AnsiStatArray2{e} _O2_ TAnsiStatArray _EQ_ (CHR1, 'c123',CHR1+'ad', 'D','cxx'#9); //@@ _pre3_AnsiStatArray2{e3};
|
||||
pre__ShortStrStatArray2{e} _O2_ TShortStrStatArray _EQ_ (CHR1, 'c123',CHR1+'ad', 'C','cxx'#9); //@@ _pre3_ShortStrStatArray2{e3};
|
||||
|
||||
pre__FiveStatArray{e} _O2_ TFiveStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArray; // }}}
|
||||
pre__FiveStatArrayPack{e} _O2_ TFiveStatArrayPack _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArrayPack; // }}}
|
||||
pre__FivePackStatArray{e} _O2_ TFivePackStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArray; // }}}
|
||||
pre__FivePackStatArrayPack{e} _O2_ TFivePackStatArrayPack _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArrayPack; // }}}
|
||||
pre__RecFiveStatArray{e} _O2_ TRecFiveStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFiveStatArray; // }}}
|
||||
pre__RecFiveStatPackArray{e} _O2_ TRecFiveStatPackArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFiveStatPackArray; // }}}
|
||||
pre__RecFivePackStatArray{e} _O2_ TRecFivePackStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFivePackStatArray; // }}}
|
||||
pre__RecFivePackStatPackArray{e} _O2_ TRecFivePackStatPackArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFivePackStatPackArray; // }}}
|
||||
pre__FiveStatArray{e} _O2_ TFiveStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArray{e3}; // }}}
|
||||
pre__FiveStatArrayPack{e} _O2_ TFiveStatArrayPack _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FiveStatArrayPack{e3}; // }}}
|
||||
pre__FivePackStatArray{e} _O2_ TFivePackStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArray{e3}; // }}}
|
||||
pre__FivePackStatArrayPack{e} _O2_ TFivePackStatArrayPack _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_FivePackStatArrayPack{e3}; // }}}
|
||||
pre__RecFiveStatArray{e} _O2_ TRecFiveStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFiveStatArray{e3}; // }}}
|
||||
pre__RecFiveStatPackArray{e} _O2_ TRecFiveStatPackArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFiveStatPackArray{e3}; // }}}
|
||||
pre__RecFivePackStatArray{e} _O2_ TRecFivePackStatArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFivePackStatArray{e3}; // }}}
|
||||
pre__RecFivePackStatPackArray{e} _O2_ TRecFivePackStatPackArray _EQ_ ((a:-9;b:44), (a:-8-ADD;b:33), (a:-7;b:22)); //@@ _pre3_RecFivePackStatPackArray{e3}; // }}}
|
||||
|
||||
pre__ArrayEnum3{e} _O2_ TArrayEnum _EQ_ (200+ADD,701,702,703); //@@ _pre3_ArrayEnum3;
|
||||
pre__ArrayEnumSub3{e} _O2_ TArrayEnumSub _EQ_ (100+ADD,801); //@@ _pre3_ArrayEnumSub3;
|
||||
pre__ArrayEnum4{e} _O2_ TArrayEnumElem _EQ_ (800+ADD,701,702,703); //@@ _pre3_ArrayEnum4;
|
||||
pre__ArrayEnumSub4{e} _O2_ TArrayEnumSubElem _EQ_ (700+ADD,801); //@@ _pre3_ArrayEnumSub4;
|
||||
pre__ArrayEnum3{e} _O2_ TArrayEnum _EQ_ (200+ADD,701,702,703); //@@ _pre3_ArrayEnum3{e3};
|
||||
pre__ArrayEnumSub3{e} _O2_ TArrayEnumSub _EQ_ (100+ADD,801); //@@ _pre3_ArrayEnumSub3{e3};
|
||||
pre__ArrayEnum4{e} _O2_ TArrayEnumElem _EQ_ (800+ADD,701,702,703); //@@ _pre3_ArrayEnum4{e3};
|
||||
pre__ArrayEnumSub4{e} _O2_ TArrayEnumSubElem _EQ_ (700+ADD,801); //@@ _pre3_ArrayEnumSub4{e3};
|
||||
{$ELSE}
|
||||
pre__CharStatArray2{e} := _pre2_CharStatArray2; pre__CharStatArray2{e}[1] := CHR1; pre__CharStatArray2{e}[3] := CHR1; //@@ _pre3_CharStatArray2; // }}}
|
||||
pre__WCharStatArray2{e} := _pre2_WCharStatArray2; pre__WCharStatArray2{e}[1] := CHR1; pre__WCharStatArray2{e}[3] := CHR1; //@@ _pre3_WCharStatArray2; // }}}
|
||||
pre__IntStatArray2{e} := _pre2_IntStatArray2; pre__IntStatArray2{e}[2] := 200+ADD; //@@ _pre3_IntStatArray2; // }}}
|
||||
pre__AnsiStatArray2{e} := _pre2_AnsiStatArray2; pre__AnsiStatArray2{e}[1] := CHR1; pre__AnsiStatArray2{e}[3] := CHR1+'ad'; //@@ _pre3_AnsiStatArray2; // }}}
|
||||
pre__ShortStrStatArray2{e} := _pre2_ShortStrStatArray2;pre__ShortStrStatArray2{e}[1] := CHR1;pre__ShortStrStatArray2{e}[3] := CHR1+'ad'; //@@ _pre3_ShortStrStatArray2; // }}}
|
||||
pre__CharStatArray2{e} := _pre2_CharStatArray2; pre__CharStatArray2{e}[1] := CHR1; pre__CharStatArray2{e}[3] := CHR1; //@@ _pre3_CharStatArray2{e3}; // }}}
|
||||
pre__WCharStatArray2{e} := _pre2_WCharStatArray2; pre__WCharStatArray2{e}[1] := CHR1; pre__WCharStatArray2{e}[3] := CHR1; //@@ _pre3_WCharStatArray2{e3}; // }}}
|
||||
pre__IntStatArray2{e} := _pre2_IntStatArray2; pre__IntStatArray2{e}[2] := 200+ADD; //@@ _pre3_IntStatArray2{e3}; // }}}
|
||||
pre__AnsiStatArray2{e} := _pre2_AnsiStatArray2; pre__AnsiStatArray2{e}[1] := CHR1; pre__AnsiStatArray2{e}[3] := CHR1+'ad'; //@@ _pre3_AnsiStatArray2{e3}; // }}}
|
||||
pre__ShortStrStatArray2{e} := _pre2_ShortStrStatArray2;pre__ShortStrStatArray2{e}[1] := CHR1;pre__ShortStrStatArray2{e}[3] := CHR1+'ad'; //@@ _pre3_ShortStrStatArray2{e3}; // }}}
|
||||
|
||||
pre__FiveStatArray{e} := _pre2_FiveStatArray; pre__FiveStatArray{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArray; // }}}
|
||||
pre__FiveStatArrayPack{e} := _pre2_FiveStatArrayPack; pre__FiveStatArrayPack{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArrayPack; // }}}
|
||||
pre__FivePackStatArray{e} := _pre2_FivePackStatArray; pre__FivePackStatArray{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArray; // }}}
|
||||
pre__FivePackStatArrayPack{e} := _pre2_FivePackStatArrayPack; pre__FivePackStatArrayPack{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArrayPack; // }}}
|
||||
pre__RecFiveStatArray{e} := _pre2_RecFiveStatArray; pre__RecFiveStatArray{e} [3].a := -8-ADD; //@@ _pre3_RecFiveStatArray; // }}}
|
||||
pre__RecFiveStatPackArray{e} := _pre2_RecFiveStatPackArray; pre__RecFiveStatPackArray{e} [3].a := -8-ADD; //@@ _pre3_RecFiveStatPackArray; // }}}
|
||||
pre__RecFivePackStatArray{e} := _pre2_RecFivePackStatArray; pre__RecFivePackStatArray{e} [3].a := -8-ADD; //@@ _pre3_RecFivePackStatArray; // }}}
|
||||
pre__RecFivePackStatPackArray{e} := _pre2_RecFivePackStatPackArray; pre__RecFivePackStatPackArray{e}[3].a := -8-ADD; //@@ _pre3_RecFivePackStatPackArray; // }}}
|
||||
pre__FiveStatArray{e} := _pre2_FiveStatArray; pre__FiveStatArray{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArray{e3}; // }}}
|
||||
pre__FiveStatArrayPack{e} := _pre2_FiveStatArrayPack; pre__FiveStatArrayPack{e} [3].a := -8-ADD; //@@ _pre3_FiveStatArrayPack{e3}; // }}}
|
||||
pre__FivePackStatArray{e} := _pre2_FivePackStatArray; pre__FivePackStatArray{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArray{e3}; // }}}
|
||||
pre__FivePackStatArrayPack{e} := _pre2_FivePackStatArrayPack; pre__FivePackStatArrayPack{e} [3].a := -8-ADD; //@@ _pre3_FivePackStatArrayPack{e3}; // }}}
|
||||
pre__RecFiveStatArray{e} := _pre2_RecFiveStatArray; pre__RecFiveStatArray{e} [3].a := -8-ADD; //@@ _pre3_RecFiveStatArray{e3}; // }}}
|
||||
pre__RecFiveStatPackArray{e} := _pre2_RecFiveStatPackArray; pre__RecFiveStatPackArray{e} [3].a := -8-ADD; //@@ _pre3_RecFiveStatPackArray{e3}; // }}}
|
||||
pre__RecFivePackStatArray{e} := _pre2_RecFivePackStatArray; pre__RecFivePackStatArray{e} [3].a := -8-ADD; //@@ _pre3_RecFivePackStatArray{e3}; // }}}
|
||||
pre__RecFivePackStatPackArray{e} := _pre2_RecFivePackStatPackArray; pre__RecFivePackStatPackArray{e}[3].a := -8-ADD; //@@ _pre3_RecFivePackStatPackArray{e3}; // }}}
|
||||
|
||||
pre__ArrayEnum3{e} := _pre2_ArrayEnum3; pre__ArrayEnum3{e}[EnVal1] := 200+ADD; //@@ _pre3_ArrayEnum3; // }}
|
||||
pre__ArrayEnumSub3{e} := _pre2_ArrayEnumSub3; pre__ArrayEnumSub3{e}[EnVal1] := 100+ADD; //@@ _pre3_ArrayEnumSub3; // }}
|
||||
pre__ArrayEnum4{e} := _pre2_ArrayEnum4; pre__ArrayEnum4{e}[EnVal1] := 800+ADD; //@@ _pre3_ArrayEnum4; // }}
|
||||
pre__ArrayEnumSub4{e} := _pre2_ArrayEnumSub4; pre__ArrayEnumSub4{e}[EnVal1] := 700+ADD; //@@ _pre3_ArrayEnumSub4; // }}
|
||||
pre__ArrayEnum3{e} := _pre2_ArrayEnum3; pre__ArrayEnum3{e}[EnVal1] := 200+ADD; //@@ _pre3_ArrayEnum3{e3}; // }}
|
||||
pre__ArrayEnumSub3{e} := _pre2_ArrayEnumSub3; pre__ArrayEnumSub3{e}[EnVal1] := 100+ADD; //@@ _pre3_ArrayEnumSub3{e3}; // }}
|
||||
pre__ArrayEnum4{e} := _pre2_ArrayEnum4; pre__ArrayEnum4{e}[EnVal1] := 800+ADD; //@@ _pre3_ArrayEnum4{e3}; // }}
|
||||
pre__ArrayEnumSub4{e} := _pre2_ArrayEnumSub4; pre__ArrayEnumSub4{e}[EnVal1] := 700+ADD; //@@ _pre3_ArrayEnumSub4{e3}; // }}
|
||||
{$ENDIF}
|
||||
|
||||
pre__Enum{e} _OP_ TEnum(EnVal3); //@@ _pre3_Enum;
|
||||
pre__EnumA{e} _OP_ TEnum(EnVal1); //@@ _pre3_EnumA;
|
||||
pre__Enum1{e} _OP_ TEnumSub(EnVal2); //@@ _pre3_Enum1; // subset;
|
||||
pre__Enum2{e} _OP_ TEnum2(EnVal21); //@@ _pre3_Enum2;
|
||||
pre__Enum3{e} _OP_ TEnum2(EnVal25); //@@ _pre3_Enum3;
|
||||
pre__Enum{e} _OP_ TEnum(EnVal3); //@@ _pre3_Enum{e3};
|
||||
pre__EnumA{e} _OP_ TEnum(EnVal1); //@@ _pre3_EnumA{e3};
|
||||
pre__Enum1{e} _OP_ TEnumSub(EnVal2); //@@ _pre3_Enum1{e3}; // subset;
|
||||
pre__Enum2{e} _OP_ TEnum2(EnVal21); //@@ _pre3_Enum2{e3};
|
||||
pre__Enum3{e} _OP_ TEnum2(EnVal25); //@@ _pre3_Enum3{e3};
|
||||
|
||||
pre__Set{e} _OP_ TSet([EnVal2, EnVal4]); //@@ _pre3_Set;
|
||||
pre__SmallSet{e} _OP_ TSmallRangeSet([22, 24,25]); //@@ _pre3_SmallSet;
|
||||
pre__Set{e} _OP_ TSet([EnVal2, EnVal4]); //@@ _pre3_Set{e3};
|
||||
pre__SmallSet{e} _OP_ TSmallRangeSet([22, 24,25]); //@@ _pre3_SmallSet{e3};
|
||||
|
||||
|
||||
{$IFnDEF TestAssign}
|
||||
pre__BitPackBoolArray{e} _O2_ TBitPackBoolArray _EQ_ (True, False, True, True); //@@ _pre3_BitPackBoolArray; // }}
|
||||
pre__BitPackTinyArray{e} _O2_ TBitPackTinyArray _EQ_ (1, 0, 3, 2); //@@ _pre3_BitPackTinyArray; // }}
|
||||
pre__BitPackTinyNegArray{e} _O2_ TBitPackTinyNegArray _EQ_ (2, 6{-2}, 0, 7{-1}); //@@ _pre3_BitPackTinyNegArray; // }}
|
||||
pre__BitPackEnumArray{e} _O2_ TBitPackEnumArray _EQ_ (EnVal3, EnVal1, EnVal2, EnVal3); //@@ _pre3_BitPackEnumArray; // }}
|
||||
pre__BitPackEnum3Array{e} _O2_ TBitPackEnum3Array _EQ_ (EnVal32, EnVal32, EnVal31, EnVal32); //@@ _pre3_BitPackEnum3Array; // }}
|
||||
pre__BitPackSetArray{e} _O2_ TBitPackSetArray _EQ_ ([EnVal3, EnVal1], [], [EnVal3], [EnVal1]); //@@ _pre3_BitPackSetArray; // }}
|
||||
pre__BitPackSet3Array{e} _O2_ TBitPackSet3Array _EQ_ ([EnVal31, EnVal32], [], [EnVal31], [EnVal32]); //@@ _pre3_BitPackSet3Array; // }}
|
||||
pre__BitPackBoolArray{e} _O2_ TBitPackBoolArray _EQ_ (True, False, True, True); //@@ _pre3_BitPackBoolArray{e3}; // }}
|
||||
pre__BitPackTinyArray{e} _O2_ TBitPackTinyArray _EQ_ (1, 0, 3, 2); //@@ _pre3_BitPackTinyArray{e3}; // }}
|
||||
pre__BitPackTinyNegArray{e} _O2_ TBitPackTinyNegArray _EQ_ (2, 6{-2}, 0, 7{-1}); //@@ _pre3_BitPackTinyNegArray{e3}; // }}
|
||||
pre__BitPackEnumArray{e} _O2_ TBitPackEnumArray _EQ_ (EnVal3, EnVal1, EnVal2, EnVal3); //@@ _pre3_BitPackEnumArray{e3}; // }}
|
||||
pre__BitPackEnum3Array{e} _O2_ TBitPackEnum3Array _EQ_ (EnVal32, EnVal32, EnVal31, EnVal32); //@@ _pre3_BitPackEnum3Array{e3}; // }}
|
||||
pre__BitPackSetArray{e} _O2_ TBitPackSetArray _EQ_ ([EnVal3, EnVal1], [], [EnVal3], [EnVal1]); //@@ _pre3_BitPackSetArray{e3}; // }}
|
||||
pre__BitPackSet3Array{e} _O2_ TBitPackSet3Array _EQ_ ([EnVal31, EnVal32], [], [EnVal31], [EnVal32]); //@@ _pre3_BitPackSet3Array{e3}; // }}
|
||||
|
||||
pre__BitPackBoolArray2{e} _O2_ TBitPackBoolArray2 _EQ_ ((True, False, True), (False, True, True)); //@@ _pre3_BitPackBoolArray2; // }}
|
||||
pre__BitPackTinyArray2{e} _O2_ TBitPackTinyArray2 _EQ_ ((1, 0, 3), (2,3,0)); //@@ _pre3_BitPackTinyArray2; // }}
|
||||
pre__BitPackTinyNegArray2{e} _O2_ TBitPackTinyNegArray2 _EQ_ ((2, 6{-2}, 0), (1, 0, 7{-1})); //@@ _pre3_BitPackTinyNegArray2; // }}
|
||||
pre__BitPackEnumArray2{e} _O2_ TBitPackEnumArray2 _EQ_ ((EnVal3, EnVal1, EnVal2), (EnVal1, EnVal4, EnVal2)); //@@ _pre3_BitPackEnumArray2; // }}
|
||||
pre__BitPackEnum3Array2{e} _O2_ TBitPackEnum3Array2 _EQ_ ((EnVal32, EnVal32, EnVal31), (EnVal31, EnVal31, EnVal32)); //@@ _pre3_BitPackEnum3Array2; // }}
|
||||
// pre__BitPackSetArray2{e} _O2_ TBitPackSetArray2 _EQ_ (([EnVal3, EnVal1], [], [EnVal3]), ([],[EnVal1,EnVal2],[EnVal1])); //@@ _pre3_BitPackSetArray2; // }}
|
||||
// pre__BitPackSet3Array2{e} _O2_ TBitPackSet3Array2 _EQ_ (([EnVal31, EnVal32], [], [EnVal31]), ([EnVal31,EnVal32],[],[EnVal32])); //@@ _pre3_BitPackSet3Array2; // }}
|
||||
pre__BitPackBoolArray2{e} _O2_ TBitPackBoolArray2 _EQ_ ((True, False, True), (False, True, True)); //@@ _pre3_BitPackBoolArray2{e3}; // }}
|
||||
pre__BitPackTinyArray2{e} _O2_ TBitPackTinyArray2 _EQ_ ((1, 0, 3), (2,3,0)); //@@ _pre3_BitPackTinyArray2{e3}; // }}
|
||||
pre__BitPackTinyNegArray2{e} _O2_ TBitPackTinyNegArray2 _EQ_ ((2, 6{-2}, 0), (1, 0, 7{-1})); //@@ _pre3_BitPackTinyNegArray2{e3}; // }}
|
||||
pre__BitPackEnumArray2{e} _O2_ TBitPackEnumArray2 _EQ_ ((EnVal3, EnVal1, EnVal2), (EnVal1, EnVal4, EnVal2)); //@@ _pre3_BitPackEnumArray2{e3}; // }}
|
||||
pre__BitPackEnum3Array2{e} _O2_ TBitPackEnum3Array2 _EQ_ ((EnVal32, EnVal32, EnVal31), (EnVal31, EnVal31, EnVal32)); //@@ _pre3_BitPackEnum3Array2{e3}; // }}
|
||||
// pre__BitPackSetArray2{e} _O2_ TBitPackSetArray2 _EQ_ (([EnVal3, EnVal1], [], [EnVal3]), ([],[EnVal1,EnVal2],[EnVal1])); //@@ _pre3_BitPackSetArray2{e3}; // }}
|
||||
// pre__BitPackSet3Array2{e} _O2_ TBitPackSet3Array2 _EQ_ (([EnVal31, EnVal32], [], [EnVal31]), ([EnVal31,EnVal32],[],[EnVal32])); //@@ _pre3_BitPackSet3Array2{e3}; // }}
|
||||
|
||||
pre__BitPackBoolRecord{e} _O2_ TBitPackBoolRecord _EQ_ (a:True; b:False; c:True; d: True; e: False); //@@ _pre3_BitPackBoolRecord; // }}
|
||||
pre__BitPackTinyRecord{e} _O2_ TBitPackTinyRecord _EQ_ (a:1; b:1; c:0; d: 3; e: 0); //@@ _pre3_BitPackTinyRecord; // }}
|
||||
pre__BitPackTinyNegRecord{e} _O2_ TBitPackTinyNegRecord _EQ_ (a:3; b:6{-2}; c:7{-1}; d: 0; e: 1); //@@ _pre3_BitPackTinyNegRecord; // }}
|
||||
pre__BitPackEnumRecord{e} _O2_ TBitPackEnumRecord _EQ_ (a:EnVal3; b:EnVal1; c:EnVal2; d: EnVal2; e: EnVal1); //@@ _pre3_BitPackEnumRecord; // }}
|
||||
pre__BitPackEnum3Record{e} _O2_ TBitPackEnum3Record _EQ_ (a:EnVal31; b:EnVal32; c:EnVal31; d: EnVal31; e: EnVal32); //@@ _pre3_BitPackEnum3Record; // }}
|
||||
pre__BitPackSetRecord{e} _O2_ TBitPackSetRecord _EQ_ (a:[EnVal3]; b:[]; c:[EnVal1,EnVal2]; d: [EnVal2]; e: [EnVal1,EnVal3]); //@@ _pre3_BitPackSetRecord; // }}
|
||||
pre__BitPackSet3Record{e} _O2_ TBitPackSet3Record _EQ_ (a:[EnVal31]; b:[]; c:[EnVal31,EnVal32]; d: [EnVal32]; e: [EnVal31]); //@@ _pre3_BitPackSet3Record; // }}
|
||||
pre__BitPackBoolRecord{e} _O2_ TBitPackBoolRecord _EQ_ (a:True; b:False; c:True; d: True; e: False); //@@ _pre3_BitPackBoolRecord{e3}; // }}
|
||||
pre__BitPackTinyRecord{e} _O2_ TBitPackTinyRecord _EQ_ (a:1; b:1; c:0; d: 3; e: 0); //@@ _pre3_BitPackTinyRecord{e3}; // }}
|
||||
pre__BitPackTinyNegRecord{e} _O2_ TBitPackTinyNegRecord _EQ_ (a:3; b:6{-2}; c:7{-1}; d: 0; e: 1); //@@ _pre3_BitPackTinyNegRecord{e3}; // }}
|
||||
pre__BitPackEnumRecord{e} _O2_ TBitPackEnumRecord _EQ_ (a:EnVal3; b:EnVal1; c:EnVal2; d: EnVal2; e: EnVal1); //@@ _pre3_BitPackEnumRecord{e3}; // }}
|
||||
pre__BitPackEnum3Record{e} _O2_ TBitPackEnum3Record _EQ_ (a:EnVal31; b:EnVal32; c:EnVal31; d: EnVal31; e: EnVal32); //@@ _pre3_BitPackEnum3Record{e3}; // }}
|
||||
pre__BitPackSetRecord{e} _O2_ TBitPackSetRecord _EQ_ (a:[EnVal3]; b:[]; c:[EnVal1,EnVal2]; d: [EnVal2]; e: [EnVal1,EnVal3]); //@@ _pre3_BitPackSetRecord{e3}; // }}
|
||||
pre__BitPackSet3Record{e} _O2_ TBitPackSet3Record _EQ_ (a:[EnVal31]; b:[]; c:[EnVal31,EnVal32]; d: [EnVal32]; e: [EnVal31]); //@@ _pre3_BitPackSet3Record{e3}; // }}
|
||||
|
||||
pre__BitPackBoolArrayRecord{e} _O2_ TBitPackBoolArrayRecord _EQ_ (a:(True, False, True, True); b:(False, True, True, False)); //@@ _pre3_BitPackBoolArrayRecord; // }}
|
||||
pre__BitPackTinyArrayRecord{e} _O2_ TBitPackTinyArrayRecord _EQ_ (a:(1, 0, 3, 2); b:(2,3,0,1)); //@@ _pre3_BitPackTinyArrayRecord; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} _O2_ TBitPackTinyNegArrayRecord _EQ_ (a:(2, 6{-2}, 0, 7{-1}); b:(1, 0, 7{-1},2)); //@@ _pre3_BitPackTinyNegArrayRecord; // }}
|
||||
pre__BitPackEnumArrayRecord{e} _O2_ TBitPackEnumArrayRecord _EQ_ (a:(EnVal3, EnVal1, EnVal2, EnVal4); b:(EnVal1, EnVal4, EnVal2, EnVal4)); //@@ _pre3_BitPackEnumArrayRecord; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} _O2_ TBitPackEnum3ArrayRecord _EQ_ (a:(EnVal32, EnVal32, EnVal31, EnVal31); b:(EnVal31, EnVal31, EnVal32, EnVal31)); //@@ _pre3_BitPackEnum3ArrayRecord; // }}
|
||||
pre__BitPackSetArrayRecord{e} _O2_ TBitPackSetArrayRecord _EQ_ (a:([EnVal3, EnVal1], [], [EnVal3], []); b:([],[EnVal1,EnVal2],[EnVal1],[EnVal4])); //@@ _pre3_BitPackSetArrayRecord; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} _O2_ TBitPackSet3ArrayRecord _EQ_ (a:([EnVal31, EnVal32], [], [EnVal31],[EnVal31,EnVal32]); b:([EnVal31,EnVal32],[],[EnVal32],[])); //@@ _pre3_BitPackSet3ArrayRecord; // }}
|
||||
pre__BitPackBoolArrayRecord{e} _O2_ TBitPackBoolArrayRecord _EQ_ (a:(True, False, True, True); b:(False, True, True, False)); //@@ _pre3_BitPackBoolArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyArrayRecord{e} _O2_ TBitPackTinyArrayRecord _EQ_ (a:(1, 0, 3, 2); b:(2,3,0,1)); //@@ _pre3_BitPackTinyArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} _O2_ TBitPackTinyNegArrayRecord _EQ_ (a:(2, 6{-2}, 0, 7{-1}); b:(1, 0, 7{-1},2)); //@@ _pre3_BitPackTinyNegArrayRecord{e3}; // }}
|
||||
pre__BitPackEnumArrayRecord{e} _O2_ TBitPackEnumArrayRecord _EQ_ (a:(EnVal3, EnVal1, EnVal2, EnVal4); b:(EnVal1, EnVal4, EnVal2, EnVal4)); //@@ _pre3_BitPackEnumArrayRecord{e3}; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} _O2_ TBitPackEnum3ArrayRecord _EQ_ (a:(EnVal32, EnVal32, EnVal31, EnVal31); b:(EnVal31, EnVal31, EnVal32, EnVal31)); //@@ _pre3_BitPackEnum3ArrayRecord{e3}; // }}
|
||||
pre__BitPackSetArrayRecord{e} _O2_ TBitPackSetArrayRecord _EQ_ (a:([EnVal3, EnVal1], [], [EnVal3], []); b:([],[EnVal1,EnVal2],[EnVal1],[EnVal4])); //@@ _pre3_BitPackSetArrayRecord{e3}; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} _O2_ TBitPackSet3ArrayRecord _EQ_ (a:([EnVal31, EnVal32], [], [EnVal31],[EnVal31,EnVal32]); b:([EnVal31,EnVal32],[],[EnVal32],[])); //@@ _pre3_BitPackSet3ArrayRecord{e3}; // }}
|
||||
|
||||
|
||||
pre__FpDbgValueSize{e} _O2_ TFpDbgValueSize _EQ_ (Size: 0; BitSize: 2); //@@ _pre3_FpDbgValueSize; // }}
|
||||
pre__FpDbgValueSize{e} _O2_ TFpDbgValueSize _EQ_ (Size: 0; BitSize: 2); //@@ _pre3_FpDbgValueSize{e3}; // }}
|
||||
|
||||
{$ELSE}
|
||||
pre__BitPackBoolArray{e} := _pre2_BitPackBoolArray; //@@ _pre3_BitPackBoolArray; // }}
|
||||
pre__BitPackTinyArray{e} := _pre2_BitPackTinyArray; //@@ _pre3_BitPackTinyArray; // }}
|
||||
pre__BitPackTinyNegArray{e} := _pre2_BitPackTinyNegArray; //@@ _pre3_BitPackTinyNegArray; // }}
|
||||
pre__BitPackEnumArray{e} := _pre2_BitPackEnumArray; //@@ _pre3_BitPackEnumArray; // }}
|
||||
pre__BitPackEnum3Array{e} := _pre2_BitPackEnum3Array; //@@ _pre3_BitPackEnum3Array; // }}
|
||||
pre__BitPackSetArray{e} := _pre2_BitPackSetArray; //@@ _pre3_BitPackSetArray; // }}
|
||||
pre__BitPackSet3Array{e} := _pre2_BitPackSet3Array; //@@ _pre3_BitPackSet3Array; // }}
|
||||
pre__BitPackBoolArray{e} := _pre2_BitPackBoolArray; //@@ _pre3_BitPackBoolArray{e3}; // }}
|
||||
pre__BitPackTinyArray{e} := _pre2_BitPackTinyArray; //@@ _pre3_BitPackTinyArray{e3}; // }}
|
||||
pre__BitPackTinyNegArray{e} := _pre2_BitPackTinyNegArray; //@@ _pre3_BitPackTinyNegArray{e3}; // }}
|
||||
pre__BitPackEnumArray{e} := _pre2_BitPackEnumArray; //@@ _pre3_BitPackEnumArray{e3}; // }}
|
||||
pre__BitPackEnum3Array{e} := _pre2_BitPackEnum3Array; //@@ _pre3_BitPackEnum3Array{e3}; // }}
|
||||
pre__BitPackSetArray{e} := _pre2_BitPackSetArray; //@@ _pre3_BitPackSetArray{e3}; // }}
|
||||
pre__BitPackSet3Array{e} := _pre2_BitPackSet3Array; //@@ _pre3_BitPackSet3Array{e3}; // }}
|
||||
|
||||
pre__BitPackBoolArray2{e} := _pre2_BitPackBoolArray2; //@@ _pre3_BitPackBoolArray2; // }}
|
||||
pre__BitPackTinyArray2{e} := _pre2_BitPackTinyArray2; //@@ _pre3_BitPackTinyArray2; // }}
|
||||
pre__BitPackTinyNegArray2{e} := _pre2_BitPackTinyNegArray2; //@@ _pre3_BitPackTinyNegArray2; // }}
|
||||
pre__BitPackEnumArray2{e} := _pre2_BitPackEnumArray2; //@@ _pre3_BitPackEnumArray2; // }}
|
||||
pre__BitPackEnum3Array2{e} := _pre2_BitPackEnum3Array2; //@@ _pre3_BitPackEnum3Array2; // }}
|
||||
// pre__BitPackSetArray2{e} := _pre2_BitPackSetArray2; //@@ _pre3_BitPackSetArray2; // }}
|
||||
// pre__BitPackSet3Array2{e} := _pre2_BitPackSet3Array2; //@@ _pre3_BitPackSet3Array2; // }}
|
||||
pre__BitPackBoolArray2{e} := _pre2_BitPackBoolArray2; //@@ _pre3_BitPackBoolArray2{e3}; // }}
|
||||
pre__BitPackTinyArray2{e} := _pre2_BitPackTinyArray2; //@@ _pre3_BitPackTinyArray2{e3}; // }}
|
||||
pre__BitPackTinyNegArray2{e} := _pre2_BitPackTinyNegArray2; //@@ _pre3_BitPackTinyNegArray2{e3}; // }}
|
||||
pre__BitPackEnumArray2{e} := _pre2_BitPackEnumArray2; //@@ _pre3_BitPackEnumArray2{e3}; // }}
|
||||
pre__BitPackEnum3Array2{e} := _pre2_BitPackEnum3Array2; //@@ _pre3_BitPackEnum3Array2{e3}; // }}
|
||||
// pre__BitPackSetArray2{e} := _pre2_BitPackSetArray2; //@@ _pre3_BitPackSetArray2{e3}; // }}
|
||||
// pre__BitPackSet3Array2{e} := _pre2_BitPackSet3Array2; //@@ _pre3_BitPackSet3Array2{e3}; // }}
|
||||
|
||||
{$IFnDEF TestType}
|
||||
pre__BitPackBoolRecord{e} := _pre2_BitPackBoolRecord; //@@ _pre3_BitPackBoolRecord; // }}
|
||||
pre__BitPackTinyRecord{e} := _pre2_BitPackTinyRecord; //@@ _pre3_BitPackTinyRecord; // }}
|
||||
pre__BitPackTinyNegRecord{e} := _pre2_BitPackTinyNegRecord; //@@ _pre3_BitPackTinyNegRecord; // }}
|
||||
pre__BitPackEnumRecord{e} := _pre2_BitPackEnumRecord; //@@ _pre3_BitPackEnumRecord; // }}
|
||||
pre__BitPackEnum3Record{e} := _pre2_BitPackEnum3Record; //@@ _pre3_BitPackEnum3Record; // }}
|
||||
pre__BitPackSetRecord{e} := _pre2_BitPackSetRecord; //@@ _pre3_BitPackSetRecord; // }}
|
||||
pre__BitPackSet3Record{e} := _pre2_BitPackSet3Record; //@@ _pre3_BitPackSet3Record; // }}
|
||||
pre__BitPackBoolRecord{e} := _pre2_BitPackBoolRecord; //@@ _pre3_BitPackBoolRecord{e3}; // }}
|
||||
pre__BitPackTinyRecord{e} := _pre2_BitPackTinyRecord; //@@ _pre3_BitPackTinyRecord{e3}; // }}
|
||||
pre__BitPackTinyNegRecord{e} := _pre2_BitPackTinyNegRecord; //@@ _pre3_BitPackTinyNegRecord{e3}; // }}
|
||||
pre__BitPackEnumRecord{e} := _pre2_BitPackEnumRecord; //@@ _pre3_BitPackEnumRecord{e3}; // }}
|
||||
pre__BitPackEnum3Record{e} := _pre2_BitPackEnum3Record; //@@ _pre3_BitPackEnum3Record{e3}; // }}
|
||||
pre__BitPackSetRecord{e} := _pre2_BitPackSetRecord; //@@ _pre3_BitPackSetRecord{e3}; // }}
|
||||
pre__BitPackSet3Record{e} := _pre2_BitPackSet3Record; //@@ _pre3_BitPackSet3Record{e3}; // }}
|
||||
|
||||
pre__BitPackBoolArrayRecord{e} := _pre2_BitPackBoolArrayRecord; //@@ _pre3_BitPackBoolArrayRecord; // }}
|
||||
pre__BitPackTinyArrayRecord{e} := _pre2_BitPackTinyArrayRecord; //@@ _pre3_BitPackTinyArrayRecord; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} := _pre2_BitPackTinyNegArrayRecord; //@@ _pre3_BitPackTinyNegArrayRecord; // }}
|
||||
pre__BitPackEnumArrayRecord{e} := _pre2_BitPackEnumArrayRecord; //@@ _pre3_BitPackEnumArrayRecord; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} := _pre2_BitPackEnum3ArrayRecord; //@@ _pre3_BitPackEnum3ArrayRecord; // }}
|
||||
pre__BitPackSetArrayRecord{e} := _pre2_BitPackSetArrayRecord; //@@ _pre3_BitPackSetArrayRecord; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} := _pre2_BitPackSet3ArrayRecord; //@@ _pre3_BitPackSet3ArrayRecord; // }}
|
||||
pre__BitPackBoolArrayRecord{e} := _pre2_BitPackBoolArrayRecord; //@@ _pre3_BitPackBoolArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyArrayRecord{e} := _pre2_BitPackTinyArrayRecord; //@@ _pre3_BitPackTinyArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} := _pre2_BitPackTinyNegArrayRecord; //@@ _pre3_BitPackTinyNegArrayRecord{e3}; // }}
|
||||
pre__BitPackEnumArrayRecord{e} := _pre2_BitPackEnumArrayRecord; //@@ _pre3_BitPackEnumArrayRecord{e3}; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} := _pre2_BitPackEnum3ArrayRecord; //@@ _pre3_BitPackEnum3ArrayRecord{e3}; // }}
|
||||
pre__BitPackSetArrayRecord{e} := _pre2_BitPackSetArrayRecord; //@@ _pre3_BitPackSetArrayRecord{e3}; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} := _pre2_BitPackSet3ArrayRecord; //@@ _pre3_BitPackSet3ArrayRecord{e3}; // }}
|
||||
|
||||
pre__FpDbgValueSize{e} := _pre2_FpDbgValueSize; pre__FpDbgValueSize{e}.Size := 0; //@@ _pre3_FpDbgValueSize; // }}
|
||||
pre__FpDbgValueSize{e} := _pre2_FpDbgValueSize; pre__FpDbgValueSize{e}.Size := 0; //@@ _pre3_FpDbgValueSize{e3}; // }}
|
||||
{$ELSE}
|
||||
pre__BitPackBoolRecord{e} := TxBitPackBoolRecord(_pre2_BitPackBoolRecord); //@@ _pre3_BitPackBoolRecord; // }}
|
||||
pre__BitPackTinyRecord{e} := TxBitPackTinyRecord(_pre2_BitPackTinyRecord); //@@ _pre3_BitPackTinyRecord; // }}
|
||||
pre__BitPackTinyNegRecord{e} := TxBitPackTinyNegRecord(_pre2_BitPackTinyNegRecord); //@@ _pre3_BitPackTinyNegRecord; // }}
|
||||
pre__BitPackEnumRecord{e} := TxBitPackEnumRecord(_pre2_BitPackEnumRecord); //@@ _pre3_BitPackEnumRecord; // }}
|
||||
pre__BitPackEnum3Record{e} := TxBitPackEnum3Record(_pre2_BitPackEnum3Record); //@@ _pre3_BitPackEnum3Record; // }}
|
||||
pre__BitPackSetRecord{e} := TxBitPackSetRecord(_pre2_BitPackSetRecord); //@@ _pre3_BitPackSetRecord; // }}
|
||||
pre__BitPackSet3Record{e} := TxBitPackSet3Record(_pre2_BitPackSet3Record); //@@ _pre3_BitPackSet3Record; // }}
|
||||
pre__BitPackBoolRecord{e} := TxBitPackBoolRecord(_pre2_BitPackBoolRecord); //@@ _pre3_BitPackBoolRecord{e3}; // }}
|
||||
pre__BitPackTinyRecord{e} := TxBitPackTinyRecord(_pre2_BitPackTinyRecord); //@@ _pre3_BitPackTinyRecord{e3}; // }}
|
||||
pre__BitPackTinyNegRecord{e} := TxBitPackTinyNegRecord(_pre2_BitPackTinyNegRecord); //@@ _pre3_BitPackTinyNegRecord{e3}; // }}
|
||||
pre__BitPackEnumRecord{e} := TxBitPackEnumRecord(_pre2_BitPackEnumRecord); //@@ _pre3_BitPackEnumRecord{e3}; // }}
|
||||
pre__BitPackEnum3Record{e} := TxBitPackEnum3Record(_pre2_BitPackEnum3Record); //@@ _pre3_BitPackEnum3Record{e3}; // }}
|
||||
pre__BitPackSetRecord{e} := TxBitPackSetRecord(_pre2_BitPackSetRecord); //@@ _pre3_BitPackSetRecord{e3}; // }}
|
||||
pre__BitPackSet3Record{e} := TxBitPackSet3Record(_pre2_BitPackSet3Record); //@@ _pre3_BitPackSet3Record{e3}; // }}
|
||||
|
||||
pre__BitPackBoolArrayRecord{e} := TxBitPackBoolArrayRecord(_pre2_BitPackBoolArrayRecord); //@@ _pre3_BitPackBoolArrayRecord; // }}
|
||||
pre__BitPackTinyArrayRecord{e} := TxBitPackTinyArrayRecord(_pre2_BitPackTinyArrayRecord); //@@ _pre3_BitPackTinyArrayRecord; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} := TxBitPackTinyNegArrayRecord(_pre2_BitPackTinyNegArrayRecord); //@@ _pre3_BitPackTinyNegArrayRecord; // }}
|
||||
pre__BitPackEnumArrayRecord{e} := TxBitPackEnumArrayRecord(_pre2_BitPackEnumArrayRecord); //@@ _pre3_BitPackEnumArrayRecord; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} := TxBitPackEnum3ArrayRecord(_pre2_BitPackEnum3ArrayRecord); //@@ _pre3_BitPackEnum3ArrayRecord; // }}
|
||||
pre__BitPackSetArrayRecord{e} := TxBitPackSetArrayRecord(_pre2_BitPackSetArrayRecord); //@@ _pre3_BitPackSetArrayRecord; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} := TxBitPackSet3ArrayRecord(_pre2_BitPackSet3ArrayRecord); //@@ _pre3_BitPackSet3ArrayRecord; // }}
|
||||
pre__BitPackBoolArrayRecord{e} := TxBitPackBoolArrayRecord(_pre2_BitPackBoolArrayRecord); //@@ _pre3_BitPackBoolArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyArrayRecord{e} := TxBitPackTinyArrayRecord(_pre2_BitPackTinyArrayRecord); //@@ _pre3_BitPackTinyArrayRecord{e3}; // }}
|
||||
pre__BitPackTinyNegArrayRecord{e} := TxBitPackTinyNegArrayRecord(_pre2_BitPackTinyNegArrayRecord); //@@ _pre3_BitPackTinyNegArrayRecord{e3}; // }}
|
||||
pre__BitPackEnumArrayRecord{e} := TxBitPackEnumArrayRecord(_pre2_BitPackEnumArrayRecord); //@@ _pre3_BitPackEnumArrayRecord{e3}; // }}
|
||||
pre__BitPackEnum3ArrayRecord{e} := TxBitPackEnum3ArrayRecord(_pre2_BitPackEnum3ArrayRecord); //@@ _pre3_BitPackEnum3ArrayRecord{e3}; // }}
|
||||
pre__BitPackSetArrayRecord{e} := TxBitPackSetArrayRecord(_pre2_BitPackSetArrayRecord); //@@ _pre3_BitPackSetArrayRecord{e3}; // }}
|
||||
pre__BitPackSet3ArrayRecord{e} := TxBitPackSet3ArrayRecord(_pre2_BitPackSet3ArrayRecord); //@@ _pre3_BitPackSet3ArrayRecord{e3}; // }}
|
||||
|
||||
pre__FpDbgValueSize{e} := TxFpDbgValueSize(_pre2_FpDbgValueSize); //@@ _pre3_FpDbgValueSize; // }}
|
||||
pre__FpDbgValueSize{e} := TxFpDbgValueSize(_pre2_FpDbgValueSize); //@@ _pre3_FpDbgValueSize{e3}; // }}
|
||||
{$ENDIF}
|
||||
|
||||
{$ENDIF}
|
||||
@ -474,56 +474,56 @@
|
||||
{$IFnDEF TestParam}
|
||||
{$IFnDEF TestArg}
|
||||
{$IFnDEF TestPointer}
|
||||
pre__Set2{e} _O2_ set of TEnum _EQ_ ([EnVal1, EnVal4]); //@@ _pre3_Set2;
|
||||
pre__SmallSet2{e} _O2_ set of TSmallRange _EQ_ ([21, 24,25]); //@@ _pre3_SmallSet2;
|
||||
pre__Set2{e} _O2_ set of TEnum _EQ_ ([EnVal1, EnVal4]); //@@ _pre3_Set2{e3};
|
||||
pre__SmallSet2{e} _O2_ set of TSmallRange _EQ_ ([21, 24,25]); //@@ _pre3_SmallSet2{e3};
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFnDEF TestAssign}
|
||||
pre__FiveRec{e} _O2_ TRecordFive _EQ_ (a:-22-ADD;b:44); //@@ _pre3_FiveRec;
|
||||
pre__Rec3S{e} _O2_ TRecord3Int64 _EQ_ (a:-22;b:44;c:1000+ADD); //@@ _pre3_Rec3S;
|
||||
pre__Rec3U{e} _O2_ TRecord3QWord _EQ_ (a:111;b:44;c:1000+ADD); //@@ _pre3_Rec3U;
|
||||
pre__FiveRec{e} _O2_ TRecordFive _EQ_ (a:-22-ADD;b:44); //@@ _pre3_FiveRec{e3};
|
||||
pre__Rec3S{e} _O2_ TRecord3Int64 _EQ_ (a:-22;b:44;c:1000+ADD); //@@ _pre3_Rec3S{e3};
|
||||
pre__Rec3U{e} _O2_ TRecord3QWord _EQ_ (a:111;b:44;c:1000+ADD); //@@ _pre3_Rec3U{e3};
|
||||
|
||||
pre__Obj3{e} _O2_ TObject3Int64 _EQ_ (a:-22;b:44;c:4000+ADD); //@@ _pre3_Obj3;
|
||||
pre__Obj3Ex{e} _O2_ TObject3Int64Ex _EQ_ (a:-22;b:44;c:4100+ADD; d: 555); //@@ _pre3_Obj3Ex;
|
||||
pre__Obj3{e} _O2_ TObject3Int64 _EQ_ (a:-22;b:44;c:4000+ADD); //@@ _pre3_Obj3{e3};
|
||||
pre__Obj3Ex{e} _O2_ TObject3Int64Ex _EQ_ (a:-22;b:44;c:4100+ADD; d: 555); //@@ _pre3_Obj3Ex{e3};
|
||||
{$IFnDEF TestConst}
|
||||
{$IFnDEF TestAssignGC}
|
||||
{$IFnDEF TestType} // will work in fpc 3.2.0 upwards
|
||||
pre__Obj3C{e} _O2_ TObjectCreate3Int64 ; //@@ _pre3_Obj3C; // }}}
|
||||
pre__Obj3ExC{e} _O2_ TObjectCreate3Int64Ex ; //@@ _pre3_Obj3ExC; // }}}
|
||||
pre__Obj3C{e} _O2_ TObjectCreate3Int64 ; //@@ _pre3_Obj3C{e3}; // }}}
|
||||
pre__Obj3ExC{e} _O2_ TObjectCreate3Int64Ex ; //@@ _pre3_Obj3ExC{e3}; // }}}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ELSE} // TestAssign
|
||||
{$IFDEF TestType} // incomplete values
|
||||
pre__FiveRec{e} := pre__FiveRec; pre__FiveRec{e}.a := -22-ADD; //@@ _pre3_FiveRec; // }}}
|
||||
pre__Rec3S{e} := pre__Rec3S; pre__Rec3S{e}.c := 1000+ADD; //@@ _pre3_Rec3S; // }}}
|
||||
pre__Rec3U{e} := pre__Rec3U; pre__Rec3U{e}.c := 1000+ADD; //@@ _pre3_Rec3U; // }}}
|
||||
pre__FiveRec{e} := pre__FiveRec; pre__FiveRec{e}.a := -22-ADD; //@@ _pre3_FiveRec{e3}; // }}}
|
||||
pre__Rec3S{e} := pre__Rec3S; pre__Rec3S{e}.c := 1000+ADD; //@@ _pre3_Rec3S{e3}; // }}}
|
||||
pre__Rec3U{e} := pre__Rec3U; pre__Rec3U{e}.c := 1000+ADD; //@@ _pre3_Rec3U{e3}; // }}}
|
||||
|
||||
pre__Obj3{e} := pre__Obj3; pre__Obj3{e}.c := 4000+ADD; //@@ _pre3_Obj3; // }}}
|
||||
pre__Obj3Ex{e} := pre__Obj3Ex; pre__Obj3Ex{e}.c := 4100+ADD; //@@ _pre3_Obj3Ex; // }}}
|
||||
pre__Obj3{e} := pre__Obj3; pre__Obj3{e}.c := 4000+ADD; //@@ _pre3_Obj3{e3}; // }}}
|
||||
pre__Obj3Ex{e} := pre__Obj3Ex; pre__Obj3Ex{e}.c := 4100+ADD; //@@ _pre3_Obj3Ex{e3}; // }}}
|
||||
{$ELSE}
|
||||
pre__FiveRec{e} := _pre2_FiveRec; pre__FiveRec{e}.a := -22-ADD; //@@ _pre3_FiveRec; // }}}
|
||||
pre__Rec3S{e} := _pre2_Rec3S; pre__Rec3S{e}.c := 1000+ADD; //@@ _pre3_Rec3S; // }}}
|
||||
pre__Rec3U{e} := _pre2_Rec3U; pre__Rec3U{e}.c := 1000+ADD; //@@ _pre3_Rec3U; // }}}
|
||||
pre__FiveRec{e} := _pre2_FiveRec; pre__FiveRec{e}.a := -22-ADD; //@@ _pre3_FiveRec{e3}; // }}}
|
||||
pre__Rec3S{e} := _pre2_Rec3S; pre__Rec3S{e}.c := 1000+ADD; //@@ _pre3_Rec3S{e3}; // }}}
|
||||
pre__Rec3U{e} := _pre2_Rec3U; pre__Rec3U{e}.c := 1000+ADD; //@@ _pre3_Rec3U{e3}; // }}}
|
||||
|
||||
pre__Obj3{e} := _pre2_Obj3; pre__Obj3{e}.c := 4000+ADD; //@@ _pre3_Obj3; // }}}
|
||||
pre__Obj3Ex{e} := _pre2_Obj3Ex; pre__Obj3Ex{e}.c := 4100+ADD; //@@ _pre3_Obj3Ex; // }}}
|
||||
pre__Obj3{e} := _pre2_Obj3; pre__Obj3{e}.c := 4000+ADD; //@@ _pre3_Obj3{e3}; // }}}
|
||||
pre__Obj3Ex{e} := _pre2_Obj3Ex; pre__Obj3Ex{e}.c := 4100+ADD; //@@ _pre3_Obj3Ex{e3}; // }}}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFnDEF TestConst}
|
||||
{$IFnDEF TestType} // will work in fpc 3.2.0 upwards
|
||||
pre__Obj3C{e}.Create; pre__Obj3C{e}.a := 22; pre__Obj3C{e}.b := 44; pre__Obj3C{e}.c := 4200+ADD; //@@ _pre3_Obj3C; // }}}}}
|
||||
pre__Obj3ExC{e}.Create; pre__Obj3ExC{e}.a := 22; pre__Obj3ExC{e}.b := 44; pre__Obj3ExC{e}.c := 4300+ADD; pre__Obj3ExC{e}.d := 655; //@@ _pre3_Obj3ExC; // }}}}}
|
||||
pre__Obj3C{e}.Create; pre__Obj3C{e}.a := 22; pre__Obj3C{e}.b := 44; pre__Obj3C{e}.c := 4200+ADD; //@@ _pre3_Obj3C{e3}; // }}}}}
|
||||
pre__Obj3ExC{e}.Create; pre__Obj3ExC{e}.a := 22; pre__Obj3ExC{e}.b := 44; pre__Obj3ExC{e}.c := 4300+ADD; pre__Obj3ExC{e}.d := 655; //@@ _pre3_Obj3ExC{e3}; // }}}}}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
pre__Instance0{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance0;
|
||||
pre__Instance1{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance1;
|
||||
pre__Instance1_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_Instance1_Int;
|
||||
pre__Instance0{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance0{e3};
|
||||
pre__Instance1{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance1{e3};
|
||||
pre__Instance1_Int{e} _O2_ PtrUInt _EQ_ (0); //@@ _pre3_Instance1_Int{e3};
|
||||
{$IFDEF TestAssign}
|
||||
{$IFDEF TestType}
|
||||
pre__Instance1{e} := TxInstance1.Create; //@@
|
||||
@ -537,8 +537,8 @@
|
||||
|
||||
{$IFnDEF TestType}
|
||||
{$IFnDEF TestArg}{$IFnDEF TestParam}
|
||||
pre__Instance2{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance2;
|
||||
pre__Instance2b{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance2b;
|
||||
pre__Instance2{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance2{e3};
|
||||
pre__Instance2b{e} _O2_ TClass1 _EQ_ (nil); //@@ _pre3_Instance2b{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__Instance2{e} := TClass1.Create; //@@
|
||||
pre__Instance2b{e} := pre__Instance2{e}; //@@ // }}
|
||||
@ -548,16 +548,16 @@
|
||||
|
||||
{$IFnDEF TestType}
|
||||
{$IFnDEF TestAssign}
|
||||
pre__Class1Rec{e} _O2_ TRecordClass1 _EQ_ (Foo: nil); //@@ _pre3_Class1Rec;
|
||||
pre__Class1Rec{e} _O2_ TRecordClass1 _EQ_ (Foo: nil); //@@ _pre3_Class1Rec{e3};
|
||||
{$ELSE}
|
||||
pre__Class1Rec{e}.Foo := pre__Instance1{e}; //@@ _pre3_Class1Rec; // }}}
|
||||
pre__Class1Rec{e}.Foo := pre__Instance1{e}; //@@ _pre3_Class1Rec{e3}; // }}}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
pre__SomeFunc1Ref{e} _O2_ TFunc1 _EQ_ (nil); //@@ _pre3_SomeFunc1Ref;
|
||||
pre__SomeProc1Ref{e} _O2_ TProc1 _EQ_ (nil); //@@ _pre3_SomeProc1Ref;
|
||||
pre__SomeMeth1Ref{e} _O2_ TMeth1 _EQ_ (nil); //@@ _pre3_SomeMeth1Ref;
|
||||
pre__SomeFunc1Ref{e} _O2_ TFunc1 _EQ_ (nil); //@@ _pre3_SomeFunc1Ref{e3};
|
||||
pre__SomeProc1Ref{e} _O2_ TProc1 _EQ_ (nil); //@@ _pre3_SomeProc1Ref{e3};
|
||||
pre__SomeMeth1Ref{e} _O2_ TMeth1 _EQ_ (nil); //@@ _pre3_SomeMeth1Ref{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__SomeFunc1Ref{e} := @SomeFunc1; //@@
|
||||
pre__SomeProc1Ref{e} := @SomeProc1; //@@
|
||||
@ -580,15 +580,15 @@
|
||||
|
||||
// self in instance / class
|
||||
|
||||
pre__IntfUnknown{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown;
|
||||
pre__IntfUnknown{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown{e3};
|
||||
{$IFnDEF TestType}
|
||||
pre__IntfUnknown1{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown1;
|
||||
pre__IntfUnknown1{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown1{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__IntfUnknown1{e} := InterfacedObject as IUnknown; //@@
|
||||
{$ENDIF}
|
||||
{$IFnDEF TestArg}{$IFnDEF TestParam} // reduce count of param...
|
||||
pre__IntfUnknown2{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown2;
|
||||
pre__IntfUnknown2b{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown2b;
|
||||
pre__IntfUnknown2{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown2{e3};
|
||||
pre__IntfUnknown2b{e} _OP_ IUnknown ( nil ); //@@ _pre3_IntfUnknown2b{e3};
|
||||
{$IFDEF TestAssign}
|
||||
pre__IntfUnknown2{e} := InterfacedObject2 as IUnknown; //@@
|
||||
pre__IntfUnknown2b{e} := InterfacedObject2 as IUnknown; //@@
|
||||
|
||||
Loading…
Reference in New Issue
Block a user