* config/tc-tic80.c (md_apply_fix): Check PC relative relocations

[deliverable/binutils-gdb.git] / gas / config / tc-tic80.c

diff --git a/gas/config/tc-tic80.c b/gas/config/tc-tic80.c
index 9430512f0e7b930e6cd9cc05633f1c9a702e1519..6c1f490c2a255760d9449f5f2315d9ea06a97bd7 100644 (file)
--- a/gas/config/tc-tic80.c
+++ b/gas/config/tc-tic80.c
@@ -917,6 +917,7 @@ md_apply_fix (fixP, val)
      long val;
 {
   char *dest =  fixP -> fx_frag -> fr_literal + fixP -> fx_where;
+  int overflow;
 
   switch (fixP -> fx_r_type)
     {
@@ -924,9 +925,18 @@ md_apply_fix (fixP, val)
       md_number_to_chars (dest, (valueT) val, 4);
       break;
     case R_MPPCR:
-      /* FIXME! - should check for overflow of the 15 bit field */
-      *dest++ = val >> 2;
-      *dest = (*dest & 0x80) | val >> 10;
+      overflow = (val < 0) ? !(val & 0x8000) : (val & 0x8000); 
+      if (overflow)
+       {
+         as_bad_where (fixP -> fx_file, fixP -> fx_line, "PC relative target out of range");
+       }
+      else
+       {
+         val >>= 2;
+         *dest++ = val & 0xFF;
+         val >>= 8;
+         *dest = (*dest & 0x80) | (val & 0x7F);
+       }
       break;
     case R_ABS:
       md_number_to_chars (dest, (valueT) val, fixP -> fx_size);