-/* 9.3.3. Parameter relocation information */
-
-/* As mentioned previously, relocations of calls must be accompanied */
-/* by parameter relocation information, indicating which registers the */
-/* first for parameter words, and the return value, are located in. */
-/* This information accompanies the R_HPPA_ABS_CALL.., */
-/* R_HPPA_PCREL_CALL... and R_HPPA_PUSH_PROC relocation types, */
-/* described below. The information is kept in the high-order 10 bits */
-/* of Elf32_rela.r_addend, while the low-order 22 bits are a signed */
-/* constant to be used in calculating the call target. The following */
-/* macros are used to extract and combine these data in r_addend. */
-
-#define ELF32_HPPA_R_ARG_RELOC(a) (((a) >> 22) & 0x3FF)
-#define ELF32_HPPA_R_CONSTANT(a) ((((Elf32_Sword)(a)) << 10) >> 10)
-#define ELF32_HPPA_R_ADDEND(r,c) (((r) << 22) + ((c) & 0x3FFFFF))
-
-/* ELF/HPPA relocation types */
-
-/* name expression format */
-/* -------------------------------------------------------------- */
-typedef enum
- {
- /* 9.3.4. Address relocation types */
-
- /* These relocation types do simple base+offset relocations, and are */
- /* normally used for absolute references to data. */
-
- /* By convention, relocation type zero is always "no relocation", */
- /* while type one is 32-bit word relocation. */
-
- R_HPPA_NONE, /* - - */
-
- R_HPPA_32, /* Symbol + Addend 32 */
- R_HPPA_11, /* Symbol + Addend 11 */
- R_HPPA_14, /* Symbol + Addend 11 */
- R_HPPA_17, /* Symbol + Addend 11 */
- R_HPPA_L21, /* L (Symbol, Addend) 21 */
- R_HPPA_R11, /* R (Symbol, Addend) 11 */
- R_HPPA_R14, /* R (Symbol, Addend) 14 */
- R_HPPA_R17, /* R (Symbol, Addend) 17 */
- R_HPPA_LS21, /* LS(Symbol, Addend) 21 */
- R_HPPA_RS11, /* RS(Symbol, Addend) 11 */
- R_HPPA_RS14, /* RS(Symbol, Addend) 14 */
- R_HPPA_RS17, /* RS(Symbol, Addend) 17 */
- R_HPPA_LD21, /* LD(Symbol, Addend) 21 */
- R_HPPA_RD11, /* RD(Symbol, Addend) 11 */
- R_HPPA_RD14, /* RD(Symbol, Addend) 14 */
- R_HPPA_RD17, /* RD(Symbol, Addend) 17 */
- R_HPPA_LR21, /* LR(Symbol, Addend) 21 */
- R_HPPA_RR14, /* RR(Symbol, Addend) 14 */
- R_HPPA_RR17, /* RR(Symbol, Addend) 17 */
-
- /* 9.3.5. GOTOFF address relocation types */
-
- /* The Global Offset Table (GOT) is a table of pointers to data, but */
- /* its address can also be used as a base pointer to address data, */
- /* similar to the way the DP is used in HP/UX. The expression */
- /* calculation yields a signed offset of an address from the GOT. */
-
- R_HPPA_GOTOFF_11, /* Symbol - GOT + Addend 11 */
- R_HPPA_GOTOFF_14, /* Symbol - GOT + Addend 14 */
- R_HPPA_GOTOFF_L21, /* L (Sym - GOT, Addend) 21 */
- R_HPPA_GOTOFF_R11, /* R (Sym - GOT, Addend) 11 */
- R_HPPA_GOTOFF_R14, /* R (Sym - GOT, Addend) 14 */
- R_HPPA_GOTOFF_LS21, /* LS(Sym - GOT, Addend) 21 */
- R_HPPA_GOTOFF_RS11, /* RS(Sym - GOT, Addend) 11 */
- R_HPPA_GOTOFF_RS14, /* RS(Sym - GOT, Addend) 14 */
- R_HPPA_GOTOFF_LD21, /* LD(Sym - GOT, Addend) 21 */
- R_HPPA_GOTOFF_RD11, /* RD(Sym - GOT, Addend) 11 */
- R_HPPA_GOTOFF_RD14, /* RD(Sym - GOT, Addend) 14 */
- R_HPPA_GOTOFF_LR21, /* LR(Sym - GOT, Addend) 21 */
- R_HPPA_GOTOFF_RR14, /* RR(Sym - GOT, Addend) 14 */
-
- /* 9.3.6. Absolute call relocation types */
-
- /* Relocations of function calls must be accompanied by parameter */
- /* relocation information. This information is carried in the ten */
- /* high-order bits of the addend field. The remaining 22 bits of */
- /* of the addend field are sign-extended to form the Addend. */
-
- R_HPPA_ABS_CALL_11, /* Symbol + Addend 11 */
- R_HPPA_ABS_CALL_14, /* Symbol + Addend 14 */
- R_HPPA_ABS_CALL_17, /* Symbol + Addend 17 */
- R_HPPA_ABS_CALL_L21, /* L (Symbol, Addend) 21 */
- R_HPPA_ABS_CALL_R11, /* R (Symbol, Addend) 11 */
- R_HPPA_ABS_CALL_R14, /* R (Symbol, Addend) 14 */
- R_HPPA_ABS_CALL_R17, /* R (Symbol, Addend) 17 */
- R_HPPA_ABS_CALL_LS21, /* LS(Symbol, Addend) 21 */
- R_HPPA_ABS_CALL_RS11, /* RS(Symbol, Addend) 11 */
- R_HPPA_ABS_CALL_RS14, /* RS(Symbol, Addend) 14 */
- R_HPPA_ABS_CALL_RS17, /* RS(Symbol, Addend) 17 */
- R_HPPA_ABS_CALL_LD21, /* LD(Symbol, Addend) 21 */
- R_HPPA_ABS_CALL_RD11, /* RD(Symbol, Addend) 11 */
- R_HPPA_ABS_CALL_RD14, /* RD(Symbol, Addend) 14 */
- R_HPPA_ABS_CALL_RD17, /* RD(Symbol, Addend) 17 */
- R_HPPA_ABS_CALL_LR21, /* LR(Symbol, Addend) 21 */
- R_HPPA_ABS_CALL_RR14, /* RR(Symbol, Addend) 14 */
- R_HPPA_ABS_CALL_RR17, /* RR(Symbol, Addend) 17 */
-
- /* 9.3.7. PC-relative call relocation types */
-
- /* PC-relative relocation calculates the difference between an address */
- /* and the location being relocated. This is most often used to */
- /* relocate pc-relative calls. */
-
- /* As with the ABS_CALL relocation types, the ten high-order bits of */
- /* the addend field carry parameter relocation information, while */
- /* the low-order 22 bits are sign-extended to form the Addend. */
-
- R_HPPA_PCREL_CALL_11, /* Symbol - PC + Addend 11 */
- R_HPPA_PCREL_CALL_14, /* Symbol - PC + Addend 14 */
- R_HPPA_PCREL_CALL_17, /* Symbol - PC + Addend 17 */
- R_HPPA_PCREL_CALL_12, /* Symbol - PC + Addend 12 */
- R_HPPA_PCREL_CALL_L21, /* L (Symbol - PC, Addend) 21 */
- R_HPPA_PCREL_CALL_R11, /* R (Symbol - PC, Addend) 11 */
- R_HPPA_PCREL_CALL_R14, /* R (Symbol - PC, Addend) 14 */
- R_HPPA_PCREL_CALL_R17, /* R (Symbol - PC, Addend) 17 */
- R_HPPA_PCREL_CALL_LS21, /* LS(Symbol - PC, Addend) 21 */
- R_HPPA_PCREL_CALL_RS11, /* RS(Symbol - PC, Addend) 11 */
- R_HPPA_PCREL_CALL_RS14, /* RS(Symbol - PC, Addend) 14 */
- R_HPPA_PCREL_CALL_RS17, /* RS(Symbol - PC, Addend) 17 */
- R_HPPA_PCREL_CALL_LD21, /* LD(Symbol - PC, Addend) 21 */
- R_HPPA_PCREL_CALL_RD11, /* RD(Symbol - PC, Addend) 11 */
- R_HPPA_PCREL_CALL_RD14, /* RD(Symbol - PC, Addend) 14 */
- R_HPPA_PCREL_CALL_RD17, /* RD(Symbol - PC, Addend) 17 */
- R_HPPA_PCREL_CALL_LR21, /* LR(Symbol - PC, Addend) 21 */
- R_HPPA_PCREL_CALL_RR14, /* RR(Symbol - PC, Addend) 14 */
- R_HPPA_PCREL_CALL_RR17, /* RR(Symbol - PC, Addend) 17 *//* #69 */
-
- /* 9.3.8. Plabel relocation types */
-
- /* Plabels are designed to allow code pointers to be passed between */
- /* spaces. The addend of the relocation should be either 0 (no static */
- /* link) or 2 (static link required). These relocations correspond to */
- /* the P%, LP% and RP% field selectors. [Description is incomplete] */
-
- R_HPPA_PLABEL_32, /* F(Plabel(Symbol,Addend),0) 32 */
- R_HPPA_PLABEL_11, /* F(Plabel(Symbol,Addend),0) 11 */
- R_HPPA_PLABEL_14, /* F(Plabel(Symbol,Addend),0) 14 */
- R_HPPA_PLABEL_L21, /* L(Plabel(Symbol,Addend),0) 21 */
- R_HPPA_PLABEL_R11, /* R(Plabel(Symbol,Addend),0) 11 */
- R_HPPA_PLABEL_R14, /* R(Plabel(Symbol,Addend),0) 14 */
-
- /* 9.3.9. Data linkage table (DLT) relocation types */
-
- /* SOM DLT_REL fixup requests are used to for static data references */
- /* from position-independent code within shared libraries. They are */
- /* similar to the GOT relocation types in some SVR4 implementations. */
- /* [Prose to come] */
-
- R_HPPA_DLT_32, /* F(DLTOFF) 32 */
- R_HPPA_DLT_11, /* F(DLTOFF) 11 */
- R_HPPA_DLT_14, /* F(DLTOFF) 14 */
- R_HPPA_DLT_L21, /* L(DLTOFF) 21 */
- R_HPPA_DLT_R11, /* R(DLTOFF) 11 */
- R_HPPA_DLT_R14, /* R(DLTOFF) 14 */
-
- /* 9.3.10. Relocations for unwinder tables */
-
- /* As described above, the unwinder table consists of a series of */
- /* four-word entries, the first two of which are a pair of code */
- /* addresses. While it would be possible to relocate this table using */
- /* just R_HPPA_32, the amount of relocation data resulting would be */
- /* very large. To reduce that data, the following relocation types */
- /* have been defined. */
-
- /* The first, R_HPPA_UNWIND_ENTRY, merely compresses two R_HPPA_32 */
- /* operations into one. It is designed for use in .rel-type */
- /* relocations, where the two 32-bit addends are taken from the unwind */
- /* section itself. */
-
- /* The second, which is designed for use in .rela-type relocations, is */
- /* designed to relocate an entire unwinder table with one relocation */
- /* entry. It has the effect of multiple R_HPPA_UNWIND_ENTRY */
- /* relocations applied to successive unwinder table entries. The */
- /* number of entries to be relocated is given in the r_addend field of */
- /* the relocation entry. The rest of the relocation entry is used in */
- /* a normal way--r_offset is the offset of the first unwind entry in */
- /* the section, while ELF32_R_SYM(r_info) is the code section that all */
- /* the code addresses should be relocated from. */
-
- R_HPPA_UNWIND_ENTRY, /* "128" */
- R_HPPA_UNWIND_ENTRIES, /* Addend * "128" */
-
- /* 9.3.11. Relocation types for complex expressions */
-
- /* As described above, new-format SOM fixups support complex */
- /* expressions by spreading the parts of the expression across */
- /* multiple entries. ELF for HPPA will have a similar mechanism, */
- /* although support for it may be optional. There are two main */
- /* reasons for defining it: first, the need to translate complex */
- /* SOM fixup expressions to ELF, and second, to cover combinations */
- /* of expression, field and format not available with other */
- /* relocation types. */
-
- /* ELF expression relocation entries are interpreted as postfix-form */
- /* expressions. They may be evaluated using a push-down stack. */
-
- /* Usually, the addend field of these expression relocation entries is */
- /* unused, with the following exceptions: */
-
- /* R_HPPA_PUSH_CONST: The addend field contains the constant. */
-
- /* R_HPPA_PUSH_PROC: The high-order 10 bits of the addend field */
- /* contain parameter relocation information. The rest of */
- /* the addend field is unused. */
-
- /* R_HPPA_LSHIFT, R_HPPA_ARITH_RSHIFT and R_HPPA_LOGIC_RSHIFT: */
- /* The addend field normally gives the amount to shift. */
- /* However, if that amount is zero, the shift amount is */
- /* popped from the top of the stack prior to popping the */
- /* amount to be shifted. */
-
- /* name expression fld/fmt */
- /* ------------------------------------------------------------------- */
- R_HPPA_PUSH_CONST, /* push Addend - - */
- R_HPPA_PUSH_PC, /* push PC + Addend - - */
- R_HPPA_PUSH_SYM, /* push Symbol + Addend - - */
- R_HPPA_PUSH_GOTOFF, /* push Symbol - GOT + Addend - - */
- R_HPPA_PUSH_ABS_CALL, /* push Symbol + Addend - - */
- R_HPPA_PUSH_PCREL_CALL, /* push Symbol - PC + Addend - - */
- R_HPPA_PUSH_PLABEL, /* push Plabel(Symbol) - - */
- R_HPPA_MAX, /* pop A and B, push max(B,A) - - */
- R_HPPA_MIN, /* pop A and B, push min(B,A) - - */
- R_HPPA_ADD, /* pop A and B, push B + A - - */
- R_HPPA_SUB, /* pop A and B, push B - A - - */
- R_HPPA_MULT, /* pop A and B, push B * A - - */
- R_HPPA_DIV, /* pop A and B, push B / A - - */
- R_HPPA_MOD, /* pop A and B, push B % A - - */
- R_HPPA_AND, /* pop A and B, push B & A - - */
- R_HPPA_OR, /* pop A and B, push B | A - - */
- R_HPPA_XOR, /* pop A and B, push B ^ A - - */
- R_HPPA_NOT, /* pop A, push ~A - - */
- R_HPPA_LSHIFT, /* pop A, push A << Addend - - */
- R_HPPA_ARITH_RSHIFT, /* pop A, push A >> Addend - - */
- R_HPPA_LOGIC_RSHIFT, /* pop A, push A >> Addend - - */
- R_HPPA_EXPR_F, /* pop A, push A + Addend F - */
- R_HPPA_EXPR_L, /* pop A, push L(A,Addend) L - */
- R_HPPA_EXPR_R, /* pop A, push R(A,Addend) R - */
- R_HPPA_EXPR_LS, /* pop A, push LS(A,Addend) LS - */
- R_HPPA_EXPR_RS, /* pop A, push RS(A,Addend) RS - */
- R_HPPA_EXPR_LD, /* pop A, push LD(A,Addend) LD - */
- R_HPPA_EXPR_RD, /* pop A, push RD(A,Addend) RD - */
- R_HPPA_EXPR_LR, /* pop A, push LR(A,Addend) LR - */
- R_HPPA_EXPR_RR, /* pop A, push RR(A,Addend) RR - */
-
- R_HPPA_EXPR_32, /* pop - 32 */
- R_HPPA_EXPR_21, /* pop - 21 */
- R_HPPA_EXPR_11, /* pop - 11 */
- R_HPPA_EXPR_14, /* pop - 14 */
- R_HPPA_EXPR_17, /* pop - 17 */
- R_HPPA_EXPR_12, /* pop - 12 */
- R_HPPA_UNIMPLEMENTED /* N/A */
- } elf32_hppa_reloc_type;
-
-#define ELF_HOWTO_TABLE_SIZE R_HPPA_UNIMPLEMENTED + 1
-#define N_HPPA_RELOCS R_HPPA_UNIMPLEMENTED + 1
-
-/* Groups of relocations. Serves as an expression type. */
-
-#define R_HPPA R_HPPA_32
-#define R_HPPA_GOTOFF R_HPPA_GOTOFF_11
-#define R_HPPA_ABS_CALL R_HPPA_ABS_CALL_11
-#define R_HPPA_PCREL_CALL R_HPPA_PCREL_CALL_11
-#define R_HPPA_PLABEL R_HPPA_PLABEL_32
-#define R_HPPA_DLT R_HPPA_DLT_32
-#define R_HPPA_UNWIND R_HPPA_UNWIND_ENTRY
-#define R_HPPA_COMPLEX R_HPPA_PUSH_CONST
-#define R_HPPA_COMPLEX_PCREL_CALL R_HPPA_PUSH_CONST + 1
-#define R_HPPA_COMPLEX_ABS_CALL R_HPPA_PUSH_CONST + 2
-
-
-enum hppa_reloc_field_selector_type
-{
- R_HPPA_FSEL = 0x0,
- R_HPPA_LSSEL = 0x1,
- R_HPPA_RSSEL = 0x2,
- R_HPPA_LSEL = 0x3,
- R_HPPA_RSEL = 0x4,
- R_HPPA_LDSEL = 0x5,
- R_HPPA_RDSEL = 0x6,
- R_HPPA_LRSEL = 0x7,
- R_HPPA_RRSEL = 0x8,
- R_HPPA_PSEL = 0x9, /* P' : procedure address for shlib's */
- R_HPPA_LPSEL = 0xa, /* LP' : L' for procedure addresses */
- R_HPPA_RPSEL = 0xb, /* RP' : R' for procedure addresses */
-
- R_HPPA_TSEL = 0xc, /* T' : DLT-relative offset for shlib's */
- R_HPPA_LTSEL = 0xd, /* LT' : L' for DLT-relative offsets */
- R_HPPA_RTSEL = 0xe /* RT' : R' for DLT-relative offsets */
-
-};
-
-#define N_HPPA_FIELD_SELECTORS 15
-
-/* for compatibility */
-enum hppa_reloc_field_selector_type_alt
-{
- e_fsel = R_HPPA_FSEL,
- e_lssel = R_HPPA_LSSEL,
- e_rssel = R_HPPA_RSSEL,
- e_lsel = R_HPPA_LSEL,
- e_rsel = R_HPPA_RSEL,
- e_ldsel = R_HPPA_LDSEL,
- e_rdsel = R_HPPA_RDSEL,
- e_lrsel = R_HPPA_LRSEL,
- e_rrsel = R_HPPA_RRSEL,
- e_psel = R_HPPA_PSEL, /* P' : procedure address for shlib's */
- e_lpsel = R_HPPA_LPSEL, /* LP' : L' for procedure addresses */
- e_rpsel = R_HPPA_RPSEL, /* RP' : R' for procedure addresses */
-
- e_tsel = R_HPPA_TSEL, /* T' : DLT-relative offset for shlib's */
- e_ltsel = R_HPPA_LTSEL, /* LT' : L' for DLT-relative offsets */
- e_rtsel = R_HPPA_RTSEL /* RT' : R' for DLT-relative offsets */
-};
-
-/* PA-RISC OPCODES */
-
-#define get_opcode(insn) ((insn) & 0xfc000000) >> 26
-
-/* XXX: this list is incomplete */
-
-#define LDO 0x0d
-#define LDB 0x10
-#define LDH 0x11
-#define LDW 0x12
-#define LDWM 0x13
-#define STB 0x18
-#define STH 0x19
-#define STW 0x1a
-#define STWM 0x1b
-#define COMICLR 0x24
-#define SUBI 0x25
-#define SUBIO 0x25
-#define ADDIT 0x2c
-#define ADDITO 0x2c
-#define ADDI 0x2d
-#define ADDIO 0x2d
-#define LDIL 0x08
-#define ADDIL 0x0a
-
-#define MOVB 0x32
-#define MOVIB 0x33
-#define COMBT 0x20
-#define COMBF 0x22
-#define COMIBT 0x21
-#define COMIBF 0x23
-#define ADDBT 0x28
-#define ADDBF 0x2a
-#define ADDIBT 0x29
-#define ADDIBF 0x2b
-#define BVB 0x30
-#define BB 0x31
-
-#define BL 0x3a
-#define BLE 0x39
-#define BE 0x38
-
-#ifdef __STDC__
-elf32_hppa_reloc_type **hppa_elf_gen_reloc_type (bfd * abfd, elf32_hppa_reloc_type base_type, int format, int field);
-#else
-elf32_hppa_reloc_type **hppa_elf_gen_reloc_type ();