gas/config/tc-tic30.c

   1 /* tc-c30.c -- Assembly code for the Texas Instruments TMS320C30
   2    Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2006
   3    Free Software Foundation, Inc.
   4    Contributed by Steven Haworth (steve@pm.cse.rmit.edu.au)
   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
  10    the Free Software Foundation; either version 2, or (at your option)
  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
  20    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  21    02110-1301, USA.  */
  22
  23 /* Texas Instruments TMS320C30 machine specific gas.
  24    Written by Steven Haworth (steve@pm.cse.rmit.edu.au).
  25    Bugs & suggestions are completely welcome.  This is free software.
  26    Please help us make it better.  */
  27
  28 #include "as.h"
  29 #include "safe-ctype.h"
  30 #include "opcode/tic30.h"
  31
  32 /* Put here all non-digit non-letter characters that may occur in an
  33    operand.  */
  34 static char operand_special_chars[] = "%$-+(,)*._~/<>&^!:[@]";
  35 static char *ordinal_names[] =
  36 {
  37   "first", "second", "third", "fourth", "fifth"
  38 };
  39
  40 const char comment_chars[]        = ";";
  41 const char line_comment_chars[]   = "*";
  42 const char line_separator_chars[] = "";
  43
  44 const char *md_shortopts = "";
  45 struct option md_longopts[] =
  46 {
  47   {NULL, no_argument, NULL, 0}
  48 };
  49
  50 size_t md_longopts_size = sizeof (md_longopts);
  51
  52 /* Chars that mean this number is a floating point constant.
  53    As in 0f12.456
  54    or    0d1.2345e12.  */
  55 const char FLT_CHARS[] = "fFdDxX";
  56
  57 /* Chars that can be used to separate mant from exp in floating point
  58    nums.  */
  59 const char EXP_CHARS[] = "eE";
  60
  61 /* Tables for lexical analysis.  */
  62 static char opcode_chars[256];
  63 static char register_chars[256];
  64 static char operand_chars[256];
  65 static char space_chars[256];
  66 static char identifier_chars[256];
  67 static char digit_chars[256];
  68
  69 /* Lexical macros.  */
  70 #define is_opcode_char(x)     (opcode_chars     [(unsigned char) x])
  71 #define is_operand_char(x)    (operand_chars    [(unsigned char) x])
  72 #define is_register_char(x)   (register_chars   [(unsigned char) x])
  73 #define is_space_char(x)      (space_chars      [(unsigned char) x])
  74 #define is_identifier_char(x) (identifier_chars [(unsigned char) x])
  75 #define is_digit_char(x)      (digit_chars      [(unsigned char) x])
  76
  77 const pseudo_typeS md_pseudo_table[] =
  78 {
  79   {0, 0, 0}
  80 };
  81
  82 static int ATTRIBUTE_PRINTF_1
  83 debug (const char *string, ...)
  84 {
  85   if (flag_debug)
  86     {
  87       char str[100];
  88
  89       VA_OPEN (argptr, string);
  90       VA_FIXEDARG (argptr, const char *, string);
  91       vsprintf (str, string, argptr);
  92       VA_CLOSE (argptr);
  93       if (str[0] == '\0')
  94         return (0);
  95       fputs (str, USE_STDOUT ? stdout : stderr);
  96       return strlen (str);
  97     }
  98   else
  99     return 0;
 100 }
 101
 102 /* Hash table for opcode lookup.  */
 103 static struct hash_control *op_hash;
 104 /* Hash table for parallel opcode lookup.  */
 105 static struct hash_control *parop_hash;
 106 /* Hash table for register lookup.  */
 107 static struct hash_control *reg_hash;
 108 /* Hash table for indirect addressing lookup.  */
 109 static struct hash_control *ind_hash;
 110
 111 void
 112 md_begin (void)
 113 {
 114   const char *hash_err;
 115
 116   debug ("In md_begin()\n");
 117   op_hash = hash_new ();
 118
 119   {
 120     const template *current_optab = tic30_optab;
 121
 122     for (; current_optab < tic30_optab_end; current_optab++)
 123       {
 124         hash_err = hash_insert (op_hash, current_optab->name,
 125                                 (char *) current_optab);
 126         if (hash_err)
 127           as_fatal ("Internal Error: Can't Hash %s: %s",
 128                     current_optab->name, hash_err);
 129       }
 130   }
 131
 132   parop_hash = hash_new ();
 133
 134   {
 135     const partemplate *current_parop = tic30_paroptab;
 136
 137     for (; current_parop < tic30_paroptab_end; current_parop++)
 138       {
 139         hash_err = hash_insert (parop_hash, current_parop->name,
 140                                 (char *) current_parop);
 141         if (hash_err)
 142           as_fatal ("Internal Error: Can't Hash %s: %s",
 143                     current_parop->name, hash_err);
 144       }
 145   }
 146
 147   reg_hash = hash_new ();
 148
 149   {
 150     const reg *current_reg = tic30_regtab;
 151
 152     for (; current_reg < tic30_regtab_end; current_reg++)
 153       {
 154         hash_err = hash_insert (reg_hash, current_reg->name,
 155                                 (char *) current_reg);
 156         if (hash_err)
 157           as_fatal ("Internal Error: Can't Hash %s: %s",
 158                     current_reg->name, hash_err);
 159       }
 160   }
 161
 162   ind_hash = hash_new ();
 163
 164   {
 165     const ind_addr_type *current_ind = tic30_indaddr_tab;
 166
 167     for (; current_ind < tic30_indaddrtab_end; current_ind++)
 168       {
 169         hash_err = hash_insert (ind_hash, current_ind->syntax,
 170                                 (char *) current_ind);
 171         if (hash_err)
 172           as_fatal ("Internal Error: Can't Hash %s: %s",
 173                     current_ind->syntax, hash_err);
 174       }
 175   }
 176
 177   /* Fill in lexical tables:  opcode_chars, operand_chars, space_chars.  */
 178   {
 179     int c;
 180     char *p;
 181
 182     for (c = 0; c < 256; c++)
 183       {
 184         if (ISLOWER (c) || ISDIGIT (c))
 185           {
 186             opcode_chars[c] = c;
 187             register_chars[c] = c;
 188           }
 189         else if (ISUPPER (c))
 190           {
 191             opcode_chars[c] = TOLOWER (c);
 192             register_chars[c] = opcode_chars[c];
 193           }
 194         else if (c == ')' || c == '(')
 195           register_chars[c] = c;
 196
 197         if (ISUPPER (c) || ISLOWER (c) || ISDIGIT (c))
 198           operand_chars[c] = c;
 199
 200         if (ISDIGIT (c) || c == '-')
 201           digit_chars[c] = c;
 202
 203         if (ISALPHA (c) || c == '_' || c == '.' || ISDIGIT (c))
 204           identifier_chars[c] = c;
 205
 206         if (c == ' ' || c == '\t')
 207           space_chars[c] = c;
 208
 209         if (c == '_')
 210           opcode_chars[c] = c;
 211       }
 212     for (p = operand_special_chars; *p != '\0'; p++)
 213       operand_chars[(unsigned char) *p] = *p;
 214   }
 215 }
 216
 217 /* Address Mode OR values.  */
 218 #define AM_Register  0x00000000
 219 #define AM_Direct    0x00200000
 220 #define AM_Indirect  0x00400000
 221 #define AM_Immediate 0x00600000
 222 #define AM_NotReq    0xFFFFFFFF
 223
 224 /* PC Relative OR values.  */
 225 #define PC_Register 0x00000000
 226 #define PC_Relative 0x02000000
 227
 228 typedef struct
 229 {
 230   unsigned op_type;
 231   struct
 232   {
 233     int resolved;
 234     unsigned address;
 235     char *label;
 236     expressionS direct_expr;
 237   } direct;
 238   struct
 239   {
 240     unsigned mod;
 241     int ARnum;
 242     unsigned char disp;
 243   } indirect;
 244   struct
 245   {
 246     unsigned opcode;
 247   } reg;
 248   struct
 249   {
 250     int resolved;
 251     int decimal_found;
 252     float f_number;
 253     int s_number;
 254     unsigned int u_number;
 255     char *label;
 256     expressionS imm_expr;
 257   } immediate;
 258 } operand;
 259
 260 template *opcode;
 261
 262 struct tic30_insn
 263 {
 264   template *tm;                 /* Template of current instruction.  */
 265   unsigned opcode;              /* Final opcode.  */
 266   unsigned int operands;        /* Number of given operands.  */
 267   /* Type of operand given in instruction.  */
 268   operand *operand_type[MAX_OPERANDS];
 269   unsigned addressing_mode;     /* Final addressing mode of instruction.  */
 270 };
 271
 272 struct tic30_insn insn;
 273 static int found_parallel_insn;
 274
 275 static char output_invalid_buf[sizeof (unsigned char) * 2 + 6];
 276
 277 static char *
 278 output_invalid (char c)
 279 {
 280   if (ISPRINT (c))
 281     snprintf (output_invalid_buf, sizeof (output_invalid_buf),
 282               "'%c'", c);
 283   else
 284     snprintf (output_invalid_buf, sizeof (output_invalid_buf),
 285               "(0x%x)", (unsigned char) c);
 286   return output_invalid_buf;
 287 }
 288
 289 /* next_line points to the next line after the current instruction
 290    (current_line).  Search for the parallel bars, and if found, merge two
 291    lines into internal syntax for a parallel instruction:
 292      q_[INSN1]_[INSN2] [OPERANDS1] | [OPERANDS2]
 293    By this stage, all comments are scrubbed, and only the bare lines are
 294    given.  */
 295
 296 #define NONE           0
 297 #define START_OPCODE   1
 298 #define END_OPCODE     2
 299 #define START_OPERANDS 3
 300 #define END_OPERANDS   4
 301
 302 static char *
 303 tic30_find_parallel_insn (char *current_line, char *next_line)
 304 {
 305   int found_parallel = 0;
 306   char first_opcode[256];
 307   char second_opcode[256];
 308   char first_operands[256];
 309   char second_operands[256];
 310   char *parallel_insn;
 311
 312   debug ("In tic30_find_parallel_insn()\n");
 313   while (!is_end_of_line[(unsigned char) *next_line])
 314     {
 315       if (*next_line == PARALLEL_SEPARATOR
 316           && *(next_line + 1) == PARALLEL_SEPARATOR)
 317         {
 318           found_parallel = 1;
 319           next_line++;
 320           break;
 321         }
 322       next_line++;
 323     }
 324   if (!found_parallel)
 325     return NULL;
 326   debug ("Found a parallel instruction\n");
 327
 328   {
 329     int i;
 330     char *opcode, *operands, *line;
 331
 332     for (i = 0; i < 2; i++)
 333       {
 334         if (i == 0)
 335           {
 336             opcode = &first_opcode[0];
 337             operands = &first_operands[0];
 338             line = current_line;
 339           }
 340         else
 341           {
 342             opcode = &second_opcode[0];
 343             operands = &second_operands[0];
 344             line = next_line;
 345           }
 346
 347         {
 348           int search_status = NONE;
 349           int char_ptr = 0;
 350           char c;
 351
 352           while (!is_end_of_line[(unsigned char) (c = *line)])
 353             {
 354               if (is_opcode_char (c) && search_status == NONE)
 355                 {
 356                   opcode[char_ptr++] = TOLOWER (c);
 357                   search_status = START_OPCODE;
 358                 }
 359               else if (is_opcode_char (c) && search_status == START_OPCODE)
 360                 opcode[char_ptr++] = TOLOWER (c);
 361               else if (!is_opcode_char (c) && search_status == START_OPCODE)
 362                 {
 363                   opcode[char_ptr] = '\0';
 364                   char_ptr = 0;
 365                   search_status = END_OPCODE;
 366                 }
 367               else if (is_operand_char (c) && search_status == START_OPERANDS)
 368                 operands[char_ptr++] = c;
 369
 370               if (is_operand_char (c) && search_status == END_OPCODE)
 371                 {
 372                   operands[char_ptr++] = c;
 373                   search_status = START_OPERANDS;
 374                 }
 375
 376               line++;
 377             }
 378           if (search_status != START_OPERANDS)
 379             return NULL;
 380           operands[char_ptr] = '\0';
 381         }
 382       }
 383   }
 384   parallel_insn = malloc (strlen (first_opcode) + strlen (first_operands)
 385                           + strlen (second_opcode) + strlen (second_operands) + 8);
 386   sprintf (parallel_insn, "q_%s_%s %s | %s",
 387            first_opcode, second_opcode,
 388            first_operands, second_operands);
 389   debug ("parallel insn = %s\n", parallel_insn);
 390   return parallel_insn;
 391 }
 392
 393 #undef NONE
 394 #undef START_OPCODE
 395 #undef END_OPCODE
 396 #undef START_OPERANDS
 397 #undef END_OPERANDS
 398
 399 static operand *
 400 tic30_operand (char *token)
 401 {
 402   unsigned int count;
 403   char ind_buffer[strlen (token)];
 404   operand *current_op;
 405
 406   debug ("In tic30_operand with %s\n", token);
 407   current_op = malloc (sizeof (* current_op));
 408   memset (current_op, '\0', sizeof (operand));
 409
 410   if (*token == DIRECT_REFERENCE)
 411     {
 412       char *token_posn = token + 1;
 413       int direct_label = 0;
 414
 415       debug ("Found direct reference\n");
 416       while (*token_posn)
 417         {
 418           if (!is_digit_char (*token_posn))
 419             direct_label = 1;
 420           token_posn++;
 421         }
 422
 423       if (direct_label)
 424         {
 425           char *save_input_line_pointer;
 426           segT retval;
 427
 428           debug ("Direct reference is a label\n");
 429           current_op->direct.label = token + 1;
 430           save_input_line_pointer = input_line_pointer;
 431           input_line_pointer = token + 1;
 432           debug ("Current input_line_pointer: %s\n", input_line_pointer);
 433           retval = expression (&current_op->direct.direct_expr);
 434
 435           debug ("Expression type: %d\n",
 436                  current_op->direct.direct_expr.X_op);
 437           debug ("Expression addnum: %ld\n",
 438                  (long) current_op->direct.direct_expr.X_add_number);
 439           debug ("Segment: %p\n", retval);
 440
 441           input_line_pointer = save_input_line_pointer;
 442
 443           if (current_op->direct.direct_expr.X_op == O_constant)
 444             {
 445               current_op->direct.address =
 446                 current_op->direct.direct_expr.X_add_number;
 447               current_op->direct.resolved = 1;
 448             }
 449         }
 450       else
 451         {
 452           debug ("Direct reference is a number\n");
 453           current_op->direct.address = atoi (token + 1);
 454           current_op->direct.resolved = 1;
 455         }
 456       current_op->op_type = Direct;
 457     }
 458   else if (*token == INDIRECT_REFERENCE)
 459     {
 460       /* Indirect reference operand.  */
 461       int found_ar = 0;
 462       int found_disp = 0;
 463       int ar_number = -1;
 464       int disp_number = 0;
 465       int buffer_posn = 1;
 466       ind_addr_type *ind_addr_op;
 467
 468       debug ("Found indirect reference\n");
 469       ind_buffer[0] = *token;
 470
 471       for (count = 1; count < strlen (token); count++)
 472         {
 473           /* Strip operand.  */
 474           ind_buffer[buffer_posn] = TOLOWER (*(token + count));
 475
 476           if ((*(token + count - 1) == 'a' || *(token + count - 1) == 'A')
 477               && (*(token + count) == 'r' || *(token + count) == 'R'))
 478             {
 479               /* AR reference is found, so get its number and remove
 480                  it from the buffer so it can pass through hash_find().  */
 481               if (found_ar)
 482                 {
 483                   as_bad ("More than one AR register found in indirect reference");
 484                   return NULL;
 485                 }
 486               if (*(token + count + 1) < '0' || *(token + count + 1) > '7')
 487                 {
 488                   as_bad ("Illegal AR register in indirect reference");
 489                   return NULL;
 490                 }
 491               ar_number = *(token + count + 1) - '0';
 492               found_ar = 1;
 493               count++;
 494             }
 495
 496           if (*(token + count) == '(')
 497             {
 498               /* Parenthesis found, so check if a displacement value is
 499                  inside.  If so, get the value and remove it from the
 500                  buffer.  */
 501               if (is_digit_char (*(token + count + 1)))
 502                 {
 503                   char disp[10];
 504                   int disp_posn = 0;
 505
 506                   if (found_disp)
 507                     {
 508                       as_bad ("More than one displacement found in indirect reference");
 509                       return NULL;
 510                     }
 511                   count++;
 512                   while (*(token + count) != ')')
 513                     {
 514                       if (!is_digit_char (*(token + count)))
 515                         {
 516                           as_bad ("Invalid displacement in indirect reference");
 517                           return NULL;
 518                         }
 519                       disp[disp_posn++] = *(token + (count++));
 520                     }
 521                   disp[disp_posn] = '\0';
 522                   disp_number = atoi (disp);
 523                   count--;
 524                   found_disp = 1;
 525                 }
 526             }
 527           buffer_posn++;
 528         }
 529
 530       ind_buffer[buffer_posn] = '\0';
 531       if (!found_ar)
 532         {
 533           as_bad ("AR register not found in indirect reference");
 534           return NULL;
 535         }
 536
 537       ind_addr_op = (ind_addr_type *) hash_find (ind_hash, ind_buffer);
 538       if (ind_addr_op)
 539         {
 540           debug ("Found indirect reference: %s\n", ind_addr_op->syntax);
 541           if (ind_addr_op->displacement == IMPLIED_DISP)
 542             {
 543               found_disp = 1;
 544               disp_number = 1;
 545             }
 546           else if ((ind_addr_op->displacement == DISP_REQUIRED) && !found_disp)
 547             {
 548               /* Maybe an implied displacement of 1 again.  */
 549               as_bad ("required displacement wasn't given in indirect reference");
 550               return 0;
 551             }
 552         }
 553       else
 554         {
 555           as_bad ("illegal indirect reference");
 556           return NULL;
 557         }
 558
 559       if (found_disp && (disp_number < 0 || disp_number > 255))
 560         {
 561           as_bad ("displacement must be an unsigned 8-bit number");
 562           return NULL;
 563         }
 564
 565       current_op->indirect.mod = ind_addr_op->modfield;
 566       current_op->indirect.disp = disp_number;
 567       current_op->indirect.ARnum = ar_number;
 568       current_op->op_type = Indirect;
 569     }
 570   else
 571     {
 572       reg *regop = (reg *) hash_find (reg_hash, token);
 573
 574       if (regop)
 575         {
 576           debug ("Found register operand: %s\n", regop->name);
 577           if (regop->regtype == REG_ARn)
 578             current_op->op_type = ARn;
 579           else if (regop->regtype == REG_Rn)
 580             current_op->op_type = Rn;
 581           else if (regop->regtype == REG_DP)
 582             current_op->op_type = DPReg;
 583           else
 584             current_op->op_type = OtherReg;
 585           current_op->reg.opcode = regop->opcode;
 586         }
 587       else
 588         {
 589           if (!is_digit_char (*token)
 590               || *(token + 1) == 'x'
 591               || strchr (token, 'h'))
 592             {
 593               char *save_input_line_pointer;
 594               segT retval;
 595
 596               debug ("Probably a label: %s\n", token);
 597               current_op->immediate.label = malloc (strlen (token) + 1);
 598               strcpy (current_op->immediate.label, token);
 599               current_op->immediate.label[strlen (token)] = '\0';
 600               save_input_line_pointer = input_line_pointer;
 601               input_line_pointer = token;
 602
 603               debug ("Current input_line_pointer: %s\n", input_line_pointer);
 604               retval = expression (&current_op->immediate.imm_expr);
 605               debug ("Expression type: %d\n",
 606                      current_op->immediate.imm_expr.X_op);
 607               debug ("Expression addnum: %ld\n",
 608                      (long) current_op->immediate.imm_expr.X_add_number);
 609               debug ("Segment: %p\n", retval);
 610               input_line_pointer = save_input_line_pointer;
 611
 612               if (current_op->immediate.imm_expr.X_op == O_constant)
 613                 {
 614                   current_op->immediate.s_number
 615                     = current_op->immediate.imm_expr.X_add_number;
 616                   current_op->immediate.u_number
 617                     = (unsigned int) current_op->immediate.imm_expr.X_add_number;
 618                   current_op->immediate.resolved = 1;
 619                 }
 620             }
 621           else
 622             {
 623               unsigned count;
 624
 625               debug ("Found a number or displacement\n");
 626               for (count = 0; count < strlen (token); count++)
 627                 if (*(token + count) == '.')
 628                   current_op->immediate.decimal_found = 1;
 629               current_op->immediate.label = malloc (strlen (token) + 1);
 630               strcpy (current_op->immediate.label, token);
 631               current_op->immediate.label[strlen (token)] = '\0';
 632               current_op->immediate.f_number = (float) atof (token);
 633               current_op->immediate.s_number = (int) atoi (token);
 634               current_op->immediate.u_number = (unsigned int) atoi (token);
 635               current_op->immediate.resolved = 1;
 636             }
 637           current_op->op_type = Disp | Abs24 | Imm16 | Imm24;
 638           if (current_op->immediate.u_number <= 31)
 639             current_op->op_type |= IVector;
 640         }
 641     }
 642   return current_op;
 643 }
 644
 645 struct tic30_par_insn
 646 {
 647   partemplate *tm;              /* Template of current parallel instruction.  */
 648   unsigned operands[2];         /* Number of given operands for each insn.  */
 649   /* Type of operand given in instruction.  */
 650   operand *operand_type[2][MAX_OPERANDS];
 651   int swap_operands;            /* Whether to swap operands around.  */
 652   unsigned p_field;             /* Value of p field in multiply add/sub instructions.  */
 653   unsigned opcode;              /* Final opcode.  */
 654 };
 655
 656 struct tic30_par_insn p_insn;
 657
 658 static int
 659 tic30_parallel_insn (char *token)
 660 {
 661   static partemplate *p_opcode;
 662   char *current_posn = token;
 663   char *token_start;
 664   char save_char;
 665
 666   debug ("In tic30_parallel_insn with %s\n", token);
 667   memset (&p_insn, '\0', sizeof (p_insn));
 668
 669   while (is_opcode_char (*current_posn))
 670     current_posn++;
 671   {
 672     /* Find instruction.  */
 673     save_char = *current_posn;
 674     *current_posn = '\0';
 675     p_opcode = (partemplate *) hash_find (parop_hash, token);
 676     if (p_opcode)
 677       {
 678         debug ("Found instruction %s\n", p_opcode->name);
 679         p_insn.tm = p_opcode;
 680       }
 681     else
 682       {
 683         char first_opcode[6] = {0};
 684         char second_opcode[6] = {0};
 685         unsigned int i;
 686         int current_opcode = -1;
 687         int char_ptr = 0;
 688
 689         for (i = 0; i < strlen (token); i++)
 690           {
 691             char ch = *(token + i);
 692
 693             if (ch == '_' && current_opcode == -1)
 694               {
 695                 current_opcode = 0;
 696                 continue;
 697               }
 698
 699             if (ch == '_' && current_opcode == 0)
 700               {
 701                 current_opcode = 1;
 702                 char_ptr = 0;
 703                 continue;
 704               }
 705
 706             switch (current_opcode)
 707               {
 708               case 0:
 709                 first_opcode[char_ptr++] = ch;
 710                 break;
 711               case 1:
 712                 second_opcode[char_ptr++] = ch;
 713                 break;
 714               }
 715           }
 716
 717         debug ("first_opcode = %s\n", first_opcode);
 718         debug ("second_opcode = %s\n", second_opcode);
 719         sprintf (token, "q_%s_%s", second_opcode, first_opcode);
 720         p_opcode = (partemplate *) hash_find (parop_hash, token);
 721
 722         if (p_opcode)
 723           {
 724             debug ("Found instruction %s\n", p_opcode->name);
 725             p_insn.tm = p_opcode;
 726             p_insn.swap_operands = 1;
 727           }
 728         else
 729           return 0;
 730       }
 731     *current_posn = save_char;
 732   }
 733
 734   {
 735     /* Find operands.  */
 736     int paren_not_balanced;
 737     int expecting_operand = 0;
 738     int found_separator = 0;
 739
 740     do
 741       {
 742         /* Skip optional white space before operand.  */
 743         while (!is_operand_char (*current_posn)
 744                && *current_posn != END_OF_INSN)
 745           {
 746             if (!is_space_char (*current_posn)
 747                 && *current_posn != PARALLEL_SEPARATOR)
 748               {
 749                 as_bad ("Invalid character %s before %s operand",
 750                         output_invalid (*current_posn),
 751                         ordinal_names[insn.operands]);
 752                 return 1;
 753               }
 754             if (*current_posn == PARALLEL_SEPARATOR)
 755               found_separator = 1;
 756             current_posn++;
 757           }
 758
 759         token_start = current_posn;
 760         paren_not_balanced = 0;
 761
 762         while (paren_not_balanced || *current_posn != ',')
 763           {
 764             if (*current_posn == END_OF_INSN)
 765               {
 766                 if (paren_not_balanced)
 767                   {
 768                     as_bad ("Unbalanced parenthesis in %s operand.",
 769                             ordinal_names[insn.operands]);
 770                     return 1;
 771                   }
 772                 else
 773                   break;
 774               }
 775             else if (*current_posn == PARALLEL_SEPARATOR)
 776               {
 777                 while (is_space_char (*(current_posn - 1)))
 778                   current_posn--;
 779                 break;
 780               }
 781             else if (!is_operand_char (*current_posn)
 782                      && !is_space_char (*current_posn))
 783               {
 784                 as_bad ("Invalid character %s in %s operand",
 785                         output_invalid (*current_posn),
 786                         ordinal_names[insn.operands]);
 787                 return 1;
 788               }
 789
 790             if (*current_posn == '(')
 791               ++paren_not_balanced;
 792             if (*current_posn == ')')
 793               --paren_not_balanced;
 794             current_posn++;
 795           }
 796
 797         if (current_posn != token_start)
 798           {
 799             /* Yes, we've read in another operand.  */
 800             p_insn.operands[found_separator]++;
 801             if (p_insn.operands[found_separator] > MAX_OPERANDS)
 802               {
 803                 as_bad ("Spurious operands; (%d operands/instruction max)",
 804                         MAX_OPERANDS);
 805                 return 1;
 806               }
 807
 808             /* Now parse operand adding info to 'insn' as we go along.  */
 809             save_char = *current_posn;
 810             *current_posn = '\0';
 811             p_insn.operand_type[found_separator][p_insn.operands[found_separator] - 1] =
 812               tic30_operand (token_start);
 813             *current_posn = save_char;
 814             if (!p_insn.operand_type[found_separator][p_insn.operands[found_separator] - 1])
 815               return 1;
 816           }
 817         else
 818           {
 819             if (expecting_operand)
 820               {
 821                 as_bad ("Expecting operand after ','; got nothing");
 822                 return 1;
 823               }
 824             if (*current_posn == ',')
 825               {
 826                 as_bad ("Expecting operand before ','; got nothing");
 827                 return 1;
 828               }
 829           }
 830
 831         /* Now *current_posn must be either ',' or END_OF_INSN.  */
 832         if (*current_posn == ',')
 833           {
 834             if (*++current_posn == END_OF_INSN)
 835               {
 836                 /* Just skip it, if it's \n complain.  */
 837                 as_bad ("Expecting operand after ','; got nothing");
 838                 return 1;
 839               }
 840             expecting_operand = 1;
 841           }
 842       }
 843     while (*current_posn != END_OF_INSN);
 844   }
 845
 846   if (p_insn.swap_operands)
 847     {
 848       int temp_num, i;
 849       operand *temp_op;
 850
 851       temp_num = p_insn.operands[0];
 852       p_insn.operands[0] = p_insn.operands[1];
 853       p_insn.operands[1] = temp_num;
 854       for (i = 0; i < MAX_OPERANDS; i++)
 855         {
 856           temp_op = p_insn.operand_type[0][i];
 857           p_insn.operand_type[0][i] = p_insn.operand_type[1][i];
 858           p_insn.operand_type[1][i] = temp_op;
 859         }
 860     }
 861
 862   if (p_insn.operands[0] != p_insn.tm->operands_1)
 863     {
 864       as_bad ("incorrect number of operands given in the first instruction");
 865       return 1;
 866     }
 867
 868   if (p_insn.operands[1] != p_insn.tm->operands_2)
 869     {
 870       as_bad ("incorrect number of operands given in the second instruction");
 871       return 1;
 872     }
 873
 874   debug ("Number of operands in first insn: %d\n", p_insn.operands[0]);
 875   debug ("Number of operands in second insn: %d\n", p_insn.operands[1]);
 876
 877   {
 878     /* Now check if operands are correct.  */
 879     int count;
 880     int num_rn = 0;
 881     int num_ind = 0;
 882
 883     for (count = 0; count < 2; count++)
 884       {
 885         unsigned int i;
 886         for (i = 0; i < p_insn.operands[count]; i++)
 887           {
 888             if ((p_insn.operand_type[count][i]->op_type &
 889                  p_insn.tm->operand_types[count][i]) == 0)
 890               {
 891                 as_bad ("%s instruction, operand %d doesn't match",
 892                         ordinal_names[count], i + 1);
 893                 return 1;
 894               }
 895
 896             /* Get number of R register and indirect reference contained
 897                within the first two operands of each instruction.  This is
 898                required for the multiply parallel instructions which require
 899                two R registers and two indirect references, but not in any
 900                particular place.  */
 901             if ((p_insn.operand_type[count][i]->op_type & Rn) && i < 2)
 902               num_rn++;
 903             else if ((p_insn.operand_type[count][i]->op_type & Indirect)
 904                      && i < 2)
 905               num_ind++;
 906           }
 907       }
 908
 909     if ((p_insn.tm->operand_types[0][0] & (Indirect | Rn))
 910         == (Indirect | Rn))
 911       {
 912         /* Check for the multiply instructions.  */
 913         if (num_rn != 2)
 914           {
 915             as_bad ("incorrect format for multiply parallel instruction");
 916             return 1;
 917           }
 918
 919         if (num_ind != 2)
 920           {
 921             /* Shouldn't get here.  */
 922             as_bad ("incorrect format for multiply parallel instruction");
 923             return 1;
 924           }
 925
 926         if ((p_insn.operand_type[0][2]->reg.opcode != 0x00)
 927             && (p_insn.operand_type[0][2]->reg.opcode != 0x01))
 928           {
 929             as_bad ("destination for multiply can only be R0 or R1");
 930             return 1;
 931           }
 932
 933         if ((p_insn.operand_type[1][2]->reg.opcode != 0x02)
 934             && (p_insn.operand_type[1][2]->reg.opcode != 0x03))
 935           {
 936             as_bad ("destination for add/subtract can only be R2 or R3");
 937             return 1;
 938           }
 939
 940         /* Now determine the P field for the instruction.  */
 941         if (p_insn.operand_type[0][0]->op_type & Indirect)
 942           {
 943             if (p_insn.operand_type[0][1]->op_type & Indirect)
 944               p_insn.p_field = 0x00000000;      /* Ind * Ind, Rn  +/- Rn.  */
 945             else if (p_insn.operand_type[1][0]->op_type & Indirect)
 946               p_insn.p_field = 0x01000000;      /* Ind * Rn,  Ind +/- Rn.  */
 947             else
 948               p_insn.p_field = 0x03000000;      /* Ind * Rn,  Rn  +/- Ind.  */
 949           }
 950         else
 951           {
 952             if (p_insn.operand_type[0][1]->op_type & Rn)
 953               p_insn.p_field = 0x02000000;      /* Rn  * Rn,  Ind +/- Ind.  */
 954             else if (p_insn.operand_type[1][0]->op_type & Indirect)
 955               {
 956                 operand *temp;
 957                 p_insn.p_field = 0x01000000;    /* Rn  * Ind, Ind +/- Rn.  */
 958                 /* Need to swap the two multiply operands around so that
 959                    everything is in its place for the opcode makeup.
 960                    ie so Ind * Rn, Ind +/- Rn.  */
 961                 temp = p_insn.operand_type[0][0];
 962                 p_insn.operand_type[0][0] = p_insn.operand_type[0][1];
 963                 p_insn.operand_type[0][1] = temp;
 964               }
 965             else
 966               {
 967                 operand *temp;
 968                 p_insn.p_field = 0x03000000;    /* Rn  * Ind, Rn  +/- Ind.  */
 969                 temp = p_insn.operand_type[0][0];
 970                 p_insn.operand_type[0][0] = p_insn.operand_type[0][1];
 971                 p_insn.operand_type[0][1] = temp;
 972               }
 973           }
 974       }
 975   }
 976
 977   debug ("P field: %08X\n", p_insn.p_field);
 978
 979   /* Finalise opcode.  This is easier for parallel instructions as they have
 980      to be fully resolved, there are no memory addresses allowed, except
 981      through indirect addressing, so there are no labels to resolve.  */
 982   p_insn.opcode = p_insn.tm->base_opcode;
 983
 984   switch (p_insn.tm->oporder)
 985     {
 986     case OO_4op1:
 987       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum);
 988       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 3);
 989       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum << 8);
 990       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 11);
 991       p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 16);
 992       p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 22);
 993       break;
 994
 995     case OO_4op2:
 996       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum);
 997       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 3);
 998       p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.ARnum << 8);
 999       p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.mod << 11);
1000       p_insn.opcode |= (p_insn.operand_type[1][1]->reg.opcode << 19);
1001       p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 22);
1002       if (p_insn.operand_type[1][1]->reg.opcode == p_insn.operand_type[0][1]->reg.opcode)
1003         as_warn ("loading the same register in parallel operation");
1004       break;
1005
1006     case OO_4op3:
1007       p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.ARnum);
1008       p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.mod << 3);
1009       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum << 8);
1010       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 11);
1011       p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 16);
1012       p_insn.opcode |= (p_insn.operand_type[0][0]->reg.opcode << 22);
1013       break;
1014
1015     case OO_5op1:
1016       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum);
1017       p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 3);
1018       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum << 8);
1019       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 11);
1020       p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 16);
1021       p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 19);
1022       p_insn.opcode |= (p_insn.operand_type[0][2]->reg.opcode << 22);
1023       break;
1024
1025     case OO_5op2:
1026       p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.ARnum);
1027       p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.mod << 3);
1028       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum << 8);
1029       p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 11);
1030       p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 16);
1031       p_insn.opcode |= (p_insn.operand_type[0][0]->reg.opcode << 19);
1032       p_insn.opcode |= (p_insn.operand_type[0][2]->reg.opcode << 22);
1033       break;
1034
1035     case OO_PField:
1036       p_insn.opcode |= p_insn.p_field;
1037       if (p_insn.operand_type[0][2]->reg.opcode == 0x01)
1038         p_insn.opcode |= 0x00800000;
1039       if (p_insn.operand_type[1][2]->reg.opcode == 0x03)
1040         p_insn.opcode |= 0x00400000;
1041
1042       switch (p_insn.p_field)
1043         {
1044         case 0x00000000:
1045           p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.ARnum);
1046           p_insn.opcode |= (p_insn.operand_type[0][1]->indirect.mod << 3);
1047           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum << 8);
1048           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 11);
1049           p_insn.opcode |= (p_insn.operand_type[1][1]->reg.opcode << 16);
1050           p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 19);
1051           break;
1052         case 0x01000000:
1053           p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.ARnum);
1054           p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.mod << 3);
1055           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum << 8);
1056           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 11);
1057           p_insn.opcode |= (p_insn.operand_type[1][1]->reg.opcode << 16);
1058           p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 19);
1059           break;
1060         case 0x02000000:
1061           p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum);
1062           p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 3);
1063           p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.ARnum << 8);
1064           p_insn.opcode |= (p_insn.operand_type[1][0]->indirect.mod << 11);
1065           p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 16);
1066           p_insn.opcode |= (p_insn.operand_type[0][0]->reg.opcode << 19);
1067           break;
1068         case 0x03000000:
1069           p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.ARnum);
1070           p_insn.opcode |= (p_insn.operand_type[1][1]->indirect.mod << 3);
1071           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.ARnum << 8);
1072           p_insn.opcode |= (p_insn.operand_type[0][0]->indirect.mod << 11);
1073           p_insn.opcode |= (p_insn.operand_type[1][0]->reg.opcode << 16);
1074           p_insn.opcode |= (p_insn.operand_type[0][1]->reg.opcode << 19);
1075           break;
1076         }
1077       break;
1078     }
1079
1080   {
1081     char *p;
1082
1083     p = frag_more (INSN_SIZE);
1084     md_number_to_chars (p, (valueT) p_insn.opcode, INSN_SIZE);
1085   }
1086
1087   {
1088     unsigned int i, j;
1089
1090     for (i = 0; i < 2; i++)
1091       for (j = 0; j < p_insn.operands[i]; j++)
1092         free (p_insn.operand_type[i][j]);
1093   }
1094
1095   debug ("Final opcode: %08X\n", p_insn.opcode);
1096   debug ("\n");
1097
1098   return 1;
1099 }
1100
1101 /* In order to get gas to ignore any | chars at the start of a line,
1102    this function returns true if a | is found in a line.  */
1103
1104 int
1105 tic30_unrecognized_line (int c)
1106 {
1107   debug ("In tc_unrecognized_line\n");
1108   return (c == PARALLEL_SEPARATOR);
1109 }
1110
1111 int
1112 md_estimate_size_before_relax (fragS *fragP ATTRIBUTE_UNUSED,
1113                                segT segment ATTRIBUTE_UNUSED)
1114 {
1115   debug ("In md_estimate_size_before_relax()\n");
1116   return 0;
1117 }
1118
1119 void
1120 md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED,
1121                  segT sec ATTRIBUTE_UNUSED,
1122                  register fragS *fragP ATTRIBUTE_UNUSED)
1123 {
1124   debug ("In md_convert_frag()\n");
1125 }
1126
1127 void
1128 md_apply_fix (fixS *fixP,
1129                valueT *valP,
1130                segT seg ATTRIBUTE_UNUSED)
1131 {
1132   valueT value = *valP;
1133
1134   debug ("In md_apply_fix() with value = %ld\n", (long) value);
1135   debug ("Values in fixP\n");
1136   debug ("fx_size = %d\n", fixP->fx_size);
1137   debug ("fx_pcrel = %d\n", fixP->fx_pcrel);
1138   debug ("fx_where = %ld\n", fixP->fx_where);
1139   debug ("fx_offset = %d\n", (int) fixP->fx_offset);
1140   {
1141     char *buf = fixP->fx_frag->fr_literal + fixP->fx_where;
1142
1143     value /= INSN_SIZE;
1144     if (fixP->fx_size == 1)
1145       /* Special fix for LDP instruction.  */
1146       value = (value & 0x00FF0000) >> 16;
1147
1148     debug ("new value = %ld\n", (long) value);
1149     md_number_to_chars (buf, value, fixP->fx_size);
1150   }
1151
1152   if (fixP->fx_addsy == NULL && fixP->fx_pcrel == 0)
1153     fixP->fx_done = 1;
1154 }
1155
1156 int
1157 md_parse_option (int c ATTRIBUTE_UNUSED,
1158                  char *arg ATTRIBUTE_UNUSED)
1159 {
1160   debug ("In md_parse_option()\n");
1161   return 0;
1162 }
1163
1164 void
1165 md_show_usage (FILE *stream ATTRIBUTE_UNUSED)
1166 {
1167   debug ("In md_show_usage()\n");
1168 }
1169
1170 symbolS *
1171 md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
1172 {
1173   debug ("In md_undefined_symbol()\n");
1174   return (symbolS *) 0;
1175 }
1176
1177 valueT
1178 md_section_align (segT segment, valueT size)
1179 {
1180   debug ("In md_section_align() segment = %p and size = %lu\n",
1181          segment, (unsigned long) size);
1182   size = (size + 3) / 4;
1183   size *= 4;
1184   debug ("New size value = %lu\n", (unsigned long) size);
1185   return size;
1186 }
1187
1188 long
1189 md_pcrel_from (fixS *fixP)
1190 {
1191   int offset;
1192
1193   debug ("In md_pcrel_from()\n");
1194   debug ("fx_where = %ld\n", fixP->fx_where);
1195   debug ("fx_size = %d\n", fixP->fx_size);
1196   /* Find the opcode that represents the current instruction in the
1197      fr_literal storage area, and check bit 21.  Bit 21 contains whether the
1198      current instruction is a delayed one or not, and then set the offset
1199      value appropriately.  */
1200   if (fixP->fx_frag->fr_literal[fixP->fx_where - fixP->fx_size + 1] & 0x20)
1201     offset = 3;
1202   else
1203     offset = 1;
1204   debug ("offset = %d\n", offset);
1205   /* PC Relative instructions have a format:
1206      displacement = Label - (PC + offset)
1207      This function returns PC + offset where:
1208      fx_where - fx_size = PC
1209      INSN_SIZE * offset = offset number of instructions.  */
1210   return fixP->fx_where - fixP->fx_size + (INSN_SIZE * offset);
1211 }
1212
1213 char *
1214 md_atof (int what_statement_type,
1215          char *literalP,
1216          int *sizeP)
1217 {
1218   int prec;
1219   char *token;
1220   char keepval;
1221   unsigned long value;
1222   float float_value;
1223
1224   debug ("In md_atof()\n");
1225   debug ("precision = %c\n", what_statement_type);
1226   debug ("literal = %s\n", literalP);
1227   debug ("line = ");
1228   token = input_line_pointer;
1229   while (!is_end_of_line[(unsigned char) *input_line_pointer]
1230          && (*input_line_pointer != ','))
1231     {
1232       debug ("%c", *input_line_pointer);
1233       input_line_pointer++;
1234     }
1235
1236   keepval = *input_line_pointer;
1237   *input_line_pointer = '\0';
1238   debug ("\n");
1239   float_value = (float) atof (token);
1240   *input_line_pointer = keepval;
1241   debug ("float_value = %f\n", float_value);
1242
1243   switch (what_statement_type)
1244     {
1245     case 'f':
1246     case 'F':
1247     case 's':
1248     case 'S':
1249       prec = 2;
1250       break;
1251
1252     case 'd':
1253     case 'D':
1254     case 'r':
1255     case 'R':
1256       prec = 4;
1257       break;
1258
1259     default:
1260       *sizeP = 0;
1261       return "Bad call to MD_ATOF()";
1262     }
1263
1264   if (float_value == 0.0)
1265     value = (prec == 2) ? 0x00008000L : 0x80000000L;
1266   else
1267     {
1268       unsigned long exp, sign, mant, tmsfloat;
1269       union
1270       {
1271         float f;
1272         long  l;
1273       }
1274       converter;
1275
1276       converter.f = float_value;
1277       tmsfloat = converter.l;
1278       sign = tmsfloat & 0x80000000;
1279       mant = tmsfloat & 0x007FFFFF;
1280       exp = tmsfloat & 0x7F800000;
1281       exp <<= 1;
1282       if (exp == 0xFF000000)
1283         {
1284           if (mant == 0)
1285             value = 0x7F7FFFFF;
1286           else if (sign == 0)
1287             value = 0x7F7FFFFF;
1288           else
1289             value = 0x7F800000;
1290         }
1291       else
1292         {
1293           exp -= 0x7F000000;
1294           if (sign)
1295             {
1296               mant = mant & 0x007FFFFF;
1297               mant = -mant;
1298               mant = mant & 0x00FFFFFF;
1299               if (mant == 0)
1300                 {
1301                   mant |= 0x00800000;
1302                   exp = (long) exp - 0x01000000;
1303                 }
1304             }
1305           tmsfloat = exp | mant;
1306           value = tmsfloat;
1307         }
1308       if (prec == 2)
1309         {
1310           long exp, mant;
1311
1312           if (tmsfloat == 0x80000000)
1313             value = 0x8000;
1314           else
1315             {
1316               value = 0;
1317               exp = (tmsfloat & 0xFF000000);
1318               exp >>= 24;
1319               mant = tmsfloat & 0x007FFFFF;
1320               if (tmsfloat & 0x00800000)
1321                 {
1322                   mant |= 0xFF000000;
1323                   mant += 0x00000800;
1324                   mant >>= 12;
1325                   mant |= 0x00000800;
1326                   mant &= 0x0FFF;
1327                   if (exp > 7)
1328                     value = 0x7800;
1329                 }
1330               else
1331                 {
1332                   mant |= 0x00800000;
1333                   mant += 0x00000800;
1334                   exp += (mant >> 24);
1335                   mant >>= 12;
1336                   mant &= 0x07FF;
1337                   if (exp > 7)
1338                     value = 0x77FF;
1339                 }
1340               if (exp < -8)
1341                 value = 0x8000;
1342               if (value == 0)
1343                 {
1344                   mant = (exp << 12) | mant;
1345                   value = mant & 0xFFFF;
1346                 }
1347             }
1348         }
1349     }
1350   md_number_to_chars (literalP, value, prec);
1351   *sizeP = prec;
1352   return 0;
1353 }
1354
1355 void
1356 md_number_to_chars (char *buf, valueT val, int n)
1357 {
1358   debug ("In md_number_to_chars()\n");
1359   number_to_chars_bigendian (buf, val, n);
1360 }
1361
1362 #define F(SZ,PCREL)             (((SZ) << 1) + (PCREL))
1363 #define MAP(SZ,PCREL,TYPE)      case F(SZ,PCREL): code = (TYPE); break
1364
1365 arelent *
1366 tc_gen_reloc (asection *section ATTRIBUTE_UNUSED, fixS *fixP)
1367 {
1368   arelent *rel;
1369   bfd_reloc_code_real_type code = 0;
1370
1371   debug ("In tc_gen_reloc()\n");
1372   debug ("fixP.size = %d\n", fixP->fx_size);
1373   debug ("fixP.pcrel = %d\n", fixP->fx_pcrel);
1374   debug ("addsy.name = %s\n", S_GET_NAME (fixP->fx_addsy));
1375
1376   switch (F (fixP->fx_size, fixP->fx_pcrel))
1377     {
1378       MAP (1, 0, BFD_RELOC_TIC30_LDP);
1379       MAP (2, 0, BFD_RELOC_16);
1380       MAP (3, 0, BFD_RELOC_24);
1381       MAP (2, 1, BFD_RELOC_16_PCREL);
1382       MAP (4, 0, BFD_RELOC_32);
1383     default:
1384       as_bad ("Can not do %d byte %srelocation", fixP->fx_size,
1385               fixP->fx_pcrel ? "pc-relative " : "");
1386     }
1387 #undef MAP
1388 #undef F
1389
1390   rel = xmalloc (sizeof (* rel));
1391   assert (rel != 0);
1392   rel->sym_ptr_ptr = xmalloc (sizeof (asymbol *));
1393   *rel->sym_ptr_ptr = symbol_get_bfdsym (fixP->fx_addsy);
1394   rel->address = fixP->fx_frag->fr_address + fixP->fx_where;
1395   rel->addend = 0;
1396   rel->howto = bfd_reloc_type_lookup (stdoutput, code);
1397   if (!rel->howto)
1398     {
1399       const char *name;
1400
1401       name = S_GET_NAME (fixP->fx_addsy);
1402       if (name == NULL)
1403         name = "<unknown>";
1404       as_fatal ("Cannot generate relocation type for symbol %s, code %s",
1405                 name, bfd_get_reloc_code_name (code));
1406     }
1407   return rel;
1408 }
1409
1410 void
1411 md_operand (expressionS *expressionP ATTRIBUTE_UNUSED)
1412 {
1413   debug ("In md_operand()\n");
1414 }
1415
1416 void
1417 md_assemble (char *line)
1418 {
1419   template *opcode;
1420   char *current_posn;
1421   char *token_start;
1422   char save_char;
1423   unsigned int count;
1424
1425   debug ("In md_assemble() with argument %s\n", line);
1426   memset (&insn, '\0', sizeof (insn));
1427   if (found_parallel_insn)
1428     {
1429       debug ("Line is second part of parallel instruction\n\n");
1430       found_parallel_insn = 0;
1431       return;
1432     }
1433   if ((current_posn =
1434        tic30_find_parallel_insn (line, input_line_pointer + 1)) == NULL)
1435     current_posn = line;
1436   else
1437     found_parallel_insn = 1;
1438
1439   while (is_space_char (*current_posn))
1440     current_posn++;
1441
1442   token_start = current_posn;
1443
1444   if (!is_opcode_char (*current_posn))
1445     {
1446       as_bad ("Invalid character %s in opcode",
1447               output_invalid (*current_posn));
1448       return;
1449     }
1450   /* Check if instruction is a parallel instruction
1451      by seeing if the first character is a q.  */
1452   if (*token_start == 'q')
1453     {
1454       if (tic30_parallel_insn (token_start))
1455         {
1456           if (found_parallel_insn)
1457             free (token_start);
1458           return;
1459         }
1460     }
1461   while (is_opcode_char (*current_posn))
1462     current_posn++;
1463   {
1464     /* Find instruction.  */
1465     save_char = *current_posn;
1466     *current_posn = '\0';
1467     opcode = (template *) hash_find (op_hash, token_start);
1468     if (opcode)
1469       {
1470         debug ("Found instruction %s\n", opcode->name);
1471         insn.tm = opcode;
1472       }
1473     else
1474       {
1475         debug ("Didn't find insn\n");
1476         as_bad ("Unknown TMS320C30 instruction: %s", token_start);
1477         return;
1478       }
1479     *current_posn = save_char;
1480   }
1481
1482   if (*current_posn != END_OF_INSN)
1483     {
1484       /* Find operands.  */
1485       int paren_not_balanced;
1486       int expecting_operand = 0;
1487       int this_operand;
1488       do
1489         {
1490           /* Skip optional white space before operand.  */
1491           while (!is_operand_char (*current_posn)
1492                  && *current_posn != END_OF_INSN)
1493             {
1494               if (!is_space_char (*current_posn))
1495                 {
1496                   as_bad ("Invalid character %s before %s operand",
1497                           output_invalid (*current_posn),
1498                           ordinal_names[insn.operands]);
1499                   return;
1500                 }
1501               current_posn++;
1502             }
1503           token_start = current_posn;
1504           paren_not_balanced = 0;
1505           while (paren_not_balanced || *current_posn != ',')
1506             {
1507               if (*current_posn == END_OF_INSN)
1508                 {
1509                   if (paren_not_balanced)
1510                     {
1511                       as_bad ("Unbalanced parenthesis in %s operand.",
1512                               ordinal_names[insn.operands]);
1513                       return;
1514                     }
1515                   else
1516                     break;
1517                 }
1518               else if (!is_operand_char (*current_posn)
1519                        && !is_space_char (*current_posn))
1520                 {
1521                   as_bad ("Invalid character %s in %s operand",
1522                           output_invalid (*current_posn),
1523                           ordinal_names[insn.operands]);
1524                   return;
1525                 }
1526               if (*current_posn == '(')
1527                 ++paren_not_balanced;
1528               if (*current_posn == ')')
1529                 --paren_not_balanced;
1530               current_posn++;
1531             }
1532           if (current_posn != token_start)
1533             {
1534               /* Yes, we've read in another operand.  */
1535               this_operand = insn.operands++;
1536               if (insn.operands > MAX_OPERANDS)
1537                 {
1538                   as_bad ("Spurious operands; (%d operands/instruction max)",
1539                           MAX_OPERANDS);
1540                   return;
1541                 }
1542
1543               /* Now parse operand adding info to 'insn' as we go along.  */
1544               save_char = *current_posn;
1545               *current_posn = '\0';
1546               insn.operand_type[this_operand] = tic30_operand (token_start);
1547               *current_posn = save_char;
1548               if (insn.operand_type[this_operand] == NULL)
1549                 return;
1550             }
1551           else
1552             {
1553               if (expecting_operand)
1554                 {
1555                   as_bad ("Expecting operand after ','; got nothing");
1556                   return;
1557                 }
1558               if (*current_posn == ',')
1559                 {
1560                   as_bad ("Expecting operand before ','; got nothing");
1561                   return;
1562                 }
1563             }
1564
1565           /* Now *current_posn must be either ',' or END_OF_INSN.  */
1566           if (*current_posn == ',')
1567             {
1568               if (*++current_posn == END_OF_INSN)
1569                 {
1570                   /* Just skip it, if it's \n complain.  */
1571                   as_bad ("Expecting operand after ','; got nothing");
1572                   return;
1573                 }
1574               expecting_operand = 1;
1575             }
1576         }
1577       while (*current_posn != END_OF_INSN);
1578     }
1579
1580   debug ("Number of operands found: %d\n", insn.operands);
1581
1582   /* Check that number of operands is correct.  */
1583   if (insn.operands != insn.tm->operands)
1584     {
1585       unsigned int i;
1586       unsigned int numops = insn.tm->operands;
1587
1588       /* If operands are not the same, then see if any of the operands are
1589          not required.  Then recheck with number of given operands.  If they
1590          are still not the same, then give an error, otherwise carry on.  */
1591       for (i = 0; i < insn.tm->operands; i++)
1592         if (insn.tm->operand_types[i] & NotReq)
1593           numops--;
1594       if (insn.operands != numops)
1595         {
1596           as_bad ("Incorrect number of operands given");
1597           return;
1598         }
1599     }
1600   insn.addressing_mode = AM_NotReq;
1601   for (count = 0; count < insn.operands; count++)
1602     {
1603       if (insn.operand_type[count]->op_type & insn.tm->operand_types[count])
1604         {
1605           debug ("Operand %d matches\n", count + 1);
1606           /* If instruction has two operands and has an AddressMode
1607              modifier then set addressing mode type for instruction.  */
1608           if (insn.tm->opcode_modifier == AddressMode)
1609             {
1610               int addr_insn = 0;
1611               /* Store instruction uses the second
1612                  operand for the address mode.  */
1613               if ((insn.tm->operand_types[1] & (Indirect | Direct))
1614                   == (Indirect | Direct))
1615                 addr_insn = 1;
1616
1617               if (insn.operand_type[addr_insn]->op_type & (AllReg))
1618                 insn.addressing_mode = AM_Register;
1619               else if (insn.operand_type[addr_insn]->op_type & Direct)
1620                 insn.addressing_mode = AM_Direct;
1621               else if (insn.operand_type[addr_insn]->op_type & Indirect)
1622                 insn.addressing_mode = AM_Indirect;
1623               else
1624                 insn.addressing_mode = AM_Immediate;
1625             }
1626         }
1627       else
1628         {
1629           as_bad ("The %s operand doesn't match", ordinal_names[count]);
1630           return;
1631         }
1632     }
1633
1634   /* Now set the addressing mode for 3 operand instructions.  */
1635   if ((insn.tm->operand_types[0] & op3T1)
1636       && (insn.tm->operand_types[1] & op3T2))
1637     {
1638       /* Set the addressing mode to the values used for 2 operand
1639          instructions in the  G addressing field of the opcode.  */
1640       char *p;
1641       switch (insn.operand_type[0]->op_type)
1642         {
1643         case Rn:
1644         case ARn:
1645         case DPReg:
1646         case OtherReg:
1647           if (insn.operand_type[1]->op_type & (AllReg))
1648             insn.addressing_mode = AM_Register;
1649           else if (insn.operand_type[1]->op_type & Indirect)
1650             insn.addressing_mode = AM_Direct;
1651           else
1652             {
1653               /* Shouldn't make it to this stage.  */
1654               as_bad ("Incompatible first and second operands in instruction");
1655               return;
1656             }
1657           break;
1658         case Indirect:
1659           if (insn.operand_type[1]->op_type & (AllReg))
1660             insn.addressing_mode = AM_Indirect;
1661           else if (insn.operand_type[1]->op_type & Indirect)
1662             insn.addressing_mode = AM_Immediate;
1663           else
1664             {
1665               /* Shouldn't make it to this stage.  */
1666               as_bad ("Incompatible first and second operands in instruction");
1667               return;
1668             }
1669           break;
1670         }
1671       /* Now make up the opcode for the 3 operand instructions.  As in
1672          parallel instructions, there will be no unresolved values, so they
1673          can be fully formed and added to the frag table.  */
1674       insn.opcode = insn.tm->base_opcode;
1675       if (insn.operand_type[0]->op_type & Indirect)
1676         {
1677           insn.opcode |= (insn.operand_type[0]->indirect.ARnum);
1678           insn.opcode |= (insn.operand_type[0]->indirect.mod << 3);
1679         }
1680       else
1681         insn.opcode |= (insn.operand_type[0]->reg.opcode);
1682
1683       if (insn.operand_type[1]->op_type & Indirect)
1684         {
1685           insn.opcode |= (insn.operand_type[1]->indirect.ARnum << 8);
1686           insn.opcode |= (insn.operand_type[1]->indirect.mod << 11);
1687         }
1688       else
1689         insn.opcode |= (insn.operand_type[1]->reg.opcode << 8);
1690
1691       if (insn.operands == 3)
1692         insn.opcode |= (insn.operand_type[2]->reg.opcode << 16);
1693
1694       insn.opcode |= insn.addressing_mode;
1695       p = frag_more (INSN_SIZE);
1696       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1697     }
1698   else
1699     {
1700       /* Not a three operand instruction.  */
1701       char *p;
1702       int am_insn = -1;
1703       insn.opcode = insn.tm->base_opcode;
1704       /* Create frag for instruction - all instructions are 4 bytes long.  */
1705       p = frag_more (INSN_SIZE);
1706       if ((insn.operands > 0) && (insn.tm->opcode_modifier == AddressMode))
1707         {
1708           insn.opcode |= insn.addressing_mode;
1709           if (insn.addressing_mode == AM_Indirect)
1710             {
1711               /* Determine which operand gives the addressing mode.  */
1712               if (insn.operand_type[0]->op_type & Indirect)
1713                 am_insn = 0;
1714               if ((insn.operands > 1)
1715                   && (insn.operand_type[1]->op_type & Indirect))
1716                 am_insn = 1;
1717               insn.opcode |= (insn.operand_type[am_insn]->indirect.disp);
1718               insn.opcode |= (insn.operand_type[am_insn]->indirect.ARnum << 8);
1719               insn.opcode |= (insn.operand_type[am_insn]->indirect.mod << 11);
1720               if (insn.operands > 1)
1721                 insn.opcode |= (insn.operand_type[!am_insn]->reg.opcode << 16);
1722               md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1723             }
1724           else if (insn.addressing_mode == AM_Register)
1725             {
1726               insn.opcode |= (insn.operand_type[0]->reg.opcode);
1727               if (insn.operands > 1)
1728                 insn.opcode |= (insn.operand_type[1]->reg.opcode << 16);
1729               md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1730             }
1731           else if (insn.addressing_mode == AM_Direct)
1732             {
1733               if (insn.operand_type[0]->op_type & Direct)
1734                 am_insn = 0;
1735               if ((insn.operands > 1)
1736                   && (insn.operand_type[1]->op_type & Direct))
1737                 am_insn = 1;
1738               if (insn.operands > 1)
1739                 insn.opcode |=
1740                   (insn.operand_type[! am_insn]->reg.opcode << 16);
1741               if (insn.operand_type[am_insn]->direct.resolved == 1)
1742                 {
1743                   /* Resolved values can be placed straight
1744                      into instruction word, and output.  */
1745                   insn.opcode |=
1746                     (insn.operand_type[am_insn]->direct.address & 0x0000FFFF);
1747                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1748                 }
1749               else
1750                 {
1751                   /* Unresolved direct addressing mode instruction.  */
1752                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1753                   fix_new_exp (frag_now, p + 2 - (frag_now->fr_literal), 2,
1754                                & insn.operand_type[am_insn]->direct.direct_expr,
1755                                0, 0);
1756                 }
1757             }
1758           else if (insn.addressing_mode == AM_Immediate)
1759             {
1760               if (insn.operand_type[0]->immediate.resolved == 1)
1761                 {
1762                   char *keeploc;
1763                   int size;
1764
1765                   if (insn.operands > 1)
1766                     insn.opcode |= (insn.operand_type[1]->reg.opcode << 16);
1767
1768                   switch (insn.tm->imm_arg_type)
1769                     {
1770                     case Imm_Float:
1771                       debug ("Floating point first operand\n");
1772                       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1773
1774                       keeploc = input_line_pointer;
1775                       input_line_pointer =
1776                         insn.operand_type[0]->immediate.label;
1777
1778                       if (md_atof ('f', p + 2, & size) != 0)
1779                         {
1780                           as_bad ("invalid short form floating point immediate operand");
1781                           return;
1782                         }
1783
1784                       input_line_pointer = keeploc;
1785                       break;
1786
1787                     case Imm_UInt:
1788                       debug ("Unsigned int first operand\n");
1789                       if (insn.operand_type[0]->immediate.decimal_found)
1790                         as_warn ("rounding down first operand float to unsigned int");
1791                       if (insn.operand_type[0]->immediate.u_number > 0xFFFF)
1792                         as_warn ("only lower 16-bits of first operand are used");
1793                       insn.opcode |=
1794                         (insn.operand_type[0]->immediate.u_number & 0x0000FFFFL);
1795                       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1796                       break;
1797
1798                     case Imm_SInt:
1799                       debug ("Int first operand\n");
1800
1801                       if (insn.operand_type[0]->immediate.decimal_found)
1802                         as_warn ("rounding down first operand float to signed int");
1803
1804                       if (insn.operand_type[0]->immediate.s_number < -32768 ||
1805                           insn.operand_type[0]->immediate.s_number > 32767)
1806                         {
1807                           as_bad ("first operand is too large for 16-bit signed int");
1808                           return;
1809                         }
1810                       insn.opcode |=
1811                         (insn.operand_type[0]->immediate.s_number & 0x0000FFFFL);
1812                       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1813                       break;
1814                     }
1815                 }
1816               else
1817                 {
1818                   /* Unresolved immediate label.  */
1819                   if (insn.operands > 1)
1820                     insn.opcode |= (insn.operand_type[1]->reg.opcode << 16);
1821                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1822                   fix_new_exp (frag_now, p + 2 - (frag_now->fr_literal), 2,
1823                                & insn.operand_type[0]->immediate.imm_expr,
1824                                0, 0);
1825                 }
1826             }
1827         }
1828       else if (insn.tm->opcode_modifier == PCRel)
1829         {
1830           /* Conditional Branch and Call instructions.  */
1831           if ((insn.tm->operand_types[0] & (AllReg | Disp))
1832               == (AllReg | Disp))
1833             {
1834               if (insn.operand_type[0]->op_type & (AllReg))
1835                 {
1836                   insn.opcode |= (insn.operand_type[0]->reg.opcode);
1837                   insn.opcode |= PC_Register;
1838                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1839                 }
1840               else
1841                 {
1842                   insn.opcode |= PC_Relative;
1843                   if (insn.operand_type[0]->immediate.resolved == 1)
1844                     {
1845                       insn.opcode |=
1846                         (insn.operand_type[0]->immediate.s_number & 0x0000FFFF);
1847                       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1848                     }
1849                   else
1850                     {
1851                       md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1852                       fix_new_exp (frag_now, p + 2 - (frag_now->fr_literal),
1853                                    2, & insn.operand_type[0]->immediate.imm_expr,
1854                                    1, 0);
1855                     }
1856                 }
1857             }
1858           else if ((insn.tm->operand_types[0] & ARn) == ARn)
1859             {
1860               /* Decrement and Branch instructions.  */
1861               insn.opcode |= ((insn.operand_type[0]->reg.opcode - 0x08) << 22);
1862               if (insn.operand_type[1]->op_type & (AllReg))
1863                 {
1864                   insn.opcode |= (insn.operand_type[1]->reg.opcode);
1865                   insn.opcode |= PC_Register;
1866                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1867                 }
1868               else if (insn.operand_type[1]->immediate.resolved == 1)
1869                 {
1870                   if (insn.operand_type[0]->immediate.decimal_found)
1871                     {
1872                       as_bad ("first operand is floating point");
1873                       return;
1874                     }
1875                   if (insn.operand_type[0]->immediate.s_number < -32768 ||
1876                       insn.operand_type[0]->immediate.s_number > 32767)
1877                     {
1878                       as_bad ("first operand is too large for 16-bit signed int");
1879                       return;
1880                     }
1881                   insn.opcode |= (insn.operand_type[1]->immediate.s_number);
1882                   insn.opcode |= PC_Relative;
1883                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1884                 }
1885               else
1886                 {
1887                   insn.opcode |= PC_Relative;
1888                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1889                   fix_new_exp (frag_now, p + 2 - frag_now->fr_literal, 2,
1890                                & insn.operand_type[1]->immediate.imm_expr,
1891                                1, 0);
1892                 }
1893             }
1894         }
1895       else if (insn.tm->operand_types[0] == IVector)
1896         {
1897           /* Trap instructions.  */
1898           if (insn.operand_type[0]->op_type & IVector)
1899             insn.opcode |= (insn.operand_type[0]->immediate.u_number);
1900           else
1901             {
1902               /* Shouldn't get here.  */
1903               as_bad ("interrupt vector for trap instruction out of range");
1904               return;
1905             }
1906           md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1907         }
1908       else if (insn.tm->opcode_modifier == StackOp
1909                || insn.tm->opcode_modifier == Rotate)
1910         {
1911           /* Push, Pop and Rotate instructions.  */
1912           insn.opcode |= (insn.operand_type[0]->reg.opcode << 16);
1913           md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1914         }
1915       else if ((insn.tm->operand_types[0] & (Abs24 | Direct))
1916                == (Abs24 | Direct))
1917         {
1918           /* LDP Instruction needs to be tested
1919              for before the next section.  */
1920           if (insn.operand_type[0]->op_type & Direct)
1921             {
1922               if (insn.operand_type[0]->direct.resolved == 1)
1923                 {
1924                   /* Direct addressing uses lower 8 bits of direct address.  */
1925                   insn.opcode |=
1926                     (insn.operand_type[0]->direct.address & 0x00FF0000) >> 16;
1927                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1928                 }
1929               else
1930                 {
1931                   fixS *fix;
1932
1933                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1934                   fix = fix_new_exp (frag_now, p + 3 - (frag_now->fr_literal),
1935                                      1, &insn.operand_type[0]->direct.direct_expr, 0, 0);
1936                   /* Ensure that the assembler doesn't complain
1937                      about fitting a 24-bit address into 8 bits.  */
1938                   fix->fx_no_overflow = 1;
1939                 }
1940             }
1941           else
1942             {
1943               if (insn.operand_type[0]->immediate.resolved == 1)
1944                 {
1945                   /* Immediate addressing uses upper 8 bits of address.  */
1946                   if (insn.operand_type[0]->immediate.u_number > 0x00FFFFFF)
1947                     {
1948                       as_bad ("LDP instruction needs a 24-bit operand");
1949                       return;
1950                     }
1951                   insn.opcode |=
1952                     ((insn.operand_type[0]->immediate.u_number & 0x00FF0000) >> 16);
1953                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1954                 }
1955               else
1956                 {
1957                   fixS *fix;
1958                   md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1959                   fix = fix_new_exp (frag_now, p + 3 - (frag_now->fr_literal),
1960                                      1, &insn.operand_type[0]->immediate.imm_expr,
1961                                      0, 0);
1962                   fix->fx_no_overflow = 1;
1963                 }
1964             }
1965         }
1966       else if (insn.tm->operand_types[0] & (Imm24))
1967         {
1968           /* Unconditional Branch and Call instructions.  */
1969           if (insn.operand_type[0]->immediate.resolved == 1)
1970             {
1971               if (insn.operand_type[0]->immediate.u_number > 0x00FFFFFF)
1972                 as_warn ("first operand is too large for a 24-bit displacement");
1973               insn.opcode |=
1974                 (insn.operand_type[0]->immediate.u_number & 0x00FFFFFF);
1975               md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1976             }
1977           else
1978             {
1979               md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1980               fix_new_exp (frag_now, p + 1 - (frag_now->fr_literal), 3,
1981                            & insn.operand_type[0]->immediate.imm_expr, 0, 0);
1982             }
1983         }
1984       else if (insn.tm->operand_types[0] & NotReq)
1985         /* Check for NOP instruction without arguments.  */
1986         md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1987
1988       else if (insn.tm->operands == 0)
1989         /* Check for instructions without operands.  */
1990         md_number_to_chars (p, (valueT) insn.opcode, INSN_SIZE);
1991     }
1992   debug ("Addressing mode: %08X\n", insn.addressing_mode);
1993   {
1994     unsigned int i;
1995
1996     for (i = 0; i < insn.operands; i++)
1997       {
1998         if (insn.operand_type[i]->immediate.label)
1999           free (insn.operand_type[i]->immediate.label);
2000         free (insn.operand_type[i]);
2001       }
2002   }
2003   debug ("Final opcode: %08X\n", insn.opcode);
2004   debug ("\n");
2005 }
2006