* config/tc-v850.c (md_assemble): When no reloc, create pcrel fixups
authorAlan Modra <amodra@gmail.com>
Tue, 15 Jul 2003 04:04:18 +0000 (04:04 +0000)
committerAlan Modra <amodra@gmail.com>
Tue, 15 Jul 2003 04:04:18 +0000 (04:04 +0000)
only for V850_OPERAND_DISP operands.

gas/ChangeLog
gas/config/tc-v850.c

index 62e0987a9764e9019f725e6874bd7fc4ea7373c1..1f02072eab6811e7d4a68bde29968b4462cc4a04 100644 (file)
@@ -1,3 +1,8 @@
+2003-07-15  Alan Modra  <amodra@bigpond.net.au>
+
+       * config/tc-v850.c (md_assemble): When no reloc, create pcrel fixups
+       only for V850_OPERAND_DISP operands.
+
 2003-07-15  Alan Modra  <amodra@bigpond.net.au>
 
        * frags.c (frag_more): Move segment checks to..
index 5ee3c3412e45eae5261224e55b0b7a2601369d00..1e618aa2bc3c90ee8e71179e22dd962b7b8942c3 100644 (file)
@@ -197,7 +197,7 @@ v850_offset (ignore)
   int temp = get_absolute_expression ();
 
   pfrag = frag_var (rs_org, 1, 1, (relax_substateT)0, (symbolS *)0,
-                       (offsetT) temp, (char *) 0);
+                   (offsetT) temp, (char *) 0);
   *pfrag = 0;
 
   demand_empty_rest_of_line ();
@@ -396,12 +396,12 @@ v850_comm (area)
        }
       else
        {
-          segT   old_sec;
-          int    old_subsec;
+         segT   old_sec;
+         int    old_subsec;
 
        allocate_common:
-          old_sec = now_seg;
-          old_subsec = now_subseg;
+         old_sec = now_seg;
+         old_subsec = now_subseg;
 
          S_SET_VALUE (symbolP, (valueT) size);
          S_SET_ALIGN (symbolP, temp);
@@ -477,7 +477,7 @@ set_machine (number)
 
   switch (machine)
     {
-    case 0:               processor_mask = PROCESSOR_V850;   break;
+    case 0:              processor_mask = PROCESSOR_V850;   break;
     case bfd_mach_v850e:  processor_mask = PROCESSOR_V850E;  break;
     }
 }
@@ -495,7 +495,7 @@ v850_longcode (type)
       if (type == 1)
        as_warn (".longcall pseudo-op seen when not relaxing");
       else
-       as_warn (".longjump pseudo-op seen when not relaxing"); 
+       as_warn (".longjump pseudo-op seen when not relaxing");
     }
 
   expression (&ex);
@@ -508,7 +508,7 @@ v850_longcode (type)
       return;
     }
 
-  if (type == 1) 
+  if (type == 1)
     fix_new_exp (frag_now, frag_now_fix (), 4, & ex, 1,
                 BFD_RELOC_V850_LONGCALL);
   else
@@ -539,8 +539,8 @@ const pseudo_typeS md_pseudo_table[] =
   { "call_table_data", v850_seg,               CALL_TABLE_DATA_SECTION },
   { "call_table_text", v850_seg,               CALL_TABLE_TEXT_SECTION },
   { "v850e",           set_machine,            bfd_mach_v850e          },
-  { "longcall",         v850_longcode,          1                       },
-  { "longjump",         v850_longcode,          2                       },
+  { "longcall",                v850_longcode,          1                       },
+  { "longjump",                v850_longcode,          2                       },
   { NULL,              NULL,                   0                       }
 };
 
@@ -715,9 +715,9 @@ reg_name_search (regs, regcount, name, accept_numbers)
 }
 
 /* Summary of register_name().
-  
+
    in: Input_line_pointer points to 1st char of operand.
-  
+
    out: An expressionS.
        The operand may have been a register: in this case, X_op == O_register,
        X_add_number is set to the register number, and truth is returned.
@@ -749,7 +749,7 @@ register_name (expressionP)
   /* Look to see if it's in the register table.  */
   if (reg_number >= 0)
     {
-      expressionP->X_op         = O_register;
+      expressionP->X_op                = O_register;
       expressionP->X_add_number = reg_number;
 
       /* Make the rest nice.  */
@@ -768,13 +768,13 @@ register_name (expressionP)
 }
 
 /* Summary of system_register_name().
-  
+
    in:  INPUT_LINE_POINTER points to 1st char of operand.
-        EXPRESSIONP points to an expression structure to be filled in.
-        ACCEPT_NUMBERS is true iff numerical register names may be used.
-        ACCEPT_LIST_NAMES is true iff the special names PS and SR may be
-        accepted.
-  
+       EXPRESSIONP points to an expression structure to be filled in.
+       ACCEPT_NUMBERS is true iff numerical register names may be used.
+       ACCEPT_LIST_NAMES is true iff the special names PS and SR may be
+       accepted.
+
    out: An expressionS structure in expressionP.
        The operand may have been a register: in this case, X_op == O_register,
        X_add_number is set to the register number, and truth is returned.
@@ -837,7 +837,7 @@ system_register_name (expressionP, accept_numbers, accept_list_names)
   /* Look to see if it's in the register table.  */
   if (reg_number >= 0)
     {
-      expressionP->X_op         = O_register;
+      expressionP->X_op                = O_register;
       expressionP->X_add_number = reg_number;
 
       /* Make the rest nice.  */
@@ -856,9 +856,9 @@ system_register_name (expressionP, accept_numbers, accept_list_names)
 }
 
 /* Summary of cc_name().
-  
+
    in: INPUT_LINE_POINTER points to 1st char of operand.
-  
+
    out: An expressionS.
        The operand may have been a register: in this case, X_op == O_register,
        X_add_number is set to the register number, and truth is returned.
@@ -888,7 +888,7 @@ cc_name (expressionP)
   /* Look to see if it's in the register table.  */
   if (reg_number >= 0)
     {
-      expressionP->X_op         = O_constant;
+      expressionP->X_op                = O_constant;
       expressionP->X_add_number = reg_number;
 
       /* Make the rest nice.  */
@@ -917,24 +917,24 @@ skip_white_space ()
 }
 
 /* Summary of parse_register_list ().
-  
+
    in: INPUT_LINE_POINTER  points to 1st char of a list of registers.
-       INSN                is the partially constructed instruction.
-       OPERAND             is the operand being inserted.
-  
+       INSN               is the partially constructed instruction.
+       OPERAND            is the operand being inserted.
+
    out: NULL if the parse completed successfully, otherwise a
-        pointer to an error message is returned.  If the parse
-        completes the correct bit fields in the instruction
-        will be filled in.
-  
+       pointer to an error message is returned.  If the parse
+       completes the correct bit fields in the instruction
+       will be filled in.
+
    Parses register lists with the syntax:
-  
+
      { rX }
      { rX, rY }
      { rX - rY }
      { rX - rY, rZ }
      etc
-  
+
    and also parses constant epxressions whoes bits indicate the
    registers in the lists.  The LSB in the expression refers to
    the lowest numbered permissable register in the register list,
@@ -1158,7 +1158,6 @@ md_show_usage (stream)
   fprintf (stream, _("  -mv850e                   The code is targeted at the v850e\n"));
   fprintf (stream, _("  -mv850any                 The code is generic, despite any processor specific instructions\n"));
   fprintf (stream, _("  -mrelax                   Enable relaxation\n"));
-  
 }
 
 int
@@ -1347,7 +1346,7 @@ md_begin ()
   else
     /* xgettext:c-format  */
     as_bad (_("Unable to determine default target processor from string: %s"),
-            TARGET_CPU);
+           TARGET_CPU);
 
   v850_hash = hash_new ();
 
@@ -1509,13 +1508,13 @@ v850_reloc_prefix (operand)
       return reloc;                                                    \
     }
 
-  CHECK_ ("hi0",    BFD_RELOC_HI16         );
-  CHECK_ ("hi",     BFD_RELOC_HI16_S       );
-  CHECK_ ("lo",     BFD_RELOC_LO16         );
+  CHECK_ ("hi0",    BFD_RELOC_HI16        );
+  CHECK_ ("hi",            BFD_RELOC_HI16_S       );
+  CHECK_ ("lo",            BFD_RELOC_LO16         );
   CHECK_ ("sdaoff", handle_sdaoff (operand));
   CHECK_ ("zdaoff", handle_zdaoff (operand));
   CHECK_ ("tdaoff", handle_tdaoff (operand));
-  CHECK_ ("hilo",   BFD_RELOC_32           );
+  CHECK_ ("hilo",   BFD_RELOC_32          );
   CHECK_ ("ctoff",  handle_ctoff (operand) );
 
   /* Restore skipped parenthesis.  */
@@ -1791,8 +1790,8 @@ md_assemble (str)
                        }
 
                      extra_data_after_insn = TRUE;
-                     extra_data_len        = 4;
-                     extra_data            = 0;
+                     extra_data_len        = 4;
+                     extra_data            = 0;
                      break;
 
                    default:
@@ -1820,8 +1819,8 @@ md_assemble (str)
                        }
 
                      extra_data_after_insn = TRUE;
-                     extra_data_len        = 4;
-                     extra_data            = ex.X_add_number;
+                     extra_data_len        = 4;
+                     extra_data            = ex.X_add_number;
                    }
 
                  if (fc > MAX_INSN_FIXUPS)
@@ -1897,7 +1896,7 @@ md_assemble (str)
 
                  /* The parse_register_list() function has already done
                     everything, so fake a dummy expression.  */
-                 ex.X_op         = O_constant;
+                 ex.X_op         = O_constant;
                  ex.X_add_number = 0;
                }
              else if (operand->flags & V850E_IMMEDIATE16)
@@ -1917,9 +1916,9 @@ md_assemble (str)
                    }
 
                  extra_data_after_insn = TRUE;
-                 extra_data_len        = 2;
-                 extra_data            = ex.X_add_number;
-                 ex.X_add_number       = 0;
+                 extra_data_len        = 2;
+                 extra_data            = ex.X_add_number;
+                 ex.X_add_number       = 0;
                }
              else if (operand->flags & V850E_IMMEDIATE32)
                {
@@ -1929,9 +1928,9 @@ md_assemble (str)
                    errmsg = _("constant expression expected");
 
                  extra_data_after_insn = TRUE;
-                 extra_data_len        = 4;
-                 extra_data            = ex.X_add_number;
-                 ex.X_add_number       = 0;
+                 extra_data_len        = 4;
+                 extra_data            = ex.X_add_number;
+                 ex.X_add_number       = 0;
                }
              else if (register_name (&ex)
                       && (operand->flags & V850_OPERAND_REG) == 0)
@@ -2216,7 +2215,7 @@ md_assemble (str)
          fix_new_exp (frag_now,
                       f - frag_now->fr_literal, 4,
                       & fixups[i].exp,
-                      1 /* FIXME: V850_OPERAND_RELATIVE ???  */,
+                      (operand->flags & V850_OPERAND_DISP) != 0,
                       (bfd_reloc_code_real_type) (fixups[i].opindex
                                                   + (int) BFD_RELOC_UNUSED));
        }
@@ -2235,7 +2234,7 @@ tc_gen_reloc (seg, fixp)
 {
   arelent *reloc;
 
-  reloc               = (arelent *) xmalloc (sizeof (arelent));
+  reloc                      = (arelent *) xmalloc (sizeof (arelent));
   reloc->sym_ptr_ptr  = (asymbol **) xmalloc (sizeof (asymbol *));
   *reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
   reloc->address      = fixp->fx_frag->fr_address + fixp->fx_where;
@@ -2255,7 +2254,7 @@ tc_gen_reloc (seg, fixp)
       reloc->addend = fixp->fx_addnumber;
     }
 
-  reloc->howto        = bfd_reloc_type_lookup (stdoutput, fixp->fx_r_type);
+  reloc->howto = bfd_reloc_type_lookup (stdoutput, fixp->fx_r_type);
 
   if (reloc->howto == (reloc_howto_type *) NULL)
     {
@@ -2285,7 +2284,7 @@ v850_handle_align (frag)
       && now_seg != v850_seg_table[TBSS_SECTION].s
       && now_seg != v850_seg_table[ZBSS_SECTION].s)
     fix_new (frag, frag->fr_fix, 2, & abs_symbol, frag->fr_offset, 0,
-           BFD_RELOC_V850_ALIGN);
+            BFD_RELOC_V850_ALIGN);
 }
 
 /* Return current size of variable part of frag.  */
@@ -2370,7 +2369,7 @@ md_apply_fix3 (fixP, valueP, seg)
       operand = &v850_operands[opindex];
 
       /* Fetch the instruction, insert the fully resolved operand
-         value, and stuff the instruction back again.
+        value, and stuff the instruction back again.
 
         Note the instruction has been stored in little endian
         format!  */