projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gdb/
[deliverable/binutils-gdb.git] / gas / config / tc-hppa.c
CommitLineData
252b5132 1/* tc-hppa.c -- Assemble for the PA
91c2f09e 2 Copyright 1989, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
87975d2a
AM		 3 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
252b5132
RH		 5
6 This file is part of GAS, the GNU Assembler.
7
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
ec2655a6 10 the Free Software Foundation; either version 3, or (at your option)
252b5132
RH		 11 any later version.
12
13 GAS is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to the Free
4b4da160
NC		 20 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA. */
252b5132 22
252b5132
RH		 23/* HP PA-RISC support was contributed by the Center for Software Science
24 at the University of Utah. */
25
252b5132 26#include "as.h"
3882b010 27#include "safe-ctype.h"
252b5132 28#include "subsegs.h"
c79b7c30 29#include "dw2gencfi.h"
252b5132
RH		 30
31#include "bfd/libhppa.h"
252b5132
RH		 32
33/* Be careful, this file includes data *declarations*. */
34#include "opcode/hppa.h"
35
49863f82
JL		 36#if defined (OBJ_ELF) && defined (OBJ_SOM)
37error only one of OBJ_ELF and OBJ_SOM can be defined
38#endif
39
2d93dcc4
JL		 40/* If we are using ELF, then we probably can support dwarf2 debug
41 records. Furthermore, if we are supporting dwarf2 debug records,
42 then we want to use the assembler support for compact line numbers. */
43#ifdef OBJ_ELF
44#include "dwarf2dbg.h"
2d93dcc4 45
0234cb7c 46/* A "convenient" place to put object file dependencies which do
252b5132 47 not need to be seen outside of tc-hppa.c. */
ad1079af 48
252b5132 49/* Object file formats specify relocation types. */
ad1079af 50typedef enum elf_hppa_reloc_type reloc_type;
252b5132
RH		 51
52/* Object file formats specify BFD symbol types. */
53typedef elf_symbol_type obj_symbol_type;
ad1079af
AM		 54#define symbol_arg_reloc_info(sym)\
55 (((obj_symbol_type *) symbol_get_bfdsym (sym))->tc_data.hppa_arg_reloc)
252b5132 56
ad1079af 57#if TARGET_ARCH_SIZE == 64
252b5132 58/* How to generate a relocation. */
b388df87 59#define hppa_gen_reloc_type _bfd_elf64_hppa_gen_reloc_type
3dcfe21d 60#define elf_hppa_reloc_final_type elf64_hppa_reloc_final_type
b388df87
JL		 61#else
62#define hppa_gen_reloc_type _bfd_elf32_hppa_gen_reloc_type
3dcfe21d 63#define elf_hppa_reloc_final_type elf32_hppa_reloc_final_type
b388df87 64#endif
252b5132
RH		 65
66/* ELF objects can have versions, but apparently do not have anywhere
67 to store a copyright string. */
68#define obj_version obj_elf_version
69#define obj_copyright obj_elf_version
46031ca9
JL		 70
71#define UNWIND_SECTION_NAME ".PARISC.unwind"
ad1079af 72#endif /* OBJ_ELF */
252b5132
RH		 73
74#ifdef OBJ_SOM
75/* Names of various debugging spaces/subspaces. */
76#define GDB_DEBUG_SPACE_NAME "$GDB_DEBUG$"
77#define GDB_STRINGS_SUBSPACE_NAME "$GDB_STRINGS$"
78#define GDB_SYMBOLS_SUBSPACE_NAME "$GDB_SYMBOLS$"
79#define UNWIND_SECTION_NAME "$UNWIND$"
80
81/* Object file formats specify relocation types. */
82typedef int reloc_type;
83
84/* SOM objects can have both a version string and a copyright string. */
85#define obj_version obj_som_version
86#define obj_copyright obj_som_copyright
87
252b5132
RH		 88/* How to generate a relocation. */
89#define hppa_gen_reloc_type hppa_som_gen_reloc_type
90
91/* Object file formats specify BFD symbol types. */
92typedef som_symbol_type obj_symbol_type;
ad1079af
AM		 93#define symbol_arg_reloc_info(sym)\
94 (((obj_symbol_type *) symbol_get_bfdsym (sym))->tc_data.ap.hppa_arg_reloc)
252b5132
RH		 95
96/* This apparently isn't in older versions of hpux reloc.h. */
97#ifndef R_DLT_REL
98#define R_DLT_REL 0x78
99#endif
252b5132
RH		 100
101#ifndef R_N0SEL
102#define R_N0SEL 0xd8
103#endif
104
105#ifndef R_N1SEL
106#define R_N1SEL 0xd9
107#endif
ad1079af 108#endif /* OBJ_SOM */
252b5132 109
8a238888
AM		 110#if TARGET_ARCH_SIZE == 64
111#define DEFAULT_LEVEL 25
112#else
113#define DEFAULT_LEVEL 10
114#endif
115
252b5132
RH		 116/* Various structures and types used internally in tc-hppa.c. */
117
118/* Unwind table and descriptor. FIXME: Sync this with GDB version. */
119
120struct unwind_desc
121 {
122 unsigned int cannot_unwind:1;
123 unsigned int millicode:1;
124 unsigned int millicode_save_rest:1;
125 unsigned int region_desc:2;
126 unsigned int save_sr:2;
127 unsigned int entry_fr:4;
128 unsigned int entry_gr:5;
129 unsigned int args_stored:1;
130 unsigned int call_fr:5;
131 unsigned int call_gr:5;
132 unsigned int save_sp:1;
133 unsigned int save_rp:1;
134 unsigned int save_rp_in_frame:1;
135 unsigned int extn_ptr_defined:1;
136 unsigned int cleanup_defined:1;
137
138 unsigned int hpe_interrupt_marker:1;
139 unsigned int hpux_interrupt_marker:1;
140 unsigned int reserved:3;
141 unsigned int frame_size:27;
142 };
143
da6c73e0
AM		 144/* We can't rely on compilers placing bitfields in any particular
145 place, so use these macros when dumping unwind descriptors to
146 object files. */
147#define UNWIND_LOW32(U) \
148 (((U)->cannot_unwind << 31) \
149 | ((U)->millicode << 30) \
150 | ((U)->millicode_save_rest << 29) \
151 | ((U)->region_desc << 27) \
152 | ((U)->save_sr << 25) \
153 | ((U)->entry_fr << 21) \
154 | ((U)->entry_gr << 16) \
155 | ((U)->args_stored << 15) \
156 | ((U)->call_fr << 10) \
157 | ((U)->call_gr << 5) \
158 | ((U)->save_sp << 4) \
159 | ((U)->save_rp << 3) \
160 | ((U)->save_rp_in_frame << 2) \
161 | ((U)->extn_ptr_defined << 1) \
162 | ((U)->cleanup_defined << 0))
163
164#define UNWIND_HIGH32(U) \
165 (((U)->hpe_interrupt_marker << 31) \
166 | ((U)->hpux_interrupt_marker << 30) \
167 | ((U)->frame_size << 0))
168
252b5132
RH		 169struct unwind_table
170 {
171 /* Starting and ending offsets of the region described by
172 descriptor. */
173 unsigned int start_offset;
174 unsigned int end_offset;
175 struct unwind_desc descriptor;
176 };
177
178/* This structure is used by the .callinfo, .enter, .leave pseudo-ops to
179 control the entry and exit code they generate. It is also used in
180 creation of the correct stack unwind descriptors.
181
182 NOTE: GAS does not support .enter and .leave for the generation of
183 prologues and epilogues. FIXME.
184
185 The fields in structure roughly correspond to the arguments available on the
186 .callinfo pseudo-op. */
187
188struct call_info
189 {
190 /* The unwind descriptor being built. */
191 struct unwind_table ci_unwind;
192
193 /* Name of this function. */
194 symbolS *start_symbol;
195
196 /* (temporary) symbol used to mark the end of this function. */
197 symbolS *end_symbol;
198
199 /* Next entry in the chain. */
200 struct call_info *ci_next;
201 };
202
203/* Operand formats for FP instructions. Note not all FP instructions
204 allow all four formats to be used (for example fmpysub only allows
205 SGL and DBL). */
206typedef enum
207 {
208 SGL, DBL, ILLEGAL_FMT, QUAD, W, UW, DW, UDW, QW, UQW
209 }
210fp_operand_format;
211
212/* This fully describes the symbol types which may be attached to
213 an EXPORT or IMPORT directive. Only SOM uses this formation
214 (ELF has no need for it). */
215typedef enum
216 {
217 SYMBOL_TYPE_UNKNOWN,
218 SYMBOL_TYPE_ABSOLUTE,
219 SYMBOL_TYPE_CODE,
220 SYMBOL_TYPE_DATA,
221 SYMBOL_TYPE_ENTRY,
222 SYMBOL_TYPE_MILLICODE,
223 SYMBOL_TYPE_PLABEL,
224 SYMBOL_TYPE_PRI_PROG,
225 SYMBOL_TYPE_SEC_PROG,
226 }
227pa_symbol_type;
228
229/* This structure contains information needed to assemble
230 individual instructions. */
231struct pa_it
232 {
233 /* Holds the opcode after parsing by pa_ip. */
234 unsigned long opcode;
235
236 /* Holds an expression associated with the current instruction. */
237 expressionS exp;
238
239 /* Does this instruction use PC-relative addressing. */
240 int pcrel;
241
242 /* Floating point formats for operand1 and operand2. */
243 fp_operand_format fpof1;
244 fp_operand_format fpof2;
245
1cf6ae67
JL		 246 /* Whether or not we saw a truncation request on an fcnv insn. */
247 int trunc;
252b5132
RH		 248
249 /* Holds the field selector for this instruction
250 (for example L%, LR%, etc). */
251 long field_selector;
252
253 /* Holds any argument relocation bits associated with this
254 instruction. (instruction should be some sort of call). */
ad1079af 255 unsigned int arg_reloc;
252b5132
RH		 256
257 /* The format specification for this instruction. */
258 int format;
259
260 /* The relocation (if any) associated with this instruction. */
261 reloc_type reloc;
262 };
263
264/* PA-89 floating point registers are arranged like this:
265
252b5132
RH		 266 +--------------+--------------+
267 | 0 or 16L | 16 or 16R |
268 +--------------+--------------+
269 | 1 or 17L | 17 or 17R |
270 +--------------+--------------+
271 | | |
272
273 . . .
274 . . .
275 . . .
276
277 | | |
278 +--------------+--------------+
279 | 14 or 30L | 30 or 30R |
280 +--------------+--------------+
281 | 15 or 31L | 31 or 31R |
ecacdc7a 282 +--------------+--------------+ */
252b5132
RH		 283
284/* Additional information needed to build argument relocation stubs. */
285struct call_desc
286 {
287 /* The argument relocation specification. */
288 unsigned int arg_reloc;
289
290 /* Number of arguments. */
291 unsigned int arg_count;
292 };
293
49863f82 294#ifdef OBJ_SOM
252b5132
RH		 295/* This structure defines an entry in the subspace dictionary
296 chain. */
297
298struct subspace_dictionary_chain
299 {
300 /* Nonzero if this space has been defined by the user code. */
301 unsigned int ssd_defined;
302
303 /* Name of this subspace. */
304 char *ssd_name;
305
306 /* GAS segment and subsegment associated with this subspace. */
307 asection *ssd_seg;
308 int ssd_subseg;
309
310 /* Next space in the subspace dictionary chain. */
311 struct subspace_dictionary_chain *ssd_next;
312 };
313
314typedef struct subspace_dictionary_chain ssd_chain_struct;
315
316/* This structure defines an entry in the subspace dictionary
317 chain. */
318
319struct space_dictionary_chain
320 {
321 /* Nonzero if this space has been defined by the user code or
322 as a default space. */
323 unsigned int sd_defined;
324
325 /* Nonzero if this spaces has been defined by the user code. */
326 unsigned int sd_user_defined;
327
328 /* The space number (or index). */
329 unsigned int sd_spnum;
330
331 /* The name of this subspace. */
332 char *sd_name;
333
334 /* GAS segment to which this subspace corresponds. */
335 asection *sd_seg;
336
337 /* Current subsegment number being used. */
338 int sd_last_subseg;
339
340 /* The chain of subspaces contained within this space. */
341 ssd_chain_struct *sd_subspaces;
342
343 /* The next entry in the space dictionary chain. */
344 struct space_dictionary_chain *sd_next;
345 };
346
347typedef struct space_dictionary_chain sd_chain_struct;
348
252b5132
RH		 349/* This structure defines attributes of the default subspace
350 dictionary entries. */
351
352struct default_subspace_dict
353 {
354 /* Name of the subspace. */
355 char *name;
356
357 /* FIXME. Is this still needed? */
358 char defined;
359
360 /* Nonzero if this subspace is loadable. */
361 char loadable;
362
363 /* Nonzero if this subspace contains only code. */
364 char code_only;
365
351e2b5a
DA		 366 /* Nonzero if this is a comdat subspace. */
367 char comdat;
368
252b5132
RH		 369 /* Nonzero if this is a common subspace. */
370 char common;
371
372 /* Nonzero if this is a common subspace which allows symbols
373 to be multiply defined. */
374 char dup_common;
375
376 /* Nonzero if this subspace should be zero filled. */
377 char zero;
378
379 /* Sort key for this subspace. */
380 unsigned char sort;
381
382 /* Access control bits for this subspace. Can represent RWX access
383 as well as privilege level changes for gateways. */
384 int access;
385
386 /* Index of containing space. */
387 int space_index;
388
389 /* Alignment (in bytes) of this subspace. */
390 int alignment;
391
392 /* Quadrant within space where this subspace should be loaded. */
393 int quadrant;
394
395 /* An index into the default spaces array. */
396 int def_space_index;
397
252b5132
RH		 398 /* Subsegment associated with this subspace. */
399 subsegT subsegment;
400 };
401
402/* This structure defines attributes of the default space
403 dictionary entries. */
404
405struct default_space_dict
406 {
407 /* Name of the space. */
408 char *name;
409
410 /* Space number. It is possible to identify spaces within
411 assembly code numerically! */
412 int spnum;
413
414 /* Nonzero if this space is loadable. */
415 char loadable;
416
417 /* Nonzero if this space is "defined". FIXME is still needed */
418 char defined;
419
420 /* Nonzero if this space can not be shared. */
421 char private;
422
423 /* Sort key for this space. */
424 unsigned char sort;
425
426 /* Segment associated with this space. */
427 asection *segment;
252b5132 428 };
49863f82
JL		 429#endif
430
431/* Structure for previous label tracking. Needed so that alignments,
432 callinfo declarations, etc can be easily attached to a particular
433 label. */
434typedef struct label_symbol_struct
435 {
436 struct symbol *lss_label;
437#ifdef OBJ_SOM
438 sd_chain_struct *lss_space;
439#endif
440#ifdef OBJ_ELF
441 segT lss_segment;
442#endif
443 struct label_symbol_struct *lss_next;
444 }
445label_symbol_struct;
252b5132
RH		 446
447/* Extra information needed to perform fixups (relocations) on the PA. */
448struct hppa_fix_struct
449 {
450 /* The field selector. */
451 enum hppa_reloc_field_selector_type_alt fx_r_field;
452
453 /* Type of fixup. */
454 int fx_r_type;
455
456 /* Format of fixup. */
457 int fx_r_format;
458
459 /* Argument relocation bits. */
ad1079af 460 unsigned int fx_arg_reloc;
252b5132
RH		 461
462 /* The segment this fixup appears in. */
463 segT segment;
464 };
465
466/* Structure to hold information about predefined registers. */
467
468struct pd_reg
469 {
470 char *name;
471 int value;
472 };
473
474/* This structure defines the mapping from a FP condition string
475 to a condition number which can be recorded in an instruction. */
476struct fp_cond_map
477 {
478 char *string;
479 int cond;
480 };
481
482/* This structure defines a mapping from a field selector
483 string to a field selector type. */
484struct selector_entry
485 {
486 char *prefix;
487 int field_selector;
488 };
489
490/* Prototypes for functions local to tc-hppa.c. */
491
49863f82 492#ifdef OBJ_SOM
9b52905e 493static void pa_check_current_space_and_subspace (void);
49863f82
JL		 494#endif
495
85cf2a8a 496#if !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD)))
9b52905e
NC		 497static void pa_text (int);
498static void pa_data (int);
499static void pa_comm (int);
ad1079af 500#endif
49863f82 501#ifdef OBJ_SOM
9b52905e
NC		 502static int exact_log2 (int);
503static void pa_compiler (int);
504static void pa_align (int);
505static void pa_space (int);
506static void pa_spnum (int);
507static void pa_subspace (int);
508static sd_chain_struct *create_new_space (char *, int, int,
252b5132 509 int, int, int,
9b52905e
NC		 510 asection *, int);
511static ssd_chain_struct *create_new_subspace (sd_chain_struct *,
252b5132 512 char *, int, int,
351e2b5a 513 int, int, int, int,
252b5132 514 int, int, int, int,
9b52905e
NC		 515 int, asection *);
516static ssd_chain_struct *update_subspace (sd_chain_struct *,
252b5132
RH		 517 char *, int, int, int,
518 int, int, int, int,
351e2b5a 519 int, int, int, int,
9b52905e
NC		 520 asection *);
521static sd_chain_struct *is_defined_space (char *);
522static ssd_chain_struct *is_defined_subspace (char *);
523static sd_chain_struct *pa_segment_to_space (asection *);
524static ssd_chain_struct *pa_subsegment_to_subspace (asection *,
525 subsegT);
526static sd_chain_struct *pa_find_space_by_number (int);
527static unsigned int pa_subspace_start (sd_chain_struct *, int);
528static sd_chain_struct *pa_parse_space_stmt (char *, int);
252b5132
RH		 529#endif
530
67c1ffbe 531/* File and globally scoped variable declarations. */
252b5132 532
49863f82 533#ifdef OBJ_SOM
252b5132
RH		 534/* Root and final entry in the space chain. */
535static sd_chain_struct *space_dict_root;
536static sd_chain_struct *space_dict_last;
537
538/* The current space and subspace. */
539static sd_chain_struct *current_space;
540static ssd_chain_struct *current_subspace;
49863f82 541#endif
252b5132
RH		 542
543/* Root of the call_info chain. */
544static struct call_info *call_info_root;
545
546/* The last call_info (for functions) structure
547 seen so it can be associated with fixups and
548 function labels. */
549static struct call_info *last_call_info;
550
551/* The last call description (for actual calls). */
552static struct call_desc last_call_desc;
553
554/* handle of the OPCODE hash table */
555static struct hash_control *op_hash = NULL;
556
85c77c38
DA		 557/* These characters can be suffixes of opcode names and they may be
558 followed by meaningful whitespace. We don't include `,' and `!'
559 as they never appear followed by meaningful whitespace. */
560const char hppa_symbol_chars[] = "*?=<>";
f0d7d5f9 561
252b5132
RH		 562/* This array holds the chars that only start a comment at the beginning of
563 a line. If the line seems to have the form '# 123 filename'
564 .line and .file directives will appear in the pre-processed output.
565
566 Note that input_file.c hand checks for '#' at the beginning of the
567 first line of the input file. This is because the compiler outputs
568 #NO_APP at the beginning of its output.
569
a28a3ccf 570 Also note that C style comments will always work. */
252b5132
RH		 571const char line_comment_chars[] = "#";
572
ad1079af
AM		 573/* This array holds the chars that always start a comment. If the
574 pre-processor is disabled, these aren't very useful. */
575const char comment_chars[] = ";";
576
252b5132
RH		 577/* This array holds the characters which act as line separators. */
578const char line_separator_chars[] = "!";
579
580/* Chars that can be used to separate mant from exp in floating point nums. */
581const char EXP_CHARS[] = "eE";
582
583/* Chars that mean this number is a floating point constant.
584 As in 0f12.456 or 0d1.2345e12.
585
586 Be aware that MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT may have to be
499ac353
NC		 587 changed in read.c. Ideally it shouldn't have to know about it
588 at all, but nothing is ideal around here. */
252b5132
RH		 589const char FLT_CHARS[] = "rRsSfFdDxXpP";
590
591static struct pa_it the_insn;
592
0234cb7c 593/* Points to the end of an expression just parsed by get_expression
252b5132
RH		 594 and friends. FIXME. This shouldn't be handled with a file-global
595 variable. */
596static char *expr_end;
597
598/* Nonzero if a .callinfo appeared within the current procedure. */
599static int callinfo_found;
600
601/* Nonzero if the assembler is currently within a .entry/.exit pair. */
602static int within_entry_exit;
603
604/* Nonzero if the assembler is currently within a procedure definition. */
605static int within_procedure;
606
ad1079af 607/* Handle on structure which keep track of the last symbol
252b5132
RH		 608 seen in each subspace. */
609static label_symbol_struct *label_symbols_rootp = NULL;
610
611/* Holds the last field selector. */
612static int hppa_field_selector;
613
f0a3b40f 614/* Nonzero when strict matching is enabled. Zero otherwise.
0f4f8b56 615
f0a3b40f
DA		 616 Each opcode in the table has a flag which indicates whether or
617 not strict matching should be enabled for that instruction.
618
619 Mainly, strict causes errors to be ignored when a match failure
620 occurs. However, it also affects the parsing of register fields
621 by pa_parse_number. */
622static int strict;
0f4f8b56 623
ecacdc7a
AM		 624/* pa_parse_number returns values in `pa_number'. Mostly
625 pa_parse_number is used to return a register number, with floating
626 point registers being numbered from FP_REG_BASE upwards.
627 The bit specified with FP_REG_RSEL is set if the floating point
628 register has a `r' suffix. */
629#define FP_REG_BASE 64
630#define FP_REG_RSEL 128
631static int pa_number;
632
993142d5 633#ifdef OBJ_SOM
252b5132
RH		 634/* A dummy bfd symbol so that all relocations have symbols of some kind. */
635static symbolS *dummy_symbol;
993142d5 636#endif
252b5132
RH		 637
638/* Nonzero if errors are to be printed. */
639static int print_errors = 1;
640
641/* List of registers that are pre-defined:
642
643 Each general register has one predefined name of the form
644 %r<REGNUM> which has the value <REGNUM>.
645
646 Space and control registers are handled in a similar manner,
647 but use %sr<REGNUM> and %cr<REGNUM> as their predefined names.
648
649 Likewise for the floating point registers, but of the form
650 %fr<REGNUM>. Floating point registers have additional predefined
651 names with 'L' and 'R' suffixes (e.g. %fr19L, %fr19R) which
652 again have the value <REGNUM>.
653
654 Many registers also have synonyms:
655
656 %r26 - %r23 have %arg0 - %arg3 as synonyms
657 %r28 - %r29 have %ret0 - %ret1 as synonyms
f394e3dd 658 %fr4 - %fr7 have %farg0 - %farg3 as synonyms
252b5132
RH		 659 %r30 has %sp as a synonym
660 %r27 has %dp as a synonym
661 %r2 has %rp as a synonym
662
663 Almost every control register has a synonym; they are not listed
664 here for brevity.
665
a28a3ccf 666 The table is sorted. Suitable for searching by a binary search. */
252b5132
RH		 667
668static const struct pd_reg pre_defined_registers[] =
669{
ecacdc7a
AM		 670 {"%arg0", 26},
671 {"%arg1", 25},
672 {"%arg2", 24},
673 {"%arg3", 23},
674 {"%cr0", 0},
675 {"%cr10", 10},
676 {"%cr11", 11},
677 {"%cr12", 12},
678 {"%cr13", 13},
679 {"%cr14", 14},
680 {"%cr15", 15},
681 {"%cr16", 16},
682 {"%cr17", 17},
683 {"%cr18", 18},
684 {"%cr19", 19},
685 {"%cr20", 20},
686 {"%cr21", 21},
687 {"%cr22", 22},
688 {"%cr23", 23},
689 {"%cr24", 24},
690 {"%cr25", 25},
691 {"%cr26", 26},
692 {"%cr27", 27},
693 {"%cr28", 28},
694 {"%cr29", 29},
695 {"%cr30", 30},
696 {"%cr31", 31},
697 {"%cr8", 8},
698 {"%cr9", 9},
699 {"%dp", 27},
700 {"%eiem", 15},
701 {"%eirr", 23},
f394e3dd
NC		 702 {"%farg0", 4 + FP_REG_BASE},
703 {"%farg1", 5 + FP_REG_BASE},
704 {"%farg2", 6 + FP_REG_BASE},
705 {"%farg3", 7 + FP_REG_BASE},
ecacdc7a
AM		 706 {"%fr0", 0 + FP_REG_BASE},
707 {"%fr0l", 0 + FP_REG_BASE},
708 {"%fr0r", 0 + FP_REG_BASE + FP_REG_RSEL},
709 {"%fr1", 1 + FP_REG_BASE},
710 {"%fr10", 10 + FP_REG_BASE},
711 {"%fr10l", 10 + FP_REG_BASE},
712 {"%fr10r", 10 + FP_REG_BASE + FP_REG_RSEL},
713 {"%fr11", 11 + FP_REG_BASE},
714 {"%fr11l", 11 + FP_REG_BASE},
715 {"%fr11r", 11 + FP_REG_BASE + FP_REG_RSEL},
716 {"%fr12", 12 + FP_REG_BASE},
717 {"%fr12l", 12 + FP_REG_BASE},
718 {"%fr12r", 12 + FP_REG_BASE + FP_REG_RSEL},
719 {"%fr13", 13 + FP_REG_BASE},
720 {"%fr13l", 13 + FP_REG_BASE},
721 {"%fr13r", 13 + FP_REG_BASE + FP_REG_RSEL},
722 {"%fr14", 14 + FP_REG_BASE},
723 {"%fr14l", 14 + FP_REG_BASE},
724 {"%fr14r", 14 + FP_REG_BASE + FP_REG_RSEL},
725 {"%fr15", 15 + FP_REG_BASE},
726 {"%fr15l", 15 + FP_REG_BASE},
727 {"%fr15r", 15 + FP_REG_BASE + FP_REG_RSEL},
728 {"%fr16", 16 + FP_REG_BASE},
729 {"%fr16l", 16 + FP_REG_BASE},
730 {"%fr16r", 16 + FP_REG_BASE + FP_REG_RSEL},
731 {"%fr17", 17 + FP_REG_BASE},
732 {"%fr17l", 17 + FP_REG_BASE},
733 {"%fr17r", 17 + FP_REG_BASE + FP_REG_RSEL},
734 {"%fr18", 18 + FP_REG_BASE},
735 {"%fr18l", 18 + FP_REG_BASE},
736 {"%fr18r", 18 + FP_REG_BASE + FP_REG_RSEL},
737 {"%fr19", 19 + FP_REG_BASE},
738 {"%fr19l", 19 + FP_REG_BASE},
739 {"%fr19r", 19 + FP_REG_BASE + FP_REG_RSEL},
740 {"%fr1l", 1 + FP_REG_BASE},
741 {"%fr1r", 1 + FP_REG_BASE + FP_REG_RSEL},
742 {"%fr2", 2 + FP_REG_BASE},
743 {"%fr20", 20 + FP_REG_BASE},
744 {"%fr20l", 20 + FP_REG_BASE},
745 {"%fr20r", 20 + FP_REG_BASE + FP_REG_RSEL},
746 {"%fr21", 21 + FP_REG_BASE},
747 {"%fr21l", 21 + FP_REG_BASE},
748 {"%fr21r", 21 + FP_REG_BASE + FP_REG_RSEL},
749 {"%fr22", 22 + FP_REG_BASE},
750 {"%fr22l", 22 + FP_REG_BASE},
751 {"%fr22r", 22 + FP_REG_BASE + FP_REG_RSEL},
752 {"%fr23", 23 + FP_REG_BASE},
753 {"%fr23l", 23 + FP_REG_BASE},
754 {"%fr23r", 23 + FP_REG_BASE + FP_REG_RSEL},
755 {"%fr24", 24 + FP_REG_BASE},
756 {"%fr24l", 24 + FP_REG_BASE},
757 {"%fr24r", 24 + FP_REG_BASE + FP_REG_RSEL},
758 {"%fr25", 25 + FP_REG_BASE},
759 {"%fr25l", 25 + FP_REG_BASE},
760 {"%fr25r", 25 + FP_REG_BASE + FP_REG_RSEL},
761 {"%fr26", 26 + FP_REG_BASE},
762 {"%fr26l", 26 + FP_REG_BASE},
763 {"%fr26r", 26 + FP_REG_BASE + FP_REG_RSEL},
764 {"%fr27", 27 + FP_REG_BASE},
765 {"%fr27l", 27 + FP_REG_BASE},
766 {"%fr27r", 27 + FP_REG_BASE + FP_REG_RSEL},
767 {"%fr28", 28 + FP_REG_BASE},
768 {"%fr28l", 28 + FP_REG_BASE},
769 {"%fr28r", 28 + FP_REG_BASE + FP_REG_RSEL},
770 {"%fr29", 29 + FP_REG_BASE},
771 {"%fr29l", 29 + FP_REG_BASE},
772 {"%fr29r", 29 + FP_REG_BASE + FP_REG_RSEL},
773 {"%fr2l", 2 + FP_REG_BASE},
774 {"%fr2r", 2 + FP_REG_BASE + FP_REG_RSEL},
775 {"%fr3", 3 + FP_REG_BASE},
776 {"%fr30", 30 + FP_REG_BASE},
777 {"%fr30l", 30 + FP_REG_BASE},
778 {"%fr30r", 30 + FP_REG_BASE + FP_REG_RSEL},
779 {"%fr31", 31 + FP_REG_BASE},
780 {"%fr31l", 31 + FP_REG_BASE},
781 {"%fr31r", 31 + FP_REG_BASE + FP_REG_RSEL},
782 {"%fr3l", 3 + FP_REG_BASE},
783 {"%fr3r", 3 + FP_REG_BASE + FP_REG_RSEL},
784 {"%fr4", 4 + FP_REG_BASE},
785 {"%fr4l", 4 + FP_REG_BASE},
786 {"%fr4r", 4 + FP_REG_BASE + FP_REG_RSEL},
787 {"%fr5", 5 + FP_REG_BASE},
788 {"%fr5l", 5 + FP_REG_BASE},
789 {"%fr5r", 5 + FP_REG_BASE + FP_REG_RSEL},
790 {"%fr6", 6 + FP_REG_BASE},
791 {"%fr6l", 6 + FP_REG_BASE},
792 {"%fr6r", 6 + FP_REG_BASE + FP_REG_RSEL},
793 {"%fr7", 7 + FP_REG_BASE},
794 {"%fr7l", 7 + FP_REG_BASE},
795 {"%fr7r", 7 + FP_REG_BASE + FP_REG_RSEL},
796 {"%fr8", 8 + FP_REG_BASE},
797 {"%fr8l", 8 + FP_REG_BASE},
798 {"%fr8r", 8 + FP_REG_BASE + FP_REG_RSEL},
799 {"%fr9", 9 + FP_REG_BASE},
800 {"%fr9l", 9 + FP_REG_BASE},
801 {"%fr9r", 9 + FP_REG_BASE + FP_REG_RSEL},
85cf2a8a 802 {"%fret", 4},
ecacdc7a
AM		 803 {"%hta", 25},
804 {"%iir", 19},
805 {"%ior", 21},
806 {"%ipsw", 22},
807 {"%isr", 20},
808 {"%itmr", 16},
809 {"%iva", 14},
8be31359
NC		 810#if TARGET_ARCH_SIZE == 64
811 {"%mrp", 2},
812#else
813 {"%mrp", 31},
814#endif
ecacdc7a
AM		 815 {"%pcoq", 18},
816 {"%pcsq", 17},
817 {"%pidr1", 8},
818 {"%pidr2", 9},
252b5132
RH		 819 {"%pidr3", 12},
820 {"%pidr4", 13},
ecacdc7a
AM		 821 {"%ppda", 24},
822 {"%r0", 0},
823 {"%r1", 1},
824 {"%r10", 10},
825 {"%r11", 11},
826 {"%r12", 12},
827 {"%r13", 13},
828 {"%r14", 14},
829 {"%r15", 15},
830 {"%r16", 16},
831 {"%r17", 17},
832 {"%r18", 18},
833 {"%r19", 19},
834 {"%r2", 2},
835 {"%r20", 20},
836 {"%r21", 21},
837 {"%r22", 22},
838 {"%r23", 23},
839 {"%r24", 24},
840 {"%r25", 25},
841 {"%r26", 26},
842 {"%r27", 27},
843 {"%r28", 28},
844 {"%r29", 29},
845 {"%r3", 3},
846 {"%r30", 30},
847 {"%r31", 31},
848 {"%r4", 4},
849 {"%r5", 5},
850 {"%r6", 6},
851 {"%r7", 7},
852 {"%r8", 8},
853 {"%r9", 9},
854 {"%rctr", 0},
855 {"%ret0", 28},
856 {"%ret1", 29},
857 {"%rp", 2},
858 {"%sar", 11},
859 {"%sp", 30},
860 {"%sr0", 0},
861 {"%sr1", 1},
862 {"%sr2", 2},
863 {"%sr3", 3},
864 {"%sr4", 4},
865 {"%sr5", 5},
866 {"%sr6", 6},
867 {"%sr7", 7},
85cf2a8a
NC		 868 {"%t1", 22},
869 {"%t2", 21},
870 {"%t3", 20},
871 {"%t4", 19},
872 {"%tf1", 11},
873 {"%tf2", 10},
874 {"%tf3", 9},
875 {"%tf4", 8},
ecacdc7a
AM		 876 {"%tr0", 24},
877 {"%tr1", 25},
878 {"%tr2", 26},
879 {"%tr3", 27},
880 {"%tr4", 28},
881 {"%tr5", 29},
882 {"%tr6", 30},
883 {"%tr7", 31}
252b5132
RH		 884};
885
886/* This table is sorted by order of the length of the string. This is
887 so we check for <> before we check for <. If we had a <> and checked
888 for < first, we would get a false match. */
889static const struct fp_cond_map fp_cond_map[] =
890{
891 {"false?", 0},
892 {"false", 1},
893 {"true?", 30},
894 {"true", 31},
895 {"!<=>", 3},
896 {"!?>=", 8},
897 {"!?<=", 16},
898 {"!<>", 7},
899 {"!>=", 11},
900 {"!?>", 12},
901 {"?<=", 14},
902 {"!<=", 19},
903 {"!?<", 20},
904 {"?>=", 22},
905 {"!?=", 24},
906 {"!=t", 27},
907 {"<=>", 29},
908 {"=t", 5},
909 {"?=", 6},
910 {"?<", 10},
911 {"<=", 13},
912 {"!>", 15},
913 {"?>", 18},
914 {">=", 21},
915 {"!<", 23},
916 {"<>", 25},
917 {"!=", 26},
918 {"!?", 28},
919 {"?", 2},
920 {"=", 4},
921 {"<", 9},
922 {">", 17}
923};
924
925static const struct selector_entry selector_table[] =
926{
927 {"f", e_fsel},
928 {"l", e_lsel},
929 {"ld", e_ldsel},
930 {"lp", e_lpsel},
931 {"lr", e_lrsel},
932 {"ls", e_lssel},
933 {"lt", e_ltsel},
39ba5561 934 {"ltp", e_ltpsel},
252b5132
RH		 935 {"n", e_nsel},
936 {"nl", e_nlsel},
937 {"nlr", e_nlrsel},
938 {"p", e_psel},
939 {"r", e_rsel},
940 {"rd", e_rdsel},
941 {"rp", e_rpsel},
942 {"rr", e_rrsel},
943 {"rs", e_rssel},
944 {"rt", e_rtsel},
39ba5561 945 {"rtp", e_rtpsel},
252b5132
RH		 946 {"t", e_tsel},
947};
948
49863f82 949#ifdef OBJ_SOM
252b5132
RH		 950/* default space and subspace dictionaries */
951
4e3b43ed
AM		 952#define GDB_SYMBOLS GDB_SYMBOLS_SUBSPACE_NAME
953#define GDB_STRINGS GDB_STRINGS_SUBSPACE_NAME
252b5132
RH		 954
955/* pre-defined subsegments (subspaces) for the HPPA. */
956#define SUBSEG_CODE 0
957#define SUBSEG_LIT 1
958#define SUBSEG_MILLI 2
959#define SUBSEG_DATA 0
960#define SUBSEG_BSS 2
961#define SUBSEG_UNWIND 3
962#define SUBSEG_GDB_STRINGS 0
963#define SUBSEG_GDB_SYMBOLS 1
964
965static struct default_subspace_dict pa_def_subspaces[] =
966{
351e2b5a
DA		 967 {"$CODE$", 1, 1, 1, 0, 0, 0, 0, 24, 0x2c, 0, 8, 0, 0, SUBSEG_CODE},
968 {"$DATA$", 1, 1, 0, 0, 0, 0, 0, 24, 0x1f, 1, 8, 1, 1, SUBSEG_DATA},
969 {"$LIT$", 1, 1, 0, 0, 0, 0, 0, 16, 0x2c, 0, 8, 0, 0, SUBSEG_LIT},
970 {"$MILLICODE$", 1, 1, 0, 0, 0, 0, 0, 8, 0x2c, 0, 8, 0, 0, SUBSEG_MILLI},
971 {"$BSS$", 1, 1, 0, 0, 0, 0, 1, 80, 0x1f, 1, 8, 1, 1, SUBSEG_BSS},
972 {NULL, 0, 1, 0, 0, 0, 0, 0, 255, 0x1f, 0, 4, 0, 0, 0}
252b5132
RH		 973};
974
975static struct default_space_dict pa_def_spaces[] =
976{
49863f82
JL		 977 {"$TEXT$", 0, 1, 1, 0, 8, ASEC_NULL},
978 {"$PRIVATE$", 1, 1, 1, 1, 16, ASEC_NULL},
979 {NULL, 0, 0, 0, 0, 0, ASEC_NULL}
252b5132
RH		 980};
981
982/* Misc local definitions used by the assembler. */
983
252b5132
RH		 984/* These macros are used to maintain spaces/subspaces. */
985#define SPACE_DEFINED(space_chain) (space_chain)->sd_defined
986#define SPACE_USER_DEFINED(space_chain) (space_chain)->sd_user_defined
987#define SPACE_SPNUM(space_chain) (space_chain)->sd_spnum
988#define SPACE_NAME(space_chain) (space_chain)->sd_name
989
990#define SUBSPACE_DEFINED(ss_chain) (ss_chain)->ssd_defined
991#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_name
49863f82
JL		 992#endif
993
994/* Return nonzero if the string pointed to by S potentially represents
995 a right or left half of a FP register */
996#define IS_R_SELECT(S) (*(S) == 'R' || *(S) == 'r')
997#define IS_L_SELECT(S) (*(S) == 'L' || *(S) == 'l')
252b5132 998
91c2f09e
DA		 999/* Store immediate values of shift/deposit/extract functions. */
1000
1001#define SAVE_IMMEDIATE(VALUE) \
1002 { \
1003 if (immediate_check) \
1004 { \
1005 if (pos == -1) \
1006 pos = (VALUE); \
1007 else if (len == -1) \
1008 len = (VALUE); \
1009 } \
1010 }
1011
252b5132
RH		 1012/* Insert FIELD into OPCODE starting at bit START. Continue pa_ip
1013 main loop after insertion. */
1014
1015#define INSERT_FIELD_AND_CONTINUE(OPCODE, FIELD, START) \
1016 { \
1017 ((OPCODE) |= (FIELD) << (START)); \
1018 continue; \
1019 }
1020
0234cb7c 1021/* Simple range checking for FIELD against HIGH and LOW bounds.
252b5132
RH		 1022 IGNORE is used to suppress the error message. */
1023
1024#define CHECK_FIELD(FIELD, HIGH, LOW, IGNORE) \
1025 { \
1026 if ((FIELD) > (HIGH) || (FIELD) < (LOW)) \
1027 { \
1028 if (! IGNORE) \
4e3b43ed 1029 as_bad (_("Field out of range [%d..%d] (%d)."), (LOW), (HIGH), \
252b5132 1030 (int) (FIELD));\
4e3b43ed 1031 break; \
252b5132
RH		 1032 } \
1033 }
1034
55cf6793 1035/* Variant of CHECK_FIELD for use in md_apply_fix and other places where
b091f402
AM		 1036 the current file and line number are not valid. */
1037
1038#define CHECK_FIELD_WHERE(FIELD, HIGH, LOW, FILENAME, LINE) \
1039 { \
1040 if ((FIELD) > (HIGH) || (FIELD) < (LOW)) \
1041 { \
4e3b43ed 1042 as_bad_where ((FILENAME), (LINE), \
b091f402
AM		 1043 _("Field out of range [%d..%d] (%d)."), (LOW), (HIGH), \
1044 (int) (FIELD));\
4e3b43ed 1045 break; \
b091f402
AM		 1046 } \
1047 }
1048
0234cb7c 1049/* Simple alignment checking for FIELD against ALIGN (a power of two).
a02fab7e
JL		 1050 IGNORE is used to suppress the error message. */
1051
1052#define CHECK_ALIGN(FIELD, ALIGN, IGNORE) \
1053 { \
1054 if ((FIELD) & ((ALIGN) - 1)) \
1055 { \
1056 if (! IGNORE) \
4e3b43ed 1057 as_bad (_("Field not properly aligned [%d] (%d)."), (ALIGN), \
a02fab7e 1058 (int) (FIELD));\
4e3b43ed 1059 break; \
a02fab7e
JL		 1060 } \
1061 }
1062
252b5132
RH		 1063#define is_DP_relative(exp) \
1064 ((exp).X_op == O_subtract \
a0f75b47 1065 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$global$") == 0)
252b5132 1066
6bba1048
DA		 1067#define is_SB_relative(exp) \
1068 ((exp).X_op == O_subtract \
1069 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$segrel$") == 0)
1070
252b5132
RH		 1071#define is_PC_relative(exp) \
1072 ((exp).X_op == O_subtract \
a0f75b47 1073 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$PIC_pcrel$0") == 0)
252b5132 1074
9b52905e
NC		 1075#define is_tls_gdidx(exp) \
1076 ((exp).X_op == O_subtract \
1077 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$tls_gdidx$") == 0)
1078
1079#define is_tls_ldidx(exp) \
1080 ((exp).X_op == O_subtract \
1081 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$tls_ldidx$") == 0)
1082
1083#define is_tls_dtpoff(exp) \
1084 ((exp).X_op == O_subtract \
1085 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$tls_dtpoff$") == 0)
1086
1087#define is_tls_ieoff(exp) \
1088 ((exp).X_op == O_subtract \
1089 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$tls_ieoff$") == 0)
1090
1091#define is_tls_leoff(exp) \
1092 ((exp).X_op == O_subtract \
1093 && strcmp (S_GET_NAME ((exp).X_op_symbol), "$tls_leoff$") == 0)
1094
252b5132
RH		 1095/* We need some complex handling for stabs (sym1 - sym2). Luckily, we'll
1096 always be able to reduce the expression to a constant, so we don't
1097 need real complex handling yet. */
1098#define is_complex(exp) \
1099 ((exp).X_op != O_constant && (exp).X_op != O_symbol)
1100
1101/* Actual functions to implement the PA specific code for the assembler. */
1102
1103/* Called before writing the object file. Make sure entry/exit and
1104 proc/procend pairs match. */
1105
1106void
9b52905e 1107pa_check_eof (void)
252b5132
RH		 1108{
1109 if (within_entry_exit)
1110 as_fatal (_("Missing .exit\n"));
1111
1112 if (within_procedure)
1113 as_fatal (_("Missing .procend\n"));
1114}
1115
252b5132
RH		 1116/* Returns a pointer to the label_symbol_struct for the current space.
1117 or NULL if no label_symbol_struct exists for the current space. */
1118
1119static label_symbol_struct *
9b52905e 1120pa_get_label (void)
252b5132
RH		 1121{
1122 label_symbol_struct *label_chain;
252b5132
RH		 1123
1124 for (label_chain = label_symbols_rootp;
1125 label_chain;
1126 label_chain = label_chain->lss_next)
49863f82
JL		 1127 {
1128#ifdef OBJ_SOM
1129 if (current_space == label_chain->lss_space && label_chain->lss_label)
1130 return label_chain;
1131#endif
1132#ifdef OBJ_ELF
1133 if (now_seg == label_chain->lss_segment && label_chain->lss_label)
252b5132 1134 return label_chain;
49863f82
JL		 1135#endif
1136 }
252b5132
RH		 1137
1138 return NULL;
1139}
1140
1141/* Defines a label for the current space. If one is already defined,
1142 this function will replace it with the new label. */
1143
1144void
9b52905e 1145pa_define_label (symbolS *symbol)
252b5132
RH		 1146{
1147 label_symbol_struct *label_chain = pa_get_label ();
252b5132
RH		 1148
1149 if (label_chain)
1150 label_chain->lss_label = symbol;
1151 else
1152 {
1153 /* Create a new label entry and add it to the head of the chain. */
9b52905e 1154 label_chain = xmalloc (sizeof (label_symbol_struct));
252b5132 1155 label_chain->lss_label = symbol;
49863f82
JL		 1156#ifdef OBJ_SOM
1157 label_chain->lss_space = current_space;
1158#endif
1159#ifdef OBJ_ELF
1160 label_chain->lss_segment = now_seg;
1161#endif
252b5132
RH		 1162 label_chain->lss_next = NULL;
1163
1164 if (label_symbols_rootp)
1165 label_chain->lss_next = label_symbols_rootp;
1166
1167 label_symbols_rootp = label_chain;
1168 }
07a53e5c
RH		 1169
1170#ifdef OBJ_ELF
1171 dwarf2_emit_label (symbol);
1172#endif
252b5132
RH		 1173}
1174
1175/* Removes a label definition for the current space.
1176 If there is no label_symbol_struct entry, then no action is taken. */
1177
1178static void
9b52905e 1179pa_undefine_label (void)
252b5132
RH		 1180{
1181 label_symbol_struct *label_chain;
1182 label_symbol_struct *prev_label_chain = NULL;
252b5132
RH		 1183
1184 for (label_chain = label_symbols_rootp;
1185 label_chain;
1186 label_chain = label_chain->lss_next)
1187 {
49863f82
JL		 1188 if (1
1189#ifdef OBJ_SOM
cc8a6dd0 1190 && current_space == label_chain->lss_space && label_chain->lss_label
49863f82
JL		 1191#endif
1192#ifdef OBJ_ELF
cc8a6dd0 1193 && now_seg == label_chain->lss_segment && label_chain->lss_label
49863f82
JL		 1194#endif
1195 )
252b5132
RH		 1196 {
1197 /* Remove the label from the chain and free its memory. */
1198 if (prev_label_chain)
1199 prev_label_chain->lss_next = label_chain->lss_next;
1200 else
1201 label_symbols_rootp = label_chain->lss_next;
1202
1203 free (label_chain);
1204 break;
1205 }
1206 prev_label_chain = label_chain;
1207 }
1208}
1209
252b5132
RH		 1210/* An HPPA-specific version of fix_new. This is required because the HPPA
1211 code needs to keep track of some extra stuff. Each call to fix_new_hppa
1212 results in the creation of an instance of an hppa_fix_struct. An
1213 hppa_fix_struct stores the extra information along with a pointer to the
1214 original fixS. This is attached to the original fixup via the
1215 tc_fix_data field. */
1216
1217static void
9b52905e
NC		 1218fix_new_hppa (fragS *frag,
1219 int where,
1220 int size,
1221 symbolS *add_symbol,
1222 offsetT offset,
1223 expressionS *exp,
1224 int pcrel,
1225 bfd_reloc_code_real_type r_type,
1226 enum hppa_reloc_field_selector_type_alt r_field,
1227 int r_format,
1228 unsigned int arg_reloc,
1229 int unwind_bits ATTRIBUTE_UNUSED)
252b5132
RH		 1230{
1231 fixS *new_fix;
9b52905e 1232 struct hppa_fix_struct *hppa_fix = obstack_alloc (&notes, sizeof (struct hppa_fix_struct));
252b5132
RH		 1233
1234 if (exp != NULL)
1235 new_fix = fix_new_exp (frag, where, size, exp, pcrel, r_type);
1236 else
1237 new_fix = fix_new (frag, where, size, add_symbol, offset, pcrel, r_type);
1238 new_fix->tc_fix_data = (void *) hppa_fix;
1239 hppa_fix->fx_r_type = r_type;
1240 hppa_fix->fx_r_field = r_field;
1241 hppa_fix->fx_r_format = r_format;
1242 hppa_fix->fx_arg_reloc = arg_reloc;
1243 hppa_fix->segment = now_seg;
1244#ifdef OBJ_SOM
1245 if (r_type == R_ENTRY || r_type == R_EXIT)
da6c73e0 1246 new_fix->fx_offset = unwind_bits;
252b5132
RH		 1247#endif
1248
1249 /* foo-$global$ is used to access non-automatic storage. $global$
1250 is really just a marker and has served its purpose, so eliminate
904a31bf 1251 it now so as not to confuse write.c. Ditto for $PIC_pcrel$0. */
252b5132 1252 if (new_fix->fx_subsy
904a31bf 1253 && (strcmp (S_GET_NAME (new_fix->fx_subsy), "$global$") == 0
6bba1048 1254 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$segrel$") == 0
9b52905e
NC		 1255 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$PIC_pcrel$0") == 0
1256 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_gdidx$") == 0
1257 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_ldidx$") == 0
1258 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_dtpoff$") == 0
1259 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_ieoff$") == 0
1260 || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_leoff$") == 0))
252b5132
RH		 1261 new_fix->fx_subsy = NULL;
1262}
1263
252b5132
RH		 1264/* This fix_new is called by cons via TC_CONS_FIX_NEW.
1265 hppa_field_selector is set by the parse_cons_expression_hppa. */
1266
1267void
9b52905e 1268cons_fix_new_hppa (fragS *frag, int where, int size, expressionS *exp)
252b5132
RH		 1269{
1270 unsigned int rel_type;
1271
1272 /* Get a base relocation type. */
1273 if (is_DP_relative (*exp))
1274 rel_type = R_HPPA_GOTOFF;
9992270f
DA		 1275 else if (is_PC_relative (*exp))
1276 rel_type = R_HPPA_PCREL_CALL;
9b52905e 1277#ifdef OBJ_ELF
6bba1048
DA		 1278 else if (is_SB_relative (*exp))
1279 rel_type = R_PARISC_SEGREL32;
9b52905e
NC		 1280 else if (is_tls_gdidx (*exp))
1281 rel_type = R_PARISC_TLS_GD21L;
1282 else if (is_tls_ldidx (*exp))
1283 rel_type = R_PARISC_TLS_LDM21L;
1284 else if (is_tls_dtpoff (*exp))
1285 rel_type = R_PARISC_TLS_LDO21L;
1286 else if (is_tls_ieoff (*exp))
1287 rel_type = R_PARISC_TLS_IE21L;
1288 else if (is_tls_leoff (*exp))
1289 rel_type = R_PARISC_TLS_LE21L;
1290#endif
252b5132
RH		 1291 else if (is_complex (*exp))
1292 rel_type = R_HPPA_COMPLEX;
1293 else
1294 rel_type = R_HPPA;
1295
1296 if (hppa_field_selector != e_psel && hppa_field_selector != e_fsel)
ad1079af
AM		 1297 {
1298 as_warn (_("Invalid field selector. Assuming F%%."));
1299 hppa_field_selector = e_fsel;
1300 }
252b5132
RH		 1301
1302 fix_new_hppa (frag, where, size,
1303 (symbolS *) NULL, (offsetT) 0, exp, 0, rel_type,
da6c73e0 1304 hppa_field_selector, size * 8, 0, 0);
252b5132
RH		 1305
1306 /* Reset field selector to its default state. */
1307 hppa_field_selector = 0;
1308}
1309
9b52905e 1310/* Mark (via expr_end) the end of an expression (I think). FIXME. */
252b5132 1311
9b52905e
NC		 1312static void
1313get_expression (char *str)
252b5132 1314{
9b52905e
NC		 1315 char *save_in;
1316 asection *seg;
252b5132 1317
9b52905e
NC		 1318 save_in = input_line_pointer;
1319 input_line_pointer = str;
1320 seg = expression (&the_insn.exp);
1321 if (!(seg == absolute_section
1322 || seg == undefined_section
1323 || SEG_NORMAL (seg)))
252b5132 1324 {
9b52905e
NC		 1325 as_warn (_("Bad segment in expression."));
1326 expr_end = input_line_pointer;
1327 input_line_pointer = save_in;
1328 return;
252b5132 1329 }
9b52905e
NC		 1330 expr_end = input_line_pointer;
1331 input_line_pointer = save_in;
1332}
252b5132 1333
9b52905e
NC		 1334/* Parse a PA nullification completer (,n). Return nonzero if the
1335 completer was found; return zero if no completer was found. */
252b5132 1336
9b52905e
NC		 1337static int
1338pa_parse_nullif (char **s)
1339{
1340 int nullif;
252b5132 1341
9b52905e
NC		 1342 nullif = 0;
1343 if (**s == ',')
252b5132 1344 {
9b52905e
NC		 1345 *s = *s + 1;
1346 if (strncasecmp (*s, "n", 1) == 0)
1347 nullif = 1;
1348 else
252b5132 1349 {
9b52905e
NC		 1350 as_bad (_("Invalid Nullification: (%c)"), **s);
1351 nullif = 0;
252b5132 1352 }
9b52905e 1353 *s = *s + 1;
252b5132
RH		 1354 }
1355
9b52905e 1356 return nullif;
252b5132
RH		 1357}
1358
9b52905e
NC		 1359char *
1360md_atof (int type, char *litP, int *sizeP)
1361{
499ac353 1362 return ieee_md_atof (type, litP, sizeP, TRUE);
252b5132
RH		 1363}
1364
9b52905e 1365/* Write out big-endian. */
252b5132 1366
9b52905e
NC		 1367void
1368md_number_to_chars (char *buf, valueT val, int n)
252b5132 1369{
9b52905e
NC		 1370 number_to_chars_bigendian (buf, val, n);
1371}
252b5132 1372
9b52905e
NC		 1373/* Translate internal representation of relocation info to BFD target
1374 format. */
252b5132 1375
9b52905e
NC		 1376arelent **
1377tc_gen_reloc (asection *section, fixS *fixp)
1378{
1379 arelent *reloc;
1380 struct hppa_fix_struct *hppa_fixp;
1381 static arelent *no_relocs = NULL;
1382 arelent **relocs;
1383 reloc_type **codes;
1384 reloc_type code;
1385 int n_relocs;
1386 int i;
b1c5e0ee 1387
9b52905e
NC		 1388 hppa_fixp = (struct hppa_fix_struct *) fixp->tc_fix_data;
1389 if (fixp->fx_addsy == 0)
1390 return &no_relocs;
252b5132 1391
9c2799c2
NC		 1392 gas_assert (hppa_fixp != 0);
1393 gas_assert (section != 0);
252b5132 1394
9b52905e 1395 reloc = xmalloc (sizeof (arelent));
252b5132 1396
9b52905e
NC		 1397 reloc->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1398 *reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
8c9b70b1
RH		 1399
1400 /* Allow fixup_segment to recognize hand-written pc-relative relocations.
1401 When we went through cons_fix_new_hppa, we classified them as complex. */
1402 /* ??? It might be better to hide this +8 stuff in tc_cfi_emit_pcrel_expr,
1403 undefine DIFF_EXPR_OK, and let these sorts of complex expressions fail
1404 when R_HPPA_COMPLEX == R_PARISC_UNIMPLEMENTED. */
87975d2a
AM		 1405 if (fixp->fx_r_type == (bfd_reloc_code_real_type) R_HPPA_COMPLEX
1406 && fixp->fx_pcrel)
8c9b70b1
RH		 1407 {
1408 fixp->fx_r_type = R_HPPA_PCREL_CALL;
1409 fixp->fx_offset += 8;
1410 }
1411
9b52905e
NC		 1412 codes = hppa_gen_reloc_type (stdoutput,
1413 fixp->fx_r_type,
1414 hppa_fixp->fx_r_format,
1415 hppa_fixp->fx_r_field,
1416 fixp->fx_subsy != NULL,
1417 symbol_get_bfdsym (fixp->fx_addsy));
252b5132 1418
9b52905e
NC		 1419 if (codes == NULL)
1420 {
1421 as_bad_where (fixp->fx_file, fixp->fx_line, _("Cannot handle fixup"));
1422 abort ();
1423 }
252b5132 1424
9b52905e
NC		 1425 for (n_relocs = 0; codes[n_relocs]; n_relocs++)
1426 ;
252b5132 1427
9b52905e
NC		 1428 relocs = xmalloc (sizeof (arelent *) * n_relocs + 1);
1429 reloc = xmalloc (sizeof (arelent) * n_relocs);
1430 for (i = 0; i < n_relocs; i++)
1431 relocs[i] = &reloc[i];
252b5132 1432
9b52905e 1433 relocs[n_relocs] = NULL;
252b5132 1434
9b52905e
NC		 1435#ifdef OBJ_ELF
1436 switch (fixp->fx_r_type)
252b5132 1437 {
9b52905e 1438 default:
9c2799c2 1439 gas_assert (n_relocs == 1);
252b5132 1440
9b52905e 1441 code = *codes[0];
252b5132 1442
9b52905e
NC		 1443 /* Now, do any processing that is dependent on the relocation type. */
1444 switch (code)
1445 {
1446 case R_PARISC_DLTREL21L:
1447 case R_PARISC_DLTREL14R:
1448 case R_PARISC_DLTREL14F:
1449 case R_PARISC_PLABEL32:
1450 case R_PARISC_PLABEL21L:
1451 case R_PARISC_PLABEL14R:
1452 /* For plabel relocations, the addend of the
1453 relocation should be either 0 (no static link) or 2
1454 (static link required). This adjustment is done in
1455 bfd/elf32-hppa.c:elf32_hppa_relocate_section.
252b5132 1456
9b52905e
NC		 1457 We also slam a zero addend into the DLT relative relocs;
1458 it doesn't make a lot of sense to use any addend since
1459 it gets you a different (eg unknown) DLT entry. */
1460 reloc->addend = 0;
1461 break;
252b5132 1462
9b52905e
NC		 1463#ifdef ELF_ARG_RELOC
1464 case R_PARISC_PCREL17R:
1465 case R_PARISC_PCREL17F:
1466 case R_PARISC_PCREL17C:
1467 case R_PARISC_DIR17R:
1468 case R_PARISC_DIR17F:
1469 case R_PARISC_PCREL21L:
1470 case R_PARISC_DIR21L:
1471 reloc->addend = HPPA_R_ADDEND (hppa_fixp->fx_arg_reloc,
1472 fixp->fx_offset);
1473 break;
1474#endif
680ef6de 1475
9b52905e
NC		 1476 case R_PARISC_DIR32:
1477 /* Facilitate hand-crafted unwind info. */
1478 if (strcmp (section->name, UNWIND_SECTION_NAME) == 0)
1479 code = R_PARISC_SEGREL32;
1480 /* Fall thru */
252b5132 1481
9b52905e
NC		 1482 default:
1483 reloc->addend = fixp->fx_offset;
1484 break;
1485 }
252b5132 1486
9b52905e
NC		 1487 reloc->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1488 *reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
1489 reloc->howto = bfd_reloc_type_lookup (stdoutput,
1490 (bfd_reloc_code_real_type) code);
1491 reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
252b5132 1492
9c2799c2 1493 gas_assert (reloc->howto && (unsigned int) code == reloc->howto->type);
9b52905e
NC		 1494 break;
1495 }
1496#else /* OBJ_SOM */
252b5132 1497
9b52905e
NC		 1498 /* Walk over reach relocation returned by the BFD backend. */
1499 for (i = 0; i < n_relocs; i++)
1500 {
1501 code = *codes[i];
252b5132 1502
9b52905e
NC		 1503 relocs[i]->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1504 *relocs[i]->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
1505 relocs[i]->howto =
1506 bfd_reloc_type_lookup (stdoutput,
1507 (bfd_reloc_code_real_type) code);
1508 relocs[i]->address = fixp->fx_frag->fr_address + fixp->fx_where;
a97685e9 1509
9b52905e
NC		 1510 switch (code)
1511 {
1512 case R_COMP2:
1513 /* The only time we ever use a R_COMP2 fixup is for the difference
1514 of two symbols. With that in mind we fill in all four
1515 relocs now and break out of the loop. */
9c2799c2 1516 gas_assert (i == 1);
9b52905e
NC		 1517 relocs[0]->sym_ptr_ptr
1518 = (asymbol **) bfd_abs_section_ptr->symbol_ptr_ptr;
1519 relocs[0]->howto
1520 = bfd_reloc_type_lookup (stdoutput,
1521 (bfd_reloc_code_real_type) *codes[0]);
1522 relocs[0]->address = fixp->fx_frag->fr_address + fixp->fx_where;
1523 relocs[0]->addend = 0;
1524 relocs[1]->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1525 *relocs[1]->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
1526 relocs[1]->howto
1527 = bfd_reloc_type_lookup (stdoutput,
1528 (bfd_reloc_code_real_type) *codes[1]);
1529 relocs[1]->address = fixp->fx_frag->fr_address + fixp->fx_where;
1530 relocs[1]->addend = 0;
1531 relocs[2]->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1532 *relocs[2]->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_subsy);
1533 relocs[2]->howto
1534 = bfd_reloc_type_lookup (stdoutput,
1535 (bfd_reloc_code_real_type) *codes[2]);
1536 relocs[2]->address = fixp->fx_frag->fr_address + fixp->fx_where;
1537 relocs[2]->addend = 0;
1538 relocs[3]->sym_ptr_ptr
1539 = (asymbol **) bfd_abs_section_ptr->symbol_ptr_ptr;
1540 relocs[3]->howto
1541 = bfd_reloc_type_lookup (stdoutput,
1542 (bfd_reloc_code_real_type) *codes[3]);
1543 relocs[3]->address = fixp->fx_frag->fr_address + fixp->fx_where;
1544 relocs[3]->addend = 0;
1545 relocs[4]->sym_ptr_ptr
1546 = (asymbol **) bfd_abs_section_ptr->symbol_ptr_ptr;
1547 relocs[4]->howto
1548 = bfd_reloc_type_lookup (stdoutput,
1549 (bfd_reloc_code_real_type) *codes[4]);
1550 relocs[4]->address = fixp->fx_frag->fr_address + fixp->fx_where;
1551 relocs[4]->addend = 0;
1552 goto done;
1553 case R_PCREL_CALL:
1554 case R_ABS_CALL:
1555 relocs[i]->addend = HPPA_R_ADDEND (hppa_fixp->fx_arg_reloc, 0);
1556 break;
a97685e9 1557
9b52905e
NC		 1558 case R_DLT_REL:
1559 case R_DATA_PLABEL:
1560 case R_CODE_PLABEL:
1561 /* For plabel relocations, the addend of the
1562 relocation should be either 0 (no static link) or 2
1563 (static link required).
252b5132 1564
9b52905e 1565 FIXME: We always assume no static link!
252b5132 1566
9b52905e
NC		 1567 We also slam a zero addend into the DLT relative relocs;
1568 it doesn't make a lot of sense to use any addend since
1569 it gets you a different (eg unknown) DLT entry. */
1570 relocs[i]->addend = 0;
1571 break;
413c94ba 1572
9b52905e
NC		 1573 case R_N_MODE:
1574 case R_S_MODE:
1575 case R_D_MODE:
1576 case R_R_MODE:
1577 case R_FSEL:
1578 case R_LSEL:
1579 case R_RSEL:
1580 case R_BEGIN_BRTAB:
1581 case R_END_BRTAB:
1582 case R_BEGIN_TRY:
1583 case R_N0SEL:
1584 case R_N1SEL:
1585 /* There is no symbol or addend associated with these fixups. */
1586 relocs[i]->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1587 *relocs[i]->sym_ptr_ptr = symbol_get_bfdsym (dummy_symbol);
1588 relocs[i]->addend = 0;
1589 break;
252b5132 1590
9b52905e
NC		 1591 case R_END_TRY:
1592 case R_ENTRY:
1593 case R_EXIT:
1594 /* There is no symbol associated with these fixups. */
1595 relocs[i]->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1596 *relocs[i]->sym_ptr_ptr = symbol_get_bfdsym (dummy_symbol);
1597 relocs[i]->addend = fixp->fx_offset;
1598 break;
252b5132 1599
9b52905e
NC		 1600 default:
1601 relocs[i]->addend = fixp->fx_offset;
1602 }
1603 }
252b5132 1604
9b52905e
NC		 1605 done:
1606#endif
252b5132 1607
9b52905e
NC		 1608 return relocs;
1609}
252b5132 1610
9b52905e 1611/* Process any machine dependent frag types. */
680ef6de 1612
9b52905e
NC		 1613void
1614md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED,
1615 asection *sec ATTRIBUTE_UNUSED,
1616 fragS *fragP)
1617{
1618 unsigned int address;
252b5132 1619
9b52905e
NC		 1620 if (fragP->fr_type == rs_machine_dependent)
1621 {
1622 switch ((int) fragP->fr_subtype)
1623 {
1624 case 0:
1625 fragP->fr_type = rs_fill;
1626 know (fragP->fr_var == 1);
1627 know (fragP->fr_next);
1628 address = fragP->fr_address + fragP->fr_fix;
1629 if (address % fragP->fr_offset)
1630 {
1631 fragP->fr_offset =
1632 fragP->fr_next->fr_address
1633 - fragP->fr_address
1634 - fragP->fr_fix;
1635 }
1636 else
1637 fragP->fr_offset = 0;
1638 break;
1639 }
1640 }
1641}
252b5132 1642
9b52905e 1643/* Round up a section size to the appropriate boundary. */
28252e61 1644
9b52905e
NC		 1645valueT
1646md_section_align (asection *segment, valueT size)
1647{
1648 int align = bfd_get_section_alignment (stdoutput, segment);
1649 int align2 = (1 << align) - 1;
252b5132 1650
9b52905e
NC		 1651 return (size + align2) & ~align2;
1652}
28252e61 1653
9b52905e 1654/* Return the approximate size of a frag before relaxation has occurred. */
d53d2751 1655
9b52905e
NC		 1656int
1657md_estimate_size_before_relax (fragS *fragP, asection *segment ATTRIBUTE_UNUSED)
1658{
1659 int size;
d53d2751 1660
9b52905e 1661 size = 0;
d53d2751 1662
9b52905e
NC		 1663 while ((fragP->fr_fix + size) % fragP->fr_offset)
1664 size++;
d53d2751 1665
9b52905e
NC		 1666 return size;
1667}
1668\f
1669#ifdef OBJ_ELF
1670# ifdef WARN_COMMENTS
1671const char *md_shortopts = "Vc";
1672# else
1673const char *md_shortopts = "V";
1674# endif
1675#else
1676# ifdef WARN_COMMENTS
1677const char *md_shortopts = "c";
1678# else
1679const char *md_shortopts = "";
1680# endif
1681#endif
ce674324 1682
9b52905e
NC		 1683struct option md_longopts[] =
1684{
1685#ifdef WARN_COMMENTS
1686 {"warn-comment", no_argument, NULL, 'c'},
1687#endif
1688 {NULL, no_argument, NULL, 0}
1689};
1690size_t md_longopts_size = sizeof (md_longopts);
ce674324 1691
9b52905e
NC		 1692int
1693md_parse_option (int c, char *arg ATTRIBUTE_UNUSED)
1694{
1695 switch (c)
1696 {
1697 default:
1698 return 0;
ce674324 1699
9b52905e
NC		 1700#ifdef OBJ_ELF
1701 case 'V':
1702 print_version_id ();
1703 break;
1704#endif
1705#ifdef WARN_COMMENTS
1706 case 'c':
1707 warn_comment = 1;
1708 break;
1709#endif
1710 }
ce674324 1711
9b52905e
NC		 1712 return 1;
1713}
680ef6de 1714
9b52905e
NC		 1715void
1716md_show_usage (FILE *stream ATTRIBUTE_UNUSED)
1717{
1718#ifdef OBJ_ELF
1719 fprintf (stream, _("\
1720 -Q ignored\n"));
1721#endif
1722#ifdef WARN_COMMENTS
1723 fprintf (stream, _("\
1724 -c print a warning if a comment is found\n"));
1725#endif
1726}
1727\f
1728/* We have no need to default values of symbols. */
680ef6de 1729
9b52905e
NC		 1730symbolS *
1731md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
1732{
1733 return NULL;
1734}
680ef6de 1735
9b52905e
NC		 1736#if defined (OBJ_SOM) || defined (ELF_ARG_RELOC)
1737#define nonzero_dibits(x) \
1738 ((x) | (((x) & 0x55555555) << 1) | (((x) & 0xAAAAAAAA) >> 1))
1739#define arg_reloc_stub_needed(CALLER, CALLEE) \
1740 (((CALLER) ^ (CALLEE)) & nonzero_dibits (CALLER) & nonzero_dibits (CALLEE))
1741#else
1742#define arg_reloc_stub_needed(CALLER, CALLEE) 0
1743#endif
680ef6de 1744
9b52905e 1745/* Apply a fixup to an instruction. */
680ef6de 1746
9b52905e
NC		 1747void
1748md_apply_fix (fixS *fixP, valueT *valP, segT seg ATTRIBUTE_UNUSED)
1749{
1750 char *fixpos;
1751 struct hppa_fix_struct *hppa_fixP;
1752 offsetT new_val;
1753 int insn, val, fmt;
680ef6de 1754
9b52905e
NC		 1755 /* SOM uses R_HPPA_ENTRY and R_HPPA_EXIT relocations which can
1756 never be "applied" (they are just markers). Likewise for
1757 R_HPPA_BEGIN_BRTAB and R_HPPA_END_BRTAB. */
1758#ifdef OBJ_SOM
1759 if (fixP->fx_r_type == R_HPPA_ENTRY
1760 || fixP->fx_r_type == R_HPPA_EXIT
1761 || fixP->fx_r_type == R_HPPA_BEGIN_BRTAB
1762 || fixP->fx_r_type == R_HPPA_END_BRTAB
1763 || fixP->fx_r_type == R_HPPA_BEGIN_TRY)
1764 return;
28252e61 1765
9b52905e
NC		 1766 /* Disgusting. We must set fx_offset ourselves -- R_HPPA_END_TRY
1767 fixups are considered not adjustable, which in turn causes
1768 adjust_reloc_syms to not set fx_offset. Ugh. */
1769 if (fixP->fx_r_type == R_HPPA_END_TRY)
1770 {
1771 fixP->fx_offset = * valP;
1772 return;
1773 }
1774#endif
1775#ifdef OBJ_ELF
1776 if (fixP->fx_r_type == (int) R_PARISC_GNU_VTENTRY
1777 || fixP->fx_r_type == (int) R_PARISC_GNU_VTINHERIT)
1778 return;
1779#endif
28252e61 1780
9b52905e
NC		 1781 if (fixP->fx_addsy == NULL && fixP->fx_pcrel == 0)
1782 fixP->fx_done = 1;
680ef6de 1783
9b52905e
NC		 1784 /* There should be a HPPA specific fixup associated with the GAS fixup. */
1785 hppa_fixP = (struct hppa_fix_struct *) fixP->tc_fix_data;
1786 if (hppa_fixP == NULL)
1787 {
1788 as_bad_where (fixP->fx_file, fixP->fx_line,
1789 _("no hppa_fixup entry for fixup type 0x%x"),
1790 fixP->fx_r_type);
1791 return;
1792 }
680ef6de 1793
9b52905e 1794 fixpos = fixP->fx_frag->fr_literal + fixP->fx_where;
9e4f2d3a 1795
9b52905e
NC		 1796 if (fixP->fx_size != 4 || hppa_fixP->fx_r_format == 32)
1797 {
1798 /* Handle constant output. */
1799 number_to_chars_bigendian (fixpos, *valP, fixP->fx_size);
1800 return;
1801 }
9e4f2d3a 1802
9b52905e
NC		 1803 insn = bfd_get_32 (stdoutput, fixpos);
1804 fmt = bfd_hppa_insn2fmt (stdoutput, insn);
d53d2751 1805
9b52905e
NC		 1806 /* If there is a symbol associated with this fixup, then it's something
1807 which will need a SOM relocation (except for some PC-relative relocs).
1808 In such cases we should treat the "val" or "addend" as zero since it
1809 will be added in as needed from fx_offset in tc_gen_reloc. */
1810 if ((fixP->fx_addsy != NULL
1811 || fixP->fx_r_type == (int) R_HPPA_NONE)
1812#ifdef OBJ_SOM
1813 && fmt != 32
1814#endif
1815 )
1816 new_val = ((fmt == 12 || fmt == 17 || fmt == 22) ? 8 : 0);
1817#ifdef OBJ_SOM
1818 /* These field selectors imply that we do not want an addend. */
1819 else if (hppa_fixP->fx_r_field == e_psel
1820 || hppa_fixP->fx_r_field == e_rpsel
1821 || hppa_fixP->fx_r_field == e_lpsel
1822 || hppa_fixP->fx_r_field == e_tsel
1823 || hppa_fixP->fx_r_field == e_rtsel
1824 || hppa_fixP->fx_r_field == e_ltsel)
1825 new_val = ((fmt == 12 || fmt == 17 || fmt == 22) ? 8 : 0);
1826#endif
1827 else
1828 new_val = hppa_field_adjust (* valP, 0, hppa_fixP->fx_r_field);
680ef6de 1829
9b52905e
NC		 1830 /* Handle pc-relative exceptions from above. */
1831 if ((fmt == 12 || fmt == 17 || fmt == 22)
1832 && fixP->fx_addsy
1833 && fixP->fx_pcrel
1834 && !arg_reloc_stub_needed (symbol_arg_reloc_info (fixP->fx_addsy),
1835 hppa_fixP->fx_arg_reloc)
1836#ifdef OBJ_ELF
1837 && (* valP - 8 + 8192 < 16384
1838 || (fmt == 17 && * valP - 8 + 262144 < 524288)
1839 || (fmt == 22 && * valP - 8 + 8388608 < 16777216))
1840#endif
1841#ifdef OBJ_SOM
1842 && (* valP - 8 + 262144 < 524288
1843 || (fmt == 22 && * valP - 8 + 8388608 < 16777216))
1844#endif
1845 && !S_IS_EXTERNAL (fixP->fx_addsy)
1846 && !S_IS_WEAK (fixP->fx_addsy)
1847 && S_GET_SEGMENT (fixP->fx_addsy) == hppa_fixP->segment
1848 && !(fixP->fx_subsy
1849 && S_GET_SEGMENT (fixP->fx_subsy) != hppa_fixP->segment))
1850 {
1851 new_val = hppa_field_adjust (* valP, 0, hppa_fixP->fx_r_field);
1852 }
680ef6de 1853
9b52905e
NC		 1854 switch (fmt)
1855 {
1856 case 10:
1857 CHECK_FIELD_WHERE (new_val, 8191, -8192,
1858 fixP->fx_file, fixP->fx_line);
1859 val = new_val;
680ef6de 1860
9b52905e
NC		 1861 insn = (insn & ~ 0x3ff1) | (((val & 0x1ff8) << 1)
1862 | ((val & 0x2000) >> 13));
1863 break;
1864 case -11:
1865 CHECK_FIELD_WHERE (new_val, 8191, -8192,
1866 fixP->fx_file, fixP->fx_line);
1867 val = new_val;
680ef6de 1868
9b52905e
NC		 1869 insn = (insn & ~ 0x3ff9) | (((val & 0x1ffc) << 1)
1870 | ((val & 0x2000) >> 13));
1871 break;
1872 /* Handle all opcodes with the 'j' operand type. */
1873 case 14:
1874 CHECK_FIELD_WHERE (new_val, 8191, -8192,
1875 fixP->fx_file, fixP->fx_line);
1876 val = new_val;
680ef6de 1877
9b52905e
NC		 1878 insn = ((insn & ~ 0x3fff) | low_sign_unext (val, 14));
1879 break;
680ef6de 1880
9b52905e
NC		 1881 /* Handle all opcodes with the 'k' operand type. */
1882 case 21:
1883 CHECK_FIELD_WHERE (new_val, 1048575, -1048576,
1884 fixP->fx_file, fixP->fx_line);
1885 val = new_val;
680ef6de 1886
9b52905e
NC		 1887 insn = (insn & ~ 0x1fffff) | re_assemble_21 (val);
1888 break;
680ef6de 1889
9b52905e
NC		 1890 /* Handle all the opcodes with the 'i' operand type. */
1891 case 11:
1892 CHECK_FIELD_WHERE (new_val, 1023, -1024,
1893 fixP->fx_file, fixP->fx_line);
1894 val = new_val;
680ef6de 1895
9b52905e
NC		 1896 insn = (insn & ~ 0x7ff) | low_sign_unext (val, 11);
1897 break;
680ef6de 1898
9b52905e
NC		 1899 /* Handle all the opcodes with the 'w' operand type. */
1900 case 12:
1901 CHECK_FIELD_WHERE (new_val - 8, 8191, -8192,
1902 fixP->fx_file, fixP->fx_line);
1903 val = new_val - 8;
680ef6de 1904
9b52905e
NC		 1905 insn = (insn & ~ 0x1ffd) | re_assemble_12 (val >> 2);
1906 break;
680ef6de 1907
9b52905e
NC		 1908 /* Handle some of the opcodes with the 'W' operand type. */
1909 case 17:
1910 {
1911 offsetT distance = * valP;
680ef6de 1912
9b52905e
NC		 1913 /* If this is an absolute branch (ie no link) with an out of
1914 range target, then we want to complain. */
1915 if (fixP->fx_r_type == (int) R_HPPA_PCREL_CALL
1916 && (insn & 0xffe00000) == 0xe8000000)
1917 CHECK_FIELD_WHERE (distance - 8, 262143, -262144,
1918 fixP->fx_file, fixP->fx_line);
680ef6de 1919
9b52905e
NC		 1920 CHECK_FIELD_WHERE (new_val - 8, 262143, -262144,
1921 fixP->fx_file, fixP->fx_line);
1922 val = new_val - 8;
680ef6de 1923
9b52905e
NC		 1924 insn = (insn & ~ 0x1f1ffd) | re_assemble_17 (val >> 2);
1925 break;
1926 }
413c94ba 1927
9b52905e
NC		 1928 case 22:
1929 {
1930 offsetT distance = * valP;
413c94ba 1931
9b52905e
NC		 1932 /* If this is an absolute branch (ie no link) with an out of
1933 range target, then we want to complain. */
1934 if (fixP->fx_r_type == (int) R_HPPA_PCREL_CALL
1935 && (insn & 0xffe00000) == 0xe8000000)
1936 CHECK_FIELD_WHERE (distance - 8, 8388607, -8388608,
1937 fixP->fx_file, fixP->fx_line);
413c94ba 1938
9b52905e
NC		 1939 CHECK_FIELD_WHERE (new_val - 8, 8388607, -8388608,
1940 fixP->fx_file, fixP->fx_line);
1941 val = new_val - 8;
413c94ba 1942
9b52905e
NC		 1943 insn = (insn & ~ 0x3ff1ffd) | re_assemble_22 (val >> 2);
1944 break;
1945 }
413c94ba 1946
9b52905e
NC		 1947 case -10:
1948 val = new_val;
1949 insn = (insn & ~ 0xfff1) | re_assemble_16 (val & -8);
1950 break;
413c94ba 1951
9b52905e
NC		 1952 case -16:
1953 val = new_val;
1954 insn = (insn & ~ 0xfff9) | re_assemble_16 (val & -4);
1955 break;
413c94ba 1956
9b52905e
NC		 1957 case 16:
1958 val = new_val;
1959 insn = (insn & ~ 0xffff) | re_assemble_16 (val);
1960 break;
252b5132 1961
9b52905e
NC		 1962 case 32:
1963 insn = new_val;
1964 break;
55a914bc 1965
9b52905e
NC		 1966 default:
1967 as_bad_where (fixP->fx_file, fixP->fx_line,
1968 _("Unknown relocation encountered in md_apply_fix."));
1969 return;
1970 }
9a913dfb 1971
9b52905e
NC		 1972#ifdef OBJ_ELF
1973 switch (fixP->fx_r_type)
1974 {
1975 case R_PARISC_TLS_GD21L:
1976 case R_PARISC_TLS_GD14R:
1977 case R_PARISC_TLS_LDM21L:
1978 case R_PARISC_TLS_LDM14R:
1979 case R_PARISC_TLS_LE21L:
1980 case R_PARISC_TLS_LE14R:
1981 case R_PARISC_TLS_IE21L:
1982 case R_PARISC_TLS_IE14R:
4e3b43ed 1983 if (fixP->fx_addsy)
9b52905e
NC		 1984 S_SET_THREAD_LOCAL (fixP->fx_addsy);
1985 break;
1986 default:
1987 break;
1988 }
1989#endif
9a913dfb 1990
9b52905e
NC		 1991 /* Insert the relocation. */
1992 bfd_put_32 (stdoutput, insn, fixpos);
1993}
252b5132 1994
9b52905e
NC		 1995/* Exactly what point is a PC-relative offset relative TO?
1996 On the PA, they're relative to the address of the offset. */
55a914bc 1997
9b52905e
NC		 1998long
1999md_pcrel_from (fixS *fixP)
2000{
2001 return fixP->fx_where + fixP->fx_frag->fr_address;
2002}
9a913dfb 2003
9b52905e
NC		 2004/* Return nonzero if the input line pointer is at the end of
2005 a statement. */
252b5132 2006
9b52905e
NC		 2007static int
2008is_end_of_statement (void)
2009{
2010 return ((*input_line_pointer == '\n')
2011 || (*input_line_pointer == ';')
2012 || (*input_line_pointer == '!'));
2013}
9a913dfb 2014
9b52905e 2015#define REG_NAME_CNT (sizeof (pre_defined_registers) / sizeof (struct pd_reg))
9a913dfb 2016
9b52905e
NC		 2017/* Given NAME, find the register number associated with that name, return
2018 the integer value associated with the given name or -1 on failure. */
252b5132 2019
9b52905e
NC		 2020static int
2021reg_name_search (char *name)
2022{
2023 int middle, low, high;
2024 int cmp;
9a913dfb 2025
9b52905e
NC		 2026 low = 0;
2027 high = REG_NAME_CNT - 1;
d53d2751 2028
9b52905e
NC		 2029 do
2030 {
2031 middle = (low + high) / 2;
2032 cmp = strcasecmp (name, pre_defined_registers[middle].name);
2033 if (cmp < 0)
2034 high = middle - 1;
2035 else if (cmp > 0)
2036 low = middle + 1;
2037 else
2038 return pre_defined_registers[middle].value;
2039 }
2040 while (low <= high);
252b5132 2041
9b52905e
NC		 2042 return -1;
2043}
9a913dfb 2044
9b52905e
NC		 2045/* Read a number from S. The number might come in one of many forms,
2046 the most common will be a hex or decimal constant, but it could be
2047 a pre-defined register (Yuk!), or an absolute symbol.
d53d2751 2048
9b52905e
NC		 2049 Return 1 on success or 0 on failure. If STRICT, then a missing
2050 register prefix will cause a failure. The number itself is
2051 returned in `pa_number'.
d53d2751 2052
9b52905e
NC		 2053 IS_FLOAT indicates that a PA-89 FP register number should be
2054 parsed; A `l' or `r' suffix is checked for if but 2 of IS_FLOAT is
2055 not set.
d53d2751 2056
9b52905e
NC		 2057 pa_parse_number can not handle negative constants and will fail
2058 horribly if it is passed such a constant. */
55a914bc 2059
9b52905e
NC		 2060static int
2061pa_parse_number (char **s, int is_float)
2062{
2063 int num;
2064 char *name;
2065 char c;
2066 symbolS *sym;
2067 int status;
2068 char *p = *s;
2069 bfd_boolean have_prefix;
9a913dfb 2070
9b52905e
NC		 2071 /* Skip whitespace before the number. */
2072 while (*p == ' ' || *p == '\t')
2073 p = p + 1;
d53d2751 2074
9b52905e
NC		 2075 pa_number = -1;
2076 have_prefix = 0;
2077 num = 0;
2078 if (!strict && ISDIGIT (*p))
2079 {
2080 /* Looks like a number. */
d53d2751 2081
9b52905e
NC		 2082 if (*p == '0' && (*(p + 1) == 'x' || *(p + 1) == 'X'))
2083 {
2084 /* The number is specified in hex. */
2085 p += 2;
2086 while (ISDIGIT (*p) || ((*p >= 'a') && (*p <= 'f'))
2087 || ((*p >= 'A') && (*p <= 'F')))
2088 {
2089 if (ISDIGIT (*p))
2090 num = num * 16 + *p - '0';
2091 else if (*p >= 'a' && *p <= 'f')
2092 num = num * 16 + *p - 'a' + 10;
2093 else
2094 num = num * 16 + *p - 'A' + 10;
2095 ++p;
2096 }
2097 }
2098 else
2099 {
2100 /* The number is specified in decimal. */
2101 while (ISDIGIT (*p))
2102 {
2103 num = num * 10 + *p - '0';
2104 ++p;
2105 }
2106 }
55a914bc 2107
9b52905e 2108 pa_number = num;
55a914bc 2109
9b52905e
NC		 2110 /* Check for a `l' or `r' suffix. */
2111 if (is_float)
2112 {
2113 pa_number += FP_REG_BASE;
2114 if (! (is_float & 2))
2115 {
2116 if (IS_R_SELECT (p))
2117 {
2118 pa_number += FP_REG_RSEL;
2119 ++p;
2120 }
2121 else if (IS_L_SELECT (p))
2122 {
2123 ++p;
2124 }
2125 }
2126 }
2127 }
2128 else if (*p == '%')
2129 {
2130 /* The number might be a predefined register. */
2131 have_prefix = 1;
2132 name = p;
2133 p++;
2134 c = *p;
2135 /* Tege hack: Special case for general registers as the general
4e3b43ed
AM		 2136 code makes a binary search with case translation, and is VERY
2137 slow. */
9b52905e
NC		 2138 if (c == 'r')
2139 {
2140 p++;
2141 if (*p == 'e' && *(p + 1) == 't'
2142 && (*(p + 2) == '0' || *(p + 2) == '1'))
2143 {
2144 p += 2;
2145 num = *p - '0' + 28;
2146 p++;
2147 }
2148 else if (*p == 'p')
2149 {
2150 num = 2;
2151 p++;
2152 }
2153 else if (!ISDIGIT (*p))
2154 {
2155 if (print_errors)
2156 as_bad (_("Undefined register: '%s'."), name);
2157 num = -1;
2158 }
2159 else
2160 {
2161 do
2162 num = num * 10 + *p++ - '0';
2163 while (ISDIGIT (*p));
2164 }
2165 }
2166 else
2167 {
2168 /* Do a normal register search. */
2169 while (is_part_of_name (c))
2170 {
2171 p = p + 1;
2172 c = *p;
2173 }
2174 *p = 0;
2175 status = reg_name_search (name);
2176 if (status >= 0)
2177 num = status;
2178 else
2179 {
2180 if (print_errors)
2181 as_bad (_("Undefined register: '%s'."), name);
2182 num = -1;
2183 }
2184 *p = c;
2185 }
d53d2751 2186
9b52905e
NC		 2187 pa_number = num;
2188 }
2189 else
2190 {
2191 /* And finally, it could be a symbol in the absolute section which
4e3b43ed 2192 is effectively a constant, or a register alias symbol. */
9b52905e
NC		 2193 name = p;
2194 c = *p;
2195 while (is_part_of_name (c))
2196 {
2197 p = p + 1;
2198 c = *p;
2199 }
2200 *p = 0;
2201 if ((sym = symbol_find (name)) != NULL)
2202 {
2203 if (S_GET_SEGMENT (sym) == reg_section)
2204 {
2205 num = S_GET_VALUE (sym);
2206 /* Well, we don't really have one, but we do have a
2207 register, so... */
2208 have_prefix = TRUE;
2209 }
2210 else if (S_GET_SEGMENT (sym) == &bfd_abs_section)
2211 num = S_GET_VALUE (sym);
2212 else if (!strict)
2213 {
2214 if (print_errors)
2215 as_bad (_("Non-absolute symbol: '%s'."), name);
2216 num = -1;
2217 }
2218 }
2219 else if (!strict)
2220 {
2221 /* There is where we'd come for an undefined symbol
2222 or for an empty string. For an empty string we
2223 will return zero. That's a concession made for
2224 compatibility with the braindamaged HP assemblers. */
2225 if (*name == 0)
2226 num = 0;
2227 else
2228 {
2229 if (print_errors)
2230 as_bad (_("Undefined absolute constant: '%s'."), name);
2231 num = -1;
2232 }
2233 }
2234 *p = c;
d53d2751 2235
9b52905e
NC		 2236 pa_number = num;
2237 }
d53d2751 2238
9b52905e
NC		 2239 if (!strict || have_prefix)
2240 {
2241 *s = p;
2242 return 1;
2243 }
2244 return 0;
2245}
252b5132 2246
9b52905e
NC		 2247/* Return nonzero if the given INSN and L/R information will require
2248 a new PA-1.1 opcode. */
252b5132 2249
9b52905e
NC		 2250static int
2251need_pa11_opcode (void)
2252{
2253 if ((pa_number & FP_REG_RSEL) != 0
2254 && !(the_insn.fpof1 == DBL && the_insn.fpof2 == DBL))
2255 {
2256 /* If this instruction is specific to a particular architecture,
2257 then set a new architecture. */
2258 if (bfd_get_mach (stdoutput) < pa11)
2259 {
2260 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, pa11))
2261 as_warn (_("could not update architecture and machine"));
2262 }
2263 return TRUE;
2264 }
2265 else
2266 return FALSE;
2267}
252b5132 2268
9b52905e
NC		 2269/* Parse a condition for a fcmp instruction. Return the numerical
2270 code associated with the condition. */
252b5132 2271
9b52905e
NC		 2272static int
2273pa_parse_fp_cmp_cond (char **s)
2274{
2275 int cond, i;
dbe2f9ee 2276
9b52905e 2277 cond = 0;
1cf6ae67 2278
9b52905e
NC		 2279 for (i = 0; i < 32; i++)
2280 {
2281 if (strncasecmp (*s, fp_cond_map[i].string,
2282 strlen (fp_cond_map[i].string)) == 0)
2283 {
2284 cond = fp_cond_map[i].cond;
2285 *s += strlen (fp_cond_map[i].string);
2286 /* If not a complete match, back up the input string and
2287 report an error. */
2288 if (**s != ' ' && **s != '\t')
2289 {
2290 *s -= strlen (fp_cond_map[i].string);
2291 break;
2292 }
2293 while (**s == ' ' || **s == '\t')
2294 *s = *s + 1;
2295 return cond;
2296 }
2297 }
1cf6ae67 2298
9b52905e 2299 as_bad (_("Invalid FP Compare Condition: %s"), *s);
1cf6ae67 2300
9b52905e
NC		 2301 /* Advance over the bogus completer. */
2302 while (**s != ',' && **s != ' ' && **s != '\t')
2303 *s += 1;
252b5132 2304
9b52905e
NC		 2305 return 0;
2306}
65fab780 2307
9b52905e 2308/* Parse a graphics test complete for ftest. */
65fab780 2309
9b52905e
NC		 2310static int
2311pa_parse_ftest_gfx_completer (char **s)
2312{
2313 int value;
65fab780 2314
9b52905e
NC		 2315 value = 0;
2316 if (strncasecmp (*s, "acc8", 4) == 0)
2317 {
2318 value = 5;
2319 *s += 4;
2320 }
2321 else if (strncasecmp (*s, "acc6", 4) == 0)
2322 {
2323 value = 9;
2324 *s += 4;
2325 }
2326 else if (strncasecmp (*s, "acc4", 4) == 0)
2327 {
2328 value = 13;
2329 *s += 4;
2330 }
2331 else if (strncasecmp (*s, "acc2", 4) == 0)
2332 {
2333 value = 17;
2334 *s += 4;
2335 }
2336 else if (strncasecmp (*s, "acc", 3) == 0)
2337 {
2338 value = 1;
2339 *s += 3;
2340 }
2341 else if (strncasecmp (*s, "rej8", 4) == 0)
2342 {
2343 value = 6;
2344 *s += 4;
2345 }
2346 else if (strncasecmp (*s, "rej", 3) == 0)
2347 {
2348 value = 2;
2349 *s += 3;
2350 }
2351 else
2352 {
2353 value = 0;
2354 as_bad (_("Invalid FTEST completer: %s"), *s);
2355 }
1328dc98 2356
9b52905e
NC		 2357 return value;
2358}
1328dc98 2359
9b52905e
NC		 2360/* Parse an FP operand format completer returning the completer
2361 type. */
1328dc98 2362
9b52905e
NC		 2363static fp_operand_format
2364pa_parse_fp_cnv_format (char **s)
2365{
2366 int format;
1328dc98 2367
9b52905e
NC		 2368 format = SGL;
2369 if (**s == ',')
2370 {
2371 *s += 1;
2372 if (strncasecmp (*s, "sgl", 3) == 0)
2373 {
2374 format = SGL;
2375 *s += 4;
2376 }
2377 else if (strncasecmp (*s, "dbl", 3) == 0)
2378 {
2379 format = DBL;
2380 *s += 4;
2381 }
2382 else if (strncasecmp (*s, "quad", 4) == 0)
2383 {
2384 format = QUAD;
2385 *s += 5;
2386 }
2387 else if (strncasecmp (*s, "w", 1) == 0)
2388 {
2389 format = W;
2390 *s += 2;
2391 }
2392 else if (strncasecmp (*s, "uw", 2) == 0)
2393 {
2394 format = UW;
2395 *s += 3;
2396 }
2397 else if (strncasecmp (*s, "dw", 2) == 0)
2398 {
2399 format = DW;
2400 *s += 3;
2401 }
2402 else if (strncasecmp (*s, "udw", 3) == 0)
2403 {
2404 format = UDW;
2405 *s += 4;
2406 }
2407 else if (strncasecmp (*s, "qw", 2) == 0)
2408 {
2409 format = QW;
2410 *s += 3;
2411 }
2412 else if (strncasecmp (*s, "uqw", 3) == 0)
2413 {
2414 format = UQW;
2415 *s += 4;
2416 }
2417 else
2418 {
2419 format = ILLEGAL_FMT;
2420 as_bad (_("Invalid FP Operand Format: %3s"), *s);
2421 }
2422 }
65fab780 2423
9b52905e
NC		 2424 return format;
2425}
61dd1d31 2426
9b52905e
NC		 2427/* Parse an FP operand format completer returning the completer
2428 type. */
252b5132 2429
9b52905e
NC		 2430static fp_operand_format
2431pa_parse_fp_format (char **s)
2432{
2433 int format;
252b5132 2434
9b52905e
NC		 2435 format = SGL;
2436 if (**s == ',')
2437 {
2438 *s += 1;
2439 if (strncasecmp (*s, "sgl", 3) == 0)
2440 {
2441 format = SGL;
2442 *s += 4;
2443 }
2444 else if (strncasecmp (*s, "dbl", 3) == 0)
2445 {
2446 format = DBL;
2447 *s += 4;
2448 }
2449 else if (strncasecmp (*s, "quad", 4) == 0)
2450 {
2451 format = QUAD;
2452 *s += 5;
2453 }
2454 else
2455 {
2456 format = ILLEGAL_FMT;
2457 as_bad (_("Invalid FP Operand Format: %3s"), *s);
2458 }
2459 }
252b5132 2460
9b52905e
NC		 2461 return format;
2462}
a02fab7e 2463
9b52905e 2464/* Convert from a selector string into a selector type. */
a02fab7e 2465
9b52905e
NC		 2466static int
2467pa_chk_field_selector (char **str)
2468{
2469 int middle, low, high;
2470 int cmp;
2471 char name[4];
a02fab7e 2472
9b52905e
NC		 2473 /* Read past any whitespace. */
2474 /* FIXME: should we read past newlines and formfeeds??? */
2475 while (**str == ' ' || **str == '\t' || **str == '\n' || **str == '\f')
2476 *str = *str + 1;
252b5132 2477
9b52905e
NC		 2478 if ((*str)[1] == '\'' || (*str)[1] == '%')
2479 name[0] = TOLOWER ((*str)[0]),
2480 name[1] = 0;
2481 else if ((*str)[2] == '\'' || (*str)[2] == '%')
2482 name[0] = TOLOWER ((*str)[0]),
2483 name[1] = TOLOWER ((*str)[1]),
2484 name[2] = 0;
2485 else if ((*str)[3] == '\'' || (*str)[3] == '%')
2486 name[0] = TOLOWER ((*str)[0]),
2487 name[1] = TOLOWER ((*str)[1]),
2488 name[2] = TOLOWER ((*str)[2]),
2489 name[3] = 0;
2490 else
2491 return e_fsel;
252b5132 2492
9b52905e
NC		 2493 low = 0;
2494 high = sizeof (selector_table) / sizeof (struct selector_entry) - 1;
77c02e18 2495
9b52905e
NC		 2496 do
2497 {
2498 middle = (low + high) / 2;
2499 cmp = strcmp (name, selector_table[middle].prefix);
2500 if (cmp < 0)
2501 high = middle - 1;
2502 else if (cmp > 0)
2503 low = middle + 1;
2504 else
2505 {
2506 *str += strlen (name) + 1;
2507#ifndef OBJ_SOM
2508 if (selector_table[middle].field_selector == e_nsel)
2509 return e_fsel;
2510#endif
2511 return selector_table[middle].field_selector;
2512 }
2513 }
2514 while (low <= high);
252b5132 2515
9b52905e
NC		 2516 return e_fsel;
2517}
4964086a 2518
9b52905e
NC		 2519/* Parse a .byte, .word, .long expression for the HPPA. Called by
2520 cons via the TC_PARSE_CONS_EXPRESSION macro. */
ce674324 2521
9b52905e
NC		 2522void
2523parse_cons_expression_hppa (expressionS *exp)
2524{
2525 hppa_field_selector = pa_chk_field_selector (&input_line_pointer);
2526 expression (exp);
2527}
d53d2751 2528
9b52905e
NC		 2529/* Evaluate an absolute expression EXP which may be modified by
2530 the selector FIELD_SELECTOR. Return the value of the expression. */
2531static int
2532evaluate_absolute (struct pa_it *insn)
2533{
2534 offsetT value;
2535 expressionS exp;
2536 int field_selector = insn->field_selector;
a97685e9 2537
9b52905e
NC		 2538 exp = insn->exp;
2539 value = exp.X_add_number;
413c94ba 2540
9b52905e
NC		 2541 return hppa_field_adjust (0, value, field_selector);
2542}
252b5132 2543
9b52905e 2544/* Mark (via expr_end) the end of an absolute expression. FIXME. */
a97685e9 2545
9b52905e
NC		 2546static int
2547pa_get_absolute_expression (struct pa_it *insn, char **strp)
2548{
2549 char *save_in;
9e4f2d3a 2550
9b52905e
NC		 2551 insn->field_selector = pa_chk_field_selector (strp);
2552 save_in = input_line_pointer;
2553 input_line_pointer = *strp;
2554 expression (&insn->exp);
2555 /* This is not perfect, but is a huge improvement over doing nothing.
9e4f2d3a 2556
9b52905e
NC		 2557 The PA assembly syntax is ambiguous in a variety of ways. Consider
2558 this string "4 %r5" Is that the number 4 followed by the register
2559 r5, or is that 4 MOD r5?
252b5132 2560
9b52905e
NC		 2561 If we get a modulo expression when looking for an absolute, we try
2562 again cutting off the input string at the first whitespace character. */
2563 if (insn->exp.X_op == O_modulus)
2564 {
2565 char *s, c;
9e4f2d3a 2566
9b52905e
NC		 2567 input_line_pointer = *strp;
2568 s = *strp;
2569 while (*s != ',' && *s != ' ' && *s != '\t')
2570 s++;
252b5132 2571
9b52905e
NC		 2572 c = *s;
2573 *s = 0;
d53d2751 2574
87975d2a 2575 pa_get_absolute_expression (insn, strp);
252b5132 2576
9b52905e
NC		 2577 input_line_pointer = save_in;
2578 *s = c;
2579 return evaluate_absolute (insn);
2580 }
2581 /* When in strict mode we have a non-match, fix up the pointers
2582 and return to our caller. */
2583 if (insn->exp.X_op != O_constant && strict)
2584 {
2585 expr_end = input_line_pointer;
2586 input_line_pointer = save_in;
2587 return 0;
2588 }
2589 if (insn->exp.X_op != O_constant)
2590 {
2591 as_bad (_("Bad segment (should be absolute)."));
2592 expr_end = input_line_pointer;
2593 input_line_pointer = save_in;
2594 return 0;
2595 }
2596 expr_end = input_line_pointer;
2597 input_line_pointer = save_in;
2598 return evaluate_absolute (insn);
2599}
252b5132 2600
9b52905e
NC		 2601/* Given an argument location specification return the associated
2602 argument location number. */
252b5132 2603
9b52905e
NC		 2604static unsigned int
2605pa_build_arg_reloc (char *type_name)
2606{
252b5132 2607
9b52905e
NC		 2608 if (strncasecmp (type_name, "no", 2) == 0)
2609 return 0;
2610 if (strncasecmp (type_name, "gr", 2) == 0)
2611 return 1;
2612 else if (strncasecmp (type_name, "fr", 2) == 0)
2613 return 2;
2614 else if (strncasecmp (type_name, "fu", 2) == 0)
2615 return 3;
2616 else
2617 as_bad (_("Invalid argument location: %s\n"), type_name);
252b5132 2618
9b52905e
NC		 2619 return 0;
2620}
252b5132 2621
9b52905e
NC		 2622/* Encode and return an argument relocation specification for
2623 the given register in the location specified by arg_reloc. */
252b5132 2624
9b52905e
NC		 2625static unsigned int
2626pa_align_arg_reloc (unsigned int reg, unsigned int arg_reloc)
2627{
2628 unsigned int new_reloc;
252b5132 2629
9b52905e
NC		 2630 new_reloc = arg_reloc;
2631 switch (reg)
2632 {
2633 case 0:
2634 new_reloc <<= 8;
2635 break;
2636 case 1:
2637 new_reloc <<= 6;
2638 break;
2639 case 2:
2640 new_reloc <<= 4;
2641 break;
2642 case 3:
2643 new_reloc <<= 2;
2644 break;
2645 default:
2646 as_bad (_("Invalid argument description: %d"), reg);
2647 }
252b5132 2648
9b52905e
NC		 2649 return new_reloc;
2650}
1cf6ae67 2651
9b52905e
NC		 2652/* Parse a non-negated compare/subtract completer returning the
2653 number (for encoding in instructions) of the given completer. */
252b5132 2654
9b52905e
NC		 2655static int
2656pa_parse_nonneg_cmpsub_cmpltr (char **s)
2657{
2658 int cmpltr;
2659 char *name = *s + 1;
2660 char c;
2661 char *save_s = *s;
2662 int nullify = 0;
252b5132 2663
9b52905e
NC		 2664 cmpltr = 0;
2665 if (**s == ',')
2666 {
2667 *s += 1;
2668 while (**s != ',' && **s != ' ' && **s != '\t')
2669 *s += 1;
2670 c = **s;
2671 **s = 0x00;
252b5132 2672
9b52905e
NC		 2673 if (strcmp (name, "=") == 0)
2674 {
2675 cmpltr = 1;
2676 }
2677 else if (strcmp (name, "<") == 0)
2678 {
2679 cmpltr = 2;
2680 }
2681 else if (strcmp (name, "<=") == 0)
2682 {
2683 cmpltr = 3;
2684 }
2685 else if (strcmp (name, "<<") == 0)
2686 {
2687 cmpltr = 4;
2688 }
2689 else if (strcmp (name, "<<=") == 0)
2690 {
2691 cmpltr = 5;
2692 }
2693 else if (strcasecmp (name, "sv") == 0)
2694 {
2695 cmpltr = 6;
2696 }
2697 else if (strcasecmp (name, "od") == 0)
2698 {
2699 cmpltr = 7;
2700 }
2701 /* If we have something like addb,n then there is no condition
4e3b43ed 2702 completer. */
9b52905e
NC		 2703 else if (strcasecmp (name, "n") == 0)
2704 {
2705 cmpltr = 0;
2706 nullify = 1;
2707 }
2708 else
2709 {
2710 cmpltr = -1;
2711 }
2712 **s = c;
2713 }
9ecc05f0 2714
9b52905e
NC		 2715 /* Reset pointers if this was really a ,n for a branch instruction. */
2716 if (nullify)
2717 *s = save_s;
252b5132 2718
9b52905e
NC		 2719 return cmpltr;
2720}
252b5132 2721
9b52905e
NC		 2722/* Parse a negated compare/subtract completer returning the
2723 number (for encoding in instructions) of the given completer. */
252b5132 2724
9b52905e
NC		 2725static int
2726pa_parse_neg_cmpsub_cmpltr (char **s)
2727{
2728 int cmpltr;
2729 char *name = *s + 1;
2730 char c;
2731 char *save_s = *s;
2732 int nullify = 0;
b53fcc20 2733
9b52905e
NC		 2734 cmpltr = 0;
2735 if (**s == ',')
2736 {
2737 *s += 1;
2738 while (**s != ',' && **s != ' ' && **s != '\t')
2739 *s += 1;
2740 c = **s;
2741 **s = 0x00;
b53fcc20 2742
9b52905e
NC		 2743 if (strcasecmp (name, "tr") == 0)
2744 {
2745 cmpltr = 0;
2746 }
2747 else if (strcmp (name, "<>") == 0)
2748 {
2749 cmpltr = 1;
2750 }
2751 else if (strcmp (name, ">=") == 0)
2752 {
2753 cmpltr = 2;
2754 }
2755 else if (strcmp (name, ">") == 0)
2756 {
2757 cmpltr = 3;
2758 }
2759 else if (strcmp (name, ">>=") == 0)
2760 {
2761 cmpltr = 4;
2762 }
2763 else if (strcmp (name, ">>") == 0)
2764 {
2765 cmpltr = 5;
2766 }
2767 else if (strcasecmp (name, "nsv") == 0)
2768 {
2769 cmpltr = 6;
2770 }
2771 else if (strcasecmp (name, "ev") == 0)
2772 {
2773 cmpltr = 7;
2774 }
2775 /* If we have something like addb,n then there is no condition
4e3b43ed 2776 completer. */
9b52905e
NC		 2777 else if (strcasecmp (name, "n") == 0)
2778 {
2779 cmpltr = 0;
2780 nullify = 1;
2781 }
2782 else
2783 {
2784 cmpltr = -1;
2785 }
2786 **s = c;
2787 }
252b5132 2788
9b52905e
NC		 2789 /* Reset pointers if this was really a ,n for a branch instruction. */
2790 if (nullify)
2791 *s = save_s;
252b5132 2792
9b52905e
NC		 2793 return cmpltr;
2794}
252b5132 2795
9b52905e
NC		 2796/* Parse a 64 bit compare and branch completer returning the number (for
2797 encoding in instructions) of the given completer.
97e1581b 2798
9b52905e
NC		 2799 Nonnegated comparisons are returned as 0-7, negated comparisons are
2800 returned as 8-15. */
252b5132 2801
9b52905e
NC		 2802static int
2803pa_parse_cmpb_64_cmpltr (char **s)
2804{
2805 int cmpltr;
2806 char *name = *s + 1;
2807 char c;
b53fcc20 2808
9b52905e
NC		 2809 cmpltr = -1;
2810 if (**s == ',')
2811 {
2812 *s += 1;
2813 while (**s != ',' && **s != ' ' && **s != '\t')
2814 *s += 1;
2815 c = **s;
2816 **s = 0x00;
97e1581b 2817
9b52905e
NC		 2818 if (strcmp (name, "*") == 0)
2819 {
2820 cmpltr = 0;
252b5132 2821 }
9b52905e 2822 else if (strcmp (name, "*=") == 0)
9f45e54b 2823 {
9b52905e 2824 cmpltr = 1;
9f45e54b 2825 }
9b52905e 2826 else if (strcmp (name, "*<") == 0)
252b5132 2827 {
9b52905e 2828 cmpltr = 2;
252b5132 2829 }
9b52905e
NC		 2830 else if (strcmp (name, "*<=") == 0)
2831 {
2832 cmpltr = 3;
2833 }
2834 else if (strcmp (name, "*<<") == 0)
2835 {
2836 cmpltr = 4;
2837 }
2838 else if (strcmp (name, "*<<=") == 0)
2839 {
2840 cmpltr = 5;
2841 }
2842 else if (strcasecmp (name, "*sv") == 0)
2843 {
2844 cmpltr = 6;
2845 }
2846 else if (strcasecmp (name, "*od") == 0)
2847 {
2848 cmpltr = 7;
2849 }
2850 else if (strcasecmp (name, "*tr") == 0)
2851 {
2852 cmpltr = 8;
2853 }
2854 else if (strcmp (name, "*<>") == 0)
2855 {
2856 cmpltr = 9;
2857 }
2858 else if (strcmp (name, "*>=") == 0)
2859 {
2860 cmpltr = 10;
2861 }
2862 else if (strcmp (name, "*>") == 0)
2863 {
2864 cmpltr = 11;
2865 }
2866 else if (strcmp (name, "*>>=") == 0)
2867 {
2868 cmpltr = 12;
2869 }
2870 else if (strcmp (name, "*>>") == 0)
2871 {
2872 cmpltr = 13;
2873 }
2874 else if (strcasecmp (name, "*nsv") == 0)
2875 {
2876 cmpltr = 14;
2877 }
2878 else if (strcasecmp (name, "*ev") == 0)
2879 {
2880 cmpltr = 15;
2881 }
2882 else
2883 {
2884 cmpltr = -1;
2885 }
2886 **s = c;
252b5132
RH		 2887 }
2888
9b52905e 2889 return cmpltr;
252b5132
RH		 2890}
2891
9b52905e
NC		 2892/* Parse a 64 bit compare immediate and branch completer returning the number
2893 (for encoding in instructions) of the given completer. */
252b5132 2894
9b52905e
NC		 2895static int
2896pa_parse_cmpib_64_cmpltr (char **s)
252b5132 2897{
9b52905e
NC		 2898 int cmpltr;
2899 char *name = *s + 1;
2900 char c;
252b5132 2901
9b52905e
NC		 2902 cmpltr = -1;
2903 if (**s == ',')
252b5132 2904 {
9b52905e
NC		 2905 *s += 1;
2906 while (**s != ',' && **s != ' ' && **s != '\t')
2907 *s += 1;
2908 c = **s;
2909 **s = 0x00;
252b5132 2910
9b52905e
NC		 2911 if (strcmp (name, "*<<") == 0)
2912 {
2913 cmpltr = 0;
2914 }
2915 else if (strcmp (name, "*=") == 0)
2916 {
2917 cmpltr = 1;
2918 }
2919 else if (strcmp (name, "*<") == 0)
2920 {
2921 cmpltr = 2;
2922 }
2923 else if (strcmp (name, "*<=") == 0)
2924 {
2925 cmpltr = 3;
2926 }
2927 else if (strcmp (name, "*>>=") == 0)
2928 {
2929 cmpltr = 4;
2930 }
2931 else if (strcmp (name, "*<>") == 0)
2932 {
2933 cmpltr = 5;
2934 }
2935 else if (strcasecmp (name, "*>=") == 0)
2936 {
2937 cmpltr = 6;
2938 }
2939 else if (strcasecmp (name, "*>") == 0)
2940 {
2941 cmpltr = 7;
2942 }
2943 else
2944 {
2945 cmpltr = -1;
2946 }
2947 **s = c;
2948 }
252b5132 2949
9b52905e
NC		 2950 return cmpltr;
2951}
252b5132 2952
9b52905e
NC		 2953/* Parse a non-negated addition completer returning the number
2954 (for encoding in instructions) of the given completer. */
252b5132 2955
9b52905e
NC		 2956static int
2957pa_parse_nonneg_add_cmpltr (char **s)
2958{
2959 int cmpltr;
2960 char *name = *s + 1;
2961 char c;
2962 char *save_s = *s;
2963 int nullify = 0;
252b5132 2964
9b52905e
NC		 2965 cmpltr = 0;
2966 if (**s == ',')
252b5132 2967 {
9b52905e
NC		 2968 *s += 1;
2969 while (**s != ',' && **s != ' ' && **s != '\t')
2970 *s += 1;
2971 c = **s;
2972 **s = 0x00;
2973 if (strcmp (name, "=") == 0)
2974 {
2975 cmpltr = 1;
2976 }
2977 else if (strcmp (name, "<") == 0)
2978 {
2979 cmpltr = 2;
2980 }
2981 else if (strcmp (name, "<=") == 0)
2982 {
2983 cmpltr = 3;
2984 }
2985 else if (strcasecmp (name, "nuv") == 0)
2986 {
2987 cmpltr = 4;
2988 }
2989 else if (strcasecmp (name, "znv") == 0)
2990 {
2991 cmpltr = 5;
2992 }
2993 else if (strcasecmp (name, "sv") == 0)
2994 {
2995 cmpltr = 6;
2996 }
2997 else if (strcasecmp (name, "od") == 0)
2998 {
2999 cmpltr = 7;
3000 }
3001 /* If we have something like addb,n then there is no condition
4e3b43ed 3002 completer. */
9b52905e
NC		 3003 else if (strcasecmp (name, "n") == 0)
3004 {
3005 cmpltr = 0;
3006 nullify = 1;
3007 }
3008 else
3009 {
3010 cmpltr = -1;
3011 }
3012 **s = c;
252b5132 3013 }
252b5132 3014
9b52905e
NC		 3015 /* Reset pointers if this was really a ,n for a branch instruction. */
3016 if (nullify)
3017 *s = save_s;
252b5132 3018
9b52905e 3019 return cmpltr;
252b5132
RH		 3020}
3021
9b52905e
NC		 3022/* Parse a negated addition completer returning the number
3023 (for encoding in instructions) of the given completer. */
252b5132 3024
9b52905e
NC		 3025static int
3026pa_parse_neg_add_cmpltr (char **s)
252b5132 3027{
9b52905e
NC		 3028 int cmpltr;
3029 char *name = *s + 1;
3030 char c;
3031 char *save_s = *s;
3032 int nullify = 0;
252b5132 3033
9b52905e
NC		 3034 cmpltr = 0;
3035 if (**s == ',')
5506e1a5 3036 {
9b52905e
NC		 3037 *s += 1;
3038 while (**s != ',' && **s != ' ' && **s != '\t')
3039 *s += 1;
3040 c = **s;
3041 **s = 0x00;
3042 if (strcasecmp (name, "tr") == 0)
3043 {
3044 cmpltr = 0;
3045 }
3046 else if (strcmp (name, "<>") == 0)
3047 {
3048 cmpltr = 1;
3049 }
3050 else if (strcmp (name, ">=") == 0)
3051 {
3052 cmpltr = 2;
3053 }
3054 else if (strcmp (name, ">") == 0)
3055 {
3056 cmpltr = 3;
3057 }
3058 else if (strcasecmp (name, "uv") == 0)
3059 {
3060 cmpltr = 4;
3061 }
3062 else if (strcasecmp (name, "vnz") == 0)
3063 {
3064 cmpltr = 5;
3065 }
3066 else if (strcasecmp (name, "nsv") == 0)
3067 {
3068 cmpltr = 6;
3069 }
3070 else if (strcasecmp (name, "ev") == 0)
3071 {
3072 cmpltr = 7;
3073 }
3074 /* If we have something like addb,n then there is no condition
4e3b43ed 3075 completer. */
9b52905e
NC		 3076 else if (strcasecmp (name, "n") == 0)
3077 {
3078 cmpltr = 0;
3079 nullify = 1;
3080 }
3081 else
3082 {
3083 cmpltr = -1;
3084 }
3085 **s = c;
5506e1a5 3086 }
252b5132 3087
9b52905e
NC		 3088 /* Reset pointers if this was really a ,n for a branch instruction. */
3089 if (nullify)
3090 *s = save_s;
252b5132 3091
9b52905e
NC		 3092 return cmpltr;
3093}
252b5132 3094
9b52905e
NC		 3095/* Parse a 64 bit wide mode add and branch completer returning the number (for
3096 encoding in instructions) of the given completer. */
252b5132 3097
9b52905e
NC		 3098static int
3099pa_parse_addb_64_cmpltr (char **s)
3100{
3101 int cmpltr;
3102 char *name = *s + 1;
3103 char c;
3104 char *save_s = *s;
3105 int nullify = 0;
252b5132 3106
9b52905e
NC		 3107 cmpltr = 0;
3108 if (**s == ',')
3109 {
3110 *s += 1;
3111 while (**s != ',' && **s != ' ' && **s != '\t')
3112 *s += 1;
3113 c = **s;
3114 **s = 0x00;
3115 if (strcmp (name, "=") == 0)
3116 {
3117 cmpltr = 1;
3118 }
3119 else if (strcmp (name, "<") == 0)
3120 {
3121 cmpltr = 2;
3122 }
3123 else if (strcmp (name, "<=") == 0)
3124 {
3125 cmpltr = 3;
3126 }
3127 else if (strcasecmp (name, "nuv") == 0)
3128 {
3129 cmpltr = 4;
3130 }
3131 else if (strcasecmp (name, "*=") == 0)
3132 {
3133 cmpltr = 5;
3134 }
3135 else if (strcasecmp (name, "*<") == 0)
3136 {
3137 cmpltr = 6;
3138 }
3139 else if (strcasecmp (name, "*<=") == 0)
3140 {
3141 cmpltr = 7;
3142 }
3143 else if (strcmp (name, "tr") == 0)
3144 {
3145 cmpltr = 8;
3146 }
3147 else if (strcmp (name, "<>") == 0)
3148 {
3149 cmpltr = 9;
3150 }
3151 else if (strcmp (name, ">=") == 0)
3152 {
3153 cmpltr = 10;
3154 }
3155 else if (strcmp (name, ">") == 0)
3156 {
3157 cmpltr = 11;
3158 }
3159 else if (strcasecmp (name, "uv") == 0)
3160 {
3161 cmpltr = 12;
3162 }
3163 else if (strcasecmp (name, "*<>") == 0)
3164 {
3165 cmpltr = 13;
3166 }
3167 else if (strcasecmp (name, "*>=") == 0)
3168 {
3169 cmpltr = 14;
3170 }
3171 else if (strcasecmp (name, "*>") == 0)
3172 {
3173 cmpltr = 15;
3174 }
3175 /* If we have something like addb,n then there is no condition
4e3b43ed 3176 completer. */
9b52905e
NC		 3177 else if (strcasecmp (name, "n") == 0)
3178 {
3179 cmpltr = 0;
3180 nullify = 1;
3181 }
3182 else
3183 {
3184 cmpltr = -1;
3185 }
3186 **s = c;
3187 }
252b5132 3188
9b52905e
NC		 3189 /* Reset pointers if this was really a ,n for a branch instruction. */
3190 if (nullify)
3191 *s = save_s;
252b5132 3192
9b52905e
NC		 3193 return cmpltr;
3194}
3195
3196/* Do the real work for assembling a single instruction. Store results
3197 into the global "the_insn" variable. */
3198
3199static void
3200pa_ip (char *str)
3201{
3202 char *error_message = "";
3203 char *s, c, *argstart, *name, *save_s;
3204 const char *args;
3205 int match = FALSE;
3206 int comma = 0;
3c853d93 3207 int cmpltr, nullif, flag, cond, need_cond, num;
91c2f09e 3208 int immediate_check = 0, pos = -1, len = -1;
9b52905e
NC		 3209 unsigned long opcode;
3210 struct pa_opcode *insn;
3211
3212#ifdef OBJ_SOM
3213 /* We must have a valid space and subspace. */
3214 pa_check_current_space_and_subspace ();
ad1079af
AM		 3215#endif
3216
9b52905e
NC		 3217 /* Convert everything up to the first whitespace character into lower
3218 case. */
3219 for (s = str; *s != ' ' && *s != '\t' && *s != '\n' && *s != '\0'; s++)
3220 *s = TOLOWER (*s);
64afeba3 3221
9b52905e
NC		 3222 /* Skip to something interesting. */
3223 for (s = str;
3224 ISUPPER (*s) || ISLOWER (*s) || (*s >= '0' && *s <= '3');
3225 ++s)
3226 ;
64afeba3 3227
9b52905e
NC		 3228 switch (*s)
3229 {
64afeba3 3230
9b52905e
NC		 3231 case '\0':
3232 break;
3233
3234 case ',':
3235 comma = 1;
3236
3237 /*FALLTHROUGH */
3238
3239 case ' ':
3240 *s++ = '\0';
252b5132 3241 break;
9b52905e
NC		 3242
3243 default:
3244 as_bad (_("Unknown opcode: `%s'"), str);
3245 return;
252b5132 3246 }
252b5132 3247
717c53ea 3248 /* Look up the opcode in the hash table. */
9b52905e 3249 if ((insn = (struct pa_opcode *) hash_find (op_hash, str)) == NULL)
252b5132 3250 {
20203fb9 3251 as_bad (_("Unknown opcode: `%s'"), str);
9b52905e
NC		 3252 return;
3253 }
252b5132 3254
9b52905e
NC		 3255 if (comma)
3256 *--s = ',';
252b5132 3257
9b52905e
NC		 3258 /* Mark the location where arguments for the instruction start, then
3259 start processing them. */
3260 argstart = s;
3261 for (;;)
3262 {
3263 /* Do some initialization. */
3264 opcode = insn->match;
3265 strict = (insn->flags & FLAG_STRICT);
3266 memset (&the_insn, 0, sizeof (the_insn));
3c853d93 3267 need_cond = 1;
252b5132 3268
9b52905e 3269 the_insn.reloc = R_HPPA_NONE;
252b5132 3270
9b52905e
NC		 3271 if (insn->arch >= pa20
3272 && bfd_get_mach (stdoutput) < insn->arch)
3273 goto failed;
252b5132 3274
9b52905e 3275 /* Build the opcode, checking as we go to make
4e3b43ed 3276 sure that the operands match. */
9b52905e
NC		 3277 for (args = insn->args;; ++args)
3278 {
3279 /* Absorb white space in instruction. */
3280 while (*s == ' ' || *s == '\t')
3281 s++;
252b5132 3282
9b52905e
NC		 3283 switch (*args)
3284 {
3285 /* End of arguments. */
3286 case '\0':
3287 if (*s == '\0')
3288 match = TRUE;
3289 break;
252b5132 3290
9b52905e
NC		 3291 case '+':
3292 if (*s == '+')
3293 {
3294 ++s;
3295 continue;
3296 }
3297 if (*s == '-')
3298 continue;
3299 break;
252b5132 3300
9b52905e
NC		 3301 /* These must match exactly. */
3302 case '(':
3303 case ')':
3304 case ',':
3305 case ' ':
3306 if (*s++ == *args)
3307 continue;
3308 break;
252b5132 3309
9b52905e
NC		 3310 /* Handle a 5 bit register or control register field at 10. */
3311 case 'b':
3312 case '^':
3313 if (!pa_parse_number (&s, 0))
3314 break;
3315 num = pa_number;
3316 CHECK_FIELD (num, 31, 0, 0);
3317 INSERT_FIELD_AND_CONTINUE (opcode, num, 21);
252b5132 3318
9b52905e
NC		 3319 /* Handle %sar or %cr11. No bits get set, we just verify that it
3320 is there. */
3321 case '!':
3322 /* Skip whitespace before register. */
3323 while (*s == ' ' || *s == '\t')
3324 s = s + 1;
252b5132 3325
9b52905e 3326 if (!strncasecmp (s, "%sar", 4))
4e3b43ed 3327 {
9b52905e
NC		 3328 s += 4;
3329 continue;
3330 }
3331 else if (!strncasecmp (s, "%cr11", 5))
4e3b43ed 3332 {
9b52905e
NC		 3333 s += 5;
3334 continue;
3335 }
3336 break;
252b5132 3337
9b52905e
NC		 3338 /* Handle a 5 bit register field at 15. */
3339 case 'x':
3340 if (!pa_parse_number (&s, 0))
3341 break;
3342 num = pa_number;
3343 CHECK_FIELD (num, 31, 0, 0);
3344 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
252b5132 3345
9b52905e
NC		 3346 /* Handle a 5 bit register field at 31. */
3347 case 't':
3348 if (!pa_parse_number (&s, 0))
3349 break;
3350 num = pa_number;
3351 CHECK_FIELD (num, 31, 0, 0);
3352 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 3353
9b52905e
NC		 3354 /* Handle a 5 bit register field at 10 and 15. */
3355 case 'a':
3356 if (!pa_parse_number (&s, 0))
3357 break;
3358 num = pa_number;
3359 CHECK_FIELD (num, 31, 0, 0);
3360 opcode |= num << 16;
3361 INSERT_FIELD_AND_CONTINUE (opcode, num, 21);
252b5132 3362
9b52905e
NC		 3363 /* Handle a 5 bit field length at 31. */
3364 case 'T':
3365 num = pa_get_absolute_expression (&the_insn, &s);
3366 if (strict && the_insn.exp.X_op != O_constant)
3367 break;
3368 s = expr_end;
3369 CHECK_FIELD (num, 32, 1, 0);
91c2f09e 3370 SAVE_IMMEDIATE(num);
9b52905e 3371 INSERT_FIELD_AND_CONTINUE (opcode, 32 - num, 0);
252b5132 3372
9b52905e
NC		 3373 /* Handle a 5 bit immediate at 15. */
3374 case '5':
3375 num = pa_get_absolute_expression (&the_insn, &s);
3376 if (strict && the_insn.exp.X_op != O_constant)
3377 break;
3378 s = expr_end;
3379 /* When in strict mode, we want to just reject this
3380 match instead of giving an out of range error. */
3381 CHECK_FIELD (num, 15, -16, strict);
3382 num = low_sign_unext (num, 5);
3383 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
252b5132 3384
9b52905e
NC		 3385 /* Handle a 5 bit immediate at 31. */
3386 case 'V':
3387 num = pa_get_absolute_expression (&the_insn, &s);
3388 if (strict && the_insn.exp.X_op != O_constant)
3389 break;
3390 s = expr_end;
3391 /* When in strict mode, we want to just reject this
3392 match instead of giving an out of range error. */
3393 CHECK_FIELD (num, 15, -16, strict);
3394 num = low_sign_unext (num, 5);
3395 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 3396
9b52905e
NC		 3397 /* Handle an unsigned 5 bit immediate at 31. */
3398 case 'r':
3399 num = pa_get_absolute_expression (&the_insn, &s);
3400 if (strict && the_insn.exp.X_op != O_constant)
3401 break;
3402 s = expr_end;
3403 CHECK_FIELD (num, 31, 0, strict);
3404 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 3405
9b52905e
NC		 3406 /* Handle an unsigned 5 bit immediate at 15. */
3407 case 'R':
3408 num = pa_get_absolute_expression (&the_insn, &s);
3409 if (strict && the_insn.exp.X_op != O_constant)
3410 break;
3411 s = expr_end;
3412 CHECK_FIELD (num, 31, 0, strict);
3413 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
252b5132 3414
9b52905e
NC		 3415 /* Handle an unsigned 10 bit immediate at 15. */
3416 case 'U':
3417 num = pa_get_absolute_expression (&the_insn, &s);
3418 if (strict && the_insn.exp.X_op != O_constant)
3419 break;
3420 s = expr_end;
3421 CHECK_FIELD (num, 1023, 0, strict);
3422 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
ad1079af 3423
9b52905e
NC		 3424 /* Handle a 2 bit space identifier at 17. */
3425 case 's':
3426 if (!pa_parse_number (&s, 0))
3427 break;
3428 num = pa_number;
3429 CHECK_FIELD (num, 3, 0, 1);
3430 INSERT_FIELD_AND_CONTINUE (opcode, num, 14);
252b5132 3431
9b52905e
NC		 3432 /* Handle a 3 bit space identifier at 18. */
3433 case 'S':
3434 if (!pa_parse_number (&s, 0))
3435 break;
3436 num = pa_number;
3437 CHECK_FIELD (num, 7, 0, 1);
3438 opcode |= re_assemble_3 (num);
3439 continue;
ad1079af 3440
9b52905e
NC		 3441 /* Handle all completers. */
3442 case 'c':
3443 switch (*++args)
3444 {
ad1079af 3445
9b52905e
NC		 3446 /* Handle a completer for an indexing load or store. */
3447 case 'X':
3448 case 'x':
3449 {
3450 int uu = 0;
3451 int m = 0;
3452 int i = 0;
3453 while (*s == ',' && i < 2)
3454 {
3455 s++;
3456 if (strncasecmp (s, "sm", 2) == 0)
3457 {
3458 uu = 1;
3459 m = 1;
3460 s++;
3461 i++;
3462 }
3463 else if (strncasecmp (s, "m", 1) == 0)
3464 m = 1;
3465 else if ((strncasecmp (s, "s ", 2) == 0)
3466 || (strncasecmp (s, "s,", 2) == 0))
3467 uu = 1;
3468 else if (strict)
3469 {
3470 /* This is a match failure. */
3471 s--;
3472 break;
3473 }
3474 else
3475 as_bad (_("Invalid Indexed Load Completer."));
3476 s++;
3477 i++;
3478 }
3479 if (i > 2)
3480 as_bad (_("Invalid Indexed Load Completer Syntax."));
3481 opcode |= m << 5;
3482 INSERT_FIELD_AND_CONTINUE (opcode, uu, 13);
3483 }
252b5132 3484
9b52905e
NC		 3485 /* Handle a short load/store completer. */
3486 case 'M':
3487 case 'm':
3488 case 'q':
3489 case 'J':
3490 case 'e':
3491 {
3492 int a = 0;
3493 int m = 0;
3494 if (*s == ',')
3495 {
3496 s++;
3497 if (strncasecmp (s, "ma", 2) == 0)
3498 {
3499 a = 0;
3500 m = 1;
3501 s += 2;
3502 }
3503 else if (strncasecmp (s, "mb", 2) == 0)
3504 {
3505 a = 1;
3506 m = 1;
3507 s += 2;
3508 }
3509 else if (strict)
3510 /* This is a match failure. */
3511 s--;
3512 else
3513 {
3514 as_bad (_("Invalid Short Load/Store Completer."));
3515 s += 2;
3516 }
3517 }
3518 /* If we did not get a ma/mb completer, then we do not
3519 consider this a positive match for 'ce'. */
3520 else if (*args == 'e')
3521 break;
252b5132 3522
9b52905e
NC		 3523 /* 'J', 'm', 'M' and 'q' are the same, except for where they
3524 encode the before/after field. */
3525 if (*args == 'm' || *args == 'M')
3526 {
3527 opcode |= m << 5;
3528 INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
3529 }
3530 else if (*args == 'q')
3531 {
3532 opcode |= m << 3;
3533 INSERT_FIELD_AND_CONTINUE (opcode, a, 2);
3534 }
3535 else if (*args == 'J')
3536 {
4e3b43ed 3537 /* M bit is explicit in the major opcode. */
9b52905e
NC		 3538 INSERT_FIELD_AND_CONTINUE (opcode, a, 2);
3539 }
3540 else if (*args == 'e')
3541 {
3542 /* Stash the ma/mb flag temporarily in the
3543 instruction. We will use (and remove it)
3544 later when handling 'J', 'K', '<' & '>'. */
3545 opcode |= a;
3546 continue;
3547 }
3548 }
ad1079af 3549
9b52905e
NC		 3550 /* Handle a stbys completer. */
3551 case 'A':
3552 case 's':
3553 {
3554 int a = 0;
3555 int m = 0;
3556 int i = 0;
3557 while (*s == ',' && i < 2)
3558 {
3559 s++;
3560 if (strncasecmp (s, "m", 1) == 0)
3561 m = 1;
3562 else if ((strncasecmp (s, "b ", 2) == 0)
3563 || (strncasecmp (s, "b,", 2) == 0))
3564 a = 0;
3565 else if (strncasecmp (s, "e", 1) == 0)
3566 a = 1;
3567 /* In strict mode, this is a match failure. */
3568 else if (strict)
3569 {
3570 s--;
3571 break;
3572 }
3573 else
3574 as_bad (_("Invalid Store Bytes Short Completer"));
3575 s++;
3576 i++;
3577 }
3578 if (i > 2)
3579 as_bad (_("Invalid Store Bytes Short Completer"));
3580 opcode |= m << 5;
3581 INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
3582 }
252b5132 3583
9b52905e
NC		 3584 /* Handle load cache hint completer. */
3585 case 'c':
3586 cmpltr = 0;
3587 if (!strncmp (s, ",sl", 3))
3588 {
3589 s += 3;
3590 cmpltr = 2;
3591 }
3592 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
252b5132 3593
9b52905e
NC		 3594 /* Handle store cache hint completer. */
3595 case 'C':
3596 cmpltr = 0;
3597 if (!strncmp (s, ",sl", 3))
3598 {
3599 s += 3;
3600 cmpltr = 2;
3601 }
3602 else if (!strncmp (s, ",bc", 3))
3603 {
3604 s += 3;
3605 cmpltr = 1;
3606 }
3607 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
252b5132 3608
9b52905e
NC		 3609 /* Handle load and clear cache hint completer. */
3610 case 'd':
3611 cmpltr = 0;
3612 if (!strncmp (s, ",co", 3))
3613 {
3614 s += 3;
3615 cmpltr = 1;
3616 }
3617 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
252b5132 3618
9b52905e
NC		 3619 /* Handle load ordering completer. */
3620 case 'o':
3621 if (strncmp (s, ",o", 2) != 0)
3622 break;
3623 s += 2;
3624 continue;
502b19cb 3625
9b52905e
NC		 3626 /* Handle a branch gate completer. */
3627 case 'g':
3628 if (strncasecmp (s, ",gate", 5) != 0)
3629 break;
3630 s += 5;
3631 continue;
252b5132 3632
9b52905e
NC		 3633 /* Handle a branch link and push completer. */
3634 case 'p':
3635 if (strncasecmp (s, ",l,push", 7) != 0)
3636 break;
3637 s += 7;
3638 continue;
8973a37d 3639
9b52905e
NC		 3640 /* Handle a branch link completer. */
3641 case 'l':
3642 if (strncasecmp (s, ",l", 2) != 0)
3643 break;
3644 s += 2;
3645 continue;
8973a37d 3646
9b52905e
NC		 3647 /* Handle a branch pop completer. */
3648 case 'P':
3649 if (strncasecmp (s, ",pop", 4) != 0)
3650 break;
3651 s += 4;
3652 continue;
5506e1a5 3653
9b52905e
NC		 3654 /* Handle a local processor completer. */
3655 case 'L':
3656 if (strncasecmp (s, ",l", 2) != 0)
3657 break;
3658 s += 2;
3659 continue;
dc1fc56b 3660
9b52905e
NC		 3661 /* Handle a PROBE read/write completer. */
3662 case 'w':
3663 flag = 0;
3664 if (!strncasecmp (s, ",w", 2))
3665 {
3666 flag = 1;
3667 s += 2;
3668 }
3669 else if (!strncasecmp (s, ",r", 2))
3670 {
3671 flag = 0;
3672 s += 2;
3673 }
3f9b03b5 3674
9b52905e 3675 INSERT_FIELD_AND_CONTINUE (opcode, flag, 6);
a02fab7e 3676
9b52905e
NC		 3677 /* Handle MFCTL wide completer. */
3678 case 'W':
3679 if (strncasecmp (s, ",w", 2) != 0)
3680 break;
3681 s += 2;
3682 continue;
a02fab7e 3683
9b52905e
NC		 3684 /* Handle an RFI restore completer. */
3685 case 'r':
3686 flag = 0;
3687 if (!strncasecmp (s, ",r", 2))
3688 {
3689 flag = 5;
3690 s += 2;
3691 }
252b5132 3692
9b52905e 3693 INSERT_FIELD_AND_CONTINUE (opcode, flag, 5);
252b5132 3694
9b52905e
NC		 3695 /* Handle a system control completer. */
3696 case 'Z':
3697 if (*s == ',' && (*(s + 1) == 'm' || *(s + 1) == 'M'))
3698 {
3699 flag = 1;
3700 s += 2;
3701 }
3702 else
3703 flag = 0;
3f9b03b5 3704
9b52905e 3705 INSERT_FIELD_AND_CONTINUE (opcode, flag, 5);
252b5132 3706
9b52905e
NC		 3707 /* Handle intermediate/final completer for DCOR. */
3708 case 'i':
3709 flag = 0;
3710 if (!strncasecmp (s, ",i", 2))
3711 {
3712 flag = 1;
3713 s += 2;
3714 }
252b5132 3715
9b52905e 3716 INSERT_FIELD_AND_CONTINUE (opcode, flag, 6);
252b5132 3717
9b52905e
NC		 3718 /* Handle zero/sign extension completer. */
3719 case 'z':
3720 flag = 1;
3721 if (!strncasecmp (s, ",z", 2))
3722 {
3723 flag = 0;
3724 s += 2;
3725 }
252b5132 3726
9b52905e 3727 INSERT_FIELD_AND_CONTINUE (opcode, flag, 10);
252b5132 3728
9b52905e
NC		 3729 /* Handle add completer. */
3730 case 'a':
3731 flag = 1;
3732 if (!strncasecmp (s, ",l", 2))
3733 {
3734 flag = 2;
3735 s += 2;
3736 }
3737 else if (!strncasecmp (s, ",tsv", 4))
3738 {
3739 flag = 3;
3740 s += 4;
3741 }
252b5132 3742
9b52905e 3743 INSERT_FIELD_AND_CONTINUE (opcode, flag, 10);
3f9b03b5 3744
9b52905e
NC		 3745 /* Handle 64 bit carry for ADD. */
3746 case 'Y':
3747 flag = 0;
3748 if (!strncasecmp (s, ",dc,tsv", 7) ||
3749 !strncasecmp (s, ",tsv,dc", 7))
3750 {
3751 flag = 1;
3752 s += 7;
3753 }
3754 else if (!strncasecmp (s, ",dc", 3))
3755 {
3756 flag = 0;
3757 s += 3;
3758 }
3759 else
3760 break;
252b5132 3761
3c853d93
DA		 3762 /* Condition is not required with "dc". */
3763 need_cond = 0;
9b52905e 3764 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
77c02e18 3765
9b52905e
NC		 3766 /* Handle 32 bit carry for ADD. */
3767 case 'y':
3768 flag = 0;
3769 if (!strncasecmp (s, ",c,tsv", 6) ||
3770 !strncasecmp (s, ",tsv,c", 6))
3771 {
3772 flag = 1;
3773 s += 6;
3774 }
3775 else if (!strncasecmp (s, ",c", 2))
3776 {
3777 flag = 0;
3778 s += 2;
3779 }
3780 else
3781 break;
77c02e18 3782
9b52905e 3783 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
3f9b03b5 3784
9b52905e
NC		 3785 /* Handle trap on signed overflow. */
3786 case 'v':
3787 flag = 0;
3788 if (!strncasecmp (s, ",tsv", 4))
3789 {
3790 flag = 1;
3791 s += 4;
3792 }
77c02e18 3793
9b52905e 3794 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
ad1079af 3795
9b52905e
NC		 3796 /* Handle trap on condition and overflow. */
3797 case 't':
3798 flag = 0;
3799 if (!strncasecmp (s, ",tc,tsv", 7) ||
3800 !strncasecmp (s, ",tsv,tc", 7))
3801 {
3802 flag = 1;
3803 s += 7;
3804 }
3805 else if (!strncasecmp (s, ",tc", 3))
3806 {
3807 flag = 0;
3808 s += 3;
3809 }
3810 else
3811 break;
252b5132 3812
9b52905e 3813 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
252b5132 3814
9b52905e
NC		 3815 /* Handle 64 bit borrow for SUB. */
3816 case 'B':
3817 flag = 0;
3818 if (!strncasecmp (s, ",db,tsv", 7) ||
3819 !strncasecmp (s, ",tsv,db", 7))
3820 {
3821 flag = 1;
3822 s += 7;
3823 }
3824 else if (!strncasecmp (s, ",db", 3))
3825 {
3826 flag = 0;
3827 s += 3;
3828 }
3829 else
3830 break;
dc1fc56b 3831
3c853d93
DA		 3832 /* Condition is not required with "db". */
3833 need_cond = 0;
9b52905e 3834 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
252b5132 3835
9b52905e
NC		 3836 /* Handle 32 bit borrow for SUB. */
3837 case 'b':
3838 flag = 0;
3839 if (!strncasecmp (s, ",b,tsv", 6) ||
3840 !strncasecmp (s, ",tsv,b", 6))
3841 {
3842 flag = 1;
3843 s += 6;
3844 }
3845 else if (!strncasecmp (s, ",b", 2))
3846 {
3847 flag = 0;
3848 s += 2;
3849 }
3850 else
3851 break;
252b5132 3852
9b52905e 3853 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
252b5132 3854
9b52905e
NC		 3855 /* Handle trap condition completer for UADDCM. */
3856 case 'T':
3857 flag = 0;
3858 if (!strncasecmp (s, ",tc", 3))
3859 {
3860 flag = 1;
3861 s += 3;
3862 }
252b5132 3863
9b52905e 3864 INSERT_FIELD_AND_CONTINUE (opcode, flag, 6);
252b5132 3865
9b52905e
NC		 3866 /* Handle signed/unsigned at 21. */
3867 case 'S':
3868 {
3869 int sign = 1;
3870 if (strncasecmp (s, ",s", 2) == 0)
3871 {
3872 sign = 1;
3873 s += 2;
3874 }
3875 else if (strncasecmp (s, ",u", 2) == 0)
3876 {
3877 sign = 0;
3878 s += 2;
3879 }
252b5132 3880
9b52905e
NC		 3881 INSERT_FIELD_AND_CONTINUE (opcode, sign, 10);
3882 }
252b5132 3883
9b52905e
NC		 3884 /* Handle left/right combination at 17:18. */
3885 case 'h':
3886 if (*s++ == ',')
3887 {
3888 int lr = 0;
3889 if (*s == 'r')
3890 lr = 2;
3891 else if (*s == 'l')
3892 lr = 0;
3893 else
3894 as_bad (_("Invalid left/right combination completer"));
252b5132 3895
9b52905e
NC		 3896 s++;
3897 INSERT_FIELD_AND_CONTINUE (opcode, lr, 13);
3898 }
3899 else
3900 as_bad (_("Invalid left/right combination completer"));
3901 break;
252b5132 3902
9b52905e
NC		 3903 /* Handle saturation at 24:25. */
3904 case 'H':
3905 {
3906 int sat = 3;
3907 if (strncasecmp (s, ",ss", 3) == 0)
3908 {
3909 sat = 1;
3910 s += 3;
3911 }
3912 else if (strncasecmp (s, ",us", 3) == 0)
3913 {
3914 sat = 0;
3915 s += 3;
3916 }
252b5132 3917
9b52905e
NC		 3918 INSERT_FIELD_AND_CONTINUE (opcode, sat, 6);
3919 }
252b5132 3920
9b52905e
NC		 3921 /* Handle permutation completer. */
3922 case '*':
3923 if (*s++ == ',')
3924 {
3925 int permloc[4];
3926 int perm = 0;
3927 int i = 0;
3928 permloc[0] = 13;
3929 permloc[1] = 10;
3930 permloc[2] = 8;
3931 permloc[3] = 6;
3932 for (; i < 4; i++)
4e3b43ed 3933 {
9b52905e
NC		 3934 switch (*s++)
3935 {
3936 case '0':
3937 perm = 0;
3938 break;
3939 case '1':
3940 perm = 1;
3941 break;
3942 case '2':
3943 perm = 2;
3944 break;
3945 case '3':
3946 perm = 3;
3947 break;
3948 default:
3949 as_bad (_("Invalid permutation completer"));
3950 }
3951 opcode |= perm << permloc[i];
3952 }
3953 continue;
3954 }
3955 else
3956 as_bad (_("Invalid permutation completer"));
3957 break;
252b5132 3958
9b52905e
NC		 3959 default:
3960 abort ();
3961 }
3962 break;
252b5132 3963
9b52905e
NC		 3964 /* Handle all conditions. */
3965 case '?':
3966 {
3967 args++;
3968 switch (*args)
3969 {
3970 /* Handle FP compare conditions. */
3971 case 'f':
3972 cond = pa_parse_fp_cmp_cond (&s);
3973 INSERT_FIELD_AND_CONTINUE (opcode, cond, 0);
252b5132 3974
9b52905e
NC		 3975 /* Handle an add condition. */
3976 case 'A':
3977 case 'a':
3978 cmpltr = 0;
3979 flag = 0;
3980 if (*s == ',')
3981 {
3982 s++;
252b5132 3983
9b52905e
NC		 3984 /* 64 bit conditions. */
3985 if (*args == 'A')
3986 {
3987 if (*s == '*')
3988 s++;
3989 else
3990 break;
3991 }
3992 else if (*s == '*')
3993 break;
252b5132 3994
9b52905e
NC		 3995 name = s;
3996 while (*s != ',' && *s != ' ' && *s != '\t')
3997 s += 1;
3998 c = *s;
3999 *s = 0x00;
4000 if (strcmp (name, "=") == 0)
4001 cmpltr = 1;
4002 else if (strcmp (name, "<") == 0)
4003 cmpltr = 2;
4004 else if (strcmp (name, "<=") == 0)
4005 cmpltr = 3;
4006 else if (strcasecmp (name, "nuv") == 0)
4007 cmpltr = 4;
4008 else if (strcasecmp (name, "znv") == 0)
4009 cmpltr = 5;
4010 else if (strcasecmp (name, "sv") == 0)
4011 cmpltr = 6;
4012 else if (strcasecmp (name, "od") == 0)
4013 cmpltr = 7;
4014 else if (strcasecmp (name, "tr") == 0)
4015 {
4016 cmpltr = 0;
4017 flag = 1;
4018 }
4019 else if (strcmp (name, "<>") == 0)
4020 {
4021 cmpltr = 1;
4022 flag = 1;
4023 }
4024 else if (strcmp (name, ">=") == 0)
4025 {
4026 cmpltr = 2;
4027 flag = 1;
4028 }
4029 else if (strcmp (name, ">") == 0)
4030 {
4031 cmpltr = 3;
4032 flag = 1;
4033 }
4034 else if (strcasecmp (name, "uv") == 0)
4035 {
4036 cmpltr = 4;
4037 flag = 1;
4038 }
4039 else if (strcasecmp (name, "vnz") == 0)
4040 {
4041 cmpltr = 5;
4042 flag = 1;
4043 }
4044 else if (strcasecmp (name, "nsv") == 0)
4045 {
4046 cmpltr = 6;
4047 flag = 1;
4048 }
4049 else if (strcasecmp (name, "ev") == 0)
4050 {
4051 cmpltr = 7;
4052 flag = 1;
4053 }
4054 /* ",*" is a valid condition. */
4055 else if (*args == 'a' || *name)
4056 as_bad (_("Invalid Add Condition: %s"), name);
4057 *s = c;
4058 }
3c853d93
DA		 4059 /* Except with "dc", we have a match failure with
4060 'A' if we don't have a doubleword condition. */
4061 else if (*args == 'A' && need_cond)
4062 break;
4063
9b52905e
NC		 4064 opcode |= cmpltr << 13;
4065 INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
252b5132 4066
9b52905e
NC		 4067 /* Handle non-negated add and branch condition. */
4068 case 'd':
4069 cmpltr = pa_parse_nonneg_add_cmpltr (&s);
4070 if (cmpltr < 0)
4071 {
4072 as_bad (_("Invalid Add and Branch Condition"));
4073 cmpltr = 0;
4074 }
4075 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
252b5132 4076
9b52905e
NC		 4077 /* Handle 64 bit wide-mode add and branch condition. */
4078 case 'W':
4079 cmpltr = pa_parse_addb_64_cmpltr (&s);
4080 if (cmpltr < 0)
4081 {
4082 as_bad (_("Invalid Add and Branch Condition"));
4083 cmpltr = 0;
4084 }
4085 else
4086 {
4087 /* Negated condition requires an opcode change. */
4088 opcode |= (cmpltr & 8) << 24;
4089 }
4090 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr & 7, 13);
252b5132 4091
9b52905e
NC		 4092 /* Handle a negated or non-negated add and branch
4093 condition. */
4094 case '@':
4095 save_s = s;
4096 cmpltr = pa_parse_nonneg_add_cmpltr (&s);
4097 if (cmpltr < 0)
4098 {
4099 s = save_s;
4100 cmpltr = pa_parse_neg_add_cmpltr (&s);
4101 if (cmpltr < 0)
4102 {
4103 as_bad (_("Invalid Compare/Subtract Condition"));
4104 cmpltr = 0;
4105 }
4106 else
4107 {
4108 /* Negated condition requires an opcode change. */
4109 opcode |= 1 << 27;
4110 }
4111 }
4112 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
252b5132 4113
9b52905e
NC		 4114 /* Handle branch on bit conditions. */
4115 case 'B':
4116 case 'b':
4117 cmpltr = 0;
4118 if (*s == ',')
4119 {
4120 s++;
252b5132 4121
9b52905e
NC		 4122 if (*args == 'B')
4123 {
4124 if (*s == '*')
4125 s++;
4126 else
4127 break;
4128 }
4129 else if (*s == '*')
4130 break;
252b5132 4131
9b52905e
NC		 4132 if (strncmp (s, "<", 1) == 0)
4133 {
4134 cmpltr = 0;
4135 s++;
4136 }
4137 else if (strncmp (s, ">=", 2) == 0)
4138 {
4139 cmpltr = 1;
4140 s += 2;
4141 }
4142 else
3c853d93 4143 as_bad (_("Invalid Branch On Bit Condition: %c"), *s);
9b52905e 4144 }
3c853d93
DA		 4145 else
4146 as_bad (_("Missing Branch On Bit Condition"));
4147
9b52905e 4148 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 15);
252b5132 4149
9b52905e
NC		 4150 /* Handle a compare/subtract condition. */
4151 case 'S':
4152 case 's':
4153 cmpltr = 0;
4154 flag = 0;
4155 if (*s == ',')
4156 {
4157 s++;
252b5132 4158
9b52905e
NC		 4159 /* 64 bit conditions. */
4160 if (*args == 'S')
4161 {
4162 if (*s == '*')
4163 s++;
4164 else
4165 break;
4166 }
4167 else if (*s == '*')
4168 break;
252b5132 4169
9b52905e
NC		 4170 name = s;
4171 while (*s != ',' && *s != ' ' && *s != '\t')
4172 s += 1;
4173 c = *s;
4174 *s = 0x00;
4175 if (strcmp (name, "=") == 0)
4176 cmpltr = 1;
4177 else if (strcmp (name, "<") == 0)
4178 cmpltr = 2;
4179 else if (strcmp (name, "<=") == 0)
4180 cmpltr = 3;
4181 else if (strcasecmp (name, "<<") == 0)
4182 cmpltr = 4;
4183 else if (strcasecmp (name, "<<=") == 0)
4184 cmpltr = 5;
4185 else if (strcasecmp (name, "sv") == 0)
4186 cmpltr = 6;
4187 else if (strcasecmp (name, "od") == 0)
4188 cmpltr = 7;
4189 else if (strcasecmp (name, "tr") == 0)
4190 {
4191 cmpltr = 0;
4192 flag = 1;
4193 }
4194 else if (strcmp (name, "<>") == 0)
4195 {
4196 cmpltr = 1;
4197 flag = 1;
4198 }
4199 else if (strcmp (name, ">=") == 0)
4200 {
4201 cmpltr = 2;
4202 flag = 1;
4203 }
4204 else if (strcmp (name, ">") == 0)
4205 {
4206 cmpltr = 3;
4207 flag = 1;
4208 }
4209 else if (strcasecmp (name, ">>=") == 0)
4210 {
4211 cmpltr = 4;
4212 flag = 1;
4213 }
4214 else if (strcasecmp (name, ">>") == 0)
4215 {
4216 cmpltr = 5;
4217 flag = 1;
4218 }
4219 else if (strcasecmp (name, "nsv") == 0)
4220 {
4221 cmpltr = 6;
4222 flag = 1;
4223 }
4224 else if (strcasecmp (name, "ev") == 0)
4225 {
4226 cmpltr = 7;
4227 flag = 1;
4228 }
4229 /* ",*" is a valid condition. */
4230 else if (*args != 'S' || *name)
4231 as_bad (_("Invalid Compare/Subtract Condition: %s"),
4232 name);
4233 *s = c;
4234 }
3c853d93
DA		 4235 /* Except with "db", we have a match failure with
4236 'S' if we don't have a doubleword condition. */
4237 else if (*args == 'S' && need_cond)
4238 break;
4239
9b52905e
NC		 4240 opcode |= cmpltr << 13;
4241 INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
252b5132 4242
9b52905e
NC		 4243 /* Handle a non-negated compare condition. */
4244 case 't':
4245 cmpltr = pa_parse_nonneg_cmpsub_cmpltr (&s);
4246 if (cmpltr < 0)
4247 {
4248 as_bad (_("Invalid Compare/Subtract Condition"));
4249 cmpltr = 0;
4250 }
4251 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
1cf6ae67 4252
9b52905e
NC		 4253 /* Handle a 32 bit compare and branch condition. */
4254 case 'n':
4255 save_s = s;
4256 cmpltr = pa_parse_nonneg_cmpsub_cmpltr (&s);
4257 if (cmpltr < 0)
4258 {
4259 s = save_s;
4260 cmpltr = pa_parse_neg_cmpsub_cmpltr (&s);
4261 if (cmpltr < 0)
4262 {
4263 as_bad (_("Invalid Compare and Branch Condition"));
4264 cmpltr = 0;
4265 }
4266 else
4267 {
4268 /* Negated condition requires an opcode change. */
4269 opcode |= 1 << 27;
4270 }
4271 }
1cf6ae67 4272
9b52905e
NC		 4273 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
4274
4275 /* Handle a 64 bit compare and branch condition. */
4276 case 'N':
4277 cmpltr = pa_parse_cmpb_64_cmpltr (&s);
4278 if (cmpltr >= 0)
4279 {
4280 /* Negated condition requires an opcode change. */
4281 opcode |= (cmpltr & 8) << 26;
4282 }
4283 else
4284 /* Not a 64 bit cond. Give 32 bit a chance. */
4285 break;
1cf6ae67 4286
9b52905e 4287 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr & 7, 13);
1cf6ae67 4288
9b52905e
NC		 4289 /* Handle a 64 bit cmpib condition. */
4290 case 'Q':
4291 cmpltr = pa_parse_cmpib_64_cmpltr (&s);
4292 if (cmpltr < 0)
4293 /* Not a 64 bit cond. Give 32 bit a chance. */
4294 break;
1cf6ae67 4295
9b52905e 4296 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
1cf6ae67 4297
3c853d93 4298 /* Handle a logical instruction condition. */
9b52905e
NC		 4299 case 'L':
4300 case 'l':
4301 cmpltr = 0;
4302 flag = 0;
4303 if (*s == ',')
4304 {
4305 s++;
1cf6ae67 4306
9b52905e
NC		 4307 /* 64 bit conditions. */
4308 if (*args == 'L')
4309 {
4310 if (*s == '*')
4311 s++;
4312 else
4313 break;
4314 }
4315 else if (*s == '*')
4316 break;
252b5132 4317
9b52905e
NC		 4318 name = s;
4319 while (*s != ',' && *s != ' ' && *s != '\t')
4320 s += 1;
4321 c = *s;
4322 *s = 0x00;
252b5132 4323
9b52905e
NC		 4324 if (strcmp (name, "=") == 0)
4325 cmpltr = 1;
4326 else if (strcmp (name, "<") == 0)
4327 cmpltr = 2;
4328 else if (strcmp (name, "<=") == 0)
4329 cmpltr = 3;
4330 else if (strcasecmp (name, "od") == 0)
4331 cmpltr = 7;
4332 else if (strcasecmp (name, "tr") == 0)
4333 {
4334 cmpltr = 0;
4335 flag = 1;
4336 }
4337 else if (strcmp (name, "<>") == 0)
4338 {
4339 cmpltr = 1;
4340 flag = 1;
4341 }
4342 else if (strcmp (name, ">=") == 0)
4343 {
4344 cmpltr = 2;
4345 flag = 1;
4346 }
4347 else if (strcmp (name, ">") == 0)
4348 {
4349 cmpltr = 3;
4350 flag = 1;
4351 }
4352 else if (strcasecmp (name, "ev") == 0)
4353 {
4354 cmpltr = 7;
4355 flag = 1;
4356 }
4357 /* ",*" is a valid condition. */
4358 else if (*args != 'L' || *name)
4359 as_bad (_("Invalid Logical Instruction Condition."));
4360 *s = c;
4361 }
3c853d93
DA		 4362 /* 32-bit is default for no condition. */
4363 else if (*args == 'L')
4364 break;
4365
9b52905e
NC		 4366 opcode |= cmpltr << 13;
4367 INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
4368
4369 /* Handle a shift/extract/deposit condition. */
4370 case 'X':
4371 case 'x':
4372 case 'y':
4373 cmpltr = 0;
91c2f09e
DA		 4374 /* Check immediate values in shift/extract/deposit
4375 * instructions if they will give undefined behaviour. */
4376 immediate_check = 1;
9b52905e
NC		 4377 if (*s == ',')
4378 {
4379 save_s = s++;
4380
4381 /* 64 bit conditions. */
4382 if (*args == 'X')
4383 {
4384 if (*s == '*')
4385 s++;
4386 else
4387 break;
4388 }
4389 else if (*s == '*')
4390 break;
4391
4392 name = s;
4393 while (*s != ',' && *s != ' ' && *s != '\t')
4394 s += 1;
4395 c = *s;
4396 *s = 0x00;
4397 if (strcmp (name, "=") == 0)
4398 cmpltr = 1;
4399 else if (strcmp (name, "<") == 0)
4400 cmpltr = 2;
4401 else if (strcasecmp (name, "od") == 0)
4402 cmpltr = 3;
4403 else if (strcasecmp (name, "tr") == 0)
4404 cmpltr = 4;
4405 else if (strcmp (name, "<>") == 0)
4406 cmpltr = 5;
4407 else if (strcmp (name, ">=") == 0)
4408 cmpltr = 6;
4409 else if (strcasecmp (name, "ev") == 0)
4410 cmpltr = 7;
4411 /* Handle movb,n. Put things back the way they were.
4412 This includes moving s back to where it started. */
4413 else if (strcasecmp (name, "n") == 0 && *args == 'y')
4414 {
4415 *s = c;
4416 s = save_s;
4417 continue;
4418 }
4419 /* ",*" is a valid condition. */
4420 else if (*args != 'X' || *name)
4421 as_bad (_("Invalid Shift/Extract/Deposit Condition."));
4422 *s = c;
4423 }
3c853d93 4424
9b52905e
NC		 4425 INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
4426
4427 /* Handle a unit instruction condition. */
4428 case 'U':
4429 case 'u':
4430 cmpltr = 0;
4431 flag = 0;
4432 if (*s == ',')
4433 {
4434 s++;
4435
4436 /* 64 bit conditions. */
4437 if (*args == 'U')
4438 {
4439 if (*s == '*')
4440 s++;
4441 else
4442 break;
4443 }
4444 else if (*s == '*')
4445 break;
4446
4447 if (strncasecmp (s, "sbz", 3) == 0)
4448 {
4449 cmpltr = 2;
4450 s += 3;
4451 }
4452 else if (strncasecmp (s, "shz", 3) == 0)
4453 {
4454 cmpltr = 3;
4455 s += 3;
4456 }
4457 else if (strncasecmp (s, "sdc", 3) == 0)
4458 {
4459 cmpltr = 4;
4460 s += 3;
4461 }
4462 else if (strncasecmp (s, "sbc", 3) == 0)
4463 {
4464 cmpltr = 6;
4465 s += 3;
4466 }
4467 else if (strncasecmp (s, "shc", 3) == 0)
4468 {
4469 cmpltr = 7;
4470 s += 3;
4471 }
4472 else if (strncasecmp (s, "tr", 2) == 0)
4473 {
4474 cmpltr = 0;
4475 flag = 1;
4476 s += 2;
4477 }
4478 else if (strncasecmp (s, "nbz", 3) == 0)
4479 {
4480 cmpltr = 2;
4481 flag = 1;
4482 s += 3;
4483 }
4484 else if (strncasecmp (s, "nhz", 3) == 0)
4485 {
4486 cmpltr = 3;
4487 flag = 1;
4488 s += 3;
4489 }
4490 else if (strncasecmp (s, "ndc", 3) == 0)
4491 {
4492 cmpltr = 4;
4493 flag = 1;
4494 s += 3;
4495 }
4496 else if (strncasecmp (s, "nbc", 3) == 0)
4497 {
4498 cmpltr = 6;
4499 flag = 1;
4500 s += 3;
4501 }
4502 else if (strncasecmp (s, "nhc", 3) == 0)
4503 {
4504 cmpltr = 7;
4505 flag = 1;
4506 s += 3;
4507 }
4508 else if (strncasecmp (s, "swz", 3) == 0)
4509 {
4510 cmpltr = 1;
4511 flag = 0;
4512 s += 3;
4513 }
4514 else if (strncasecmp (s, "swc", 3) == 0)
4515 {
4516 cmpltr = 5;
4517 flag = 0;
4518 s += 3;
4519 }
4520 else if (strncasecmp (s, "nwz", 3) == 0)
4521 {
4522 cmpltr = 1;
4523 flag = 1;
4524 s += 3;
4525 }
4526 else if (strncasecmp (s, "nwc", 3) == 0)
4527 {
4528 cmpltr = 5;
4529 flag = 1;
4530 s += 3;
4531 }
4532 /* ",*" is a valid condition. */
4533 else if (*args != 'U' || (*s != ' ' && *s != '\t'))
4534 as_bad (_("Invalid Unit Instruction Condition."));
4535 }
3c853d93
DA		 4536 /* 32-bit is default for no condition. */
4537 else if (*args == 'U')
4538 break;
4539
9b52905e
NC		 4540 opcode |= cmpltr << 13;
4541 INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
252b5132 4542
9b52905e
NC		 4543 default:
4544 abort ();
4545 }
4546 break;
4547 }
252b5132 4548
9b52905e
NC		 4549 /* Handle a nullification completer for branch instructions. */
4550 case 'n':
4551 nullif = pa_parse_nullif (&s);
4552 INSERT_FIELD_AND_CONTINUE (opcode, nullif, 1);
252b5132 4553
9b52905e
NC		 4554 /* Handle a nullification completer for copr and spop insns. */
4555 case 'N':
4556 nullif = pa_parse_nullif (&s);
4557 INSERT_FIELD_AND_CONTINUE (opcode, nullif, 5);
252b5132 4558
9b52905e
NC		 4559 /* Handle ,%r2 completer for new syntax branches. */
4560 case 'L':
4561 if (*s == ',' && strncasecmp (s + 1, "%r2", 3) == 0)
4562 s += 4;
4563 else if (*s == ',' && strncasecmp (s + 1, "%rp", 3) == 0)
4564 s += 4;
4565 else
4566 break;
4567 continue;
252b5132 4568
9b52905e
NC		 4569 /* Handle 3 bit entry into the fp compare array. Valid values
4570 are 0..6 inclusive. */
4571 case 'h':
4572 get_expression (s);
4573 s = expr_end;
4574 if (the_insn.exp.X_op == O_constant)
4575 {
4576 num = evaluate_absolute (&the_insn);
4577 CHECK_FIELD (num, 6, 0, 0);
4578 num++;
4579 INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
4580 }
4581 else
4582 break;
252b5132 4583
9b52905e
NC		 4584 /* Handle 3 bit entry into the fp compare array. Valid values
4585 are 0..6 inclusive. */
4586 case 'm':
4587 get_expression (s);
4588 if (the_insn.exp.X_op == O_constant)
4589 {
4590 s = expr_end;
4591 num = evaluate_absolute (&the_insn);
4592 CHECK_FIELD (num, 6, 0, 0);
4593 num = (num + 1) ^ 1;
4594 INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
4595 }
4596 else
4597 break;
252b5132 4598
9b52905e
NC		 4599 /* Handle graphics test completers for ftest */
4600 case '=':
4601 {
4602 num = pa_parse_ftest_gfx_completer (&s);
4603 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4604 }
252b5132 4605
9b52905e
NC		 4606 /* Handle a 11 bit immediate at 31. */
4607 case 'i':
4608 the_insn.field_selector = pa_chk_field_selector (&s);
4609 get_expression (s);
4610 s = expr_end;
4611 if (the_insn.exp.X_op == O_constant)
4612 {
4613 num = evaluate_absolute (&the_insn);
4614 CHECK_FIELD (num, 1023, -1024, 0);
4615 num = low_sign_unext (num, 11);
4616 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4617 }
4618 else
4619 {
4620 if (is_DP_relative (the_insn.exp))
4621 the_insn.reloc = R_HPPA_GOTOFF;
4622 else if (is_PC_relative (the_insn.exp))
4623 the_insn.reloc = R_HPPA_PCREL_CALL;
4624#ifdef OBJ_ELF
4625 else if (is_tls_gdidx (the_insn.exp))
4626 the_insn.reloc = R_PARISC_TLS_GD21L;
4627 else if (is_tls_ldidx (the_insn.exp))
4628 the_insn.reloc = R_PARISC_TLS_LDM21L;
4629 else if (is_tls_dtpoff (the_insn.exp))
4630 the_insn.reloc = R_PARISC_TLS_LDO21L;
4631 else if (is_tls_ieoff (the_insn.exp))
4632 the_insn.reloc = R_PARISC_TLS_IE21L;
4633 else if (is_tls_leoff (the_insn.exp))
4634 the_insn.reloc = R_PARISC_TLS_LE21L;
252b5132 4635#endif
9b52905e
NC		 4636 else
4637 the_insn.reloc = R_HPPA;
4638 the_insn.format = 11;
4639 continue;
4640 }
252b5132 4641
9b52905e
NC		 4642 /* Handle a 14 bit immediate at 31. */
4643 case 'J':
4644 the_insn.field_selector = pa_chk_field_selector (&s);
4645 get_expression (s);
4646 s = expr_end;
4647 if (the_insn.exp.X_op == O_constant)
4648 {
4649 int mb;
252b5132 4650
9b52905e
NC		 4651 /* XXX the completer stored away tidbits of information
4652 for us to extract. We need a cleaner way to do this.
4653 Now that we have lots of letters again, it would be
4654 good to rethink this. */
4655 mb = opcode & 1;
4656 opcode -= mb;
4657 num = evaluate_absolute (&the_insn);
4658 if (mb != (num < 0))
4659 break;
4660 CHECK_FIELD (num, 8191, -8192, 0);
4661 num = low_sign_unext (num, 14);
4662 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4663 }
4664 break;
252b5132 4665
9b52905e
NC		 4666 /* Handle a 14 bit immediate at 31. */
4667 case 'K':
4668 the_insn.field_selector = pa_chk_field_selector (&s);
4669 get_expression (s);
4670 s = expr_end;
4671 if (the_insn.exp.X_op == O_constant)
4672 {
4673 int mb;
4674
4675 mb = opcode & 1;
4676 opcode -= mb;
4677 num = evaluate_absolute (&the_insn);
4678 if (mb == (num < 0))
4679 break;
4680 if (num % 4)
4681 break;
4682 CHECK_FIELD (num, 8191, -8192, 0);
4683 num = low_sign_unext (num, 14);
4684 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4685 }
4686 break;
252b5132 4687
9b52905e
NC		 4688 /* Handle a 16 bit immediate at 31. */
4689 case '<':
4690 the_insn.field_selector = pa_chk_field_selector (&s);
4691 get_expression (s);
4692 s = expr_end;
4693 if (the_insn.exp.X_op == O_constant)
4694 {
4695 int mb;
252b5132 4696
9b52905e
NC		 4697 mb = opcode & 1;
4698 opcode -= mb;
4699 num = evaluate_absolute (&the_insn);
4700 if (mb != (num < 0))
4701 break;
4702 CHECK_FIELD (num, 32767, -32768, 0);
4703 num = re_assemble_16 (num);
4704 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4705 }
4706 break;
252b5132 4707
9b52905e
NC		 4708 /* Handle a 16 bit immediate at 31. */
4709 case '>':
4710 the_insn.field_selector = pa_chk_field_selector (&s);
4711 get_expression (s);
4712 s = expr_end;
4713 if (the_insn.exp.X_op == O_constant)
4714 {
4715 int mb;
252b5132 4716
9b52905e
NC		 4717 mb = opcode & 1;
4718 opcode -= mb;
4719 num = evaluate_absolute (&the_insn);
4720 if (mb == (num < 0))
4721 break;
4722 if (num % 4)
4723 break;
4724 CHECK_FIELD (num, 32767, -32768, 0);
4725 num = re_assemble_16 (num);
4726 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4727 }
4728 break;
252b5132 4729
9b52905e
NC		 4730 /* Handle 14 bit immediate, shifted left three times. */
4731 case '#':
4732 if (bfd_get_mach (stdoutput) != pa20)
4733 break;
4734 the_insn.field_selector = pa_chk_field_selector (&s);
4735 get_expression (s);
4736 s = expr_end;
4737 if (the_insn.exp.X_op == O_constant)
4738 {
4739 num = evaluate_absolute (&the_insn);
4740 if (num & 0x7)
4741 break;
4742 CHECK_FIELD (num, 8191, -8192, 0);
4743 if (num < 0)
4744 opcode |= 1;
4745 num &= 0x1fff;
4746 num >>= 3;
4747 INSERT_FIELD_AND_CONTINUE (opcode, num, 4);
4748 }
4749 else
4750 {
4751 if (is_DP_relative (the_insn.exp))
4752 the_insn.reloc = R_HPPA_GOTOFF;
4753 else if (is_PC_relative (the_insn.exp))
4754 the_insn.reloc = R_HPPA_PCREL_CALL;
4755#ifdef OBJ_ELF
4756 else if (is_tls_gdidx (the_insn.exp))
4757 the_insn.reloc = R_PARISC_TLS_GD21L;
4758 else if (is_tls_ldidx (the_insn.exp))
4759 the_insn.reloc = R_PARISC_TLS_LDM21L;
4760 else if (is_tls_dtpoff (the_insn.exp))
4761 the_insn.reloc = R_PARISC_TLS_LDO21L;
4762 else if (is_tls_ieoff (the_insn.exp))
4763 the_insn.reloc = R_PARISC_TLS_IE21L;
4764 else if (is_tls_leoff (the_insn.exp))
4765 the_insn.reloc = R_PARISC_TLS_LE21L;
4766#endif
4767 else
4768 the_insn.reloc = R_HPPA;
4769 the_insn.format = 14;
4770 continue;
4771 }
4772 break;
252b5132 4773
9b52905e
NC		 4774 /* Handle 14 bit immediate, shifted left twice. */
4775 case 'd':
4776 the_insn.field_selector = pa_chk_field_selector (&s);
4777 get_expression (s);
4778 s = expr_end;
4779 if (the_insn.exp.X_op == O_constant)
4780 {
4781 num = evaluate_absolute (&the_insn);
4782 if (num & 0x3)
4783 break;
4784 CHECK_FIELD (num, 8191, -8192, 0);
4785 if (num < 0)
4786 opcode |= 1;
4787 num &= 0x1fff;
4788 num >>= 2;
4789 INSERT_FIELD_AND_CONTINUE (opcode, num, 3);
4790 }
4791 else
4792 {
4793 if (is_DP_relative (the_insn.exp))
4794 the_insn.reloc = R_HPPA_GOTOFF;
4795 else if (is_PC_relative (the_insn.exp))
4796 the_insn.reloc = R_HPPA_PCREL_CALL;
4797#ifdef OBJ_ELF
4798 else if (is_tls_gdidx (the_insn.exp))
4799 the_insn.reloc = R_PARISC_TLS_GD21L;
4800 else if (is_tls_ldidx (the_insn.exp))
4801 the_insn.reloc = R_PARISC_TLS_LDM21L;
4802 else if (is_tls_dtpoff (the_insn.exp))
4803 the_insn.reloc = R_PARISC_TLS_LDO21L;
4804 else if (is_tls_ieoff (the_insn.exp))
4805 the_insn.reloc = R_PARISC_TLS_IE21L;
4806 else if (is_tls_leoff (the_insn.exp))
4807 the_insn.reloc = R_PARISC_TLS_LE21L;
4808#endif
4809 else
4810 the_insn.reloc = R_HPPA;
4811 the_insn.format = 14;
4812 continue;
4813 }
252b5132 4814
9b52905e
NC		 4815 /* Handle a 14 bit immediate at 31. */
4816 case 'j':
4817 the_insn.field_selector = pa_chk_field_selector (&s);
4818 get_expression (s);
4819 s = expr_end;
4820 if (the_insn.exp.X_op == O_constant)
4821 {
4822 num = evaluate_absolute (&the_insn);
4823 CHECK_FIELD (num, 8191, -8192, 0);
4824 num = low_sign_unext (num, 14);
4825 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
4826 }
4827 else
4828 {
4829 if (is_DP_relative (the_insn.exp))
4830 the_insn.reloc = R_HPPA_GOTOFF;
4831 else if (is_PC_relative (the_insn.exp))
4832 the_insn.reloc = R_HPPA_PCREL_CALL;
4833#ifdef OBJ_ELF
4834 else if (is_tls_gdidx (the_insn.exp))
4835 the_insn.reloc = R_PARISC_TLS_GD21L;
4836 else if (is_tls_ldidx (the_insn.exp))
4837 the_insn.reloc = R_PARISC_TLS_LDM21L;
4838 else if (is_tls_dtpoff (the_insn.exp))
4839 the_insn.reloc = R_PARISC_TLS_LDO21L;
4840 else if (is_tls_ieoff (the_insn.exp))
4841 the_insn.reloc = R_PARISC_TLS_IE21L;
4842 else if (is_tls_leoff (the_insn.exp))
4843 the_insn.reloc = R_PARISC_TLS_LE21L;
4844#endif
4845 else
4846 the_insn.reloc = R_HPPA;
4847 the_insn.format = 14;
4848 continue;
4849 }
252b5132 4850
9b52905e
NC		 4851 /* Handle a 21 bit immediate at 31. */
4852 case 'k':
4853 the_insn.field_selector = pa_chk_field_selector (&s);
4854 get_expression (s);
4855 s = expr_end;
4856 if (the_insn.exp.X_op == O_constant)
4857 {
4858 num = evaluate_absolute (&the_insn);
4859 CHECK_FIELD (num >> 11, 1048575, -1048576, 0);
4860 opcode |= re_assemble_21 (num);
4861 continue;
4862 }
4863 else
4864 {
4865 if (is_DP_relative (the_insn.exp))
4866 the_insn.reloc = R_HPPA_GOTOFF;
4867 else if (is_PC_relative (the_insn.exp))
4868 the_insn.reloc = R_HPPA_PCREL_CALL;
4869#ifdef OBJ_ELF
4870 else if (is_tls_gdidx (the_insn.exp))
4871 the_insn.reloc = R_PARISC_TLS_GD21L;
4872 else if (is_tls_ldidx (the_insn.exp))
4873 the_insn.reloc = R_PARISC_TLS_LDM21L;
4874 else if (is_tls_dtpoff (the_insn.exp))
4875 the_insn.reloc = R_PARISC_TLS_LDO21L;
4876 else if (is_tls_ieoff (the_insn.exp))
4877 the_insn.reloc = R_PARISC_TLS_IE21L;
4878 else if (is_tls_leoff (the_insn.exp))
4879 the_insn.reloc = R_PARISC_TLS_LE21L;
4880#endif
4881 else
4882 the_insn.reloc = R_HPPA;
4883 the_insn.format = 21;
4884 continue;
4885 }
252b5132 4886
9b52905e
NC		 4887 /* Handle a 16 bit immediate at 31 (PA 2.0 wide mode only). */
4888 case 'l':
4889 the_insn.field_selector = pa_chk_field_selector (&s);
4890 get_expression (s);
4891 s = expr_end;
4892 if (the_insn.exp.X_op == O_constant)
4893 {
4894 num = evaluate_absolute (&the_insn);
4895 CHECK_FIELD (num, 32767, -32768, 0);
4896 opcode |= re_assemble_16 (num);
4897 continue;
4898 }
4899 else
4900 {
4901 /* ??? Is this valid for wide mode? */
4902 if (is_DP_relative (the_insn.exp))
4903 the_insn.reloc = R_HPPA_GOTOFF;
4904 else if (is_PC_relative (the_insn.exp))
4905 the_insn.reloc = R_HPPA_PCREL_CALL;
4906#ifdef OBJ_ELF
4907 else if (is_tls_gdidx (the_insn.exp))
4908 the_insn.reloc = R_PARISC_TLS_GD21L;
4909 else if (is_tls_ldidx (the_insn.exp))
4910 the_insn.reloc = R_PARISC_TLS_LDM21L;
4911 else if (is_tls_dtpoff (the_insn.exp))
4912 the_insn.reloc = R_PARISC_TLS_LDO21L;
4913 else if (is_tls_ieoff (the_insn.exp))
4914 the_insn.reloc = R_PARISC_TLS_IE21L;
4915 else if (is_tls_leoff (the_insn.exp))
4916 the_insn.reloc = R_PARISC_TLS_LE21L;
4917#endif
4918 else
4919 the_insn.reloc = R_HPPA;
4920 the_insn.format = 14;
4921 continue;
4922 }
4923
4924 /* Handle a word-aligned 16-bit imm. at 31 (PA2.0 wide). */
4925 case 'y':
4926 the_insn.field_selector = pa_chk_field_selector (&s);
4927 get_expression (s);
4928 s = expr_end;
4929 if (the_insn.exp.X_op == O_constant)
4930 {
4931 num = evaluate_absolute (&the_insn);
4932 CHECK_FIELD (num, 32767, -32768, 0);
4933 CHECK_ALIGN (num, 4, 0);
4934 opcode |= re_assemble_16 (num);
4935 continue;
4936 }
4937 else
4938 {
4939 /* ??? Is this valid for wide mode? */
4940 if (is_DP_relative (the_insn.exp))
4941 the_insn.reloc = R_HPPA_GOTOFF;
4942 else if (is_PC_relative (the_insn.exp))
4943 the_insn.reloc = R_HPPA_PCREL_CALL;
4944#ifdef OBJ_ELF
4945 else if (is_tls_gdidx (the_insn.exp))
4946 the_insn.reloc = R_PARISC_TLS_GD21L;
4947 else if (is_tls_ldidx (the_insn.exp))
4948 the_insn.reloc = R_PARISC_TLS_LDM21L;
4949 else if (is_tls_dtpoff (the_insn.exp))
4950 the_insn.reloc = R_PARISC_TLS_LDO21L;
4951 else if (is_tls_ieoff (the_insn.exp))
4952 the_insn.reloc = R_PARISC_TLS_IE21L;
4953 else if (is_tls_leoff (the_insn.exp))
4954 the_insn.reloc = R_PARISC_TLS_LE21L;
4955#endif
4956 else
4957 the_insn.reloc = R_HPPA;
4958 the_insn.format = 14;
4959 continue;
4960 }
252b5132 4961
9b52905e
NC		 4962 /* Handle a dword-aligned 16-bit imm. at 31 (PA2.0 wide). */
4963 case '&':
4964 the_insn.field_selector = pa_chk_field_selector (&s);
4965 get_expression (s);
4966 s = expr_end;
4967 if (the_insn.exp.X_op == O_constant)
4968 {
4969 num = evaluate_absolute (&the_insn);
4970 CHECK_FIELD (num, 32767, -32768, 0);
4971 CHECK_ALIGN (num, 8, 0);
4972 opcode |= re_assemble_16 (num);
4973 continue;
4974 }
4975 else
4976 {
4977 /* ??? Is this valid for wide mode? */
4978 if (is_DP_relative (the_insn.exp))
4979 the_insn.reloc = R_HPPA_GOTOFF;
4980 else if (is_PC_relative (the_insn.exp))
4981 the_insn.reloc = R_HPPA_PCREL_CALL;
4982#ifdef OBJ_ELF
4983 else if (is_tls_gdidx (the_insn.exp))
4984 the_insn.reloc = R_PARISC_TLS_GD21L;
4985 else if (is_tls_ldidx (the_insn.exp))
4986 the_insn.reloc = R_PARISC_TLS_LDM21L;
4987 else if (is_tls_dtpoff (the_insn.exp))
4988 the_insn.reloc = R_PARISC_TLS_LDO21L;
4989 else if (is_tls_ieoff (the_insn.exp))
4990 the_insn.reloc = R_PARISC_TLS_IE21L;
4991 else if (is_tls_leoff (the_insn.exp))
4992 the_insn.reloc = R_PARISC_TLS_LE21L;
4993#endif
4994 else
4995 the_insn.reloc = R_HPPA;
4996 the_insn.format = 14;
4997 continue;
4998 }
252b5132 4999
9b52905e
NC		 5000 /* Handle a 12 bit branch displacement. */
5001 case 'w':
5002 the_insn.field_selector = pa_chk_field_selector (&s);
5003 get_expression (s);
5004 s = expr_end;
5005 the_insn.pcrel = 1;
5006 if (!the_insn.exp.X_add_symbol
5007 || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
5008 FAKE_LABEL_NAME))
5009 {
5010 num = evaluate_absolute (&the_insn);
5011 if (num % 4)
5012 {
5013 as_bad (_("Branch to unaligned address"));
5014 break;
5015 }
5016 if (the_insn.exp.X_add_symbol)
5017 num -= 8;
5018 CHECK_FIELD (num, 8191, -8192, 0);
5019 opcode |= re_assemble_12 (num >> 2);
5020 continue;
5021 }
5022 else
5023 {
5024 the_insn.reloc = R_HPPA_PCREL_CALL;
5025 the_insn.format = 12;
5026 the_insn.arg_reloc = last_call_desc.arg_reloc;
5027 memset (&last_call_desc, 0, sizeof (struct call_desc));
5028 s = expr_end;
5029 continue;
5030 }
252b5132 5031
9b52905e
NC		 5032 /* Handle a 17 bit branch displacement. */
5033 case 'W':
5034 the_insn.field_selector = pa_chk_field_selector (&s);
5035 get_expression (s);
5036 s = expr_end;
5037 the_insn.pcrel = 1;
5038 if (!the_insn.exp.X_add_symbol
5039 || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
5040 FAKE_LABEL_NAME))
5041 {
5042 num = evaluate_absolute (&the_insn);
5043 if (num % 4)
5044 {
5045 as_bad (_("Branch to unaligned address"));
5046 break;
5047 }
5048 if (the_insn.exp.X_add_symbol)
5049 num -= 8;
5050 CHECK_FIELD (num, 262143, -262144, 0);
5051 opcode |= re_assemble_17 (num >> 2);
5052 continue;
5053 }
5054 else
5055 {
5056 the_insn.reloc = R_HPPA_PCREL_CALL;
5057 the_insn.format = 17;
5058 the_insn.arg_reloc = last_call_desc.arg_reloc;
5059 memset (&last_call_desc, 0, sizeof (struct call_desc));
5060 continue;
5061 }
252b5132 5062
9b52905e
NC		 5063 /* Handle a 22 bit branch displacement. */
5064 case 'X':
5065 the_insn.field_selector = pa_chk_field_selector (&s);
5066 get_expression (s);
5067 s = expr_end;
5068 the_insn.pcrel = 1;
5069 if (!the_insn.exp.X_add_symbol
5070 || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
5071 FAKE_LABEL_NAME))
5072 {
5073 num = evaluate_absolute (&the_insn);
5074 if (num % 4)
5075 {
5076 as_bad (_("Branch to unaligned address"));
5077 break;
5078 }
5079 if (the_insn.exp.X_add_symbol)
5080 num -= 8;
5081 CHECK_FIELD (num, 8388607, -8388608, 0);
5082 opcode |= re_assemble_22 (num >> 2);
5083 }
5084 else
5085 {
5086 the_insn.reloc = R_HPPA_PCREL_CALL;
5087 the_insn.format = 22;
5088 the_insn.arg_reloc = last_call_desc.arg_reloc;
5089 memset (&last_call_desc, 0, sizeof (struct call_desc));
5090 continue;
5091 }
252b5132 5092
9b52905e
NC		 5093 /* Handle an absolute 17 bit branch target. */
5094 case 'z':
5095 the_insn.field_selector = pa_chk_field_selector (&s);
5096 get_expression (s);
5097 s = expr_end;
5098 the_insn.pcrel = 0;
5099 if (!the_insn.exp.X_add_symbol
5100 || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
5101 FAKE_LABEL_NAME))
5102 {
5103 num = evaluate_absolute (&the_insn);
5104 if (num % 4)
5105 {
5106 as_bad (_("Branch to unaligned address"));
5107 break;
5108 }
5109 if (the_insn.exp.X_add_symbol)
5110 num -= 8;
5111 CHECK_FIELD (num, 262143, -262144, 0);
5112 opcode |= re_assemble_17 (num >> 2);
5113 continue;
5114 }
5115 else
5116 {
5117 the_insn.reloc = R_HPPA_ABS_CALL;
5118 the_insn.format = 17;
5119 the_insn.arg_reloc = last_call_desc.arg_reloc;
5120 memset (&last_call_desc, 0, sizeof (struct call_desc));
5121 continue;
5122 }
252b5132 5123
9b52905e
NC		 5124 /* Handle '%r1' implicit operand of addil instruction. */
5125 case 'Z':
5126 if (*s == ',' && *(s + 1) == '%' && *(s + 3) == '1'
5127 && (*(s + 2) == 'r' || *(s + 2) == 'R'))
5128 {
5129 s += 4;
5130 continue;
5131 }
5132 else
4e3b43ed 5133 break;
252b5132 5134
9b52905e
NC		 5135 /* Handle '%sr0,%r31' implicit operand of be,l instruction. */
5136 case 'Y':
5137 if (strncasecmp (s, "%sr0,%r31", 9) != 0)
5138 break;
5139 s += 9;
5140 continue;
252b5132 5141
9b52905e
NC		 5142 /* Handle immediate value of 0 for ordered load/store instructions. */
5143 case '@':
5144 if (*s != '0')
5145 break;
5146 s++;
5147 continue;
252b5132 5148
9b52905e
NC		 5149 /* Handle a 2 bit shift count at 25. */
5150 case '.':
5151 num = pa_get_absolute_expression (&the_insn, &s);
5152 if (strict && the_insn.exp.X_op != O_constant)
5153 break;
5154 s = expr_end;
5155 CHECK_FIELD (num, 3, 1, strict);
5156 INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
252b5132 5157
9b52905e
NC		 5158 /* Handle a 4 bit shift count at 25. */
5159 case '*':
5160 num = pa_get_absolute_expression (&the_insn, &s);
5161 if (strict && the_insn.exp.X_op != O_constant)
5162 break;
5163 s = expr_end;
5164 CHECK_FIELD (num, 15, 0, strict);
5165 INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
5166
5167 /* Handle a 5 bit shift count at 26. */
5168 case 'p':
5169 num = pa_get_absolute_expression (&the_insn, &s);
5170 if (strict && the_insn.exp.X_op != O_constant)
5171 break;
5172 s = expr_end;
5173 CHECK_FIELD (num, 31, 0, strict);
91c2f09e 5174 SAVE_IMMEDIATE(num);
9b52905e 5175 INSERT_FIELD_AND_CONTINUE (opcode, 31 - num, 5);
252b5132 5176
9b52905e
NC		 5177 /* Handle a 6 bit shift count at 20,22:26. */
5178 case '~':
5179 num = pa_get_absolute_expression (&the_insn, &s);
5180 if (strict && the_insn.exp.X_op != O_constant)
5181 break;
5182 s = expr_end;
5183 CHECK_FIELD (num, 63, 0, strict);
91c2f09e 5184 SAVE_IMMEDIATE(num);
9b52905e
NC		 5185 num = 63 - num;
5186 opcode |= (num & 0x20) << 6;
5187 INSERT_FIELD_AND_CONTINUE (opcode, num & 0x1f, 5);
252b5132 5188
9b52905e
NC		 5189 /* Handle a 6 bit field length at 23,27:31. */
5190 case '%':
5191 flag = 0;
5192 num = pa_get_absolute_expression (&the_insn, &s);
5193 if (strict && the_insn.exp.X_op != O_constant)
5194 break;
5195 s = expr_end;
5196 CHECK_FIELD (num, 64, 1, strict);
91c2f09e 5197 SAVE_IMMEDIATE(num);
9b52905e
NC		 5198 num--;
5199 opcode |= (num & 0x20) << 3;
5200 num = 31 - (num & 0x1f);
5201 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 5202
9b52905e
NC		 5203 /* Handle a 6 bit field length at 19,27:31. */
5204 case '|':
5205 num = pa_get_absolute_expression (&the_insn, &s);
5206 if (strict && the_insn.exp.X_op != O_constant)
5207 break;
5208 s = expr_end;
5209 CHECK_FIELD (num, 64, 1, strict);
91c2f09e 5210 SAVE_IMMEDIATE(num);
9b52905e
NC		 5211 num--;
5212 opcode |= (num & 0x20) << 7;
5213 num = 31 - (num & 0x1f);
5214 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 5215
9b52905e
NC		 5216 /* Handle a 5 bit bit position at 26. */
5217 case 'P':
5218 num = pa_get_absolute_expression (&the_insn, &s);
5219 if (strict && the_insn.exp.X_op != O_constant)
5220 break;
5221 s = expr_end;
5222 CHECK_FIELD (num, 31, 0, strict);
91c2f09e 5223 SAVE_IMMEDIATE(num);
9b52905e 5224 INSERT_FIELD_AND_CONTINUE (opcode, num, 5);
252b5132 5225
9b52905e
NC		 5226 /* Handle a 6 bit bit position at 20,22:26. */
5227 case 'q':
5228 num = pa_get_absolute_expression (&the_insn, &s);
5229 if (strict && the_insn.exp.X_op != O_constant)
5230 break;
5231 s = expr_end;
5232 CHECK_FIELD (num, 63, 0, strict);
91c2f09e 5233 SAVE_IMMEDIATE(num);
9b52905e
NC		 5234 opcode |= (num & 0x20) << 6;
5235 INSERT_FIELD_AND_CONTINUE (opcode, num & 0x1f, 5);
252b5132 5236
9b52905e
NC		 5237 /* Handle a 5 bit immediate at 10 with 'd' as the complement
5238 of the high bit of the immediate. */
5239 case 'B':
5240 num = pa_get_absolute_expression (&the_insn, &s);
5241 if (strict && the_insn.exp.X_op != O_constant)
5242 break;
5243 s = expr_end;
5244 CHECK_FIELD (num, 63, 0, strict);
5245 if (num & 0x20)
5246 ;
5247 else
5248 opcode |= (1 << 13);
5249 INSERT_FIELD_AND_CONTINUE (opcode, num & 0x1f, 21);
252b5132 5250
9b52905e
NC		 5251 /* Handle a 5 bit immediate at 10. */
5252 case 'Q':
5253 num = pa_get_absolute_expression (&the_insn, &s);
5254 if (strict && the_insn.exp.X_op != O_constant)
5255 break;
5256 s = expr_end;
5257 CHECK_FIELD (num, 31, 0, strict);
5258 INSERT_FIELD_AND_CONTINUE (opcode, num, 21);
252b5132 5259
9b52905e
NC		 5260 /* Handle a 9 bit immediate at 28. */
5261 case '$':
5262 num = pa_get_absolute_expression (&the_insn, &s);
5263 if (strict && the_insn.exp.X_op != O_constant)
5264 break;
5265 s = expr_end;
5266 CHECK_FIELD (num, 511, 1, strict);
5267 INSERT_FIELD_AND_CONTINUE (opcode, num, 3);
252b5132 5268
9b52905e
NC		 5269 /* Handle a 13 bit immediate at 18. */
5270 case 'A':
5271 num = pa_get_absolute_expression (&the_insn, &s);
5272 if (strict && the_insn.exp.X_op != O_constant)
5273 break;
5274 s = expr_end;
5275 CHECK_FIELD (num, 8191, 0, strict);
5276 INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
252b5132 5277
9b52905e
NC		 5278 /* Handle a 26 bit immediate at 31. */
5279 case 'D':
5280 num = pa_get_absolute_expression (&the_insn, &s);
5281 if (strict && the_insn.exp.X_op != O_constant)
5282 break;
5283 s = expr_end;
5284 CHECK_FIELD (num, 67108863, 0, strict);
5285 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 5286
9b52905e
NC		 5287 /* Handle a 3 bit SFU identifier at 25. */
5288 case 'v':
5289 if (*s++ != ',')
5290 as_bad (_("Invalid SFU identifier"));
5291 num = pa_get_absolute_expression (&the_insn, &s);
5292 if (strict && the_insn.exp.X_op != O_constant)
5293 break;
5294 s = expr_end;
5295 CHECK_FIELD (num, 7, 0, strict);
5296 INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
252b5132 5297
9b52905e
NC		 5298 /* Handle a 20 bit SOP field for spop0. */
5299 case 'O':
5300 num = pa_get_absolute_expression (&the_insn, &s);
5301 if (strict && the_insn.exp.X_op != O_constant)
5302 break;
5303 s = expr_end;
5304 CHECK_FIELD (num, 1048575, 0, strict);
5305 num = (num & 0x1f) | ((num & 0x000fffe0) << 6);
5306 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 5307
9b52905e
NC		 5308 /* Handle a 15bit SOP field for spop1. */
5309 case 'o':
5310 num = pa_get_absolute_expression (&the_insn, &s);
5311 if (strict && the_insn.exp.X_op != O_constant)
5312 break;
5313 s = expr_end;
5314 CHECK_FIELD (num, 32767, 0, strict);
5315 INSERT_FIELD_AND_CONTINUE (opcode, num, 11);
252b5132 5316
9b52905e
NC		 5317 /* Handle a 10bit SOP field for spop3. */
5318 case '0':
5319 num = pa_get_absolute_expression (&the_insn, &s);
5320 if (strict && the_insn.exp.X_op != O_constant)
5321 break;
5322 s = expr_end;
5323 CHECK_FIELD (num, 1023, 0, strict);
5324 num = (num & 0x1f) | ((num & 0x000003e0) << 6);
5325 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
5326
5327 /* Handle a 15 bit SOP field for spop2. */
5328 case '1':
5329 num = pa_get_absolute_expression (&the_insn, &s);
5330 if (strict && the_insn.exp.X_op != O_constant)
5331 break;
5332 s = expr_end;
5333 CHECK_FIELD (num, 32767, 0, strict);
5334 num = (num & 0x1f) | ((num & 0x00007fe0) << 6);
5335 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
5336
5337 /* Handle a 3-bit co-processor ID field. */
5338 case 'u':
5339 if (*s++ != ',')
5340 as_bad (_("Invalid COPR identifier"));
5341 num = pa_get_absolute_expression (&the_insn, &s);
5342 if (strict && the_insn.exp.X_op != O_constant)
5343 break;
5344 s = expr_end;
5345 CHECK_FIELD (num, 7, 0, strict);
5346 INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
252b5132 5347
9b52905e
NC		 5348 /* Handle a 22bit SOP field for copr. */
5349 case '2':
5350 num = pa_get_absolute_expression (&the_insn, &s);
5351 if (strict && the_insn.exp.X_op != O_constant)
5352 break;
5353 s = expr_end;
5354 CHECK_FIELD (num, 4194303, 0, strict);
5355 num = (num & 0x1f) | ((num & 0x003fffe0) << 4);
5356 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
252b5132 5357
9b52905e
NC		 5358 /* Handle a source FP operand format completer. */
5359 case '{':
5360 if (*s == ',' && *(s+1) == 't')
5361 {
5362 the_insn.trunc = 1;
5363 s += 2;
5364 }
5365 else
5366 the_insn.trunc = 0;
5367 flag = pa_parse_fp_cnv_format (&s);
5368 the_insn.fpof1 = flag;
5369 if (flag == W || flag == UW)
5370 flag = SGL;
5371 if (flag == DW || flag == UDW)
5372 flag = DBL;
5373 if (flag == QW || flag == UQW)
5374 flag = QUAD;
5375 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
252b5132 5376
9b52905e
NC		 5377 /* Handle a destination FP operand format completer. */
5378 case '_':
5379 /* pa_parse_format needs the ',' prefix. */
5380 s--;
5381 flag = pa_parse_fp_cnv_format (&s);
5382 the_insn.fpof2 = flag;
5383 if (flag == W || flag == UW)
5384 flag = SGL;
5385 if (flag == DW || flag == UDW)
5386 flag = DBL;
5387 if (flag == QW || flag == UQW)
5388 flag = QUAD;
5389 opcode |= flag << 13;
5390 if (the_insn.fpof1 == SGL
5391 || the_insn.fpof1 == DBL
5392 || the_insn.fpof1 == QUAD)
5393 {
5394 if (the_insn.fpof2 == SGL
5395 || the_insn.fpof2 == DBL
5396 || the_insn.fpof2 == QUAD)
5397 flag = 0;
5398 else if (the_insn.fpof2 == W
5399 || the_insn.fpof2 == DW
5400 || the_insn.fpof2 == QW)
5401 flag = 2;
5402 else if (the_insn.fpof2 == UW
5403 || the_insn.fpof2 == UDW
5404 || the_insn.fpof2 == UQW)
5405 flag = 6;
5406 else
5407 abort ();
5408 }
5409 else if (the_insn.fpof1 == W
5410 || the_insn.fpof1 == DW
5411 || the_insn.fpof1 == QW)
5412 {
5413 if (the_insn.fpof2 == SGL
5414 || the_insn.fpof2 == DBL
5415 || the_insn.fpof2 == QUAD)
5416 flag = 1;
5417 else
5418 abort ();
5419 }
5420 else if (the_insn.fpof1 == UW
5421 || the_insn.fpof1 == UDW
5422 || the_insn.fpof1 == UQW)
5423 {
5424 if (the_insn.fpof2 == SGL
5425 || the_insn.fpof2 == DBL
5426 || the_insn.fpof2 == QUAD)
5427 flag = 5;
5428 else
5429 abort ();
5430 }
5431 flag |= the_insn.trunc;
5432 INSERT_FIELD_AND_CONTINUE (opcode, flag, 15);
252b5132 5433
9b52905e
NC		 5434 /* Handle a source FP operand format completer. */
5435 case 'F':
5436 flag = pa_parse_fp_format (&s);
5437 the_insn.fpof1 = flag;
5438 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
d53d2751 5439
9b52905e
NC		 5440 /* Handle a destination FP operand format completer. */
5441 case 'G':
5442 /* pa_parse_format needs the ',' prefix. */
5443 s--;
5444 flag = pa_parse_fp_format (&s);
5445 the_insn.fpof2 = flag;
5446 INSERT_FIELD_AND_CONTINUE (opcode, flag, 13);
d53d2751 5447
9b52905e
NC		 5448 /* Handle a source FP operand format completer at 20. */
5449 case 'I':
5450 flag = pa_parse_fp_format (&s);
5451 the_insn.fpof1 = flag;
5452 INSERT_FIELD_AND_CONTINUE (opcode, flag, 11);
d53d2751 5453
9b52905e
NC		 5454 /* Handle a floating point operand format at 26.
5455 Only allows single and double precision. */
5456 case 'H':
5457 flag = pa_parse_fp_format (&s);
5458 switch (flag)
5459 {
5460 case SGL:
5461 opcode |= 0x20;
5462 case DBL:
5463 the_insn.fpof1 = flag;
5464 continue;
d53d2751 5465
9b52905e
NC		 5466 case QUAD:
5467 case ILLEGAL_FMT:
5468 default:
5469 as_bad (_("Invalid Floating Point Operand Format."));
5470 }
5471 break;
5472
5473 /* Handle all floating point registers. */
5474 case 'f':
5475 switch (*++args)
4e3b43ed 5476 {
9b52905e
NC		 5477 /* Float target register. */
5478 case 't':
5479 if (!pa_parse_number (&s, 3))
5480 break;
5481 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5482 CHECK_FIELD (num, 31, 0, 0);
5483 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
d53d2751 5484
9b52905e
NC		 5485 /* Float target register with L/R selection. */
5486 case 'T':
5487 {
5488 if (!pa_parse_number (&s, 1))
5489 break;
5490 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5491 CHECK_FIELD (num, 31, 0, 0);
5492 opcode |= num;
d53d2751 5493
9b52905e
NC		 5494 /* 0x30 opcodes are FP arithmetic operation opcodes
5495 and need to be turned into 0x38 opcodes. This
5496 is not necessary for loads/stores. */
5497 if (need_pa11_opcode ()
5498 && ((opcode & 0xfc000000) == 0x30000000))
5499 opcode |= 1 << 27;
d53d2751 5500
9b52905e
NC		 5501 opcode |= (pa_number & FP_REG_RSEL ? 1 << 6 : 0);
5502 continue;
5503 }
d53d2751 5504
9b52905e
NC		 5505 /* Float operand 1. */
5506 case 'a':
5507 {
5508 if (!pa_parse_number (&s, 1))
5509 break;
5510 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5511 CHECK_FIELD (num, 31, 0, 0);
5512 opcode |= num << 21;
5513 if (need_pa11_opcode ())
5514 {
5515 opcode |= (pa_number & FP_REG_RSEL ? 1 << 7 : 0);
5516 opcode |= 1 << 27;
5517 }
5518 continue;
5519 }
d53d2751 5520
9b52905e
NC		 5521 /* Float operand 1 with L/R selection. */
5522 case 'X':
5523 case 'A':
5524 {
5525 if (!pa_parse_number (&s, 1))
5526 break;
5527 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5528 CHECK_FIELD (num, 31, 0, 0);
5529 opcode |= num << 21;
5530 opcode |= (pa_number & FP_REG_RSEL ? 1 << 7 : 0);
5531 continue;
5532 }
d53d2751 5533
9b52905e
NC		 5534 /* Float operand 2. */
5535 case 'b':
5536 {
5537 if (!pa_parse_number (&s, 1))
5538 break;
5539 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5540 CHECK_FIELD (num, 31, 0, 0);
5541 opcode |= num << 16;
5542 if (need_pa11_opcode ())
5543 {
5544 opcode |= (pa_number & FP_REG_RSEL ? 1 << 12 : 0);
5545 opcode |= 1 << 27;
5546 }
5547 continue;
5548 }
d53d2751 5549
9b52905e
NC		 5550 /* Float operand 2 with L/R selection. */
5551 case 'B':
5552 {
5553 if (!pa_parse_number (&s, 1))
5554 break;
5555 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5556 CHECK_FIELD (num, 31, 0, 0);
5557 opcode |= num << 16;
5558 opcode |= (pa_number & FP_REG_RSEL ? 1 << 12 : 0);
5559 continue;
5560 }
252b5132 5561
9b52905e
NC		 5562 /* Float operand 3 for fmpyfadd, fmpynfadd. */
5563 case 'C':
5564 {
5565 if (!pa_parse_number (&s, 1))
5566 break;
5567 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5568 CHECK_FIELD (num, 31, 0, 0);
5569 opcode |= (num & 0x1c) << 11;
5570 opcode |= (num & 0x03) << 9;
5571 opcode |= (pa_number & FP_REG_RSEL ? 1 << 8 : 0);
5572 continue;
5573 }
252b5132 5574
9b52905e
NC		 5575 /* Float mult operand 1 for fmpyadd, fmpysub */
5576 case 'i':
5577 {
5578 if (!pa_parse_number (&s, 1))
5579 break;
5580 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5581 CHECK_FIELD (num, 31, 0, 0);
5582 if (the_insn.fpof1 == SGL)
5583 {
5584 if (num < 16)
5585 {
5586 as_bad (_("Invalid register for single precision fmpyadd or fmpysub"));
5587 break;
5588 }
5589 num &= 0xF;
5590 num |= (pa_number & FP_REG_RSEL ? 1 << 4 : 0);
5591 }
5592 INSERT_FIELD_AND_CONTINUE (opcode, num, 21);
5593 }
5594
5595 /* Float mult operand 2 for fmpyadd, fmpysub */
5596 case 'j':
5597 {
5598 if (!pa_parse_number (&s, 1))
5599 break;
5600 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5601 CHECK_FIELD (num, 31, 0, 0);
5602 if (the_insn.fpof1 == SGL)
5603 {
4e3b43ed
AM		 5604 if (num < 16)
5605 {
9b52905e
NC		 5606 as_bad (_("Invalid register for single precision fmpyadd or fmpysub"));
5607 break;
4e3b43ed
AM		 5608 }
5609 num &= 0xF;
5610 num |= (pa_number & FP_REG_RSEL ? 1 << 4 : 0);
9b52905e
NC		 5611 }
5612 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
5613 }
5614
5615 /* Float mult target for fmpyadd, fmpysub */
5616 case 'k':
5617 {
5618 if (!pa_parse_number (&s, 1))
5619 break;
5620 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5621 CHECK_FIELD (num, 31, 0, 0);
5622 if (the_insn.fpof1 == SGL)
5623 {
4e3b43ed
AM		 5624 if (num < 16)
5625 {
9b52905e
NC		 5626 as_bad (_("Invalid register for single precision fmpyadd or fmpysub"));
5627 break;
4e3b43ed
AM		 5628 }
5629 num &= 0xF;
5630 num |= (pa_number & FP_REG_RSEL ? 1 << 4 : 0);
9b52905e
NC		 5631 }
5632 INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
5633 }
252b5132 5634
9b52905e
NC		 5635 /* Float add operand 1 for fmpyadd, fmpysub */
5636 case 'l':
5637 {
5638 if (!pa_parse_number (&s, 1))
5639 break;
5640 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5641 CHECK_FIELD (num, 31, 0, 0);
5642 if (the_insn.fpof1 == SGL)
5643 {
4e3b43ed
AM		 5644 if (num < 16)
5645 {
9b52905e
NC		 5646 as_bad (_("Invalid register for single precision fmpyadd or fmpysub"));
5647 break;
4e3b43ed
AM		 5648 }
5649 num &= 0xF;
5650 num |= (pa_number & FP_REG_RSEL ? 1 << 4 : 0);
9b52905e
NC		 5651 }
5652 INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
5653 }
252b5132 5654
9b52905e
NC		 5655 /* Float add target for fmpyadd, fmpysub */
5656 case 'm':
5657 {
5658 if (!pa_parse_number (&s, 1))
5659 break;
5660 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5661 CHECK_FIELD (num, 31, 0, 0);
5662 if (the_insn.fpof1 == SGL)
5663 {
4e3b43ed
AM		 5664 if (num < 16)
5665 {
9b52905e
NC		 5666 as_bad (_("Invalid register for single precision fmpyadd or fmpysub"));
5667 break;
4e3b43ed
AM		 5668 }
5669 num &= 0xF;
5670 num |= (pa_number & FP_REG_RSEL ? 1 << 4 : 0);
9b52905e
NC		 5671 }
5672 INSERT_FIELD_AND_CONTINUE (opcode, num, 11);
5673 }
252b5132 5674
9b52905e
NC		 5675 /* Handle L/R register halves like 'x'. */
5676 case 'E':
5677 case 'e':
5678 {
5679 if (!pa_parse_number (&s, 1))
5680 break;
5681 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5682 CHECK_FIELD (num, 31, 0, 0);
5683 opcode |= num << 16;
5684 if (need_pa11_opcode ())
5685 {
5686 opcode |= (pa_number & FP_REG_RSEL ? 1 << 1 : 0);
5687 }
5688 continue;
5689 }
252b5132 5690
9b52905e
NC		 5691 /* Float target register (PA 2.0 wide). */
5692 case 'x':
5693 if (!pa_parse_number (&s, 3))
5694 break;
5695 num = (pa_number & ~FP_REG_RSEL) - FP_REG_BASE;
5696 CHECK_FIELD (num, 31, 0, 0);
5697 INSERT_FIELD_AND_CONTINUE (opcode, num, 16);
252b5132 5698
9b52905e
NC		 5699 default:
5700 abort ();
5701 }
5702 break;
5703
5704 default:
5705 abort ();
5706 }
5707 break;
252b5132 5708 }
9b52905e
NC		 5709
5710 /* If this instruction is specific to a particular architecture,
5711 then set a new architecture. This automatic promotion crud is
5712 for compatibility with HP's old assemblers only. */
5713 if (match == TRUE
5714 && bfd_get_mach (stdoutput) < insn->arch
5715 && !bfd_set_arch_mach (stdoutput, bfd_arch_hppa, insn->arch))
252b5132 5716 {
9b52905e
NC		 5717 as_warn (_("could not update architecture and machine"));
5718 match = FALSE;
252b5132 5719 }
9b52905e
NC		 5720
5721 failed:
5722 /* Check if the args matched. */
5723 if (!match)
252b5132 5724 {
9b52905e
NC		 5725 if (&insn[1] - pa_opcodes < (int) NUMOPCODES
5726 && !strcmp (insn->name, insn[1].name))
5727 {
5728 ++insn;
5729 s = argstart;
5730 continue;
5731 }
5732 else
5733 {
5734 as_bad (_("Invalid operands %s"), error_message);
5735 return;
5736 }
252b5132 5737 }
9b52905e 5738 break;
252b5132
RH		 5739 }
5740
91c2f09e
DA		 5741 if (immediate_check)
5742 {
5743 if (pos != -1 && len != -1 && pos < len - 1)
5744 as_warn (_("Immediates %d and %d will give undefined behavior."),
5745 pos, len);
5746 }
5747
9b52905e 5748 the_insn.opcode = opcode;
252b5132
RH		 5749}
5750
9b52905e
NC		 5751/* Assemble a single instruction storing it into a frag. */
5752
5753void
5754md_assemble (char *str)
5755{
5756 char *to;
5757
5758 /* The had better be something to assemble. */
9c2799c2 5759 gas_assert (str);
9b52905e
NC		 5760
5761 /* If we are within a procedure definition, make sure we've
5762 defined a label for the procedure; handle case where the
5763 label was defined after the .PROC directive.
5764
5765 Note there's not need to diddle with the segment or fragment
5766 for the label symbol in this case. We have already switched
5767 into the new $CODE$ subspace at this point. */
5768 if (within_procedure && last_call_info->start_symbol == NULL)
5769 {
5770 label_symbol_struct *label_symbol = pa_get_label ();
5771
5772 if (label_symbol)
d53d2751 5773 {
9b52905e
NC		 5774 if (label_symbol->lss_label)
5775 {
5776 last_call_info->start_symbol = label_symbol->lss_label;
5777 symbol_get_bfdsym (label_symbol->lss_label)->flags
5778 |= BSF_FUNCTION;
5779#ifdef OBJ_SOM
5780 /* Also handle allocation of a fixup to hold the unwind
5781 information when the label appears after the proc/procend. */
5782 if (within_entry_exit)
5783 {
5784 char *where;
5785 unsigned int u;
5786
5787 where = frag_more (0);
5788 u = UNWIND_LOW32 (&last_call_info->ci_unwind.descriptor);
5789 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
5790 NULL, (offsetT) 0, NULL,
5791 0, R_HPPA_ENTRY, e_fsel, 0, 0, u);
5792 }
5793#endif
5794 }
5795 else
5796 as_bad (_("Missing function name for .PROC (corrupted label chain)"));
d53d2751
JL		 5797 }
5798 else
9b52905e 5799 as_bad (_("Missing function name for .PROC"));
d53d2751
JL		 5800 }
5801
9b52905e
NC		 5802 /* Assemble the instruction. Results are saved into "the_insn". */
5803 pa_ip (str);
d53d2751 5804
9b52905e
NC		 5805 /* Get somewhere to put the assembled instruction. */
5806 to = frag_more (4);
5807
5808 /* Output the opcode. */
5809 md_number_to_chars (to, the_insn.opcode, 4);
5810
5811 /* If necessary output more stuff. */
5812 if (the_insn.reloc != R_HPPA_NONE)
5813 fix_new_hppa (frag_now, (to - frag_now->fr_literal), 4, NULL,
5814 (offsetT) 0, &the_insn.exp, the_insn.pcrel,
5815 the_insn.reloc, the_insn.field_selector,
5816 the_insn.format, the_insn.arg_reloc, 0);
5817
5818#ifdef OBJ_ELF
5819 dwarf2_emit_insn (4);
5820#endif
d53d2751
JL		 5821}
5822
49863f82 5823#ifdef OBJ_SOM
252b5132
RH		 5824/* Handle an alignment directive. Special so that we can update the
5825 alignment of the subspace if necessary. */
5826static void
9b52905e 5827pa_align (int bytes)
252b5132
RH		 5828{
5829 /* We must have a valid space and subspace. */
5830 pa_check_current_space_and_subspace ();
5831
5832 /* Let the generic gas code do most of the work. */
5833 s_align_bytes (bytes);
5834
5835 /* If bytes is a power of 2, then update the current subspace's
5836 alignment if necessary. */
b8fc22bc
DA		 5837 if (exact_log2 (bytes) != -1)
5838 record_alignment (current_subspace->ssd_seg, exact_log2 (bytes));
252b5132 5839}
49863f82 5840#endif
252b5132
RH		 5841
5842/* Handle a .BLOCK type pseudo-op. */
5843
5844static void
9b52905e 5845pa_block (int z ATTRIBUTE_UNUSED)
252b5132 5846{
252b5132 5847 unsigned int temp_size;
252b5132 5848
49863f82 5849#ifdef OBJ_SOM
252b5132
RH		 5850 /* We must have a valid space and subspace. */
5851 pa_check_current_space_and_subspace ();
49863f82 5852#endif
252b5132
RH		 5853
5854 temp_size = get_absolute_expression ();
5855
ee192366
MM		 5856 if (temp_size > 0x3FFFFFFF)
5857 {
5858 as_bad (_("Argument to .BLOCK/.BLOCKZ must be between 0 and 0x3fffffff"));
5859 temp_size = 0;
5860 }
6bdb6dec 5861 else
252b5132 5862 {
6bdb6dec
AM		 5863 /* Always fill with zeros, that's what the HP assembler does. */
5864 char *p = frag_var (rs_fill, 1, 1, 0, NULL, temp_size, NULL);
5865 *p = 0;
252b5132
RH		 5866 }
5867
5868 pa_undefine_label ();
5869 demand_empty_rest_of_line ();
5870}
5871
5872/* Handle a .begin_brtab and .end_brtab pseudo-op. */
5873
5874static void
9b52905e 5875pa_brtab (int begin ATTRIBUTE_UNUSED)
252b5132
RH		 5876{
5877
5878#ifdef OBJ_SOM
0234cb7c 5879 /* The BRTAB relocations are only available in SOM (to denote
252b5132
RH		 5880 the beginning and end of branch tables). */
5881 char *where = frag_more (0);
5882
5883 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
5884 NULL, (offsetT) 0, NULL,
5885 0, begin ? R_HPPA_BEGIN_BRTAB : R_HPPA_END_BRTAB,
da6c73e0 5886 e_fsel, 0, 0, 0);
252b5132
RH		 5887#endif
5888
5889 demand_empty_rest_of_line ();
5890}
5891
5892/* Handle a .begin_try and .end_try pseudo-op. */
5893
5894static void
9b52905e 5895pa_try (int begin ATTRIBUTE_UNUSED)
252b5132
RH		 5896{
5897#ifdef OBJ_SOM
5898 expressionS exp;
5899 char *where = frag_more (0);
5900
5901 if (! begin)
5902 expression (&exp);
5903
0234cb7c 5904 /* The TRY relocations are only available in SOM (to denote
252b5132
RH		 5905 the beginning and end of exception handling regions). */
5906
5907 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
5908 NULL, (offsetT) 0, begin ? NULL : &exp,
5909 0, begin ? R_HPPA_BEGIN_TRY : R_HPPA_END_TRY,
da6c73e0 5910 e_fsel, 0, 0, 0);
252b5132
RH		 5911#endif
5912
5913 demand_empty_rest_of_line ();
5914}
5915
252b5132
RH		 5916/* Do the dirty work of building a call descriptor which describes
5917 where the caller placed arguments to a function call. */
5918
5919static void
9b52905e 5920pa_call_args (struct call_desc *call_desc)
252b5132
RH		 5921{
5922 char *name, c, *p;
5923 unsigned int temp, arg_reloc;
5924
5925 while (!is_end_of_statement ())
5926 {
5927 name = input_line_pointer;
5928 c = get_symbol_end ();
5929 /* Process a source argument. */
5930 if ((strncasecmp (name, "argw", 4) == 0))
5931 {
5932 temp = atoi (name + 4);
5933 p = input_line_pointer;
5934 *p = c;
5935 input_line_pointer++;
5936 name = input_line_pointer;
5937 c = get_symbol_end ();
5938 arg_reloc = pa_build_arg_reloc (name);
5939 call_desc->arg_reloc |= pa_align_arg_reloc (temp, arg_reloc);
5940 }
5941 /* Process a return value. */
5942 else if ((strncasecmp (name, "rtnval", 6) == 0))
5943 {
5944 p = input_line_pointer;
5945 *p = c;
5946 input_line_pointer++;
5947 name = input_line_pointer;
5948 c = get_symbol_end ();
5949 arg_reloc = pa_build_arg_reloc (name);
5950 call_desc->arg_reloc |= (arg_reloc & 0x3);
5951 }
5952 else
5953 {
5954 as_bad (_("Invalid .CALL argument: %s"), name);
5955 }
5956 p = input_line_pointer;
5957 *p = c;
5958 if (!is_end_of_statement ())
5959 input_line_pointer++;
5960 }
5961}
5962
9b52905e
NC		 5963/* Handle a .CALL pseudo-op. This involves storing away information
5964 about where arguments are to be found so the linker can detect
5965 (and correct) argument location mismatches between caller and callee. */
5966
5967static void
5968pa_call (int unused ATTRIBUTE_UNUSED)
5969{
5970#ifdef OBJ_SOM
5971 /* We must have a valid space and subspace. */
5972 pa_check_current_space_and_subspace ();
5973#endif
5974
5975 pa_call_args (&last_call_desc);
5976 demand_empty_rest_of_line ();
5977}
5978
252b5132
RH		 5979#ifdef OBJ_ELF
5980/* Build an entry in the UNWIND subspace from the given function
5981 attributes in CALL_INFO. This is not needed for SOM as using
5982 R_ENTRY and R_EXIT relocations allow the linker to handle building
5983 of the unwind spaces. */
5984
5985static void
9b52905e 5986pa_build_unwind_subspace (struct call_info *call_info)
252b5132 5987{
252b5132 5988 asection *seg, *save_seg;
3f9b03b5 5989 subsegT save_subseg;
da6c73e0 5990 unsigned int unwind;
3f9b03b5 5991 int reloc;
b6cdf8ae
DA		 5992 char *name, *p;
5993 symbolS *symbolP;
252b5132 5994
1d3d5051
AM		 5995 if ((bfd_get_section_flags (stdoutput, now_seg)
5996 & (SEC_ALLOC | SEC_LOAD | SEC_READONLY))
5997 != (SEC_ALLOC | SEC_LOAD | SEC_READONLY))
7acbfc6b
JL		 5998 return;
5999
bb7835b8
NC		 6000 if (call_info->start_symbol == NULL)
6001 /* This can happen if there were errors earlier on in the assembly. */
6002 return;
6003
b6cdf8ae
DA		 6004 /* Replace the start symbol with a local symbol that will be reduced
6005 to a section offset. This avoids problems with weak functions with
6006 multiple definitions, etc. */
6007 name = xmalloc (strlen ("L$\001start_")
6008 + strlen (S_GET_NAME (call_info->start_symbol))
6009 + 1);
6010 strcpy (name, "L$\001start_");
6011 strcat (name, S_GET_NAME (call_info->start_symbol));
6012
6013 /* If we have a .procend preceded by a .exit, then the symbol will have
6014 already been defined. In that case, we don't want another unwind
6015 entry. */
6016 symbolP = symbol_find (name);
6017 if (symbolP)
6018 {
6019 xfree (name);
6020 return;
6021 }
6022 else
6023 {
6024 symbolP = symbol_new (name, now_seg,
6025 S_GET_VALUE (call_info->start_symbol), frag_now);
6026 gas_assert (symbolP);
6027 S_CLEAR_EXTERNAL (symbolP);
6028 symbol_table_insert (symbolP);
6029 }
6030
c46b7515 6031 reloc = R_PARISC_SEGREL32;
c97305a1
JL		 6032 save_seg = now_seg;
6033 save_subseg = now_subseg;
252b5132
RH		 6034 /* Get into the right seg/subseg. This may involve creating
6035 the seg the first time through. Make sure to have the
6036 old seg/subseg so that we can reset things when we are done. */
252b5132
RH		 6037 seg = bfd_get_section_by_name (stdoutput, UNWIND_SECTION_NAME);
6038 if (seg == ASEC_NULL)
6039 {
c97305a1 6040 seg = subseg_new (UNWIND_SECTION_NAME, 0);
252b5132
RH		 6041 bfd_set_section_flags (stdoutput, seg,
6042 SEC_READONLY | SEC_HAS_CONTENTS
b100be66
JL		 6043 | SEC_LOAD | SEC_RELOC | SEC_ALLOC | SEC_DATA);
6044 bfd_set_section_alignment (stdoutput, seg, 2);
252b5132
RH		 6045 }
6046
46031ca9 6047 subseg_set (seg, 0);
252b5132 6048
252b5132
RH		 6049 /* Get some space to hold relocation information for the unwind
6050 descriptor. */
da6c73e0 6051 p = frag_more (16);
252b5132
RH		 6052
6053 /* Relocation info. for start offset of the function. */
8ea46bbd 6054 md_number_to_chars (p, 0, 4);
252b5132 6055 fix_new_hppa (frag_now, p - frag_now->fr_literal, 4,
b6cdf8ae 6056 symbolP, (offsetT) 0,
46031ca9 6057 (expressionS *) NULL, 0, reloc,
da6c73e0 6058 e_fsel, 32, 0, 0);
252b5132
RH		 6059
6060 /* Relocation info. for end offset of the function.
6061
6062 Because we allow reductions of 32bit relocations for ELF, this will be
6063 reduced to section_sym + offset which avoids putting the temporary
6064 symbol into the symbol table. It (should) end up giving the same
6065 value as call_info->start_symbol + function size once the linker is
6066 finished with its work. */
8ea46bbd 6067 md_number_to_chars (p + 4, 0, 4);
da6c73e0 6068 fix_new_hppa (frag_now, p + 4 - frag_now->fr_literal, 4,
252b5132 6069 call_info->end_symbol, (offsetT) 0,
46031ca9 6070 (expressionS *) NULL, 0, reloc,
da6c73e0 6071 e_fsel, 32, 0, 0);
252b5132 6072
da6c73e0
AM		 6073 /* Dump the descriptor. */
6074 unwind = UNWIND_LOW32 (&call_info->ci_unwind.descriptor);
6075 md_number_to_chars (p + 8, unwind, 4);
6076
6077 unwind = UNWIND_HIGH32 (&call_info->ci_unwind.descriptor);
6078 md_number_to_chars (p + 12, unwind, 4);
252b5132
RH		 6079
6080 /* Return back to the original segment/subsegment. */
6081 subseg_set (save_seg, save_subseg);
6082}
6083#endif
6084
6085/* Process a .CALLINFO pseudo-op. This information is used later
6086 to build unwind descriptors and maybe one day to support
6087 .ENTER and .LEAVE. */
6088
6089static void
9b52905e 6090pa_callinfo (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6091{
6092 char *name, c, *p;
6093 int temp;
6094
49863f82 6095#ifdef OBJ_SOM
252b5132
RH		 6096 /* We must have a valid space and subspace. */
6097 pa_check_current_space_and_subspace ();
49863f82 6098#endif
252b5132
RH		 6099
6100 /* .CALLINFO must appear within a procedure definition. */
6101 if (!within_procedure)
6102 as_bad (_(".callinfo is not within a procedure definition"));
6103
6104 /* Mark the fact that we found the .CALLINFO for the
6105 current procedure. */
6106 callinfo_found = TRUE;
6107
6108 /* Iterate over the .CALLINFO arguments. */
6109 while (!is_end_of_statement ())
6110 {
6111 name = input_line_pointer;
6112 c = get_symbol_end ();
6113 /* Frame size specification. */
6114 if ((strncasecmp (name, "frame", 5) == 0))
6115 {
6116 p = input_line_pointer;
6117 *p = c;
6118 input_line_pointer++;
6119 temp = get_absolute_expression ();
6120 if ((temp & 0x3) != 0)
6121 {
6122 as_bad (_("FRAME parameter must be a multiple of 8: %d\n"), temp);
6123 temp = 0;
6124 }
6125
6126 /* callinfo is in bytes and unwind_desc is in 8 byte units. */
6127 last_call_info->ci_unwind.descriptor.frame_size = temp / 8;
6128
6129 }
6130 /* Entry register (GR, GR and SR) specifications. */
6131 else if ((strncasecmp (name, "entry_gr", 8) == 0))
6132 {
6133 p = input_line_pointer;
6134 *p = c;
6135 input_line_pointer++;
6136 temp = get_absolute_expression ();
6137 /* The HP assembler accepts 19 as the high bound for ENTRY_GR
6138 even though %r19 is caller saved. I think this is a bug in
6139 the HP assembler, and we are not going to emulate it. */
6140 if (temp < 3 || temp > 18)
6141 as_bad (_("Value for ENTRY_GR must be in the range 3..18\n"));
6142 last_call_info->ci_unwind.descriptor.entry_gr = temp - 2;
6143 }
6144 else if ((strncasecmp (name, "entry_fr", 8) == 0))
6145 {
6146 p = input_line_pointer;
6147 *p = c;
6148 input_line_pointer++;
6149 temp = get_absolute_expression ();
6150 /* Similarly the HP assembler takes 31 as the high bound even
6151 though %fr21 is the last callee saved floating point register. */
6152 if (temp < 12 || temp > 21)
6153 as_bad (_("Value for ENTRY_FR must be in the range 12..21\n"));
6154 last_call_info->ci_unwind.descriptor.entry_fr = temp - 11;
6155 }
6156 else if ((strncasecmp (name, "entry_sr", 8) == 0))
6157 {
6158 p = input_line_pointer;
6159 *p = c;
6160 input_line_pointer++;
6161 temp = get_absolute_expression ();
6162 if (temp != 3)
6163 as_bad (_("Value for ENTRY_SR must be 3\n"));
6164 }
6165 /* Note whether or not this function performs any calls. */
6166 else if ((strncasecmp (name, "calls", 5) == 0) ||
6167 (strncasecmp (name, "caller", 6) == 0))
6168 {
6169 p = input_line_pointer;
6170 *p = c;
6171 }
6172 else if ((strncasecmp (name, "no_calls", 8) == 0))
6173 {
6174 p = input_line_pointer;
6175 *p = c;
6176 }
6177 /* Should RP be saved into the stack. */
6178 else if ((strncasecmp (name, "save_rp", 7) == 0))
6179 {
6180 p = input_line_pointer;
6181 *p = c;
6182 last_call_info->ci_unwind.descriptor.save_rp = 1;
6183 }
6184 /* Likewise for SP. */
6185 else if ((strncasecmp (name, "save_sp", 7) == 0))
6186 {
6187 p = input_line_pointer;
6188 *p = c;
6189 last_call_info->ci_unwind.descriptor.save_sp = 1;
6190 }
6191 /* Is this an unwindable procedure. If so mark it so
4e3b43ed 6192 in the unwind descriptor. */
252b5132
RH		 6193 else if ((strncasecmp (name, "no_unwind", 9) == 0))
6194 {
6195 p = input_line_pointer;
6196 *p = c;
6197 last_call_info->ci_unwind.descriptor.cannot_unwind = 1;
6198 }
6199 /* Is this an interrupt routine. If so mark it in the
4e3b43ed 6200 unwind descriptor. */
252b5132
RH		 6201 else if ((strncasecmp (name, "hpux_int", 7) == 0))
6202 {
6203 p = input_line_pointer;
6204 *p = c;
6205 last_call_info->ci_unwind.descriptor.hpux_interrupt_marker = 1;
6206 }
6207 /* Is this a millicode routine. "millicode" isn't in my
6208 assembler manual, but my copy is old. The HP assembler
6209 accepts it, and there's a place in the unwind descriptor
6210 to drop the information, so we'll accept it too. */
6211 else if ((strncasecmp (name, "millicode", 9) == 0))
6212 {
6213 p = input_line_pointer;
6214 *p = c;
6215 last_call_info->ci_unwind.descriptor.millicode = 1;
6216 }
6217 else
6218 {
6219 as_bad (_("Invalid .CALLINFO argument: %s"), name);
6220 *input_line_pointer = c;
6221 }
6222 if (!is_end_of_statement ())
6223 input_line_pointer++;
6224 }
6225
6226 demand_empty_rest_of_line ();
6227}
6228
85cf2a8a 6229#if !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD)))
ad1079af
AM		 6230/* Switch to the text space. Like s_text, but delete our
6231 label when finished. */
9b52905e 6232
252b5132 6233static void
9b52905e 6234pa_text (int unused ATTRIBUTE_UNUSED)
252b5132 6235{
49863f82 6236#ifdef OBJ_SOM
252b5132
RH		 6237 current_space = is_defined_space ("$TEXT$");
6238 current_subspace
6239 = pa_subsegment_to_subspace (current_space->sd_seg, 0);
49863f82 6240#endif
ad1079af 6241
252b5132
RH		 6242 s_text (0);
6243 pa_undefine_label ();
6244}
6245
ad1079af 6246/* Switch to the data space. As usual delete our label. */
9b52905e 6247
ad1079af 6248static void
9b52905e 6249pa_data (int unused ATTRIBUTE_UNUSED)
ad1079af
AM		 6250{
6251#ifdef OBJ_SOM
6252 current_space = is_defined_space ("$PRIVATE$");
6253 current_subspace
6254 = pa_subsegment_to_subspace (current_space->sd_seg, 0);
6255#endif
6256 s_data (0);
6257 pa_undefine_label ();
6258}
6259
252b5132 6260/* This is different than the standard GAS s_comm(). On HP9000/800 machines,
717c53ea 6261 the .comm pseudo-op has the following syntax:
252b5132
RH		 6262
6263 <label> .comm <length>
6264
6265 where <label> is optional and is a symbol whose address will be the start of
6266 a block of memory <length> bytes long. <length> must be an absolute
6267 expression. <length> bytes will be allocated in the current space
6268 and subspace.
6269
6270 Also note the label may not even be on the same line as the .comm.
6271
6272 This difference in syntax means the colon function will be called
6273 on the symbol before we arrive in pa_comm. colon will set a number
6274 of attributes of the symbol that need to be fixed here. In particular
6275 the value, section pointer, fragment pointer, flags, etc. What
6276 a pain.
6277
6278 This also makes error detection all but impossible. */
6279
6280static void
9b52905e 6281pa_comm (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6282{
6283 unsigned int size;
6284 symbolS *symbol;
6285 label_symbol_struct *label_symbol = pa_get_label ();
6286
6287 if (label_symbol)
6288 symbol = label_symbol->lss_label;
6289 else
6290 symbol = NULL;
6291
6292 SKIP_WHITESPACE ();
6293 size = get_absolute_expression ();
6294
6295 if (symbol)
6296 {
9992270f 6297 symbol_get_bfdsym (symbol)->flags |= BSF_OBJECT;
252b5132 6298 S_SET_VALUE (symbol, size);
7815f848 6299 S_SET_SEGMENT (symbol, bfd_com_section_ptr);
252b5132
RH		 6300 S_SET_EXTERNAL (symbol);
6301
6302 /* colon() has already set the frag to the current location in the
4e3b43ed
AM		 6303 current subspace; we need to reset the fragment to the zero address
6304 fragment. We also need to reset the segment pointer. */
a0f75b47 6305 symbol_set_frag (symbol, &zero_address_frag);
252b5132
RH		 6306 }
6307 demand_empty_rest_of_line ();
6308}
85cf2a8a 6309#endif /* !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD))) */
252b5132
RH		 6310
6311/* Process a .END pseudo-op. */
6312
6313static void
9b52905e 6314pa_end (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6315{
6316 demand_empty_rest_of_line ();
6317}
6318
6319/* Process a .ENTER pseudo-op. This is not supported. */
9b52905e 6320
252b5132 6321static void
9b52905e 6322pa_enter (int unused ATTRIBUTE_UNUSED)
252b5132 6323{
49863f82 6324#ifdef OBJ_SOM
252b5132
RH		 6325 /* We must have a valid space and subspace. */
6326 pa_check_current_space_and_subspace ();
49863f82 6327#endif
252b5132
RH		 6328
6329 as_bad (_("The .ENTER pseudo-op is not supported"));
6330 demand_empty_rest_of_line ();
6331}
6332
6333/* Process a .ENTRY pseudo-op. .ENTRY marks the beginning of the
0234cb7c 6334 procedure. */
9b52905e 6335
252b5132 6336static void
9b52905e 6337pa_entry (int unused ATTRIBUTE_UNUSED)
252b5132 6338{
49863f82 6339#ifdef OBJ_SOM
252b5132
RH		 6340 /* We must have a valid space and subspace. */
6341 pa_check_current_space_and_subspace ();
49863f82 6342#endif
252b5132
RH		 6343
6344 if (!within_procedure)
6345 as_bad (_("Misplaced .entry. Ignored."));
6346 else
6347 {
6348 if (!callinfo_found)
6349 as_bad (_("Missing .callinfo."));
6350 }
6351 demand_empty_rest_of_line ();
6352 within_entry_exit = TRUE;
6353
6354#ifdef OBJ_SOM
6355 /* SOM defers building of unwind descriptors until the link phase.
6356 The assembler is responsible for creating an R_ENTRY relocation
6357 to mark the beginning of a region and hold the unwind bits, and
6358 for creating an R_EXIT relocation to mark the end of the region.
6359
6360 FIXME. ELF should be using the same conventions! The problem
6361 is an unwind requires too much relocation space. Hmmm. Maybe
6362 if we split the unwind bits up between the relocations which
6363 denote the entry and exit points. */
6364 if (last_call_info->start_symbol != NULL)
6365 {
da6c73e0
AM		 6366 char *where;
6367 unsigned int u;
252b5132 6368
da6c73e0
AM		 6369 where = frag_more (0);
6370 u = UNWIND_LOW32 (&last_call_info->ci_unwind.descriptor);
252b5132
RH		 6371 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
6372 NULL, (offsetT) 0, NULL,
da6c73e0 6373 0, R_HPPA_ENTRY, e_fsel, 0, 0, u);
252b5132
RH		 6374 }
6375#endif
6376}
6377
ecacdc7a
AM		 6378/* Silly nonsense for pa_equ. The only half-sensible use for this is
6379 being able to subtract two register symbols that specify a range of
6380 registers, to get the size of the range. */
6381static int fudge_reg_expressions;
6382
6383int
9b52905e
NC		 6384hppa_force_reg_syms_absolute (expressionS *resultP,
6385 operatorT op ATTRIBUTE_UNUSED,
6386 expressionS *rightP)
ecacdc7a
AM		 6387{
6388 if (fudge_reg_expressions
6389 && rightP->X_op == O_register
6390 && resultP->X_op == O_register)
6391 {
6392 rightP->X_op = O_constant;
6393 resultP->X_op = O_constant;
6394 }
6395 return 0; /* Continue normal expr handling. */
6396}
6397
252b5132
RH		 6398/* Handle a .EQU pseudo-op. */
6399
6400static void
9b52905e 6401pa_equ (int reg)
252b5132
RH		 6402{
6403 label_symbol_struct *label_symbol = pa_get_label ();
6404 symbolS *symbol;
6405
6406 if (label_symbol)
6407 {
6408 symbol = label_symbol->lss_label;
6409 if (reg)
ecacdc7a
AM		 6410 {
6411 strict = 1;
6412 if (!pa_parse_number (&input_line_pointer, 0))
6413 as_bad (_(".REG expression must be a register"));
6414 S_SET_VALUE (symbol, pa_number);
6415 S_SET_SEGMENT (symbol, reg_section);
6416 }
252b5132 6417 else
ecacdc7a
AM		 6418 {
6419 expressionS exp;
6420 segT seg;
6421
6422 fudge_reg_expressions = 1;
6423 seg = expression (&exp);
6424 fudge_reg_expressions = 0;
6425 if (exp.X_op != O_constant
6426 && exp.X_op != O_register)
6427 {
6428 if (exp.X_op != O_absent)
6429 as_bad (_("bad or irreducible absolute expression; zero assumed"));
6430 exp.X_add_number = 0;
6431 seg = absolute_section;
6432 }
6433 S_SET_VALUE (symbol, (unsigned int) exp.X_add_number);
6434 S_SET_SEGMENT (symbol, seg);
6435 }
252b5132
RH		 6436 }
6437 else
6438 {
6439 if (reg)
6440 as_bad (_(".REG must use a label"));
6441 else
6442 as_bad (_(".EQU must use a label"));
6443 }
6444
6445 pa_undefine_label ();
6446 demand_empty_rest_of_line ();
6447}
6448
9b52905e
NC		 6449#ifdef OBJ_ELF
6450/* Mark the end of a function so that it's possible to compute
6451 the size of the function in elf_hppa_final_processing. */
6452
6453static void
6454hppa_elf_mark_end_of_function (void)
6455{
6456 /* ELF does not have EXIT relocations. All we do is create a
6457 temporary symbol marking the end of the function. */
6458 char *name;
6459
6460 if (last_call_info == NULL || last_call_info->start_symbol == NULL)
6461 {
6462 /* We have already warned about a missing label,
6463 or other problems. */
6464 return;
6465 }
6466
6467 name = xmalloc (strlen ("L$\001end_")
6468 + strlen (S_GET_NAME (last_call_info->start_symbol))
6469 + 1);
6470 if (name)
6471 {
6472 symbolS *symbolP;
6473
6474 strcpy (name, "L$\001end_");
6475 strcat (name, S_GET_NAME (last_call_info->start_symbol));
6476
6477 /* If we have a .exit followed by a .procend, then the
6478 symbol will have already been defined. */
6479 symbolP = symbol_find (name);
6480 if (symbolP)
6481 {
6482 /* The symbol has already been defined! This can
6483 happen if we have a .exit followed by a .procend.
6484
6485 This is *not* an error. All we want to do is free
6486 the memory we just allocated for the name and continue. */
6487 xfree (name);
6488 }
6489 else
6490 {
6491 /* symbol value should be the offset of the
6492 last instruction of the function */
6493 symbolP = symbol_new (name, now_seg, (valueT) (frag_now_fix () - 4),
6494 frag_now);
6495
9c2799c2 6496 gas_assert (symbolP);
9b52905e
NC		 6497 S_CLEAR_EXTERNAL (symbolP);
6498 symbol_table_insert (symbolP);
6499 }
6500
6501 if (symbolP)
6502 last_call_info->end_symbol = symbolP;
6503 else
6504 as_bad (_("Symbol '%s' could not be created."), name);
6505
6506 }
6507 else
6508 as_bad (_("No memory for symbol name."));
6509}
6510#endif
6511
252b5132
RH		 6512/* Helper function. Does processing for the end of a function. This
6513 usually involves creating some relocations or building special
6514 symbols to mark the end of the function. */
6515
6516static void
9b52905e 6517process_exit (void)
252b5132
RH		 6518{
6519 char *where;
6520
6521 where = frag_more (0);
6522
6523#ifdef OBJ_ELF
6524 /* Mark the end of the function, stuff away the location of the frag
6525 for the end of the function, and finally call pa_build_unwind_subspace
6526 to add an entry in the unwind table. */
87975d2a 6527 (void) where;
252b5132
RH		 6528 hppa_elf_mark_end_of_function ();
6529 pa_build_unwind_subspace (last_call_info);
6530#else
6531 /* SOM defers building of unwind descriptors until the link phase.
6532 The assembler is responsible for creating an R_ENTRY relocation
6533 to mark the beginning of a region and hold the unwind bits, and
6534 for creating an R_EXIT relocation to mark the end of the region.
6535
6536 FIXME. ELF should be using the same conventions! The problem
6537 is an unwind requires too much relocation space. Hmmm. Maybe
6538 if we split the unwind bits up between the relocations which
6539 denote the entry and exit points. */
6540 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
6541 NULL, (offsetT) 0,
6542 NULL, 0, R_HPPA_EXIT, e_fsel, 0, 0,
da6c73e0 6543 UNWIND_HIGH32 (&last_call_info->ci_unwind.descriptor));
252b5132
RH		 6544#endif
6545}
6546
6547/* Process a .EXIT pseudo-op. */
6548
6549static void
9b52905e 6550pa_exit (int unused ATTRIBUTE_UNUSED)
252b5132 6551{
49863f82 6552#ifdef OBJ_SOM
252b5132
RH		 6553 /* We must have a valid space and subspace. */
6554 pa_check_current_space_and_subspace ();
49863f82 6555#endif
252b5132
RH		 6556
6557 if (!within_procedure)
6558 as_bad (_(".EXIT must appear within a procedure"));
6559 else
6560 {
6561 if (!callinfo_found)
6562 as_bad (_("Missing .callinfo"));
6563 else
6564 {
6565 if (!within_entry_exit)
6566 as_bad (_("No .ENTRY for this .EXIT"));
6567 else
6568 {
6569 within_entry_exit = FALSE;
6570 process_exit ();
6571 }
6572 }
6573 }
6574 demand_empty_rest_of_line ();
6575}
6576
252b5132
RH		 6577/* Helper function to process arguments to a .EXPORT pseudo-op. */
6578
6579static void
9b52905e 6580pa_type_args (symbolS *symbolP, int is_export)
252b5132
RH		 6581{
6582 char *name, c, *p;
6583 unsigned int temp, arg_reloc;
6584 pa_symbol_type type = SYMBOL_TYPE_UNKNOWN;
904a31bf 6585 asymbol *bfdsym = symbol_get_bfdsym (symbolP);
252b5132
RH		 6586
6587 if (strncasecmp (input_line_pointer, "absolute", 8) == 0)
252b5132
RH		 6588 {
6589 input_line_pointer += 8;
904a31bf 6590 bfdsym->flags &= ~BSF_FUNCTION;
252b5132
RH		 6591 S_SET_SEGMENT (symbolP, bfd_abs_section_ptr);
6592 type = SYMBOL_TYPE_ABSOLUTE;
6593 }
6594 else if (strncasecmp (input_line_pointer, "code", 4) == 0)
6595 {
6596 input_line_pointer += 4;
6597 /* IMPORTing/EXPORTing CODE types for functions is meaningless for SOM,
4e3b43ed 6598 instead one should be IMPORTing/EXPORTing ENTRY types.
252b5132 6599
4e3b43ed
AM		 6600 Complain if one tries to EXPORT a CODE type since that's never
6601 done. Both GCC and HP C still try to IMPORT CODE types, so
6602 silently fix them to be ENTRY types. */
a0f75b47 6603 if (S_IS_FUNCTION (symbolP))
252b5132
RH		 6604 {
6605 if (is_export)
a0f75b47
ILT		 6606 as_tsktsk (_("Using ENTRY rather than CODE in export directive for %s"),
6607 S_GET_NAME (symbolP));
252b5132 6608
904a31bf 6609 bfdsym->flags |= BSF_FUNCTION;
252b5132
RH		 6610 type = SYMBOL_TYPE_ENTRY;
6611 }
6612 else
6613 {
904a31bf 6614 bfdsym->flags &= ~BSF_FUNCTION;
252b5132
RH		 6615 type = SYMBOL_TYPE_CODE;
6616 }
6617 }
6618 else if (strncasecmp (input_line_pointer, "data", 4) == 0)
6619 {
6620 input_line_pointer += 4;
904a31bf
AM		 6621 bfdsym->flags &= ~BSF_FUNCTION;
6622 bfdsym->flags |= BSF_OBJECT;
252b5132
RH		 6623 type = SYMBOL_TYPE_DATA;
6624 }
6625 else if ((strncasecmp (input_line_pointer, "entry", 5) == 0))
6626 {
6627 input_line_pointer += 5;
904a31bf 6628 bfdsym->flags |= BSF_FUNCTION;
252b5132
RH		 6629 type = SYMBOL_TYPE_ENTRY;
6630 }
6631 else if (strncasecmp (input_line_pointer, "millicode", 9) == 0)
6632 {
6633 input_line_pointer += 9;
904a31bf
AM		 6634 bfdsym->flags |= BSF_FUNCTION;
6635#ifdef OBJ_ELF
6636 {
6637 elf_symbol_type *elfsym = (elf_symbol_type *) bfdsym;
6638 elfsym->internal_elf_sym.st_info =
6639 ELF_ST_INFO (ELF_ST_BIND (elfsym->internal_elf_sym.st_info),
6640 STT_PARISC_MILLI);
6641 }
6642#endif
252b5132
RH		 6643 type = SYMBOL_TYPE_MILLICODE;
6644 }
6645 else if (strncasecmp (input_line_pointer, "plabel", 6) == 0)
6646 {
6647 input_line_pointer += 6;
904a31bf 6648 bfdsym->flags &= ~BSF_FUNCTION;
252b5132
RH		 6649 type = SYMBOL_TYPE_PLABEL;
6650 }
6651 else if (strncasecmp (input_line_pointer, "pri_prog", 8) == 0)
6652 {
6653 input_line_pointer += 8;
904a31bf 6654 bfdsym->flags |= BSF_FUNCTION;
252b5132
RH		 6655 type = SYMBOL_TYPE_PRI_PROG;
6656 }
6657 else if (strncasecmp (input_line_pointer, "sec_prog", 8) == 0)
6658 {
6659 input_line_pointer += 8;
904a31bf 6660 bfdsym->flags |= BSF_FUNCTION;
252b5132
RH		 6661 type = SYMBOL_TYPE_SEC_PROG;
6662 }
6663
6664 /* SOM requires much more information about symbol types
6665 than BFD understands. This is how we get this information
6666 to the SOM BFD backend. */
6667#ifdef obj_set_symbol_type
904a31bf 6668 obj_set_symbol_type (bfdsym, (int) type);
87975d2a
AM		 6669#else
6670 (void) type;
252b5132
RH		 6671#endif
6672
6673 /* Now that the type of the exported symbol has been handled,
6674 handle any argument relocation information. */
6675 while (!is_end_of_statement ())
6676 {
6677 if (*input_line_pointer == ',')
6678 input_line_pointer++;
6679 name = input_line_pointer;
6680 c = get_symbol_end ();
6681 /* Argument sources. */
6682 if ((strncasecmp (name, "argw", 4) == 0))
6683 {
6684 p = input_line_pointer;
6685 *p = c;
6686 input_line_pointer++;
6687 temp = atoi (name + 4);
6688 name = input_line_pointer;
6689 c = get_symbol_end ();
6690 arg_reloc = pa_align_arg_reloc (temp, pa_build_arg_reloc (name));
25a8b250 6691#if defined (OBJ_SOM) || defined (ELF_ARG_RELOC)
ad1079af 6692 symbol_arg_reloc_info (symbolP) |= arg_reloc;
87975d2a
AM		 6693#else
6694 (void) arg_reloc;
49863f82 6695#endif
252b5132
RH		 6696 *input_line_pointer = c;
6697 }
6698 /* The return value. */
6699 else if ((strncasecmp (name, "rtnval", 6)) == 0)
6700 {
6701 p = input_line_pointer;
6702 *p = c;
6703 input_line_pointer++;
6704 name = input_line_pointer;
6705 c = get_symbol_end ();
6706 arg_reloc = pa_build_arg_reloc (name);
25a8b250 6707#if defined (OBJ_SOM) || defined (ELF_ARG_RELOC)
ad1079af 6708 symbol_arg_reloc_info (symbolP) |= arg_reloc;
87975d2a
AM		 6709#else
6710 (void) arg_reloc;
49863f82 6711#endif
252b5132
RH		 6712 *input_line_pointer = c;
6713 }
0234cb7c 6714 /* Privilege level. */
252b5132
RH		 6715 else if ((strncasecmp (name, "priv_lev", 8)) == 0)
6716 {
9b52905e
NC		 6717 p = input_line_pointer;
6718 *p = c;
6719 input_line_pointer++;
6720 temp = atoi (input_line_pointer);
6721#ifdef OBJ_SOM
6722 ((obj_symbol_type *) bfdsym)->tc_data.ap.hppa_priv_level = temp;
6723#endif
6724 c = get_symbol_end ();
6725 *input_line_pointer = c;
6726 }
6727 else
6728 {
6729 as_bad (_("Undefined .EXPORT/.IMPORT argument (ignored): %s"), name);
6730 p = input_line_pointer;
6731 *p = c;
6732 }
6733 if (!is_end_of_statement ())
6734 input_line_pointer++;
6735 }
6736}
6737
6738/* Process a .EXPORT directive. This makes functions external
6739 and provides information such as argument relocation entries
6740 to callers. */
6741
6742static void
6743pa_export (int unused ATTRIBUTE_UNUSED)
6744{
6745 char *name, c, *p;
6746 symbolS *symbol;
6747
6748 name = input_line_pointer;
6749 c = get_symbol_end ();
6750 /* Make sure the given symbol exists. */
6751 if ((symbol = symbol_find_or_make (name)) == NULL)
6752 {
6753 as_bad (_("Cannot define export symbol: %s\n"), name);
6754 p = input_line_pointer;
6755 *p = c;
6756 input_line_pointer++;
6757 }
6758 else
6759 {
6760 /* OK. Set the external bits and process argument relocations.
4e3b43ed
AM		 6761 For the HP, weak and global are not mutually exclusive.
6762 S_SET_EXTERNAL will not set BSF_GLOBAL if WEAK is set.
6763 Call S_SET_EXTERNAL to get the other processing. Manually
6764 set BSF_GLOBAL when we get back. */
9b52905e
NC		 6765 S_SET_EXTERNAL (symbol);
6766 symbol_get_bfdsym (symbol)->flags |= BSF_GLOBAL;
6767 p = input_line_pointer;
6768 *p = c;
6769 if (!is_end_of_statement ())
6770 {
252b5132 6771 input_line_pointer++;
9b52905e 6772 pa_type_args (symbol, 1);
252b5132 6773 }
252b5132 6774 }
9b52905e
NC		 6775
6776 demand_empty_rest_of_line ();
252b5132
RH		 6777}
6778
6779/* Handle an .IMPORT pseudo-op. Any symbol referenced in a given
6780 assembly file must either be defined in the assembly file, or
6781 explicitly IMPORTED from another. */
6782
6783static void
9b52905e 6784pa_import (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6785{
6786 char *name, c, *p;
6787 symbolS *symbol;
6788
6789 name = input_line_pointer;
6790 c = get_symbol_end ();
6791
6792 symbol = symbol_find (name);
6793 /* Ugh. We might be importing a symbol defined earlier in the file,
6794 in which case all the code below will really screw things up
6795 (set the wrong segment, symbol flags & type, etc). */
6796 if (symbol == NULL || !S_IS_DEFINED (symbol))
6797 {
6798 symbol = symbol_find_or_make (name);
6799 p = input_line_pointer;
6800 *p = c;
6801
6802 if (!is_end_of_statement ())
6803 {
6804 input_line_pointer++;
6805 pa_type_args (symbol, 0);
6806 }
6807 else
6808 {
0234cb7c 6809 /* Sigh. To be compatible with the HP assembler and to help
252b5132 6810 poorly written assembly code, we assign a type based on
b6ff326e 6811 the current segment. Note only BSF_FUNCTION really
252b5132
RH		 6812 matters, we do not need to set the full SYMBOL_TYPE_* info. */
6813 if (now_seg == text_section)
a0f75b47 6814 symbol_get_bfdsym (symbol)->flags |= BSF_FUNCTION;
252b5132
RH		 6815
6816 /* If the section is undefined, then the symbol is undefined
6817 Since this is an import, leave the section undefined. */
6818 S_SET_SEGMENT (symbol, bfd_und_section_ptr);
6819 }
6820 }
6821 else
6822 {
6823 /* The symbol was already defined. Just eat everything up to
6824 the end of the current statement. */
6825 while (!is_end_of_statement ())
6826 input_line_pointer++;
6827 }
6828
6829 demand_empty_rest_of_line ();
6830}
6831
6832/* Handle a .LABEL pseudo-op. */
6833
6834static void
9b52905e 6835pa_label (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6836{
6837 char *name, c, *p;
6838
6839 name = input_line_pointer;
6840 c = get_symbol_end ();
6841
6842 if (strlen (name) > 0)
6843 {
6844 colon (name);
6845 p = input_line_pointer;
6846 *p = c;
6847 }
6848 else
6849 {
6850 as_warn (_("Missing label name on .LABEL"));
6851 }
6852
6853 if (!is_end_of_statement ())
6854 {
6855 as_warn (_("extra .LABEL arguments ignored."));
6856 ignore_rest_of_line ();
6857 }
6858 demand_empty_rest_of_line ();
6859}
6860
6861/* Handle a .LEAVE pseudo-op. This is not supported yet. */
6862
6863static void
9b52905e 6864pa_leave (int unused ATTRIBUTE_UNUSED)
252b5132 6865{
49863f82 6866#ifdef OBJ_SOM
252b5132
RH		 6867 /* We must have a valid space and subspace. */
6868 pa_check_current_space_and_subspace ();
49863f82 6869#endif
252b5132
RH		 6870
6871 as_bad (_("The .LEAVE pseudo-op is not supported"));
6872 demand_empty_rest_of_line ();
6873}
6874
6875/* Handle a .LEVEL pseudo-op. */
6876
6877static void
9b52905e 6878pa_level (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6879{
6880 char *level;
6881
6882 level = input_line_pointer;
6883 if (strncmp (level, "1.0", 3) == 0)
6884 {
6885 input_line_pointer += 3;
6886 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, 10))
6887 as_warn (_("could not set architecture and machine"));
6888 }
6889 else if (strncmp (level, "1.1", 3) == 0)
6890 {
6891 input_line_pointer += 3;
6892 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, 11))
6893 as_warn (_("could not set architecture and machine"));
6894 }
46031ca9
JL		 6895 else if (strncmp (level, "2.0w", 4) == 0)
6896 {
6897 input_line_pointer += 4;
6898 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, 25))
6899 as_warn (_("could not set architecture and machine"));
6900 }
252b5132
RH		 6901 else if (strncmp (level, "2.0", 3) == 0)
6902 {
6903 input_line_pointer += 3;
6904 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, 20))
6905 as_warn (_("could not set architecture and machine"));
6906 }
6907 else
6908 {
6909 as_bad (_("Unrecognized .LEVEL argument\n"));
6910 ignore_rest_of_line ();
6911 }
6912 demand_empty_rest_of_line ();
6913}
6914
6915/* Handle a .ORIGIN pseudo-op. */
6916
6917static void
9b52905e 6918pa_origin (int unused ATTRIBUTE_UNUSED)
252b5132 6919{
49863f82 6920#ifdef OBJ_SOM
252b5132
RH		 6921 /* We must have a valid space and subspace. */
6922 pa_check_current_space_and_subspace ();
49863f82 6923#endif
252b5132
RH		 6924
6925 s_org (0);
6926 pa_undefine_label ();
6927}
6928
6929/* Handle a .PARAM pseudo-op. This is much like a .EXPORT, except it
6930 is for static functions. FIXME. Should share more code with .EXPORT. */
6931
6932static void
9b52905e 6933pa_param (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6934{
6935 char *name, c, *p;
6936 symbolS *symbol;
6937
6938 name = input_line_pointer;
6939 c = get_symbol_end ();
6940
6941 if ((symbol = symbol_find_or_make (name)) == NULL)
6942 {
6943 as_bad (_("Cannot define static symbol: %s\n"), name);
6944 p = input_line_pointer;
6945 *p = c;
6946 input_line_pointer++;
6947 }
6948 else
6949 {
6950 S_CLEAR_EXTERNAL (symbol);
6951 p = input_line_pointer;
6952 *p = c;
6953 if (!is_end_of_statement ())
6954 {
6955 input_line_pointer++;
6956 pa_type_args (symbol, 0);
6957 }
6958 }
6959
6960 demand_empty_rest_of_line ();
6961}
6962
6963/* Handle a .PROC pseudo-op. It is used to mark the beginning
ad1079af 6964 of a procedure from a syntactical point of view. */
252b5132
RH		 6965
6966static void
9b52905e 6967pa_proc (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 6968{
6969 struct call_info *call_info;
6970
49863f82 6971#ifdef OBJ_SOM
252b5132
RH		 6972 /* We must have a valid space and subspace. */
6973 pa_check_current_space_and_subspace ();
49863f82 6974#endif
252b5132
RH		 6975
6976 if (within_procedure)
6977 as_fatal (_("Nested procedures"));
6978
6979 /* Reset global variables for new procedure. */
6980 callinfo_found = FALSE;
6981 within_procedure = TRUE;
6982
6983 /* Create another call_info structure. */
9b52905e 6984 call_info = xmalloc (sizeof (struct call_info));
252b5132
RH		 6985
6986 if (!call_info)
6987 as_fatal (_("Cannot allocate unwind descriptor\n"));
6988
6989 memset (call_info, 0, sizeof (struct call_info));
6990
6991 call_info->ci_next = NULL;
6992
6993 if (call_info_root == NULL)
6994 {
6995 call_info_root = call_info;
6996 last_call_info = call_info;
6997 }
6998 else
6999 {
7000 last_call_info->ci_next = call_info;
7001 last_call_info = call_info;
7002 }
7003
7004 /* set up defaults on call_info structure */
7005
7006 call_info->ci_unwind.descriptor.cannot_unwind = 0;
7007 call_info->ci_unwind.descriptor.region_desc = 1;
7008 call_info->ci_unwind.descriptor.hpux_interrupt_marker = 0;
7009
7010 /* If we got a .PROC pseudo-op, we know that the function is defined
7011 locally. Make sure it gets into the symbol table. */
7012 {
7013 label_symbol_struct *label_symbol = pa_get_label ();
7014
7015 if (label_symbol)
7016 {
7017 if (label_symbol->lss_label)
7018 {
7019 last_call_info->start_symbol = label_symbol->lss_label;
a0f75b47 7020 symbol_get_bfdsym (label_symbol->lss_label)->flags |= BSF_FUNCTION;
252b5132
RH		 7021 }
7022 else
7023 as_bad (_("Missing function name for .PROC (corrupted label chain)"));
7024 }
7025 else
7026 last_call_info->start_symbol = NULL;
7027 }
7028
7029 demand_empty_rest_of_line ();
7030}
7031
0234cb7c 7032/* Process the syntactical end of a procedure. Make sure all the
252b5132
RH		 7033 appropriate pseudo-ops were found within the procedure. */
7034
7035static void
9b52905e 7036pa_procend (int unused ATTRIBUTE_UNUSED)
252b5132 7037{
49863f82 7038#ifdef OBJ_SOM
252b5132
RH		 7039 /* We must have a valid space and subspace. */
7040 pa_check_current_space_and_subspace ();
49863f82 7041#endif
252b5132
RH		 7042
7043 /* If we are within a procedure definition, make sure we've
7044 defined a label for the procedure; handle case where the
7045 label was defined after the .PROC directive.
7046
7047 Note there's not need to diddle with the segment or fragment
7048 for the label symbol in this case. We have already switched
7049 into the new $CODE$ subspace at this point. */
7050 if (within_procedure && last_call_info->start_symbol == NULL)
7051 {
7052 label_symbol_struct *label_symbol = pa_get_label ();
7053
7054 if (label_symbol)
7055 {
7056 if (label_symbol->lss_label)
7057 {
7058 last_call_info->start_symbol = label_symbol->lss_label;
a0f75b47
ILT		 7059 symbol_get_bfdsym (label_symbol->lss_label)->flags
7060 |= BSF_FUNCTION;
252b5132
RH		 7061#ifdef OBJ_SOM
7062 /* Also handle allocation of a fixup to hold the unwind
7063 information when the label appears after the proc/procend. */
7064 if (within_entry_exit)
7065 {
da6c73e0
AM		 7066 char *where;
7067 unsigned int u;
252b5132 7068
da6c73e0
AM		 7069 where = frag_more (0);
7070 u = UNWIND_LOW32 (&last_call_info->ci_unwind.descriptor);
252b5132
RH		 7071 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
7072 NULL, (offsetT) 0, NULL,
da6c73e0 7073 0, R_HPPA_ENTRY, e_fsel, 0, 0, u);
252b5132
RH		 7074 }
7075#endif
7076 }
7077 else
7078 as_bad (_("Missing function name for .PROC (corrupted label chain)"));
7079 }
7080 else
7081 as_bad (_("Missing function name for .PROC"));
7082 }
7083
7084 if (!within_procedure)
7085 as_bad (_("misplaced .procend"));
7086
7087 if (!callinfo_found)
7088 as_bad (_("Missing .callinfo for this procedure"));
7089
7090 if (within_entry_exit)
7091 as_bad (_("Missing .EXIT for a .ENTRY"));
7092
7093#ifdef OBJ_ELF
7094 /* ELF needs to mark the end of each function so that it can compute
7095 the size of the function (apparently its needed in the symbol table). */
7096 hppa_elf_mark_end_of_function ();
7097#endif
7098
7099 within_procedure = FALSE;
7100 demand_empty_rest_of_line ();
7101 pa_undefine_label ();
7102}
7103
3f9b03b5 7104#ifdef OBJ_SOM
49863f82
JL		 7105/* If VALUE is an exact power of two between zero and 2^31, then
7106 return log2 (VALUE). Else return -1. */
7107
7108static int
9b52905e 7109exact_log2 (int value)
49863f82
JL		 7110{
7111 int shift = 0;
7112
7113 while ((1 << shift) != value && shift < 32)
7114 shift++;
7115
7116 if (shift >= 32)
7117 return -1;
7118 else
7119 return shift;
7120}
7121
49863f82
JL		 7122/* Check to make sure we have a valid space and subspace. */
7123
7124static void
9b52905e 7125pa_check_current_space_and_subspace (void)
49863f82
JL		 7126{
7127 if (current_space == NULL)
7128 as_fatal (_("Not in a space.\n"));
7129
7130 if (current_subspace == NULL)
7131 as_fatal (_("Not in a subspace.\n"));
7132}
7133
252b5132
RH		 7134/* Parse the parameters to a .SPACE directive; if CREATE_FLAG is nonzero,
7135 then create a new space entry to hold the information specified
7136 by the parameters to the .SPACE directive. */
7137
7138static sd_chain_struct *
9b52905e 7139pa_parse_space_stmt (char *space_name, int create_flag)
252b5132
RH		 7140{
7141 char *name, *ptemp, c;
7142 char loadable, defined, private, sort;
ecacdc7a 7143 int spnum;
252b5132
RH		 7144 asection *seg = NULL;
7145 sd_chain_struct *space;
7146
9b52905e 7147 /* Load default values. */
252b5132
RH		 7148 spnum = 0;
7149 sort = 0;
7150 loadable = TRUE;
7151 defined = TRUE;
7152 private = FALSE;
7153 if (strcmp (space_name, "$TEXT$") == 0)
7154 {
7155 seg = pa_def_spaces[0].segment;
7156 defined = pa_def_spaces[0].defined;
7157 private = pa_def_spaces[0].private;
7158 sort = pa_def_spaces[0].sort;
7159 spnum = pa_def_spaces[0].spnum;
7160 }
7161 else if (strcmp (space_name, "$PRIVATE$") == 0)
7162 {
7163 seg = pa_def_spaces[1].segment;
7164 defined = pa_def_spaces[1].defined;
7165 private = pa_def_spaces[1].private;
7166 sort = pa_def_spaces[1].sort;
7167 spnum = pa_def_spaces[1].spnum;
7168 }
7169
7170 if (!is_end_of_statement ())
7171 {
7172 print_errors = FALSE;
7173 ptemp = input_line_pointer + 1;
7174 /* First see if the space was specified as a number rather than
4e3b43ed
AM		 7175 as a name. According to the PA assembly manual the rest of
7176 the line should be ignored. */
ecacdc7a
AM		 7177 strict = 0;
7178 pa_parse_number (&ptemp, 0);
7179 if (pa_number >= 0)
252b5132 7180 {
ecacdc7a 7181 spnum = pa_number;
252b5132
RH		 7182 input_line_pointer = ptemp;
7183 }
7184 else
7185 {
7186 while (!is_end_of_statement ())
7187 {
7188 input_line_pointer++;
7189 name = input_line_pointer;
7190 c = get_symbol_end ();
7191 if ((strncasecmp (name, "spnum", 5) == 0))
7192 {
7193 *input_line_pointer = c;
7194 input_line_pointer++;
7195 spnum = get_absolute_expression ();
7196 }
7197 else if ((strncasecmp (name, "sort", 4) == 0))
7198 {
7199 *input_line_pointer = c;
7200 input_line_pointer++;
7201 sort = get_absolute_expression ();
7202 }
7203 else if ((strncasecmp (name, "unloadable", 10) == 0))
7204 {
7205 *input_line_pointer = c;
7206 loadable = FALSE;
7207 }
7208 else if ((strncasecmp (name, "notdefined", 10) == 0))
7209 {
7210 *input_line_pointer = c;
7211 defined = FALSE;
7212 }
7213 else if ((strncasecmp (name, "private", 7) == 0))
7214 {
7215 *input_line_pointer = c;
7216 private = TRUE;
7217 }
7218 else
7219 {
7220 as_bad (_("Invalid .SPACE argument"));
7221 *input_line_pointer = c;
7222 if (!is_end_of_statement ())
7223 input_line_pointer++;
7224 }
7225 }
7226 }
7227 print_errors = TRUE;
7228 }
7229
7230 if (create_flag && seg == NULL)
7231 seg = subseg_new (space_name, 0);
7232
7233 /* If create_flag is nonzero, then create the new space with
7234 the attributes computed above. Else set the values in
7235 an already existing space -- this can only happen for
0234cb7c 7236 the first occurrence of a built-in space. */
252b5132
RH		 7237 if (create_flag)
7238 space = create_new_space (space_name, spnum, loadable, defined,
7239 private, sort, seg, 1);
7240 else
7241 {
7242 space = is_defined_space (space_name);
7243 SPACE_SPNUM (space) = spnum;
7244 SPACE_DEFINED (space) = defined & 1;
7245 SPACE_USER_DEFINED (space) = 1;
7246 }
7247
7248#ifdef obj_set_section_attributes
7249 obj_set_section_attributes (seg, defined, private, sort, spnum);
7250#endif
7251
7252 return space;
7253}
7254
7255/* Handle a .SPACE pseudo-op; this switches the current space to the
7256 given space, creating the new space if necessary. */
7257
7258static void
9b52905e 7259pa_space (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 7260{
7261 char *name, c, *space_name, *save_s;
252b5132
RH		 7262 sd_chain_struct *sd_chain;
7263
7264 if (within_procedure)
7265 {
7266 as_bad (_("Can\'t change spaces within a procedure definition. Ignored"));
7267 ignore_rest_of_line ();
7268 }
7269 else
7270 {
7271 /* Check for some of the predefined spaces. FIXME: most of the code
4e3b43ed
AM		 7272 below is repeated several times, can we extract the common parts
7273 and place them into a subroutine or something similar? */
252b5132
RH		 7274 /* FIXME Is this (and the next IF stmt) really right?
7275 What if INPUT_LINE_POINTER points to "$TEXT$FOO"? */
7276 if (strncmp (input_line_pointer, "$TEXT$", 6) == 0)
7277 {
7278 input_line_pointer += 6;
7279 sd_chain = is_defined_space ("$TEXT$");
7280 if (sd_chain == NULL)
7281 sd_chain = pa_parse_space_stmt ("$TEXT$", 1);
7282 else if (SPACE_USER_DEFINED (sd_chain) == 0)
7283 sd_chain = pa_parse_space_stmt ("$TEXT$", 0);
7284
7285 current_space = sd_chain;
7286 subseg_set (text_section, sd_chain->sd_last_subseg);
7287 current_subspace
7288 = pa_subsegment_to_subspace (text_section,
7289 sd_chain->sd_last_subseg);
7290 demand_empty_rest_of_line ();
7291 return;
7292 }
7293 if (strncmp (input_line_pointer, "$PRIVATE$", 9) == 0)
7294 {
7295 input_line_pointer += 9;
7296 sd_chain = is_defined_space ("$PRIVATE$");
7297 if (sd_chain == NULL)
7298 sd_chain = pa_parse_space_stmt ("$PRIVATE$", 1);
7299 else if (SPACE_USER_DEFINED (sd_chain) == 0)
7300 sd_chain = pa_parse_space_stmt ("$PRIVATE$", 0);
7301
7302 current_space = sd_chain;
7303 subseg_set (data_section, sd_chain->sd_last_subseg);
7304 current_subspace
7305 = pa_subsegment_to_subspace (data_section,
7306 sd_chain->sd_last_subseg);
7307 demand_empty_rest_of_line ();
7308 return;
7309 }
7310 if (!strncasecmp (input_line_pointer,
7311 GDB_DEBUG_SPACE_NAME,
7312 strlen (GDB_DEBUG_SPACE_NAME)))
7313 {
7314 input_line_pointer += strlen (GDB_DEBUG_SPACE_NAME);
7315 sd_chain = is_defined_space (GDB_DEBUG_SPACE_NAME);
7316 if (sd_chain == NULL)
7317 sd_chain = pa_parse_space_stmt (GDB_DEBUG_SPACE_NAME, 1);
7318 else if (SPACE_USER_DEFINED (sd_chain) == 0)
7319 sd_chain = pa_parse_space_stmt (GDB_DEBUG_SPACE_NAME, 0);
7320
7321 current_space = sd_chain;
7322
7323 {
7324 asection *gdb_section
7325 = bfd_make_section_old_way (stdoutput, GDB_DEBUG_SPACE_NAME);
7326
7327 subseg_set (gdb_section, sd_chain->sd_last_subseg);
7328 current_subspace
7329 = pa_subsegment_to_subspace (gdb_section,
7330 sd_chain->sd_last_subseg);
7331 }
7332 demand_empty_rest_of_line ();
7333 return;
7334 }
7335
7336 /* It could be a space specified by number. */
7337 print_errors = 0;
7338 save_s = input_line_pointer;
ecacdc7a
AM		 7339 strict = 0;
7340 pa_parse_number (&input_line_pointer, 0);
7341 if (pa_number >= 0)
252b5132 7342 {
ecacdc7a 7343 if ((sd_chain = pa_find_space_by_number (pa_number)))
252b5132
RH		 7344 {
7345 current_space = sd_chain;
7346
7347 subseg_set (sd_chain->sd_seg, sd_chain->sd_last_subseg);
7348 current_subspace
7349 = pa_subsegment_to_subspace (sd_chain->sd_seg,
7350 sd_chain->sd_last_subseg);
7351 demand_empty_rest_of_line ();
7352 return;
7353 }
7354 }
7355
7356 /* Not a number, attempt to create a new space. */
7357 print_errors = 1;
7358 input_line_pointer = save_s;
7359 name = input_line_pointer;
7360 c = get_symbol_end ();
7361 space_name = xmalloc (strlen (name) + 1);
7362 strcpy (space_name, name);
7363 *input_line_pointer = c;
7364
7365 sd_chain = pa_parse_space_stmt (space_name, 1);
7366 current_space = sd_chain;
7367
7368 subseg_set (sd_chain->sd_seg, sd_chain->sd_last_subseg);
7369 current_subspace = pa_subsegment_to_subspace (sd_chain->sd_seg,
7370 sd_chain->sd_last_subseg);
7371 demand_empty_rest_of_line ();
7372 }
7373}
7374
7375/* Switch to a new space. (I think). FIXME. */
7376
7377static void
9b52905e 7378pa_spnum (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 7379{
7380 char *name;
7381 char c;
7382 char *p;
7383 sd_chain_struct *space;
7384
7385 name = input_line_pointer;
7386 c = get_symbol_end ();
7387 space = is_defined_space (name);
7388 if (space)
7389 {
7390 p = frag_more (4);
7391 md_number_to_chars (p, SPACE_SPNUM (space), 4);
7392 }
7393 else
7394 as_warn (_("Undefined space: '%s' Assuming space number = 0."), name);
7395
7396 *input_line_pointer = c;
7397 demand_empty_rest_of_line ();
7398}
7399
252b5132
RH		 7400/* Handle a .SUBSPACE pseudo-op; this switches the current subspace to the
7401 given subspace, creating the new subspace if necessary.
7402
7403 FIXME. Should mirror pa_space more closely, in particular how
7404 they're broken up into subroutines. */
7405
7406static void
9b52905e 7407pa_subspace (int create_new)
252b5132 7408{
49863f82 7409 char *name, *ss_name, c;
351e2b5a 7410 char loadable, code_only, comdat, common, dup_common, zero, sort;
fd4db1a1 7411 int i, access_ctr, space_index, alignment, quadrant, applicable, flags;
252b5132
RH		 7412 sd_chain_struct *space;
7413 ssd_chain_struct *ssd;
7414 asection *section;
7415
7416 if (current_space == NULL)
7417 as_fatal (_("Must be in a space before changing or declaring subspaces.\n"));
7418
7419 if (within_procedure)
7420 {
7421 as_bad (_("Can\'t change subspaces within a procedure definition. Ignored"));
7422 ignore_rest_of_line ();
7423 }
7424 else
7425 {
7426 name = input_line_pointer;
7427 c = get_symbol_end ();
7428 ss_name = xmalloc (strlen (name) + 1);
7429 strcpy (ss_name, name);
7430 *input_line_pointer = c;
7431
7432 /* Load default values. */
7433 sort = 0;
fd4db1a1 7434 access_ctr = 0x7f;
252b5132 7435 loadable = 1;
351e2b5a 7436 comdat = 0;
252b5132
RH		 7437 common = 0;
7438 dup_common = 0;
7439 code_only = 0;
7440 zero = 0;
7441 space_index = ~0;
7442 alignment = 1;
7443 quadrant = 0;
252b5132
RH		 7444
7445 space = current_space;
7446 if (create_new)
7447 ssd = NULL;
7448 else
7449 ssd = is_defined_subspace (ss_name);
7450 /* Allow user to override the builtin attributes of subspaces. But
4e3b43ed 7451 only allow the attributes to be changed once! */
252b5132
RH		 7452 if (ssd && SUBSPACE_DEFINED (ssd))
7453 {
7454 subseg_set (ssd->ssd_seg, ssd->ssd_subseg);
7455 current_subspace = ssd;
7456 if (!is_end_of_statement ())
7457 as_warn (_("Parameters of an existing subspace can\'t be modified"));
7458 demand_empty_rest_of_line ();
7459 return;
7460 }
7461 else
7462 {
7463 /* A new subspace. Load default values if it matches one of
7464 the builtin subspaces. */
7465 i = 0;
7466 while (pa_def_subspaces[i].name)
7467 {
7468 if (strcasecmp (pa_def_subspaces[i].name, ss_name) == 0)
7469 {
7470 loadable = pa_def_subspaces[i].loadable;
351e2b5a 7471 comdat = pa_def_subspaces[i].comdat;
252b5132
RH		 7472 common = pa_def_subspaces[i].common;
7473 dup_common = pa_def_subspaces[i].dup_common;
7474 code_only = pa_def_subspaces[i].code_only;
7475 zero = pa_def_subspaces[i].zero;
7476 space_index = pa_def_subspaces[i].space_index;
7477 alignment = pa_def_subspaces[i].alignment;
7478 quadrant = pa_def_subspaces[i].quadrant;
fd4db1a1 7479 access_ctr = pa_def_subspaces[i].access;
252b5132 7480 sort = pa_def_subspaces[i].sort;
252b5132
RH		 7481 break;
7482 }
7483 i++;
7484 }
7485 }
7486
7487 /* We should be working with a new subspace now. Fill in
4e3b43ed 7488 any information as specified by the user. */
252b5132
RH		 7489 if (!is_end_of_statement ())
7490 {
7491 input_line_pointer++;
7492 while (!is_end_of_statement ())
7493 {
7494 name = input_line_pointer;
7495 c = get_symbol_end ();
7496 if ((strncasecmp (name, "quad", 4) == 0))
7497 {
7498 *input_line_pointer = c;
7499 input_line_pointer++;
7500 quadrant = get_absolute_expression ();
7501 }
7502 else if ((strncasecmp (name, "align", 5) == 0))
7503 {
7504 *input_line_pointer = c;
7505 input_line_pointer++;
7506 alignment = get_absolute_expression ();
b8fc22bc 7507 if (exact_log2 (alignment) == -1)
252b5132
RH		 7508 {
7509 as_bad (_("Alignment must be a power of 2"));
7510 alignment = 1;
7511 }
7512 }
7513 else if ((strncasecmp (name, "access", 6) == 0))
7514 {
7515 *input_line_pointer = c;
7516 input_line_pointer++;
fd4db1a1 7517 access_ctr = get_absolute_expression ();
252b5132
RH		 7518 }
7519 else if ((strncasecmp (name, "sort", 4) == 0))
7520 {
7521 *input_line_pointer = c;
7522 input_line_pointer++;
7523 sort = get_absolute_expression ();
7524 }
7525 else if ((strncasecmp (name, "code_only", 9) == 0))
7526 {
7527 *input_line_pointer = c;
7528 code_only = 1;
7529 }
7530 else if ((strncasecmp (name, "unloadable", 10) == 0))
7531 {
7532 *input_line_pointer = c;
7533 loadable = 0;
7534 }
351e2b5a
DA		 7535 else if ((strncasecmp (name, "comdat", 6) == 0))
7536 {
7537 *input_line_pointer = c;
7538 comdat = 1;
7539 }
252b5132
RH		 7540 else if ((strncasecmp (name, "common", 6) == 0))
7541 {
7542 *input_line_pointer = c;
7543 common = 1;
7544 }
7545 else if ((strncasecmp (name, "dup_comm", 8) == 0))
7546 {
7547 *input_line_pointer = c;
7548 dup_common = 1;
7549 }
7550 else if ((strncasecmp (name, "zero", 4) == 0))
7551 {
7552 *input_line_pointer = c;
7553 zero = 1;
7554 }
7555 else if ((strncasecmp (name, "first", 5) == 0))
7556 as_bad (_("FIRST not supported as a .SUBSPACE argument"));
7557 else
7558 as_bad (_("Invalid .SUBSPACE argument"));
7559 if (!is_end_of_statement ())
7560 input_line_pointer++;
7561 }
7562 }
7563
7564 /* Compute a reasonable set of BFD flags based on the information
4e3b43ed 7565 in the .subspace directive. */
252b5132
RH		 7566 applicable = bfd_applicable_section_flags (stdoutput);
7567 flags = 0;
7568 if (loadable)
7569 flags |= (SEC_ALLOC | SEC_LOAD);
7570 if (code_only)
7571 flags |= SEC_CODE;
351e2b5a
DA		 7572
7573 /* These flags are used to implement various flavors of initialized
7574 common. The SOM linker discards duplicate subspaces when they
7575 have the same "key" symbol name. This support is more like
7576 GNU linkonce than BFD common. Further, pc-relative relocations
7577 are converted to section relative relocations in BFD common
7578 sections. This complicates the handling of relocations in
7579 common sections containing text and isn't currently supported
7580 correctly in the SOM BFD backend. */
7581 if (comdat || common || dup_common)
7582 flags |= SEC_LINK_ONCE;
252b5132
RH		 7583
7584 flags |= SEC_RELOC | SEC_HAS_CONTENTS;
7585
7586 /* This is a zero-filled subspace (eg BSS). */
7587 if (zero)
7588 flags &= ~(SEC_LOAD | SEC_HAS_CONTENTS);
7589
7590 applicable &= flags;
7591
7592 /* If this is an existing subspace, then we want to use the
4e3b43ed 7593 segment already associated with the subspace.
252b5132 7594
4e3b43ed
AM		 7595 FIXME NOW! ELF BFD doesn't appear to be ready to deal with
7596 lots of sections. It might be a problem in the PA ELF
7597 code, I do not know yet. For now avoid creating anything
7598 but the "standard" sections for ELF. */
252b5132
RH		 7599 if (create_new)
7600 section = subseg_force_new (ss_name, 0);
7601 else if (ssd)
7602 section = ssd->ssd_seg;
252b5132
RH		 7603 else
7604 section = subseg_new (ss_name, 0);
7605
7606 if (zero)
7607 seg_info (section)->bss = 1;
7608
7609 /* Now set the flags. */
7610 bfd_set_section_flags (stdoutput, section, applicable);
7611
7612 /* Record any alignment request for this section. */
b8fc22bc 7613 record_alignment (section, exact_log2 (alignment));
252b5132
RH		 7614
7615 /* Set the starting offset for this section. */
7616 bfd_set_section_vma (stdoutput, section,
7617 pa_subspace_start (space, quadrant));
7618
7619 /* Now that all the flags are set, update an existing subspace,
4e3b43ed 7620 or create a new one. */
252b5132
RH		 7621 if (ssd)
7622
7623 current_subspace = update_subspace (space, ss_name, loadable,
351e2b5a 7624 code_only, comdat, common,
fd4db1a1 7625 dup_common, sort, zero, access_ctr,
351e2b5a 7626 space_index, alignment, quadrant,
252b5132
RH		 7627 section);
7628 else
7629 current_subspace = create_new_subspace (space, ss_name, loadable,
351e2b5a 7630 code_only, comdat, common,
252b5132 7631 dup_common, zero, sort,
fd4db1a1 7632 access_ctr, space_index,
351e2b5a 7633 alignment, quadrant, section);
252b5132
RH		 7634
7635 demand_empty_rest_of_line ();
7636 current_subspace->ssd_seg = section;
7637 subseg_set (current_subspace->ssd_seg, current_subspace->ssd_subseg);
7638 }
7639 SUBSPACE_DEFINED (current_subspace) = 1;
7640}
7641
252b5132
RH		 7642/* Create default space and subspace dictionaries. */
7643
7644static void
9b52905e 7645pa_spaces_begin (void)
252b5132
RH		 7646{
7647 int i;
7648
7649 space_dict_root = NULL;
7650 space_dict_last = NULL;
7651
7652 i = 0;
7653 while (pa_def_spaces[i].name)
7654 {
7655 char *name;
7656
7657 /* Pick the right name to use for the new section. */
49863f82 7658 name = pa_def_spaces[i].name;
252b5132
RH		 7659
7660 pa_def_spaces[i].segment = subseg_new (name, 0);
7661 create_new_space (pa_def_spaces[i].name, pa_def_spaces[i].spnum,
7662 pa_def_spaces[i].loadable, pa_def_spaces[i].defined,
7663 pa_def_spaces[i].private, pa_def_spaces[i].sort,
7664 pa_def_spaces[i].segment, 0);
7665 i++;
7666 }
7667
7668 i = 0;
7669 while (pa_def_subspaces[i].name)
7670 {
7671 char *name;
7672 int applicable, subsegment;
7673 asection *segment = NULL;
7674 sd_chain_struct *space;
7675
7676 /* Pick the right name for the new section and pick the right
4e3b43ed 7677 subsegment number. */
49863f82
JL		 7678 name = pa_def_subspaces[i].name;
7679 subsegment = 0;
252b5132
RH		 7680
7681 /* Create the new section. */
7682 segment = subseg_new (name, subsegment);
7683
252b5132 7684 /* For SOM we want to replace the standard .text, .data, and .bss
4e3b43ed 7685 sections with our own. We also want to set BFD flags for
252b5132 7686 all the built-in subspaces. */
49863f82 7687 if (!strcmp (pa_def_subspaces[i].name, "$CODE$"))
252b5132
RH		 7688 {
7689 text_section = segment;
7690 applicable = bfd_applicable_section_flags (stdoutput);
7691 bfd_set_section_flags (stdoutput, segment,
7692 applicable & (SEC_ALLOC | SEC_LOAD
7693 | SEC_RELOC | SEC_CODE
7694 | SEC_READONLY
7695 | SEC_HAS_CONTENTS));
7696 }
49863f82 7697 else if (!strcmp (pa_def_subspaces[i].name, "$DATA$"))
252b5132
RH		 7698 {
7699 data_section = segment;
7700 applicable = bfd_applicable_section_flags (stdoutput);
7701 bfd_set_section_flags (stdoutput, segment,
7702 applicable & (SEC_ALLOC | SEC_LOAD
7703 | SEC_RELOC
7704 | SEC_HAS_CONTENTS));
7705
252b5132 7706 }
49863f82 7707 else if (!strcmp (pa_def_subspaces[i].name, "$BSS$"))
252b5132
RH		 7708 {
7709 bss_section = segment;
7710 applicable = bfd_applicable_section_flags (stdoutput);
7711 bfd_set_section_flags (stdoutput, segment,
7712 applicable & SEC_ALLOC);
7713 }
49863f82 7714 else if (!strcmp (pa_def_subspaces[i].name, "$LIT$"))
252b5132
RH		 7715 {
7716 applicable = bfd_applicable_section_flags (stdoutput);
7717 bfd_set_section_flags (stdoutput, segment,
7718 applicable & (SEC_ALLOC | SEC_LOAD
7719 | SEC_RELOC
7720 | SEC_READONLY
7721 | SEC_HAS_CONTENTS));
7722 }
49863f82 7723 else if (!strcmp (pa_def_subspaces[i].name, "$MILLICODE$"))
252b5132
RH		 7724 {
7725 applicable = bfd_applicable_section_flags (stdoutput);
7726 bfd_set_section_flags (stdoutput, segment,
7727 applicable & (SEC_ALLOC | SEC_LOAD
7728 | SEC_RELOC
7729 | SEC_READONLY
7730 | SEC_HAS_CONTENTS));
7731 }
49863f82 7732 else if (!strcmp (pa_def_subspaces[i].name, "$UNWIND$"))
252b5132
RH		 7733 {
7734 applicable = bfd_applicable_section_flags (stdoutput);
7735 bfd_set_section_flags (stdoutput, segment,
7736 applicable & (SEC_ALLOC | SEC_LOAD
7737 | SEC_RELOC
7738 | SEC_READONLY
7739 | SEC_HAS_CONTENTS));
7740 }
7741
7742 /* Find the space associated with this subspace. */
7743 space = pa_segment_to_space (pa_def_spaces[pa_def_subspaces[i].
7744 def_space_index].segment);
7745 if (space == NULL)
7746 {
7747 as_fatal (_("Internal error: Unable to find containing space for %s."),
7748 pa_def_subspaces[i].name);
7749 }
7750
7751 create_new_subspace (space, name,
7752 pa_def_subspaces[i].loadable,
7753 pa_def_subspaces[i].code_only,
351e2b5a 7754 pa_def_subspaces[i].comdat,
252b5132
RH		 7755 pa_def_subspaces[i].common,
7756 pa_def_subspaces[i].dup_common,
7757 pa_def_subspaces[i].zero,
7758 pa_def_subspaces[i].sort,
7759 pa_def_subspaces[i].access,
7760 pa_def_subspaces[i].space_index,
7761 pa_def_subspaces[i].alignment,
7762 pa_def_subspaces[i].quadrant,
7763 segment);
7764 i++;
7765 }
7766}
7767
252b5132
RH		 7768/* Create a new space NAME, with the appropriate flags as defined
7769 by the given parameters. */
7770
7771static sd_chain_struct *
9b52905e
NC		 7772create_new_space (char *name,
7773 int spnum,
7774 int loadable ATTRIBUTE_UNUSED,
7775 int defined,
7776 int private,
7777 int sort,
7778 asection *seg,
7779 int user_defined)
252b5132
RH		 7780{
7781 sd_chain_struct *chain_entry;
7782
9b52905e 7783 chain_entry = xmalloc (sizeof (sd_chain_struct));
252b5132
RH		 7784 if (!chain_entry)
7785 as_fatal (_("Out of memory: could not allocate new space chain entry: %s\n"),
7786 name);
7787
9b52905e 7788 SPACE_NAME (chain_entry) = xmalloc (strlen (name) + 1);
252b5132
RH		 7789 strcpy (SPACE_NAME (chain_entry), name);
7790 SPACE_DEFINED (chain_entry) = defined;
7791 SPACE_USER_DEFINED (chain_entry) = user_defined;
7792 SPACE_SPNUM (chain_entry) = spnum;
7793
7794 chain_entry->sd_seg = seg;
7795 chain_entry->sd_last_subseg = -1;
7796 chain_entry->sd_subspaces = NULL;
7797 chain_entry->sd_next = NULL;
7798
7799 /* Find spot for the new space based on its sort key. */
7800 if (!space_dict_last)
7801 space_dict_last = chain_entry;
7802
7803 if (space_dict_root == NULL)
7804 space_dict_root = chain_entry;
7805 else
7806 {
7807 sd_chain_struct *chain_pointer;
7808 sd_chain_struct *prev_chain_pointer;
7809
7810 chain_pointer = space_dict_root;
7811 prev_chain_pointer = NULL;
7812
7813 while (chain_pointer)
7814 {
7815 prev_chain_pointer = chain_pointer;
7816 chain_pointer = chain_pointer->sd_next;
7817 }
7818
7819 /* At this point we've found the correct place to add the new
4e3b43ed 7820 entry. So add it and update the linked lists as appropriate. */
252b5132
RH		 7821 if (prev_chain_pointer)
7822 {
7823 chain_entry->sd_next = chain_pointer;
7824 prev_chain_pointer->sd_next = chain_entry;
7825 }
7826 else
7827 {
7828 space_dict_root = chain_entry;
7829 chain_entry->sd_next = chain_pointer;
7830 }
7831
7832 if (chain_entry->sd_next == NULL)
7833 space_dict_last = chain_entry;
7834 }
7835
7836 /* This is here to catch predefined spaces which do not get
7837 modified by the user's input. Another call is found at
7838 the bottom of pa_parse_space_stmt to handle cases where
7839 the user modifies a predefined space. */
7840#ifdef obj_set_section_attributes
7841 obj_set_section_attributes (seg, defined, private, sort, spnum);
7842#endif
7843
7844 return chain_entry;
7845}
7846
7847/* Create a new subspace NAME, with the appropriate flags as defined
7848 by the given parameters.
7849
7850 Add the new subspace to the subspace dictionary chain in numerical
7851 order as defined by the SORT entries. */
7852
7853static ssd_chain_struct *
9b52905e
NC		 7854create_new_subspace (sd_chain_struct *space,
7855 char *name,
7856 int loadable ATTRIBUTE_UNUSED,
7857 int code_only ATTRIBUTE_UNUSED,
7858 int comdat,
7859 int common,
7860 int dup_common,
7861 int is_zero ATTRIBUTE_UNUSED,
7862 int sort,
fd4db1a1 7863 int access_ctr,
9b52905e
NC		 7864 int space_index ATTRIBUTE_UNUSED,
7865 int alignment ATTRIBUTE_UNUSED,
7866 int quadrant,
7867 asection *seg)
252b5132
RH		 7868{
7869 ssd_chain_struct *chain_entry;
7870
9b52905e 7871 chain_entry = xmalloc (sizeof (ssd_chain_struct));
252b5132
RH		 7872 if (!chain_entry)
7873 as_fatal (_("Out of memory: could not allocate new subspace chain entry: %s\n"), name);
7874
9b52905e 7875 SUBSPACE_NAME (chain_entry) = xmalloc (strlen (name) + 1);
252b5132
RH		 7876 strcpy (SUBSPACE_NAME (chain_entry), name);
7877
7878 /* Initialize subspace_defined. When we hit a .subspace directive
7879 we'll set it to 1 which "locks-in" the subspace attributes. */
7880 SUBSPACE_DEFINED (chain_entry) = 0;
7881
49863f82 7882 chain_entry->ssd_subseg = 0;
252b5132
RH		 7883 chain_entry->ssd_seg = seg;
7884 chain_entry->ssd_next = NULL;
7885
7886 /* Find spot for the new subspace based on its sort key. */
7887 if (space->sd_subspaces == NULL)
7888 space->sd_subspaces = chain_entry;
7889 else
7890 {
7891 ssd_chain_struct *chain_pointer;
7892 ssd_chain_struct *prev_chain_pointer;
7893
7894 chain_pointer = space->sd_subspaces;
7895 prev_chain_pointer = NULL;
7896
7897 while (chain_pointer)
7898 {
7899 prev_chain_pointer = chain_pointer;
7900 chain_pointer = chain_pointer->ssd_next;
7901 }
7902
7903 /* Now we have somewhere to put the new entry. Insert it and update
4e3b43ed 7904 the links. */
252b5132
RH		 7905 if (prev_chain_pointer)
7906 {
7907 chain_entry->ssd_next = chain_pointer;
7908 prev_chain_pointer->ssd_next = chain_entry;
7909 }
7910 else
7911 {
7912 space->sd_subspaces = chain_entry;
7913 chain_entry->ssd_next = chain_pointer;
7914 }
7915 }
7916
7917#ifdef obj_set_subsection_attributes
fd4db1a1 7918 obj_set_subsection_attributes (seg, space->sd_seg, access_ctr, sort,
351e2b5a 7919 quadrant, comdat, common, dup_common);
252b5132
RH		 7920#endif
7921
7922 return chain_entry;
7923}
7924
7925/* Update the information for the given subspace based upon the
7926 various arguments. Return the modified subspace chain entry. */
7927
7928static ssd_chain_struct *
9b52905e
NC		 7929update_subspace (sd_chain_struct *space,
7930 char *name,
7931 int loadable ATTRIBUTE_UNUSED,
7932 int code_only ATTRIBUTE_UNUSED,
7933 int comdat,
7934 int common,
7935 int dup_common,
7936 int sort,
7937 int zero ATTRIBUTE_UNUSED,
fd4db1a1 7938 int access_ctr,
9b52905e
NC		 7939 int space_index ATTRIBUTE_UNUSED,
7940 int alignment ATTRIBUTE_UNUSED,
7941 int quadrant,
7942 asection *section)
252b5132
RH		 7943{
7944 ssd_chain_struct *chain_entry;
7945
7946 chain_entry = is_defined_subspace (name);
7947
7948#ifdef obj_set_subsection_attributes
fd4db1a1 7949 obj_set_subsection_attributes (section, space->sd_seg, access_ctr, sort,
351e2b5a 7950 quadrant, comdat, common, dup_common);
252b5132
RH		 7951#endif
7952
7953 return chain_entry;
7954}
7955
7956/* Return the space chain entry for the space with the name NAME or
7957 NULL if no such space exists. */
7958
7959static sd_chain_struct *
9b52905e 7960is_defined_space (char *name)
252b5132
RH		 7961{
7962 sd_chain_struct *chain_pointer;
7963
7964 for (chain_pointer = space_dict_root;
7965 chain_pointer;
7966 chain_pointer = chain_pointer->sd_next)
9b52905e
NC		 7967 if (strcmp (SPACE_NAME (chain_pointer), name) == 0)
7968 return chain_pointer;
252b5132
RH		 7969
7970 /* No mapping from segment to space was found. Return NULL. */
7971 return NULL;
7972}
7973
7974/* Find and return the space associated with the given seg. If no mapping
7975 from the given seg to a space is found, then return NULL.
7976
7977 Unlike subspaces, the number of spaces is not expected to grow much,
7978 so a linear exhaustive search is OK here. */
7979
7980static sd_chain_struct *
9b52905e 7981pa_segment_to_space (asection *seg)
252b5132
RH		 7982{
7983 sd_chain_struct *space_chain;
7984
7985 /* Walk through each space looking for the correct mapping. */
7986 for (space_chain = space_dict_root;
7987 space_chain;
7988 space_chain = space_chain->sd_next)
9b52905e
NC		 7989 if (space_chain->sd_seg == seg)
7990 return space_chain;
252b5132
RH		 7991
7992 /* Mapping was not found. Return NULL. */
7993 return NULL;
7994}
7995
e12904d2
DA		 7996/* Return the first space chain entry for the subspace with the name
7997 NAME or NULL if no such subspace exists.
252b5132 7998
e12904d2
DA		 7999 When there are multiple subspaces with the same name, switching to
8000 the first (i.e., default) subspace is preferable in most situations.
8001 For example, it wouldn't be desirable to merge COMDAT data with non
8002 COMDAT data.
9b52905e 8003
252b5132
RH		 8004 Uses a linear search through all the spaces and subspaces, this may
8005 not be appropriate if we ever being placing each function in its
8006 own subspace. */
8007
8008static ssd_chain_struct *
9b52905e 8009is_defined_subspace (char *name)
252b5132
RH		 8010{
8011 sd_chain_struct *space_chain;
8012 ssd_chain_struct *subspace_chain;
8013
8014 /* Walk through each space. */
8015 for (space_chain = space_dict_root;
8016 space_chain;
8017 space_chain = space_chain->sd_next)
8018 {
8019 /* Walk through each subspace looking for a name which matches. */
8020 for (subspace_chain = space_chain->sd_subspaces;
8021 subspace_chain;
8022 subspace_chain = subspace_chain->ssd_next)
8023 if (strcmp (SUBSPACE_NAME (subspace_chain), name) == 0)
8024 return subspace_chain;
8025 }
8026
8027 /* Subspace wasn't found. Return NULL. */
8028 return NULL;
8029}
8030
8031/* Find and return the subspace associated with the given seg. If no
8032 mapping from the given seg to a subspace is found, then return NULL.
8033
8034 If we ever put each procedure/function within its own subspace
8035 (to make life easier on the compiler and linker), then this will have
8036 to become more efficient. */
8037
8038static ssd_chain_struct *
9b52905e 8039pa_subsegment_to_subspace (asection *seg, subsegT subseg)
252b5132
RH		 8040{
8041 sd_chain_struct *space_chain;
8042 ssd_chain_struct *subspace_chain;
8043
8044 /* Walk through each space. */
8045 for (space_chain = space_dict_root;
8046 space_chain;
8047 space_chain = space_chain->sd_next)
8048 {
8049 if (space_chain->sd_seg == seg)
8050 {
8051 /* Walk through each subspace within each space looking for
8052 the correct mapping. */
8053 for (subspace_chain = space_chain->sd_subspaces;
8054 subspace_chain;
8055 subspace_chain = subspace_chain->ssd_next)
8056 if (subspace_chain->ssd_subseg == (int) subseg)
8057 return subspace_chain;
8058 }
8059 }
8060
8061 /* No mapping from subsegment to subspace found. Return NULL. */
8062 return NULL;
8063}
8064
8065/* Given a number, try and find a space with the name number.
8066
8067 Return a pointer to a space dictionary chain entry for the space
8068 that was found or NULL on failure. */
8069
8070static sd_chain_struct *
9b52905e 8071pa_find_space_by_number (int number)
252b5132
RH		 8072{
8073 sd_chain_struct *space_chain;
8074
8075 for (space_chain = space_dict_root;
8076 space_chain;
8077 space_chain = space_chain->sd_next)
8078 {
8079 if (SPACE_SPNUM (space_chain) == (unsigned int) number)
8080 return space_chain;
8081 }
8082
8083 /* No appropriate space found. Return NULL. */
8084 return NULL;
8085}
8086
8087/* Return the starting address for the given subspace. If the starting
8088 address is unknown then return zero. */
8089
8090static unsigned int
9b52905e 8091pa_subspace_start (sd_chain_struct *space, int quadrant)
252b5132 8092{
252b5132
RH		 8093 /* FIXME. Assumes everyone puts read/write data at 0x4000000, this
8094 is not correct for the PA OSF1 port. */
8095 if ((strcmp (SPACE_NAME (space), "$PRIVATE$") == 0) && quadrant == 1)
8096 return 0x40000000;
8097 else if (space->sd_seg == data_section && quadrant == 1)
8098 return 0x40000000;
8099 else
8100 return 0;
252b5132
RH		 8101 return 0;
8102}
49863f82 8103#endif
252b5132
RH		 8104
8105/* Helper function for pa_stringer. Used to find the end of
8106 a string. */
8107
8108static unsigned int
9b52905e 8109pa_stringer_aux (char *s)
252b5132
RH		 8110{
8111 unsigned int c = *s & CHAR_MASK;
8112
252b5132
RH		 8113 switch (c)
8114 {
8115 case '\"':
8116 c = NOT_A_CHAR;
8117 break;
8118 default:
8119 break;
8120 }
8121 return c;
8122}
8123
8124/* Handle a .STRING type pseudo-op. */
8125
8126static void
9b52905e 8127pa_stringer (int append_zero)
252b5132
RH		 8128{
8129 char *s, num_buf[4];
8130 unsigned int c;
8131 int i;
8132
8133 /* Preprocess the string to handle PA-specific escape sequences.
ad1079af 8134 For example, \xDD where DD is a hexadecimal number should be
252b5132
RH		 8135 changed to \OOO where OOO is an octal number. */
8136
ad1079af
AM		 8137#ifdef OBJ_SOM
8138 /* We must have a valid space and subspace. */
8139 pa_check_current_space_and_subspace ();
8140#endif
8141
252b5132
RH		 8142 /* Skip the opening quote. */
8143 s = input_line_pointer + 1;
8144
8145 while (is_a_char (c = pa_stringer_aux (s++)))
8146 {
8147 if (c == '\\')
8148 {
8149 c = *s;
8150 switch (c)
8151 {
8152 /* Handle \x<num>. */
8153 case 'x':
8154 {
8155 unsigned int number;
8156 int num_digit;
8157 char dg;
8158 char *s_start = s;
8159
ad1079af 8160 /* Get past the 'x'. */
252b5132
RH		 8161 s++;
8162 for (num_digit = 0, number = 0, dg = *s;
8163 num_digit < 2
3882b010 8164 && (ISDIGIT (dg) || (dg >= 'a' && dg <= 'f')
252b5132
RH		 8165 || (dg >= 'A' && dg <= 'F'));
8166 num_digit++)
8167 {
3882b010 8168 if (ISDIGIT (dg))
252b5132
RH		 8169 number = number * 16 + dg - '0';
8170 else if (dg >= 'a' && dg <= 'f')
8171 number = number * 16 + dg - 'a' + 10;
8172 else
8173 number = number * 16 + dg - 'A' + 10;
8174
8175 s++;
8176 dg = *s;
8177 }
8178 if (num_digit > 0)
8179 {
8180 switch (num_digit)
8181 {
8182 case 1:
8183 sprintf (num_buf, "%02o", number);
8184 break;
8185 case 2:
8186 sprintf (num_buf, "%03o", number);
8187 break;
8188 }
8189 for (i = 0; i <= num_digit; i++)
8190 s_start[i] = num_buf[i];
8191 }
8192 break;
8193 }
8194 /* This might be a "\"", skip over the escaped char. */
8195 default:
8196 s++;
8197 break;
8198 }
8199 }
8200 }
38a57ae7 8201 stringer (8 + append_zero);
252b5132
RH		 8202 pa_undefine_label ();
8203}
8204
8205/* Handle a .VERSION pseudo-op. */
8206
8207static void
9b52905e 8208pa_version (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 8209{
8210 obj_version (0);
8211 pa_undefine_label ();
8212}
8213
8214#ifdef OBJ_SOM
8215
8216/* Handle a .COMPILER pseudo-op. */
8217
8218static void
9b52905e 8219pa_compiler (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 8220{
8221 obj_som_compiler (0);
8222 pa_undefine_label ();
8223}
8224
8225#endif
8226
8227/* Handle a .COPYRIGHT pseudo-op. */
8228
8229static void
9b52905e 8230pa_copyright (int unused ATTRIBUTE_UNUSED)
252b5132
RH		 8231{
8232 obj_copyright (0);
8233 pa_undefine_label ();
8234}
8235
8236/* Just like a normal cons, but when finished we have to undefine
8237 the latest space label. */
8238
8239static void
9b52905e 8240pa_cons (int nbytes)
252b5132
RH		 8241{
8242 cons (nbytes);
8243 pa_undefine_label ();
8244}
8245
252b5132
RH		 8246/* Like float_cons, but we need to undefine our label. */
8247
8248static void
9b52905e 8249pa_float_cons (int float_type)
252b5132
RH		 8250{
8251 float_cons (float_type);
8252 pa_undefine_label ();
8253}
8254
8255/* Like s_fill, but delete our label when finished. */
8256
8257static void
9b52905e 8258pa_fill (int unused ATTRIBUTE_UNUSED)
252b5132 8259{
49863f82 8260#ifdef OBJ_SOM
252b5132
RH		 8261 /* We must have a valid space and subspace. */
8262 pa_check_current_space_and_subspace ();
49863f82 8263#endif
252b5132
RH		 8264
8265 s_fill (0);
8266 pa_undefine_label ();
8267}
8268
8269/* Like lcomm, but delete our label when finished. */
8270
8271static void
9b52905e 8272pa_lcomm (int needs_align)
252b5132 8273{
49863f82 8274#ifdef OBJ_SOM
252b5132
RH		 8275 /* We must have a valid space and subspace. */
8276 pa_check_current_space_and_subspace ();
49863f82 8277#endif
252b5132
RH		 8278
8279 s_lcomm (needs_align);
8280 pa_undefine_label ();
8281}
8282
8283/* Like lsym, but delete our label when finished. */
8284
8285static void
9b52905e 8286pa_lsym (int unused ATTRIBUTE_UNUSED)
252b5132 8287{
49863f82 8288#ifdef OBJ_SOM
252b5132
RH		 8289 /* We must have a valid space and subspace. */
8290 pa_check_current_space_and_subspace ();
49863f82 8291#endif
252b5132
RH		 8292
8293 s_lsym (0);
8294 pa_undefine_label ();
8295}
8296
9b52905e
NC		 8297/* This function is called once, at assembler startup time. It should
8298 set up all the tables, etc. that the MD part of the assembler will need. */
8299
8300void
8301md_begin (void)
8302{
8303 const char *retval = NULL;
8304 int lose = 0;
8305 unsigned int i = 0;
8306
8307 last_call_info = NULL;
8308 call_info_root = NULL;
8309
8310 /* Set the default machine type. */
8311 if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, DEFAULT_LEVEL))
8312 as_warn (_("could not set architecture and machine"));
8313
8314 /* Folding of text and data segments fails miserably on the PA.
8315 Warn user and disable "-R" option. */
8316 if (flag_readonly_data_in_text)
8317 {
8318 as_warn (_("-R option not supported on this target."));
8319 flag_readonly_data_in_text = 0;
8320 }
8321
8322#ifdef OBJ_SOM
8323 pa_spaces_begin ();
8324#endif
8325
8326 op_hash = hash_new ();
8327
8328 while (i < NUMOPCODES)
8329 {
8330 const char *name = pa_opcodes[i].name;
8331
8332 retval = hash_insert (op_hash, name, (struct pa_opcode *) &pa_opcodes[i]);
8333 if (retval != NULL && *retval != '\0')
8334 {
8335 as_fatal (_("Internal error: can't hash `%s': %s\n"), name, retval);
8336 lose = 1;
8337 }
8338
8339 do
8340 {
8341 if ((pa_opcodes[i].match & pa_opcodes[i].mask)
8342 != pa_opcodes[i].match)
8343 {
8344 fprintf (stderr, _("internal error: losing opcode: `%s' \"%s\"\n"),
8345 pa_opcodes[i].name, pa_opcodes[i].args);
8346 lose = 1;
8347 }
8348 ++i;
8349 }
8350 while (i < NUMOPCODES && !strcmp (pa_opcodes[i].name, name));
8351 }
8352
8353 if (lose)
8354 as_fatal (_("Broken assembler. No assembly attempted."));
8355
8356#ifdef OBJ_SOM
8357 /* SOM will change text_section. To make sure we never put
8358 anything into the old one switch to the new one now. */
8359 subseg_set (text_section, 0);
8360#endif
8361
8362#ifdef OBJ_SOM
8363 dummy_symbol = symbol_find_or_make ("L$dummy");
8364 S_SET_SEGMENT (dummy_symbol, text_section);
8365 /* Force the symbol to be converted to a real symbol. */
4e3b43ed 8366 symbol_get_bfdsym (dummy_symbol)->flags |= BSF_KEEP;
9b52905e
NC		 8367#endif
8368}
8369
252b5132
RH		 8370/* On the PA relocations which involve function symbols must not be
8371 adjusted. This so that the linker can know when/how to create argument
8372 relocation stubs for indirect calls and calls to static functions.
8373
8374 "T" field selectors create DLT relative fixups for accessing
8375 globals and statics in PIC code; each DLT relative fixup creates
8376 an entry in the DLT table. The entries contain the address of
8377 the final target (eg accessing "foo" would create a DLT entry
8378 with the address of "foo").
8379
8380 Unfortunately, the HP linker doesn't take into account any addend
8381 when generating the DLT; so accessing $LIT$+8 puts the address of
8382 $LIT$ into the DLT rather than the address of $LIT$+8.
8383
8384 The end result is we can't perform relocation symbol reductions for
8385 any fixup which creates entries in the DLT (eg they use "T" field
8386 selectors).
8387
88856d20
DA		 8388 ??? Reject reductions involving symbols with external scope; such
8389 reductions make life a living hell for object file editors. */
252b5132
RH		 8390
8391int
9b52905e 8392hppa_fix_adjustable (fixS *fixp)
252b5132 8393{
2337eb33 8394#ifdef OBJ_ELF
3dcfe21d 8395 reloc_type code;
2337eb33 8396#endif
252b5132
RH		 8397 struct hppa_fix_struct *hppa_fix;
8398
8399 hppa_fix = (struct hppa_fix_struct *) fixp->tc_fix_data;
8400
904a31bf 8401#ifdef OBJ_ELF
3dcfe21d
AM		 8402 /* LR/RR selectors are implicitly used for a number of different relocation
8403 types. We must ensure that none of these types are adjusted (see below)
8404 even if they occur with a different selector. */
8405 code = elf_hppa_reloc_final_type (stdoutput, fixp->fx_r_type,
8406 hppa_fix->fx_r_format,
8407 hppa_fix->fx_r_field);
8408
8409 switch (code)
8410 {
8411 /* Relocation types which use e_lrsel. */
8412 case R_PARISC_DIR21L:
3dcfe21d
AM		 8413 case R_PARISC_DLTREL21L:
8414 case R_PARISC_DPREL21L:
3dcfe21d
AM		 8415 case R_PARISC_PLTOFF21L:
8416
8417 /* Relocation types which use e_rrsel. */
8418 case R_PARISC_DIR14R:
8419 case R_PARISC_DIR14DR:
8420 case R_PARISC_DIR14WR:
8421 case R_PARISC_DIR17R:
3dcfe21d
AM		 8422 case R_PARISC_DLTREL14R:
8423 case R_PARISC_DLTREL14DR:
8424 case R_PARISC_DLTREL14WR:
8425 case R_PARISC_DPREL14R:
8426 case R_PARISC_DPREL14DR:
8427 case R_PARISC_DPREL14WR:
40d74fb1
JL		 8428 case R_PARISC_PLTOFF14R:
8429 case R_PARISC_PLTOFF14DR:
8430 case R_PARISC_PLTOFF14WR:
3dcfe21d
AM		 8431
8432 /* Other types that we reject for reduction. */
8433 case R_PARISC_GNU_VTENTRY:
8434 case R_PARISC_GNU_VTINHERIT:
8435 return 0;
8436 default:
8437 break;
8438 }
5506e1a5 8439#endif
959ee541 8440
252b5132 8441 /* Reject reductions of symbols in sym1-sym2 expressions when
d53d2751 8442 the fixup will occur in a CODE subspace.
252b5132
RH		 8443
8444 XXX FIXME: Long term we probably want to reject all of these;
8445 for example reducing in the debug section would lose if we ever
8446 supported using the optimizing hp linker. */
8447 if (fixp->fx_addsy
8448 && fixp->fx_subsy
8449 && (hppa_fix->segment->flags & SEC_CODE))
a161fe53 8450 return 0;
252b5132
RH		 8451
8452 /* We can't adjust any relocs that use LR% and RR% field selectors.
1cd1c99b
AM		 8453
8454 If a symbol is reduced to a section symbol, the assembler will
8455 adjust the addend unless the symbol happens to reside right at
8456 the start of the section. Additionally, the linker has no choice
8457 but to manipulate the addends when coalescing input sections for
8458 "ld -r". Since an LR% field selector is defined to round the
8459 addend, we can't change the addend without risking that a LR% and
8460 it's corresponding (possible multiple) RR% field will no longer
8461 sum to the right value.
8462
8463 eg. Suppose we have
8464 . ldil LR%foo+0,%r21
8465 . ldw RR%foo+0(%r21),%r26
25a8b250
AM		 8466 . ldw RR%foo+4(%r21),%r25
8467
8468 If foo is at address 4092 (decimal) in section `sect', then after
8469 reducing to the section symbol we get
8470 . LR%sect+4092 == (L%sect)+0
8471 . RR%sect+4092 == (R%sect)+4092
8472 . RR%sect+4096 == (R%sect)-4096
8473 and the last address loses because rounding the addend to 8k
0234cb7c 8474 multiples takes us up to 8192 with an offset of -4096.
25a8b250
AM		 8475
8476 In cases where the LR% expression is identical to the RR% one we
8477 will never have a problem, but is so happens that gcc rounds
8478 addends involved in LR% field selectors to work around a HP
8479 linker bug. ie. We often have addresses like the last case
1cd1c99b
AM		 8480 above where the LR% expression is offset from the RR% one. */
8481
252b5132
RH		 8482 if (hppa_fix->fx_r_field == e_lrsel
8483 || hppa_fix->fx_r_field == e_rrsel
8484 || hppa_fix->fx_r_field == e_nlrsel)
8485 return 0;
252b5132
RH		 8486
8487 /* Reject reductions of symbols in DLT relative relocs,
8488 relocations with plabels. */
8489 if (hppa_fix->fx_r_field == e_tsel
8490 || hppa_fix->fx_r_field == e_ltsel
8491 || hppa_fix->fx_r_field == e_rtsel
8492 || hppa_fix->fx_r_field == e_psel
8493 || hppa_fix->fx_r_field == e_rpsel
8494 || hppa_fix->fx_r_field == e_lpsel)
8495 return 0;
8496
252b5132
RH		 8497 /* Reject absolute calls (jumps). */
8498 if (hppa_fix->fx_r_type == R_HPPA_ABS_CALL)
8499 return 0;
8500
8501 /* Reject reductions of function symbols. */
5506e1a5
AM		 8502 if (fixp->fx_addsy != 0 && S_IS_FUNCTION (fixp->fx_addsy))
8503 return 0;
252b5132 8504
5506e1a5 8505 return 1;
252b5132
RH		 8506}
8507
8508/* Return nonzero if the fixup in FIXP will require a relocation,
8509 even it if appears that the fixup could be completely handled
8510 within GAS. */
8511
8512int
9b52905e 8513hppa_force_relocation (struct fix *fixp)
252b5132
RH		 8514{
8515 struct hppa_fix_struct *hppa_fixp;
252b5132
RH		 8516
8517 hppa_fixp = (struct hppa_fix_struct *) fixp->tc_fix_data;
8518#ifdef OBJ_SOM
ad1079af
AM		 8519 if (fixp->fx_r_type == (int) R_HPPA_ENTRY
8520 || fixp->fx_r_type == (int) R_HPPA_EXIT
8521 || fixp->fx_r_type == (int) R_HPPA_BEGIN_BRTAB
8522 || fixp->fx_r_type == (int) R_HPPA_END_BRTAB
8523 || fixp->fx_r_type == (int) R_HPPA_BEGIN_TRY
8524 || fixp->fx_r_type == (int) R_HPPA_END_TRY
252b5132
RH		 8525 || (fixp->fx_addsy != NULL && fixp->fx_subsy != NULL
8526 && (hppa_fixp->segment->flags & SEC_CODE) != 0))
8527 return 1;
8528#endif
904a31bf
AM		 8529#ifdef OBJ_ELF
8530 if (fixp->fx_r_type == (int) R_PARISC_GNU_VTINHERIT
8531 || fixp->fx_r_type == (int) R_PARISC_GNU_VTENTRY)
8532 return 1;
5506e1a5
AM		 8533#endif
8534
9c2799c2 8535 gas_assert (fixp->fx_addsy != NULL);
252b5132 8536
9e754211
AM		 8537 /* Ensure we emit a relocation for global symbols so that dynamic
8538 linking works. */
ae6063d4 8539 if (S_FORCE_RELOC (fixp->fx_addsy, 1))
9e754211
AM		 8540 return 1;
8541
252b5132 8542 /* It is necessary to force PC-relative calls/jumps to have a relocation
b6ff326e 8543 entry if they're going to need either an argument relocation or long
9e754211 8544 call stub. */
5506e1a5
AM		 8545 if (fixp->fx_pcrel
8546 && arg_reloc_stub_needed (symbol_arg_reloc_info (fixp->fx_addsy),
8547 hppa_fixp->fx_arg_reloc))
252b5132 8548 return 1;
ad1079af 8549
5506e1a5
AM		 8550 /* Now check to see if we're going to need a long-branch stub. */
8551 if (fixp->fx_r_type == (int) R_HPPA_PCREL_CALL)
8552 {
ec8b3afd
JL		 8553 long pc = md_pcrel_from (fixp);
8554 valueT distance, min_stub_distance;
5506e1a5 8555
ec8b3afd
JL		 8556 distance = fixp->fx_offset + S_GET_VALUE (fixp->fx_addsy) - pc - 8;
8557
8558 /* Distance to the closest possible stub. This will detect most
8559 but not all circumstances where a stub will not work. */
8560 min_stub_distance = pc + 16;
8561#ifdef OBJ_SOM
8562 if (last_call_info != NULL)
8563 min_stub_distance -= S_GET_VALUE (last_call_info->start_symbol);
27df9f40 8564#endif
ec8b3afd
JL		 8565
8566 if ((distance + 8388608 >= 16777216
8567 && min_stub_distance <= 8388608)
8568 || (hppa_fixp->fx_r_format == 17
8569 && distance + 262144 >= 524288
8570 && min_stub_distance <= 262144)
8571 || (hppa_fixp->fx_r_format == 12
8572 && distance + 8192 >= 16384
8573 && min_stub_distance <= 8192)
27df9f40 8574 )
5506e1a5
AM		 8575 return 1;
8576 }
252b5132 8577
ad1079af 8578 if (fixp->fx_r_type == (int) R_HPPA_ABS_CALL)
252b5132 8579 return 1;
252b5132
RH		 8580
8581 /* No need (yet) to force another relocations to be emitted. */
8582 return 0;
8583}
8584
8585/* Now for some ELF specific code. FIXME. */
8586#ifdef OBJ_ELF
252b5132
RH		 8587/* For ELF, this function serves one purpose: to setup the st_size
8588 field of STT_FUNC symbols. To do this, we need to scan the
8589 call_info structure list, determining st_size in by taking the
8590 difference in the address of the beginning/end marker symbols. */
8591
8592void
9b52905e 8593elf_hppa_final_processing (void)
252b5132
RH		 8594{
8595 struct call_info *call_info_pointer;
8596
8597 for (call_info_pointer = call_info_root;
8598 call_info_pointer;
8599 call_info_pointer = call_info_pointer->ci_next)
8600 {
8601 elf_symbol_type *esym
a0f75b47
ILT		 8602 = ((elf_symbol_type *)
8603 symbol_get_bfdsym (call_info_pointer->start_symbol));
252b5132
RH		 8604 esym->internal_elf_sym.st_size =
8605 S_GET_VALUE (call_info_pointer->end_symbol)
8606 - S_GET_VALUE (call_info_pointer->start_symbol) + 4;
8607 }
8608}
2d93dcc4 8609
904a31bf 8610static void
9b52905e 8611pa_vtable_entry (int ignore ATTRIBUTE_UNUSED)
904a31bf
AM		 8612{
8613 struct fix *new_fix;
8614
8615 new_fix = obj_elf_vtable_entry (0);
8616
8617 if (new_fix)
8618 {
9b52905e
NC		 8619 struct hppa_fix_struct * hppa_fix = obstack_alloc (&notes, sizeof (struct hppa_fix_struct));
8620
904a31bf
AM		 8621 hppa_fix->fx_r_type = R_HPPA;
8622 hppa_fix->fx_r_field = e_fsel;
8623 hppa_fix->fx_r_format = 32;
8624 hppa_fix->fx_arg_reloc = 0;
8625 hppa_fix->segment = now_seg;
8626 new_fix->tc_fix_data = (void *) hppa_fix;
8627 new_fix->fx_r_type = (int) R_PARISC_GNU_VTENTRY;
8628 }
8629}
8630
8631static void
9b52905e 8632pa_vtable_inherit (int ignore ATTRIBUTE_UNUSED)
904a31bf
AM		 8633{
8634 struct fix *new_fix;
8635
8636 new_fix = obj_elf_vtable_inherit (0);
8637
8638 if (new_fix)
8639 {
9b52905e
NC		 8640 struct hppa_fix_struct * hppa_fix = obstack_alloc (&notes, sizeof (struct hppa_fix_struct));
8641
904a31bf
AM		 8642 hppa_fix->fx_r_type = R_HPPA;
8643 hppa_fix->fx_r_field = e_fsel;
8644 hppa_fix->fx_r_format = 32;
8645 hppa_fix->fx_arg_reloc = 0;
8646 hppa_fix->segment = now_seg;
8647 new_fix->tc_fix_data = (void *) hppa_fix;
8648 new_fix->fx_r_type = (int) R_PARISC_GNU_VTINHERIT;
8649 }
8650}
2d93dcc4 8651#endif
9b52905e
NC		 8652
8653/* Table of pseudo ops for the PA. FIXME -- how many of these
8654 are now redundant with the overall GAS and the object file
8655 dependent tables? */
8656const pseudo_typeS md_pseudo_table[] =
8657{
8658 /* align pseudo-ops on the PA specify the actual alignment requested,
8659 not the log2 of the requested alignment. */
8660#ifdef OBJ_SOM
8661 {"align", pa_align, 8},
8662#endif
8663#ifdef OBJ_ELF
8664 {"align", s_align_bytes, 8},
8665#endif
8666 {"begin_brtab", pa_brtab, 1},
8667 {"begin_try", pa_try, 1},
8668 {"block", pa_block, 1},
8669 {"blockz", pa_block, 0},
8670 {"byte", pa_cons, 1},
8671 {"call", pa_call, 0},
8672 {"callinfo", pa_callinfo, 0},
8673#if defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD))
8674 {"code", obj_elf_text, 0},
8675#else
8676 {"code", pa_text, 0},
8677 {"comm", pa_comm, 0},
8678#endif
8679#ifdef OBJ_SOM
8680 {"compiler", pa_compiler, 0},
8681#endif
8682 {"copyright", pa_copyright, 0},
8683#if !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD)))
8684 {"data", pa_data, 0},
8685#endif
8686 {"double", pa_float_cons, 'd'},
8687 {"dword", pa_cons, 8},
8688 {"end", pa_end, 0},
8689 {"end_brtab", pa_brtab, 0},
8690#if !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD)))
8691 {"end_try", pa_try, 0},
8692#endif
8693 {"enter", pa_enter, 0},
8694 {"entry", pa_entry, 0},
8695 {"equ", pa_equ, 0},
8696 {"exit", pa_exit, 0},
8697 {"export", pa_export, 0},
8698 {"fill", pa_fill, 0},
8699 {"float", pa_float_cons, 'f'},
8700 {"half", pa_cons, 2},
8701 {"import", pa_import, 0},
8702 {"int", pa_cons, 4},
8703 {"label", pa_label, 0},
8704 {"lcomm", pa_lcomm, 0},
8705 {"leave", pa_leave, 0},
8706 {"level", pa_level, 0},
8707 {"long", pa_cons, 4},
8708 {"lsym", pa_lsym, 0},
8709#ifdef OBJ_SOM
8710 {"nsubspa", pa_subspace, 1},
8711#endif
8712 {"octa", pa_cons, 16},
8713 {"org", pa_origin, 0},
8714 {"origin", pa_origin, 0},
8715 {"param", pa_param, 0},
8716 {"proc", pa_proc, 0},
8717 {"procend", pa_procend, 0},
8718 {"quad", pa_cons, 8},
8719 {"reg", pa_equ, 1},
8720 {"short", pa_cons, 2},
8721 {"single", pa_float_cons, 'f'},
8722#ifdef OBJ_SOM
8723 {"space", pa_space, 0},
8724 {"spnum", pa_spnum, 0},
8725#endif
8726 {"string", pa_stringer, 0},
8727 {"stringz", pa_stringer, 1},
8728#ifdef OBJ_SOM
8729 {"subspa", pa_subspace, 0},
8730#endif
8731#if !(defined (OBJ_ELF) && (defined (TE_LINUX) || defined (TE_NetBSD)))
8732 {"text", pa_text, 0},
8733#endif
8734 {"version", pa_version, 0},
8735#ifdef OBJ_ELF
8736 {"vtable_entry", pa_vtable_entry, 0},
8737 {"vtable_inherit", pa_vtable_inherit, 0},
8738#endif
8739 {"word", pa_cons, 4},
8740 {NULL, 0, 0}
8741};
c79b7c30
RC		 8742
8743#ifdef OBJ_ELF
8744void
8745hppa_cfi_frame_initial_instructions (void)
8746{
8747 cfi_add_CFA_def_cfa (30, 0);
8748}
8749
8750int
8751hppa_regname_to_dw2regnum (char *regname)
8752{
8753 unsigned int regnum = -1;
8754 unsigned int i;
8755 const char *p;
8756 char *q;
8757 static struct { char *name; int dw2regnum; } regnames[] =
8758 {
8759 { "sp", 30 }, { "rp", 2 },
8760 };
8761
8762 for (i = 0; i < ARRAY_SIZE (regnames); ++i)
8763 if (strcmp (regnames[i].name, regname) == 0)
8764 return regnames[i].dw2regnum;
8765
8766 if (regname[0] == 'r')
8767 {
8768 p = regname + 1;
8769 regnum = strtoul (p, &q, 10);
8770 if (p == q || *q || regnum >= 32)
8771 return -1;
8772 }
8773 else if (regname[0] == 'f' && regname[1] == 'r')
8774 {
8775 p = regname + 2;
8776 regnum = strtoul (p, &q, 10);
2b489661 8777#if TARGET_ARCH_SIZE == 64
c79b7c30
RC		 8778 if (p == q || *q || regnum <= 4 || regnum >= 32)
8779 return -1;
8780 regnum += 32 - 4;
2b489661
DA		 8781#else
8782 if (p == q
8783 || (*q && ((*q != 'L' && *q != 'R') || *(q + 1)))
8784 || regnum <= 4 || regnum >= 32)
8785 return -1;
8786 regnum = (regnum - 4) * 2 + 32;
8787 if (*q == 'R')
8788 regnum++;
8789#endif
c79b7c30
RC		 8790 }
8791 return regnum;
8792}
8793#endif
GDB Binutils - Deliverables
This page took 1.072085 seconds and 4 git commands to generate.