OpenCores

Rev 330	Rev 673
Line 451...	Line 451...
`{`	`{`
`if (enc == '0' \|\| enc == '1' \|\| enc == '-' \|\| ISALPHA (enc))`	`if (enc == '0' \|\| enc == '1' \|\| enc == '-' \|\| ISALPHA (enc))`
`{`	`{`
`opc_pos--;`	`opc_pos--;`
`if (param_ch == *enc)`	`if (param_ch == *enc)`
`ret \|= 1 << opc_pos;`	`ret \|= 1UL << opc_pos;`
`}`	`}`
`enc++;`	`enc++;`
`}`	`}`
`return ret;`	`return ret;`
`}`	`}`
Line 560...	Line 560...
`debug (8, "%li> #### %i << %i (%i) ####\n",`	`debug (8, "%li> #### %i << %i (%i) ####\n",`
`(long)(cur - automata), best_len, best_first, ninstr);`	`(long)(cur - automata), best_len, best_first, ninstr);`

`*cur = best_first;`	`*cur = best_first;`
`cur++;`	`cur++;`
`*cur = (1 << best_len) - 1;`	`*cur = (1UL << best_len) - 1;`
`cur++;`	`cur++;`
`next = cur;`	`next = cur;`

`/* Allocate space for pointers. */`	`/* Allocate space for pointers. */`
`cur += 1 << best_len;`	`cur += 1UL << best_len;`
`cur_mask = (1 << (unsigned long) best_len) - 1;`	`cur_mask = (1UL << (unsigned long) best_len) - 1;`

`for (i = 0; i < ((unsigned) 1 << best_len); i++)`	`for (i = 0; i < (1U << best_len); i++)`
`{`	`{`
`unsigned int j;`	`unsigned int j;`
`unsigned long *c;`	`unsigned long *c;`

`curpass++;`	`curpass++;`
Line 676...	Line 676...
`mask++;`	`mask++;`
`tmp >>= 1;`	`tmp >>= 1;`
`}`	`}`
`cur->type = type \| shr;`	`cur->type = type \| shr;`
`cur->data = mask;`	`cur->data = mask;`
`arg &= ~(((1 << mask) - 1) << shr);`	`arg &= ~(((1UL << mask) - 1) << shr);`
`debug (6, "\|%08lX %08lX\n", cur->type, cur->data);`	`debug (6, "\|%08lX %08lX\n", cur->type, cur->data);`
`cur++;`	`cur++;`
`}`	`}`
`args++;`	`args++;`
`}`	`}`
Line 856...	Line 856...
`int letter_bits;`	`int letter_bits;`

`/* First truncate all bits above valid range for this letter`	`/* First truncate all bits above valid range for this letter`
`in case it is zero extend. */`	`in case it is zero extend. */`
`letter_bits = letter_range (l);`	`letter_bits = letter_range (l);`
`mask = (1 << letter_bits) - 1;`	`mask = (1UL << letter_bits) - 1;`
`imm &= mask;`	`imm &= mask;`

`/* Do sign extend if this is the right one. */`	`/* Do sign extend if this is the right one. */`
`if (letter_signed(l) && (imm >> (letter_bits - 1)))`	`if (letter_signed(l) && (imm >> (letter_bits - 1)))`
`imm \|= (~mask);`	`imm \|= (~mask);`

`return imm;`	`return imm;`
`}`	`}`

	`/* Extract a field according to an opcode format string (see or32_opcodes)`
	`* Note: a nearly identical function is also present in or32-dis.c */`
`static unsigned long`	`static unsigned long`
`or32_extract (char param_ch, char *enc_initial, unsigned long insn)`	`or32_extract (char param_ch, char *enc_initial, unsigned long insn)`
`{`	`{`
`char *enc;`	`char *enc;`
`unsigned long ret = 0;`	`unsigned long ret = 0;`
Line 908...	Line 910...
`}`	`}`
`else if ((enc == '0') \|\| (enc == '1'))`	`else if ((enc == '0') \|\| (enc == '1'))`
`{`	`{`
`opc_pos--;`	`opc_pos--;`
`if (param_ch == *enc)`	`if (param_ch == *enc)`
`ret \|= 1 << opc_pos;`	`ret \|= 1UL << opc_pos;`
`enc++;`	`enc++;`
`}`	`}`
`else if (*enc == param_ch)`	`else if (*enc == param_ch)`
`{`	`{`
`opc_pos--;`	`opc_pos--;`

Line 451...

        if (*enc == '0' || *enc == '1' || *enc == '-' || ISALPHA (*enc))

        if (*enc == '0' || *enc == '1' || *enc == '-' || ISALPHA (*enc))

            opc_pos--;

            opc_pos--;

            if (param_ch == *enc)

            if (param_ch == *enc)

              ret |= 1 << opc_pos;

              ret |= 1UL << opc_pos;

        enc++;

        enc++;

  return ret;

  return ret;

Line 560...

      debug (8, "%li> #### %i << %i (%i) ####\n",

      debug (8, "%li> #### %i << %i (%i) ####\n",

             (long)(cur - automata), best_len, best_first, ninstr);

             (long)(cur - automata), best_len, best_first, ninstr);

      *cur = best_first;

      *cur = best_first;

      cur++;

      cur++;

      *cur = (1 << best_len) - 1;

      *cur = (1UL << best_len) - 1;

      cur++;

      cur++;

      next = cur;

      next = cur;

      /* Allocate space for pointers.  */

      /* Allocate space for pointers.  */

      cur += 1 << best_len;

      cur += 1UL << best_len;

      cur_mask = (1 << (unsigned long) best_len) - 1;

      cur_mask = (1UL << (unsigned long) best_len) - 1;

      for (i = 0; i < ((unsigned) 1 << best_len); i++)

      for (i = 0; i < (1U << best_len); i++)

          unsigned int j;

          unsigned int j;

          unsigned long *c;

          unsigned long *c;

          curpass++;

          curpass++;

Line 676...

                  mask++;

                  mask++;

                  tmp >>= 1;

                  tmp >>= 1;

              cur->type = type | shr;

              cur->type = type | shr;

              cur->data = mask;

              cur->data = mask;

              arg &= ~(((1 << mask) - 1) << shr);

              arg &= ~(((1UL << mask) - 1) << shr);

              debug (6, "|%08lX %08lX\n", cur->type, cur->data);

              debug (6, "|%08lX %08lX\n", cur->type, cur->data);

              cur++;

              cur++;

          args++;

          args++;

Line 856...

  int letter_bits;

  int letter_bits;

  /* First truncate all bits above valid range for this letter

  /* First truncate all bits above valid range for this letter

     in case it is zero extend.  */

     in case it is zero extend.  */

  letter_bits = letter_range (l);

  letter_bits = letter_range (l);

  mask = (1 << letter_bits) - 1;

  mask = (1UL << letter_bits) - 1;

  imm &= mask;

  imm &= mask;

  /* Do sign extend if this is the right one.  */

  /* Do sign extend if this is the right one.  */

  if (letter_signed(l) && (imm >> (letter_bits - 1)))

  if (letter_signed(l) && (imm >> (letter_bits - 1)))

    imm |= (~mask);

    imm |= (~mask);

  return imm;

  return imm;

/* Extract a field according to an opcode format string (see or32_opcodes)

 * Note: a nearly identical function is also present in or32-dis.c */

static unsigned long

static unsigned long

or32_extract (char param_ch, char *enc_initial, unsigned long insn)

or32_extract (char param_ch, char *enc_initial, unsigned long insn)

  char *enc;

  char *enc;

  unsigned long ret = 0;

  unsigned long ret = 0;

Line 908...

Line 910...

    else if ((*enc == '0') || (*enc == '1'))

    else if ((*enc == '0') || (*enc == '1'))

        opc_pos--;

        opc_pos--;

        if (param_ch == *enc)

        if (param_ch == *enc)

          ret |= 1 << opc_pos;

          ret |= 1UL << opc_pos;

        enc++;

        enc++;

    else if (*enc == param_ch)

    else if (*enc == param_ch)

        opc_pos--;

        opc_pos--;

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gdb-7.2/] [opcodes/] [or32-opc.c] - Diff between revs 330 and 673