[AArch64][3/3] LD support BFD_RELOC_AARCH64_TLSLD_ADR_PREL21
[external/binutils.git] / bfd / elfxx-aarch64.c
1 /* AArch64-specific support for ELF.
2    Copyright (C) 2009-2015 Free Software Foundation, Inc.
3    Contributed by ARM Ltd.
4
5    This file is part of BFD, the Binary File Descriptor library.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 3 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; see the file COPYING3. If not,
19    see <http://www.gnu.org/licenses/>.  */
20
21 #include "sysdep.h"
22 #include "elfxx-aarch64.h"
23 #include <stdarg.h>
24 #include <string.h>
25
26 #define MASK(n) ((1u << (n)) - 1)
27
28 /* Sign-extend VALUE, which has the indicated number of BITS.  */
29
30 bfd_signed_vma
31 _bfd_aarch64_sign_extend (bfd_vma value, int bits)
32 {
33   if (value & ((bfd_vma) 1 << (bits - 1)))
34     /* VALUE is negative.  */
35     value |= ((bfd_vma) - 1) << bits;
36
37   return value;
38 }
39
40 /* Decode the IMM field of ADRP.  */
41
42 uint32_t
43 _bfd_aarch64_decode_adrp_imm (uint32_t insn)
44 {
45   return (((insn >> 5) & MASK (19)) << 2) | ((insn >> 29) & MASK (2));
46 }
47
48 /* Reencode the imm field of add immediate.  */
49 static inline uint32_t
50 reencode_add_imm (uint32_t insn, uint32_t imm)
51 {
52   return (insn & ~(MASK (12) << 10)) | ((imm & MASK (12)) << 10);
53 }
54
55 /* Reencode the IMM field of ADR.  */
56
57 uint32_t
58 _bfd_aarch64_reencode_adr_imm (uint32_t insn, uint32_t imm)
59 {
60   return (insn & ~((MASK (2) << 29) | (MASK (19) << 5)))
61     | ((imm & MASK (2)) << 29) | ((imm & (MASK (19) << 2)) << 3);
62 }
63
64 /* Reencode the imm field of ld/st pos immediate.  */
65 static inline uint32_t
66 reencode_ldst_pos_imm (uint32_t insn, uint32_t imm)
67 {
68   return (insn & ~(MASK (12) << 10)) | ((imm & MASK (12)) << 10);
69 }
70
71 /* Encode the 26-bit offset of unconditional branch.  */
72 static inline uint32_t
73 reencode_branch_ofs_26 (uint32_t insn, uint32_t ofs)
74 {
75   return (insn & ~MASK (26)) | (ofs & MASK (26));
76 }
77
78 /* Encode the 19-bit offset of conditional branch and compare & branch.  */
79 static inline uint32_t
80 reencode_cond_branch_ofs_19 (uint32_t insn, uint32_t ofs)
81 {
82   return (insn & ~(MASK (19) << 5)) | ((ofs & MASK (19)) << 5);
83 }
84
85 /* Decode the 19-bit offset of load literal.  */
86 static inline uint32_t
87 reencode_ld_lit_ofs_19 (uint32_t insn, uint32_t ofs)
88 {
89   return (insn & ~(MASK (19) << 5)) | ((ofs & MASK (19)) << 5);
90 }
91
92 /* Encode the 14-bit offset of test & branch.  */
93 static inline uint32_t
94 reencode_tst_branch_ofs_14 (uint32_t insn, uint32_t ofs)
95 {
96   return (insn & ~(MASK (14) << 5)) | ((ofs & MASK (14)) << 5);
97 }
98
99 /* Reencode the imm field of move wide.  */
100 static inline uint32_t
101 reencode_movw_imm (uint32_t insn, uint32_t imm)
102 {
103   return (insn & ~(MASK (16) << 5)) | ((imm & MASK (16)) << 5);
104 }
105
106 /* Reencode mov[zn] to movz.  */
107 static inline uint32_t
108 reencode_movzn_to_movz (uint32_t opcode)
109 {
110   return opcode | (1 << 30);
111 }
112
113 /* Reencode mov[zn] to movn.  */
114 static inline uint32_t
115 reencode_movzn_to_movn (uint32_t opcode)
116 {
117   return opcode & ~(1 << 30);
118 }
119
120 /* Return non-zero if the indicated VALUE has overflowed the maximum
121    range expressible by a unsigned number with the indicated number of
122    BITS.  */
123
124 static bfd_reloc_status_type
125 aarch64_unsigned_overflow (bfd_vma value, unsigned int bits)
126 {
127   bfd_vma lim;
128   if (bits >= sizeof (bfd_vma) * 8)
129     return bfd_reloc_ok;
130   lim = (bfd_vma) 1 << bits;
131   if (value >= lim)
132     return bfd_reloc_overflow;
133   return bfd_reloc_ok;
134 }
135
136 /* Return non-zero if the indicated VALUE has overflowed the maximum
137    range expressible by an signed number with the indicated number of
138    BITS.  */
139
140 static bfd_reloc_status_type
141 aarch64_signed_overflow (bfd_vma value, unsigned int bits)
142 {
143   bfd_signed_vma svalue = (bfd_signed_vma) value;
144   bfd_signed_vma lim;
145
146   if (bits >= sizeof (bfd_vma) * 8)
147     return bfd_reloc_ok;
148   lim = (bfd_signed_vma) 1 << (bits - 1);
149   if (svalue < -lim || svalue >= lim)
150     return bfd_reloc_overflow;
151   return bfd_reloc_ok;
152 }
153
154 /* Insert the addend/value into the instruction or data object being
155    relocated.  */
156 bfd_reloc_status_type
157 _bfd_aarch64_elf_put_addend (bfd *abfd,
158                              bfd_byte *address, bfd_reloc_code_real_type r_type,
159                              reloc_howto_type *howto, bfd_signed_vma addend)
160 {
161   bfd_reloc_status_type status = bfd_reloc_ok;
162   bfd_signed_vma old_addend = addend;
163   bfd_vma contents;
164   int size;
165
166   size = bfd_get_reloc_size (howto);
167   switch (size)
168     {
169     case 0:
170       return status;
171     case 2:
172       contents = bfd_get_16 (abfd, address);
173       break;
174     case 4:
175       if (howto->src_mask != 0xffffffff)
176         /* Must be 32-bit instruction, always little-endian.  */
177         contents = bfd_getl32 (address);
178       else
179         /* Must be 32-bit data (endianness dependent).  */
180         contents = bfd_get_32 (abfd, address);
181       break;
182     case 8:
183       contents = bfd_get_64 (abfd, address);
184       break;
185     default:
186       abort ();
187     }
188
189   switch (howto->complain_on_overflow)
190     {
191     case complain_overflow_dont:
192       break;
193     case complain_overflow_signed:
194       status = aarch64_signed_overflow (addend,
195                                         howto->bitsize + howto->rightshift);
196       break;
197     case complain_overflow_unsigned:
198       status = aarch64_unsigned_overflow (addend,
199                                           howto->bitsize + howto->rightshift);
200       break;
201     case complain_overflow_bitfield:
202     default:
203       abort ();
204     }
205
206   addend >>= howto->rightshift;
207
208   switch (r_type)
209     {
210     case BFD_RELOC_AARCH64_CALL26:
211     case BFD_RELOC_AARCH64_JUMP26:
212       contents = reencode_branch_ofs_26 (contents, addend);
213       break;
214
215     case BFD_RELOC_AARCH64_BRANCH19:
216       contents = reencode_cond_branch_ofs_19 (contents, addend);
217       break;
218
219     case BFD_RELOC_AARCH64_TSTBR14:
220       contents = reencode_tst_branch_ofs_14 (contents, addend);
221       break;
222
223     case BFD_RELOC_AARCH64_GOT_LD_PREL19:
224     case BFD_RELOC_AARCH64_LD_LO19_PCREL:
225     case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
226     case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
227       if (old_addend & ((1 << howto->rightshift) - 1))
228         return bfd_reloc_overflow;
229       contents = reencode_ld_lit_ofs_19 (contents, addend);
230       break;
231
232     case BFD_RELOC_AARCH64_TLSDESC_CALL:
233       break;
234
235     case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
236     case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
237     case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
238     case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
239     case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
240     case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
241     case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
242     case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
243     case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
244     case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
245       contents = _bfd_aarch64_reencode_adr_imm (contents, addend);
246       break;
247
248     case BFD_RELOC_AARCH64_ADD_LO12:
249     case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
250     case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
251     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
252     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
253     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
254       /* Corresponds to: add rd, rn, #uimm12 to provide the low order
255          12 bits of the page offset following
256          BFD_RELOC_AARCH64_ADR_HI21_PCREL which computes the
257          (pc-relative) page base.  */
258       contents = reencode_add_imm (contents, addend);
259       break;
260
261     case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
262     case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
263     case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
264     case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
265     case BFD_RELOC_AARCH64_LDST128_LO12:
266     case BFD_RELOC_AARCH64_LDST16_LO12:
267     case BFD_RELOC_AARCH64_LDST32_LO12:
268     case BFD_RELOC_AARCH64_LDST64_LO12:
269     case BFD_RELOC_AARCH64_LDST8_LO12:
270     case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
271     case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
272     case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
273     case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
274       if (old_addend & ((1 << howto->rightshift) - 1))
275         return bfd_reloc_overflow;
276       /* Used for ldr*|str* rt, [rn, #uimm12] to provide the low order
277          12 bits of the page offset following BFD_RELOC_AARCH64_ADR_HI21_PCREL
278          which computes the (pc-relative) page base.  */
279       contents = reencode_ldst_pos_imm (contents, addend);
280       break;
281
282       /* Group relocations to create high bits of a 16, 32, 48 or 64
283          bit signed data or abs address inline. Will change
284          instruction to MOVN or MOVZ depending on sign of calculated
285          value.  */
286
287     case BFD_RELOC_AARCH64_MOVW_G0_S:
288     case BFD_RELOC_AARCH64_MOVW_G1_S:
289     case BFD_RELOC_AARCH64_MOVW_G2_S:
290     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
291     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
292     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
293       /* NOTE: We can only come here with movz or movn.  */
294       if (addend < 0)
295         {
296           /* Force use of MOVN.  */
297           addend = ~addend;
298           contents = reencode_movzn_to_movn (contents);
299         }
300       else
301         {
302           /* Force use of MOVZ.  */
303           contents = reencode_movzn_to_movz (contents);
304         }
305       /* fall through */
306
307       /* Group relocations to create a 16, 32, 48 or 64 bit unsigned
308          data or abs address inline.  */
309
310     case BFD_RELOC_AARCH64_MOVW_G0:
311     case BFD_RELOC_AARCH64_MOVW_G0_NC:
312     case BFD_RELOC_AARCH64_MOVW_G1:
313     case BFD_RELOC_AARCH64_MOVW_G1_NC:
314     case BFD_RELOC_AARCH64_MOVW_G2:
315     case BFD_RELOC_AARCH64_MOVW_G2_NC:
316     case BFD_RELOC_AARCH64_MOVW_G3:
317     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
318     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
319       contents = reencode_movw_imm (contents, addend);
320       break;
321
322     default:
323       /* Repack simple data */
324       if (howto->dst_mask & (howto->dst_mask + 1))
325         return bfd_reloc_notsupported;
326
327       contents = ((contents & ~howto->dst_mask) | (addend & howto->dst_mask));
328       break;
329     }
330
331   switch (size)
332     {
333     case 2:
334       bfd_put_16 (abfd, contents, address);
335       break;
336     case 4:
337       if (howto->dst_mask != 0xffffffff)
338         /* must be 32-bit instruction, always little-endian */
339         bfd_putl32 (contents, address);
340       else
341         /* must be 32-bit data (endianness dependent) */
342         bfd_put_32 (abfd, contents, address);
343       break;
344     case 8:
345       bfd_put_64 (abfd, contents, address);
346       break;
347     default:
348       abort ();
349     }
350
351   return status;
352 }
353
354 bfd_vma
355 _bfd_aarch64_elf_resolve_relocation (bfd_reloc_code_real_type r_type,
356                                      bfd_vma place, bfd_vma value,
357                                      bfd_vma addend, bfd_boolean weak_undef_p)
358 {
359   switch (r_type)
360     {
361     case BFD_RELOC_AARCH64_NONE:
362     case BFD_RELOC_AARCH64_TLSDESC_CALL:
363       break;
364
365     case BFD_RELOC_AARCH64_16_PCREL:
366     case BFD_RELOC_AARCH64_32_PCREL:
367     case BFD_RELOC_AARCH64_64_PCREL:
368     case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
369     case BFD_RELOC_AARCH64_BRANCH19:
370     case BFD_RELOC_AARCH64_LD_LO19_PCREL:
371     case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
372     case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
373     case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
374     case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
375     case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
376     case BFD_RELOC_AARCH64_TSTBR14:
377       if (weak_undef_p)
378         value = place;
379       value = value + addend - place;
380       break;
381
382     case BFD_RELOC_AARCH64_CALL26:
383     case BFD_RELOC_AARCH64_JUMP26:
384       value = value + addend - place;
385       break;
386
387     case BFD_RELOC_AARCH64_16:
388     case BFD_RELOC_AARCH64_32:
389     case BFD_RELOC_AARCH64_MOVW_G0:
390     case BFD_RELOC_AARCH64_MOVW_G0_NC:
391     case BFD_RELOC_AARCH64_MOVW_G0_S:
392     case BFD_RELOC_AARCH64_MOVW_G1:
393     case BFD_RELOC_AARCH64_MOVW_G1_NC:
394     case BFD_RELOC_AARCH64_MOVW_G1_S:
395     case BFD_RELOC_AARCH64_MOVW_G2:
396     case BFD_RELOC_AARCH64_MOVW_G2_NC:
397     case BFD_RELOC_AARCH64_MOVW_G2_S:
398     case BFD_RELOC_AARCH64_MOVW_G3:
399       value = value + addend;
400       break;
401
402     case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
403     case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
404       if (weak_undef_p)
405         value = PG (place);
406       value = PG (value + addend) - PG (place);
407       break;
408
409     case BFD_RELOC_AARCH64_GOT_LD_PREL19:
410       value = value + addend - place;
411       break;
412
413     case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
414     case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
415     case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
416     case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
417       value = PG (value + addend) - PG (place);
418       break;
419
420     case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
421     case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
422       /* Caller must make sure addend is the base address of .got section.  */
423       value = value - PG (addend);
424       break;
425
426     case BFD_RELOC_AARCH64_ADD_LO12:
427     case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
428     case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
429     case BFD_RELOC_AARCH64_LDST128_LO12:
430     case BFD_RELOC_AARCH64_LDST16_LO12:
431     case BFD_RELOC_AARCH64_LDST32_LO12:
432     case BFD_RELOC_AARCH64_LDST64_LO12:
433     case BFD_RELOC_AARCH64_LDST8_LO12:
434     case BFD_RELOC_AARCH64_TLSDESC_ADD:
435     case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
436     case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
437     case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
438     case BFD_RELOC_AARCH64_TLSDESC_LDR:
439     case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
440     case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
441     case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
442     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
443       value = PG_OFFSET (value + addend);
444       break;
445
446     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
447       value = value + addend;
448       break;
449
450     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
451     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
452       value = (value + addend) & (bfd_vma) 0xffff0000;
453       break;
454     case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
455       /* Mask off low 12bits, keep all other high bits, so that the later
456          generic code could check whehter there is overflow.  */
457       value = (value + addend) & ~(bfd_vma) 0xfff;
458       break;
459
460     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
461     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
462       value = (value + addend) & (bfd_vma) 0xffff;
463       break;
464
465     case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
466       value = (value + addend) & ~(bfd_vma) 0xffffffff;
467       value -= place & ~(bfd_vma) 0xffffffff;
468       break;
469
470     default:
471       break;
472     }
473
474   return value;
475 }
476
477 /* Hook called by the linker routine which adds symbols from an object
478    file.  */
479
480 bfd_boolean
481 _bfd_aarch64_elf_add_symbol_hook (bfd *abfd, struct bfd_link_info *info,
482                                   Elf_Internal_Sym *sym,
483                                   const char **namep ATTRIBUTE_UNUSED,
484                                   flagword *flagsp ATTRIBUTE_UNUSED,
485                                   asection **secp ATTRIBUTE_UNUSED,
486                                   bfd_vma *valp ATTRIBUTE_UNUSED)
487 {
488   if ((ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC
489        || ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE)
490       && (abfd->flags & DYNAMIC) == 0
491       && bfd_get_flavour (info->output_bfd) == bfd_target_elf_flavour)
492     elf_tdata (info->output_bfd)->has_gnu_symbols = TRUE;
493
494   return TRUE;
495 }
496
497 /* Support for core dump NOTE sections.  */
498
499 bfd_boolean
500 _bfd_aarch64_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
501 {
502   int offset;
503   size_t size;
504
505   switch (note->descsz)
506     {
507       default:
508         return FALSE;
509
510       case 392:         /* sizeof(struct elf_prstatus) on Linux/arm64.  */
511         /* pr_cursig */
512         elf_tdata (abfd)->core->signal
513           = bfd_get_16 (abfd, note->descdata + 12);
514
515         /* pr_pid */
516         elf_tdata (abfd)->core->lwpid
517           = bfd_get_32 (abfd, note->descdata + 32);
518
519         /* pr_reg */
520         offset = 112;
521         size = 272;
522
523         break;
524     }
525
526   /* Make a ".reg/999" section.  */
527   return _bfd_elfcore_make_pseudosection (abfd, ".reg",
528                                           size, note->descpos + offset);
529 }
530
531 bfd_boolean
532 _bfd_aarch64_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
533 {
534   switch (note->descsz)
535     {
536     default:
537       return FALSE;
538
539     case 136:        /* This is sizeof(struct elf_prpsinfo) on Linux/aarch64.  */
540       elf_tdata (abfd)->core->pid = bfd_get_32 (abfd, note->descdata + 24);
541       elf_tdata (abfd)->core->program
542         = _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
543       elf_tdata (abfd)->core->command
544         = _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
545     }
546
547   /* Note that for some reason, a spurious space is tacked
548      onto the end of the args in some (at least one anyway)
549      implementations, so strip it off if it exists.  */
550
551   {
552     char *command = elf_tdata (abfd)->core->command;
553     int n = strlen (command);
554
555     if (0 < n && command[n - 1] == ' ')
556       command[n - 1] = '\0';
557   }
558
559   return TRUE;
560 }
561
562 char *
563 _bfd_aarch64_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type,
564                                   ...)
565 {
566   switch (note_type)
567     {
568     default:
569       return NULL;
570
571     case NT_PRPSINFO:
572       {
573         char data[136];
574         va_list ap;
575
576         va_start (ap, note_type);
577         memset (data, 0, sizeof (data));
578         strncpy (data + 40, va_arg (ap, const char *), 16);
579         strncpy (data + 56, va_arg (ap, const char *), 80);
580         va_end (ap);
581
582         return elfcore_write_note (abfd, buf, bufsiz, "CORE",
583                                    note_type, data, sizeof (data));
584       }
585
586     case NT_PRSTATUS:
587       {
588         char data[392];
589         va_list ap;
590         long pid;
591         int cursig;
592         const void *greg;
593
594         va_start (ap, note_type);
595         memset (data, 0, sizeof (data));
596         pid = va_arg (ap, long);
597         bfd_put_32 (abfd, pid, data + 32);
598         cursig = va_arg (ap, int);
599         bfd_put_16 (abfd, cursig, data + 12);
600         greg = va_arg (ap, const void *);
601         memcpy (data + 112, greg, 272);
602         va_end (ap);
603
604         return elfcore_write_note (abfd, buf, bufsiz, "CORE",
605                                    note_type, data, sizeof (data));
606       }
607     }
608 }