m68k_ip: for pc-rel addressing of a symbol, fix offset so +2 isn't needed

gas/config/tc-m68k.c

@@ -22,7 +22,6 @@
 #include <ctype.h>
 #define  NO_RELOC 0
 #include "as.h"
-#include "read.h"
 
 #include "obstack.h"
 
@@ -360,10 +359,15 @@ static struct m68k_it the_ins;	/* the instruction being assembled */
 			  )
 
 
-/* The numo+1 kludge is so we can hit the low order byte of the prev word. Blecch*/
+/* The numo+1 kludge is so we can hit the low order byte of the prev word.
-#define add_fix(width,exp,pc_rel) {\
+   Blecch.  */
-				       the_ins.reloc[the_ins.nrel].n= ((width)=='B') ? (the_ins.numo*2-1) : \
+#define add_fix(width,exp,pc_rel) \
-					   (((width)=='b') ? ((the_ins.numo-1)*2) : (the_ins.numo*2));\
+{\
+   the_ins.reloc[the_ins.nrel].n= (((width)=='B') \
+				   ? (the_ins.numo*2-1) \
+				   : (((width)=='b') \
+				      ? ((the_ins.numo-1)*2) \
+				      : (the_ins.numo*2)));\
    the_ins.reloc[the_ins.nrel].add=adds((exp));\
    the_ins.reloc[the_ins.nrel].sub=subs((exp));\
    the_ins.reloc[the_ins.nrel].off=offs((exp));\
@@ -371,7 +375,8 @@ static struct m68k_it the_ins;	/* the instruction being assembled */
    the_ins.reloc[the_ins.nrel++].pcrel=pc_rel;\
 }
 
-#define add_frag(add,off,type)  {\
+#define add_frag(add,off,type) \
+{\
    the_ins.fragb[the_ins.nfrag].fragoff=the_ins.numo;\
    the_ins.fragb[the_ins.nfrag].fadd=add;\
    the_ins.fragb[the_ins.nfrag].foff=off;\
@@ -2196,13 +2201,11 @@ m68k_ip (instring)
 	      nextword = get_num (opP->con1, 80);
 	      /* Force into index mode.  Hope this works */
 
-	      /* We do the first bit for 32-bit displacements,
+	      /* We do the first bit for 32-bit displacements, and the
-	   and the second bit for 16 bit ones.  It is
+		 second bit for 16 bit ones.  It is possible that we
-	   possible that we should make the default be
+		 should make the default be WORD instead of LONG, but
-	   WORD instead of LONG, but I think that'd
+		 I think that'd break GCC, so we put up with a little
-	   break GCC, so we put up with a little
+		 inefficiency for the sake of working output.  */
-	   inefficiency for the sake of working output.
-	   */
 
 	      if (!issword (nextword)
 		  || (isvar (opP->con1)
@@ -2220,7 +2223,7 @@ m68k_ip (instring)
 		      if (opP->reg == PC)
 			{
 			  add_frag (adds (opP->con1),
-				    offs (opP->con1),
+				    offs (opP->con1) + 2,
 				    TAB (PCLEA, SZ_UNDEF));
 			  break;
 			}
@@ -4389,7 +4392,7 @@ tc_aout_fix_to_chars (where, fixP, segment_address_in_file)
    * Out: GNU LD relocation length code: 0, 1, or 2.
    */
 
-  static unsigned char nbytes_r_length[] =
+  static CONST unsigned char nbytes_r_length[] =
   {42, 0, 1, 42, 2};
   long r_symbolnum;
 
@@ -4793,28 +4796,23 @@ md_parse_option (argP, cntP, vecP)
 	  omagic = 1 << 16 | OMAGIC;
 #endif
 	  current_architecture |= m68010;
-
 	}
       else if (!strcmp (*argP, "68020"))
 	{
 	  current_architecture |= m68020 | MAYBE_FLOAT_TOO;
-
 	}
       else if (!strcmp (*argP, "68030"))
 	{
 	  current_architecture |= m68030 | MAYBE_FLOAT_TOO;
-
 	}
       else if (!strcmp (*argP, "68040"))
 	{
 	  current_architecture |= m68040 | MAYBE_FLOAT_TOO;
-
 #ifndef NO_68881
 	}
       else if (!strcmp (*argP, "68881"))
 	{
 	  current_architecture |= m68881;
-
 	}
       else if (!strcmp (*argP, "68882"))
 	{
@@ -4961,46 +4959,6 @@ is_label (str)
 
    */
 
-
-
-#ifdef DONTDEF
-abort ()
-{
-  printf ("ABORT!\n");
-  exit (12);
-}
-
-print_frags ()
-{
-  fragS *fragP;
-  extern fragS *text_frag_root;
-
-  for (fragP = text_frag_root; fragP; fragP = fragP->fr_next)
-    {
-      printf ("addr %lu  next 0x%x  fix %ld  var %ld  symbol 0x%x  offset %ld\n",
-	      fragP->fr_address, fragP->fr_next, fragP->fr_fix, fragP->fr_var, fragP->fr_symbol, fragP->fr_offset);
-      printf ("opcode 0x%x  type %d  subtype %d\n\n", fragP->fr_opcode, fragP->fr_type, fragP->fr_subtype);
-    }
-  fflush (stdout);
-  return 0;
-}
-
-#endif
-
-#ifdef DONTDEF
-/*VARARGS1*/
-panic (format, args)
-     char *format;
-{
-  fputs ("Internal error:", stderr);
-  _doprnt (format, &args, stderr);
-  (void) putc ('\n', stderr);
-  as_where ();
-  abort ();
-}
-
-#endif
-
 /* We have no need to default values of symbols.  */
 
 /* ARGSUSED */
@@ -5064,11 +5022,4 @@ tc_coff_sizemachdep (frag)
 
 }
 
-/*
- * Local Variables:
- * comment-column: 0
- * fill-column: 131
- * End:
- */
-
 /* end of tc-m68k.c */