|
@@ -137,10 +137,12 @@ interface
|
|
|
(tok:_OP_DEC ;nod:inlinen;inr:in_dec_x;op_overloading_supported:true) { unary overloading supported }
|
|
|
);
|
|
|
|
|
|
- tok2ops=2;
|
|
|
+ tok2ops=4;
|
|
|
tok2op: array[1..tok2ops] of ttok2oprec = (
|
|
|
(tok:_OP_INITIALIZE; managementoperator: mop_initialize),
|
|
|
- (tok:_OP_FINALIZE ; managementoperator: mop_finalize)
|
|
|
+ (tok:_OP_FINALIZE ; managementoperator: mop_finalize),
|
|
|
+ (tok:_OP_ADDREF ; managementoperator: mop_addref),
|
|
|
+ (tok:_OP_COPY ; managementoperator: mop_copy)
|
|
|
);
|
|
|
|
|
|
{ true, if we are parsing stuff which allows array constructors }
|