6 #define TMP_ADDR 0x0001
10 #define LOC_SYM 0x0800
11 #define LOC_LOCAL 0x1000
12 #define LOC_MASK 0xff00
43 #define MIN(a, b) ((a) < (b) ? (a) : (b))
45 #define TMP_BT(t) ((t)->flags & TMP_ADDR ? LONGSZ : (t)->bt)
46 #define TMP_REG(t) ((t)->flags & LOC_REG ? (t)->addr : reg_get(~0))
47 #define TMP_REG2(t, r) ((t)->flags & LOC_REG && (t)->addr != r ? \
48 (t)->addr : reg_get(~(1 << r)))
49 #define TMPBT(bt) (BT_SZ(bt) >= 4 ? (bt) : (bt) & BT_SIGNED | 4)
51 #define R_BYTEREGS (1 << R_EAX | 1 << R_EDX | 1 << R_ECX)
52 #define TMP_BYTEREG(t) ((t)->flags & LOC_REG && \
53 (1 << (t)->addr) & R_BYTEREGS ? \
54 (t)->addr : reg_get(R_BYTEREGS))
56 static char buf
[SECSIZE
];
60 static long spsub_addr
;
63 #define TMP(i) (&tmps[ntmp - 1 - (i)])
67 long off
; /* offset from a symbol or a local */
75 static struct tmp
*regs
[NREGS
];
76 static int tmpregs
[] = {R_EAX
, R_ESI
, R_EDI
, R_EBX
, R_EDX
, R_ECX
};
78 #define MAXRET (1 << 8)
80 static long ret
[MAXRET
];
86 static void putint(char *s
, long n
, int l
)
94 static void os(char *s
, int n
)
102 static void oi(long n
, int l
)
112 static long codeaddr(void)
117 #define OP2(o2, o1) (0x010000 | ((o2) << 8) | (o1))
118 #define O2(op) (((op) >> 8) & 0xff)
119 #define O1(op) ((op) & 0xff)
120 #define MODRM(m, r1, r2) ((m) << 6 | (r1) << 3 | (r2))
122 static void op_x(int op
, int r1
, int r2
, int bt
)
129 oi(sz
== 1 ? O1(op
) & ~0x1 : O1(op
), 1);
134 /* op_*(): r=reg, m=mem, i=imm, s=sym */
135 static void op_rm(int op
, int src
, int base
, int off
, int bt
)
137 int dis
= off
== (char) off
? 1 : 4;
138 int mod
= dis
== 4 ? 2 : 1;
141 op_x(op
, src
, base
, bt
);
142 oi(MODRM(mod
, src
& 0x07, base
& 0x07), 1);
149 static void op_rr(int op
, int src
, int dst
, int bt
)
151 op_x(op
, src
, dst
, bt
);
152 oi(MODRM(3, src
& 0x07, dst
& 0x07), 1);
155 static void op_rs(int op
, int src
, long addr
, int off
, int bt
)
157 op_x(op
, src
, 0, bt
);
158 oi(MODRM(0, src
& 0x07, 5), 1);
160 out_rela(addr
, codeaddr(), 1);
164 static void op_ri(int op
, int o3
, int src
, long num
, int bt
)
166 op_x(op
, src
, 0, bt
);
167 oi(MODRM(3, o3
, src
& 0x07), 1);
168 oi(num
, MIN(4, BT_SZ(bt
)));
171 static void op_sr(int op
, int src
, long addr
, int off
, int bt
)
173 op_x(op
, src
, 0, bt
);
174 oi(MODRM(0, src
& 0x07, 5), 1);
176 out_rela(addr
, codeaddr(), 1);
180 static void op_si(int op
, int o3
, long addr
, int off
, long num
, int bt
)
182 int sz
= MIN(4, BT_SZ(bt
));
184 oi(MODRM(0, o3
, 5), 1);
186 out_rela(addr
, codeaddr(), 1);
191 static void op_mi(int op
, int o3
, int base
, int off
, long num
, int bt
)
193 int dis
= off
== (char) off
? 1 : 4;
194 int mod
= dis
== 4 ? 2 : 1;
197 op_x(op
, 0, base
, bt
);
198 oi(MODRM(mod
, 0, base
), 1);
201 oi(num
, MIN(4, BT_SZ(bt
)));
204 static long sp_push(int size
)
212 #define LOC_NEW(f, l) (((f) & ~LOC_MASK) | (l))
214 static void tmp_mem(struct tmp
*tmp
)
217 if (!(tmp
->flags
& LOC_REG
))
221 tmp
->addr
= -sp_push(LONGSZ
);
222 op_rm(MOV_R2X
, src
, R_EBP
, tmp
->addr
, TMPBT(TMP_BT(tmp
)));
224 tmp
->flags
= LOC_NEW(tmp
->flags
, LOC_MEM
);
227 static int movxx_x2r(int bt
)
231 o2
= bt
& BT_SIGNED
? 0xbe : 0xb6;
233 o2
= bt
& BT_SIGNED
? 0xbf : 0xb7;
234 return OP2(0x0f, o2
);
239 static void mov_r2r(int r1
, int r2
, unsigned bt1
, unsigned bt2
)
241 int s1
= bt1
& BT_SIGNED
;
242 int s2
= bt2
& BT_SIGNED
;
243 int sz1
= BT_SZ(bt1
);
244 int sz2
= BT_SZ(bt2
);
245 if (sz2
< 4 && (sz1
> sz2
|| s1
!= s2
)) {
246 op_rr(movxx_x2r(bt2
), r1
, r2
, 4);
249 if (sz1
== 4 && sz2
== 8 && s1
) {
250 op_rr(MOVSXD
, r2
, r1
, sz2
);
253 if (r1
!= r2
|| sz1
> sz2
)
254 op_rr(MOV_R2X
, r1
, r2
, TMPBT(bt2
));
257 static void mov_m2r(int dst
, int base
, int off
, int bt1
, int bt2
)
259 if (BT_SZ(bt1
) < 4) {
260 op_rm(movxx_x2r(bt1
), dst
, base
, off
,
261 bt1
& BT_SIGNED
&& BT_SZ(bt2
) == 8 ? 8 : 4);
262 mov_r2r(dst
, dst
, bt1
, bt2
);
264 op_rm(MOV_M2R
, dst
, base
, off
, bt1
);
265 mov_r2r(dst
, dst
, bt1
, bt2
);
269 static void num_cast(struct tmp
*t
, unsigned bt
)
271 if (!(bt
& BT_SIGNED
) && BT_SZ(bt
) != LONGSZ
)
272 t
->addr
&= ((1l << (long) (BT_SZ(bt
) * 8)) - 1);
273 if (bt
& BT_SIGNED
&& BT_SZ(bt
) != LONGSZ
&&
274 t
->addr
> (1l << (BT_SZ(bt
) * 8 - 1)))
275 t
->addr
= -((1l << (BT_SZ(bt
) * 8)) - t
->addr
);
279 static void num_reg(int reg
, unsigned bt
, long num
)
281 int op
= MOV_I2R
+ (reg
& 7);
282 op_x(op
, 0, reg
, bt
);
286 static void tmp_reg(struct tmp
*tmp
, int dst
, unsigned bt
, int deref
)
288 if (deref
&& tmp
->flags
& TMP_ADDR
)
289 tmp
->flags
&= ~TMP_ADDR
;
292 if (tmp
->flags
& LOC_NUM
) {
295 num_reg(dst
, tmp
->bt
, tmp
->addr
);
298 tmp
->flags
= LOC_NEW(tmp
->flags
, LOC_REG
);
300 if (tmp
->flags
& LOC_SYM
) {
301 op_rr(MOV_I2X
, 0, dst
, 4);
303 out_rela(tmp
->addr
, codeaddr(), 0);
307 tmp
->flags
= LOC_NEW(tmp
->flags
, LOC_REG
);
309 if (tmp
->flags
& LOC_REG
) {
311 mov_m2r(dst
, tmp
->addr
, 0, tmp
->bt
, bt
);
313 mov_r2r(tmp
->addr
, dst
, TMP_BT(tmp
),
314 tmp
->flags
& TMP_ADDR
? LONGSZ
: bt
);
315 regs
[tmp
->addr
] = NULL
;
317 if (tmp
->flags
& LOC_LOCAL
) {
319 mov_m2r(dst
, R_EBP
, tmp
->addr
+ tmp
->off
, tmp
->bt
, bt
);
321 op_rm(LEA_M2R
, dst
, R_EBP
, tmp
->addr
+ tmp
->off
, LONGSZ
);
323 if (tmp
->flags
& LOC_MEM
) {
324 int nbt
= deref
? LONGSZ
: TMP_BT(tmp
);
325 mov_m2r(dst
, R_EBP
, tmp
->addr
, nbt
, nbt
);
327 mov_m2r(dst
, dst
, 0, tmp
->bt
, bt
);
330 tmp
->bt
= tmp
->flags
& TMP_ADDR
? bt
: TMPBT(bt
);
332 tmp
->flags
= LOC_NEW(tmp
->flags
, LOC_REG
);
335 static void reg_free(int reg
)
340 for (i
= 0; i
< ARRAY_SIZE(tmpregs
); i
++)
341 if (!regs
[tmpregs
[i
]]) {
342 tmp_reg(regs
[reg
], tmpregs
[i
], regs
[reg
]->bt
, 0);
348 static void reg_for(int reg
, struct tmp
*t
)
350 if (regs
[reg
] && regs
[reg
] != t
)
354 static void tmp_mv(struct tmp
*t
, int reg
)
357 tmp_reg(t
, reg
, t
->bt
, 0);
360 static void tmp_to(struct tmp
*t
, int reg
, int bt
)
363 tmp_reg(t
, reg
, bt
? bt
: t
->bt
, 1);
366 static void tmp_drop(int n
)
369 for (i
= ntmp
- n
; i
< ntmp
; i
++)
370 if (tmps
[i
].flags
& LOC_REG
)
371 regs
[tmps
[i
].addr
] = NULL
;
376 static int tmp_pop(int reg
, int bt
)
378 struct tmp
*t
= TMP(0);
384 static struct tmp
*tmp_new(void)
387 return &tmps
[ntmp
++];
390 static void tmp_push(int reg
, unsigned bt
)
392 struct tmp
*t
= tmp_new();
399 void o_local(long addr
, unsigned bt
)
401 struct tmp
*t
= tmp_new();
404 t
->flags
= LOC_LOCAL
| TMP_ADDR
;
408 void o_num(long num
, unsigned bt
)
410 struct tmp
*t
= tmp_new();
416 void o_symaddr(long addr
, unsigned bt
)
418 struct tmp
*t
= tmp_new();
421 t
->flags
= LOC_SYM
| TMP_ADDR
;
425 void o_tmpdrop(int n
)
427 if (n
== -1 || n
> ntmp
)
437 #define FORK_REG R_EAX
439 /* make sure tmps remain intact after a conditional expression */
443 for (i
= 0; i
< ntmp
- 1; i
++)
447 void o_forkpush(void)
452 void o_forkjoin(void)
454 tmp_push(FORK_REG
, 0);
459 struct tmp
*t1
= TMP(0);
460 struct tmp
*t2
= TMP(1);
462 memcpy(&t
, t1
, sizeof(t
));
463 memcpy(t1
, t2
, sizeof(t
));
464 memcpy(t2
, &t
, sizeof(t
));
465 if (t1
->flags
& LOC_REG
)
467 if (t2
->flags
& LOC_REG
)
471 static int reg_get(int mask
)
474 for (i
= 0; i
< ARRAY_SIZE(tmpregs
); i
++)
475 if ((1 << tmpregs
[i
]) & mask
&& !regs
[tmpregs
[i
]])
477 for (i
= 0; i
< ARRAY_SIZE(tmpregs
); i
++)
478 if ((1 << tmpregs
[i
]) & mask
) {
479 reg_free(tmpregs
[i
]);
485 void tmp_copy(struct tmp
*t1
)
487 struct tmp
*t2
= tmp_new();
488 memcpy(t2
, t1
, sizeof(*t1
));
489 if (!(t1
->flags
& (LOC_REG
| LOC_MEM
)))
491 if (t1
->flags
& LOC_MEM
) {
492 tmp_reg(t2
, reg_get(~0), t2
->bt
, 0);
493 } else if (t1
->flags
& LOC_REG
) {
494 t2
->addr
= reg_get(~(1 << t1
->addr
));
495 op_rr(MOV_R2X
, t1
->addr
, t2
->addr
, TMPBT(TMP_BT(t1
)));
505 void o_cast(unsigned bt
)
507 struct tmp
*t
= TMP(0);
511 if (t
->flags
& LOC_NUM
) {
515 reg
= BT_SZ(bt
) > 1 ? TMP_REG(t
) : TMP_BYTEREG(t
);
519 long o_func_beg(char *name
, int global
)
521 long addr
= out_func_beg(name
, global
);
523 os("\x55", 1); /* push %rbp */
524 os("\x89\xe5", 2); /* mov %rsp, %rbp */
525 os("\x53\x56\x57", 3); /* push ebx; push esi; push edi */
532 memset(regs
, 0, sizeof(regs
));
533 os("\x81\xec", 2); /* sub $xxx, %rsp */
534 spsub_addr
= codeaddr();
539 void o_deref(unsigned bt
)
541 struct tmp
*t
= TMP(0);
542 if (t
->flags
& TMP_ADDR
)
543 tmp_to(t
, TMP_REG(t
), t
->bt
);
545 t
->flags
|= TMP_ADDR
;
550 struct tmp
*t
= TMP(0);
551 tmp_to(t
, TMP_REG(t
), t
->bt
);
554 static unsigned bt_op(unsigned bt1
, unsigned bt2
)
556 unsigned s1
= BT_SZ(bt1
);
557 unsigned s2
= BT_SZ(bt2
);
558 unsigned bt
= (bt1
| bt2
) & BT_SIGNED
| (s1
> s2
? s1
: s2
);
562 #define TMP_NUM(t) ((t)->flags & LOC_NUM && !((t)->flags & TMP_ADDR))
563 #define LOCAL_PTR(t) ((t)->flags & LOC_LOCAL && !((t)->flags & TMP_ADDR))
564 #define SYM_PTR(t) ((t)->flags & LOC_SYM && !((t)->flags & TMP_ADDR))
566 int o_popnum(long *c
)
568 struct tmp
*t
= TMP(0);
576 static void shx(int uop
, int sop
)
578 struct tmp
*t1
= TMP(0);
579 struct tmp
*t2
= TMP(1);
580 int r2
= TMP_REG2(t2
, R_ECX
);
582 tmp_to(t1
, R_ECX
, 0);
585 op_rr(SHX_REG
, bt
& BT_SIGNED
? sop
: uop
, r2
, TMPBT(bt
));
590 static int mulop(int uop
, int sop
, int reg
)
592 struct tmp
*t1
= TMP(0);
593 struct tmp
*t2
= TMP(1);
594 int bt
= bt_op(t1
->bt
, t2
->bt
);
595 if (t1
->flags
& LOC_REG
&& t1
->addr
!= R_EAX
&& t1
->addr
!= R_EDX
)
598 tmp_to(t2
, R_EAX
, bt
);
602 op_x(CQO_REG
, R_EAX
, R_EDX
, bt
);
604 op_rr(XOR_R2X
, R_EDX
, R_EDX
, bt
);
607 op_rr(MUL_A2X
, bt
& BT_SIGNED
? sop
: uop
, reg
, TMPBT(t2
->bt
));
613 tmps
[ntmp
- 1].flags
&= ~TMP_ADDR
;
614 tmps
[ntmp
- 1].bt
= LONGSZ
;
617 void o_ret(unsigned bt
)
622 os("\x31\xc0", 2); /* xor %eax, %eax */
623 ret
[nret
++] = o_jmp(0);
626 static void inc(int op
)
628 struct tmp
*t
= TMP(0);
631 if (t
->flags
& LOC_LOCAL
) {
633 off
= t
->addr
+ t
->off
;
639 op_rm(INC_X
, op
, reg
, off
, t
->bt
);
644 if (cmp_last
== codeaddr()) {
645 buf
[cmp_setl
+ 1] ^= 0x01;
647 o_num(0, 4 | BT_SIGNED
);
654 struct tmp
*t
= TMP(0);
656 unsigned bt
= TMPBT(t
->bt
);
659 op_rr(NOT_REG
, id
, reg
, bt
);
662 void o_func_end(void)
665 for (i
= 0; i
< nret
; i
++)
667 os("\x5f\x5e\x5b", 3); /* pop edi; pop esi; pop ebx */
668 os("\xc9\xc3", 2); /* leave; ret; */
669 putint(buf
+ spsub_addr
, (maxsp
+ 7) & ~0x07, 4);
670 out_func_end(buf
, cur
- buf
);
673 long o_mklocal(int size
)
675 return sp_push((size
+ 7) & ~0x07);
678 void o_rmlocal(long addr
, int sz
)
683 long o_arg(int i
, unsigned bt
)
685 return -LONGSZ
* (i
+ 2);
688 void o_assign(unsigned bt
)
690 struct tmp
*t1
= TMP(0);
691 struct tmp
*t2
= TMP(1);
692 int r1
= BT_SZ(bt
) > 1 ? TMP_REG(t1
) : TMP_BYTEREG(t1
);
695 tmp_to(t1
, r1
, TMPBT(bt
));
696 if (t2
->flags
& LOC_LOCAL
) {
698 off
= t2
->addr
+ t2
->off
;
700 reg
= TMP_REG2(t2
, r1
);
705 op_rm(MOV_R2X
, r1
, reg
, off
, bt
);
709 static long cu(int op
, long i
)
721 static int c_uop(int op
)
723 struct tmp
*t1
= TMP(0);
727 o_num(cu(op
, t1
->addr
), t1
->bt
);
731 static long cb(int op
, long a
, long b
, int *bt
, int bt1
, int bt2
)
733 *bt
= bt_op(bt1
, bt2
);
759 return (unsigned long) a
>> b
;
781 static int c_bop(int op
)
783 struct tmp
*t1
= TMP(0);
784 struct tmp
*t2
= TMP(1);
785 int locals
= LOCAL_PTR(t1
) + LOCAL_PTR(t2
);
786 int syms
= SYM_PTR(t1
) + SYM_PTR(t2
);
787 int nums
= TMP_NUM(t1
) + TMP_NUM(t2
);
789 if (syms
+ locals
== 2 || syms
+ nums
+ locals
!= 2)
791 bt
= BT_SIGNED
| LONGSZ
;
792 if (!locals
&& !syms
)
793 bt
= bt_op(t1
->bt
, t2
->bt
);
794 if (syms
|| locals
) {
795 long o1
= TMP_NUM(t1
) ? t1
->addr
: t1
->off
;
796 long o2
= TMP_NUM(t2
) ? t2
->addr
: t2
->off
;
797 long ret
= cb(op
, o2
, o1
, &bt
, t2
->bt
, t1
->bt
);
803 long ret
= cb(op
, t2
->addr
, t1
->addr
, &bt
, t2
->bt
, t1
->bt
);
817 o_neg(op
== O_NEG
? 3 : 2);
829 static int binop(int op
, int *reg
)
831 struct tmp
*t1
= TMP(0);
832 struct tmp
*t2
= TMP(1);
834 unsigned bt
= bt_op(t1
->bt
, t2
->bt
);
836 r2
= TMP_REG2(t2
, r1
);
839 op_rr(op
, r2
, r1
, bt
);
844 static void bin_add(int op
)
846 /* opcode for O_ADD, O_SUB, O_AND, O_OR, O_XOR */
847 static int rx
[] = {0x03, 0x2b, 0x23, 0x0b, 0x33};
849 int bt
= binop(rx
[op
& 0x0f], ®
);
853 static void bin_shx(int op
)
855 if ((op
& 0xff) == O_SHL
)
861 static void bin_mul(int op
)
863 if ((op
& 0xff) == O_MUL
)
864 tmp_push(R_EAX
, mulop(4, 5, R_EDX
));
865 if ((op
& 0xff) == O_DIV
)
866 tmp_push(R_EAX
, mulop(6, 7, R_ECX
));
867 if ((op
& 0xff) == O_MOD
)
868 tmp_push(R_EDX
, mulop(6, 7, R_ECX
));
871 static void o_cmp(int uop
, int sop
)
873 struct tmp
*t1
= TMP(0);
874 struct tmp
*t2
= TMP(1);
875 char set
[] = "\x0f\x00\xc0";
878 if (regs
[R_EAX
] && regs
[R_EAX
] != t1
&& regs
[R_EAX
] != t2
)
880 bt
= binop(CMP_R2X
, ®
);
881 set
[1] = bt
& BT_SIGNED
? sop
: uop
;
882 cmp_setl
= codeaddr();
883 os(set
, 3); /* setl %al */
884 os("\x0f\xb6\xc0", 3); /* movzbl %al, %eax */
885 tmp_push(R_EAX
, 4 | BT_SIGNED
);
886 cmp_last
= codeaddr();
889 static void bin_cmp(int op
)
913 static void o_bopset(int op
)
918 o_assign(TMP(1)->bt
);
923 if (!(op
& O_SET
) && !c_bop(op
))
929 if ((op
& 0xf0) == 0x00)
931 if ((op
& 0xf0) == 0x10)
933 if ((op
& 0xf0) == 0x20)
935 if ((op
& 0xf0) == 0x30)
939 void o_memcpy(int sz
)
941 struct tmp
*t0
= TMP(-1);
942 struct tmp
*t1
= TMP(0);
943 struct tmp
*t2
= TMP(1);
945 tmp_to(t0
, R_ECX
, 0);
948 os("\xf3\xa4", 2); /* rep movs */
952 void o_memset(int x
, int sz
)
954 struct tmp
*t0
= TMP(-2);
955 struct tmp
*t1
= TMP(-1);
956 struct tmp
*t2
= TMP(0);
959 tmp_to(t0
, R_EAX
, 0);
960 tmp_to(t1
, R_ECX
, 0);
962 os("\xf3\xaa", 2); /* rep stosb */
971 static long jx(int x
, long addr
)
975 os(op
, 2); /* jx $addr */
976 oi(addr
- codeaddr() - 4, 4);
977 return codeaddr() - 4;
980 static long jxtest(int x
, long addr
)
982 int bt
= tmp_pop(R_EAX
, 0);
983 op_rr(TEST_R2R
, R_EAX
, R_EAX
, bt
);
987 static long jxcmp(long addr
, int inv
)
990 if (codeaddr() != cmp_last
)
993 cur
= buf
+ cmp_setl
;
994 x
= (unsigned char) buf
[cmp_setl
+ 1];
995 return jx((inv
? x
: x
^ 0x01) & ~0x10, addr
);
1000 long ret
= jxcmp(addr
, 0);
1001 return ret
!= -1 ? ret
: jxtest(0x84, addr
);
1004 long o_jnz(long addr
)
1006 long ret
= jxcmp(addr
, 1);
1007 return ret
!= -1 ? ret
: jxtest(0x85, addr
);
1010 long o_jmp(long addr
)
1012 os("\xe9", 1); /* jmp $addr */
1013 oi(addr
- codeaddr() - 4, 4);
1014 return codeaddr() - 4;
1017 void o_filljmp2(long addr
, long jmpdst
)
1019 putint(buf
+ addr
, jmpdst
- addr
- 4, 4);
1022 void o_filljmp(long addr
)
1024 o_filljmp2(addr
, codeaddr());
1027 void o_call(int argc
, unsigned *bt
, unsigned ret_bt
)
1031 for (i
= 0; i
< ARRAY_SIZE(tmpregs
); i
++)
1032 if (regs
[tmpregs
[i
]] && regs
[tmpregs
[i
]] - tmps
< ntmp
- argc
)
1033 tmp_mem(regs
[tmpregs
[i
]]);
1034 sp_push(LONGSZ
* argc
);
1035 for (i
= argc
- 1; i
>= 0; --i
) {
1036 int reg
= TMP_REG(TMP(0));
1037 tmp_pop(reg
, TMPBT(bt
[i
]));
1038 op_rm(MOV_R2X
, reg
, R_ESP
, i
* LONGSZ
, TMPBT(bt
[i
]));
1041 if (t
->flags
& LOC_SYM
) {
1042 os("\x31\xc0", 2); /* xor %eax, %eax */
1043 os("\xe8", 1); /* call $x */
1045 out_rela(t
->addr
, codeaddr(), 1);
1049 tmp_mv(TMP(0), R_EAX
);
1051 op_rr(CALL_REG
, 2, R_EAX
, 4);
1054 tmp_push(R_EAX
, ret_bt
);
1067 void o_datset(long addr
, int off
, unsigned bt
)
1069 struct tmp
*t
= TMP(0);
1070 if (t
->flags
& LOC_NUM
&& !(t
->flags
& TMP_ADDR
)) {
1072 out_datcpy(addr
, off
, (void *) &t
->addr
, BT_SZ(bt
));
1074 if (t
->flags
& LOC_SYM
&& !(t
->flags
& TMP_ADDR
)) {
1075 out_datrela(t
->addr
, addr
, off
);
1076 out_datcpy(addr
, off
, (void *) &t
->off
, BT_SZ(bt
));