URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [cpu/] [lm32.opc] - Blame information for rev 233

Go to most recent revision | Details | Compare with Previous | View Log


/* Lattice Mico32 opcode support.  -*- C -*-
   Copyright 2008, 2009  Free Software Foundation, Inc.
   Contributed by Jon Beniston 
 
   This file is part of the GNU Binutils.
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */
 
/* -- opc.h */
 
/* Allows reason codes to be output when assembler errors occur.  */
#define CGEN_VERBOSE_ASSEMBLER_ERRORS
 
#define CGEN_DIS_HASH_SIZE 64
#define CGEN_DIS_HASH(buf,value) ((value >> 26) & 0x3f)
 
/* -- asm.c */
 
/* Handle signed/unsigned literal.  */
 
static const char *
parse_imm (CGEN_CPU_DESC cd,
           const char **strp,
           int opindex,
           unsigned long *valuep)
{
  const char *errmsg;
  signed long value;
 
  errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);
  if (errmsg == NULL)
    {
      unsigned long x = value & 0xFFFF0000;
      if (x != 0 && x != 0xFFFF0000)
        errmsg = _("immediate value out of range");
      else
        *valuep = (value & 0xFFFF);
    }
  return errmsg;
}
 
/* Handle hi() */
 
static const char *
parse_hi16 (CGEN_CPU_DESC cd,
            const char **strp,
            int opindex,
            unsigned long *valuep)
{
  if (strncasecmp (*strp, "hi(", 3) == 0)
    {
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
      const char *errmsg;
 
      *strp += 3;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_HI16,
                                   &result_type, &value);
      if (**strp != ')')
        return _("missing `)'");
 
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value = (value >> 16) & 0xffff;
      *valuep = value;
 
      return errmsg;
    }
 
  return parse_imm (cd, strp, opindex, valuep);
}
 
/* Handle lo() */
 
static const char *
parse_lo16 (CGEN_CPU_DESC cd,
            const char **strp,
            int opindex,
            unsigned long *valuep)
{
  if (strncasecmp (*strp, "lo(", 3) == 0)
    {
      const char *errmsg;
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
 
      *strp += 3;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LO16,
                                   &result_type, &value);
      if (**strp != ')')
        return _("missing `)'");
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value &= 0xffff;
      *valuep = value;
      return errmsg;
    }
 
  return parse_imm (cd, strp, opindex, valuep);
}
 
/* Handle gp() */
 
static const char *
parse_gp16 (CGEN_CPU_DESC cd,
            const char **strp,
            int opindex,
            long *valuep)
{
  if (strncasecmp (*strp, "gp(", 3) == 0)
    {
      const char *errmsg;
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
 
      *strp += 3;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_GPREL16,
                                   & result_type, & value);
      if (**strp != ')')
        return _("missing `)'");
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value &= 0xffff;
      *valuep = value;
      return errmsg;
    }
 
  return _("expecting gp relative address: gp(symbol)");
}
 
/* Handle got() */
 
static const char *
parse_got16 (CGEN_CPU_DESC cd,
             const char **strp,
             int opindex,
             long *valuep)
{
  if (strncasecmp (*strp, "got(", 4) == 0)
    {
      const char *errmsg;
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
 
      *strp += 4;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_16_GOT,
                                   & result_type, & value);
      if (**strp != ')')
        return _("missing `)'");
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value &= 0xffff;
      *valuep = value;
      return errmsg;
    }
 
  return _("expecting got relative address: got(symbol)");
}
 
/* Handle gotoffhi16() */
 
static const char *
parse_gotoff_hi16 (CGEN_CPU_DESC cd,
                   const char **strp,
                   int opindex,
                   long *valuep)
{
  if (strncasecmp (*strp, "gotoffhi16(", 11) == 0)
    {
      const char *errmsg;
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
 
      *strp += 11;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_GOTOFF_HI16,
                                   & result_type, & value);
      if (**strp != ')')
        return _("missing `)'");
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value &= 0xffff;
      *valuep = value;
      return errmsg;
    }
 
  return _("expecting got relative address: gotoffhi16(symbol)");
}
 
/* Handle gotofflo16() */
 
static const char *
parse_gotoff_lo16 (CGEN_CPU_DESC cd,
                   const char **strp,
                   int opindex,
                   long *valuep)
{
  if (strncasecmp (*strp, "gotofflo16(", 11) == 0)
    {
      const char *errmsg;
      enum cgen_parse_operand_result result_type;
      bfd_vma value;
 
      *strp += 11;
      errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_GOTOFF_LO16,
                                   &result_type, &value);
      if (**strp != ')')
        return _("missing `)'");
      ++*strp;
      if (errmsg == NULL
          && result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)
        value &= 0xffff;
      *valuep = value;
      return errmsg;
    }
 
  return _("expecting got relative address: gotofflo16(symbol)");
}

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [cpu/] [lm32.opc] - Blame information for rev 233

Line No.	Rev	Author	Line
1	205	julius	`/* Lattice Mico32 opcode support. -- C --`
2			`Copyright 2008, 2009 Free Software Foundation, Inc.`
3			`Contributed by Jon Beniston`
4
5			`This file is part of the GNU Binutils.`
6
7			`This program is free software; you can redistribute it and/or modify`
8			`it under the terms of the GNU General Public License as published by`
9			`the Free Software Foundation; either version 3 of the License, or`
10			`(at your option) any later version.`
11
12			`This program is distributed in the hope that it will be useful,`
13			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
14			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
15			`GNU General Public License for more details.`
16
17			`You should have received a copy of the GNU General Public License`
18			`along with this program; if not, write to the Free Software`
19			`Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,`
20			`MA 02110-1301, USA. */`
21
22			`/* -- opc.h */`
23
24			`/* Allows reason codes to be output when assembler errors occur. */`
25			`#define CGEN_VERBOSE_ASSEMBLER_ERRORS`
26
27			`#define CGEN_DIS_HASH_SIZE 64`
28			`#define CGEN_DIS_HASH(buf,value) ((value >> 26) & 0x3f)`
29
30			`/* -- asm.c */`
31
32			`/* Handle signed/unsigned literal. */`
33
34			`static const char *`
35			`parse_imm (CGEN_CPU_DESC cd,`
36			`const char **strp,`
37			`int opindex,`
38			`unsigned long *valuep)`
39			`{`
40			`const char *errmsg;`
41			`signed long value;`
42
43			`errmsg = cgen_parse_signed_integer (cd, strp, opindex, & value);`
44			`if (errmsg == NULL)`
45			`{`
46			`unsigned long x = value & 0xFFFF0000;`
47			`if (x != 0 && x != 0xFFFF0000)`
48			`errmsg = _("immediate value out of range");`
49			`else`
50			`*valuep = (value & 0xFFFF);`
51			`}`
52			`return errmsg;`
53			`}`
54
55			`/* Handle hi() */`
56
57			`static const char *`
58			`parse_hi16 (CGEN_CPU_DESC cd,`
59			`const char **strp,`
60			`int opindex,`
61			`unsigned long *valuep)`
62			`{`
63			`if (strncasecmp (*strp, "hi(", 3) == 0)`
64			`{`
65			`enum cgen_parse_operand_result result_type;`
66			`bfd_vma value;`
67			`const char *errmsg;`
68
69			`*strp += 3;`
70			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_HI16,`
71			`&result_type, &value);`
72			`if (**strp != ')')`
73			return _("missing `)'");
74
75			`++*strp;`
76			`if (errmsg == NULL`
77			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
78			`value = (value >> 16) & 0xffff;`
79			`*valuep = value;`
80
81			`return errmsg;`
82			`}`
83
84			`return parse_imm (cd, strp, opindex, valuep);`
85			`}`
86
87			`/* Handle lo() */`
88
89			`static const char *`
90			`parse_lo16 (CGEN_CPU_DESC cd,`
91			`const char **strp,`
92			`int opindex,`
93			`unsigned long *valuep)`
94			`{`
95			`if (strncasecmp (*strp, "lo(", 3) == 0)`
96			`{`
97			`const char *errmsg;`
98			`enum cgen_parse_operand_result result_type;`
99			`bfd_vma value;`
100
101			`*strp += 3;`
102			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LO16,`
103			`&result_type, &value);`
104			`if (**strp != ')')`
105			return _("missing `)'");
106			`++*strp;`
107			`if (errmsg == NULL`
108			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
109			`value &= 0xffff;`
110			`*valuep = value;`
111			`return errmsg;`
112			`}`
113
114			`return parse_imm (cd, strp, opindex, valuep);`
115			`}`
116
117			`/* Handle gp() */`
118
119			`static const char *`
120			`parse_gp16 (CGEN_CPU_DESC cd,`
121			`const char **strp,`
122			`int opindex,`
123			`long *valuep)`
124			`{`
125			`if (strncasecmp (*strp, "gp(", 3) == 0)`
126			`{`
127			`const char *errmsg;`
128			`enum cgen_parse_operand_result result_type;`
129			`bfd_vma value;`
130
131			`*strp += 3;`
132			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_GPREL16,`
133			`& result_type, & value);`
134			`if (**strp != ')')`
135			return _("missing `)'");
136			`++*strp;`
137			`if (errmsg == NULL`
138			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
139			`value &= 0xffff;`
140			`*valuep = value;`
141			`return errmsg;`
142			`}`
143
144			`return _("expecting gp relative address: gp(symbol)");`
145			`}`
146
147			`/* Handle got() */`
148
149			`static const char *`
150			`parse_got16 (CGEN_CPU_DESC cd,`
151			`const char **strp,`
152			`int opindex,`
153			`long *valuep)`
154			`{`
155			`if (strncasecmp (*strp, "got(", 4) == 0)`
156			`{`
157			`const char *errmsg;`
158			`enum cgen_parse_operand_result result_type;`
159			`bfd_vma value;`
160
161			`*strp += 4;`
162			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_16_GOT,`
163			`& result_type, & value);`
164			`if (**strp != ')')`
165			return _("missing `)'");
166			`++*strp;`
167			`if (errmsg == NULL`
168			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
169			`value &= 0xffff;`
170			`*valuep = value;`
171			`return errmsg;`
172			`}`
173
174			`return _("expecting got relative address: got(symbol)");`
175			`}`
176
177			`/* Handle gotoffhi16() */`
178
179			`static const char *`
180			`parse_gotoff_hi16 (CGEN_CPU_DESC cd,`
181			`const char **strp,`
182			`int opindex,`
183			`long *valuep)`
184			`{`
185			`if (strncasecmp (*strp, "gotoffhi16(", 11) == 0)`
186			`{`
187			`const char *errmsg;`
188			`enum cgen_parse_operand_result result_type;`
189			`bfd_vma value;`
190
191			`*strp += 11;`
192			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_GOTOFF_HI16,`
193			`& result_type, & value);`
194			`if (**strp != ')')`
195			return _("missing `)'");
196			`++*strp;`
197			`if (errmsg == NULL`
198			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
199			`value &= 0xffff;`
200			`*valuep = value;`
201			`return errmsg;`
202			`}`
203
204			`return _("expecting got relative address: gotoffhi16(symbol)");`
205			`}`
206
207			`/* Handle gotofflo16() */`
208
209			`static const char *`
210			`parse_gotoff_lo16 (CGEN_CPU_DESC cd,`
211			`const char **strp,`
212			`int opindex,`
213			`long *valuep)`
214			`{`
215			`if (strncasecmp (*strp, "gotofflo16(", 11) == 0)`
216			`{`
217			`const char *errmsg;`
218			`enum cgen_parse_operand_result result_type;`
219			`bfd_vma value;`
220
221			`*strp += 11;`
222			`errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_LM32_GOTOFF_LO16,`
223			`&result_type, &value);`
224			`if (**strp != ')')`
225			return _("missing `)'");
226			`++*strp;`
227			`if (errmsg == NULL`
228			`&& result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER)`
229			`value &= 0xffff;`
230			`*valuep = value;`
231			`return errmsg;`
232			`}`
233
234			`return _("expecting got relative address: gotofflo16(symbol)");`
235			`}`