gas/config/bfin-lex.l

   1 %option noyywrap
   2
   3 /* bfin-lex.l  ADI Blackfin lexer
   4    Copyright (C) 2005-2021 Free Software Foundation, Inc.
   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 3, 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
  24 #include "as.h"
  25 #include "bfin-defs.h"
  26 #include "bfin-parse.h"
  27
  28 static long parse_int (char **end);
  29 static int parse_halfreg (Register *r, int cl, char *hr);
  30 static int parse_reg (Register *r, int type, char *rt);
  31 int yylex (void);
  32
  33 #define _REG yylval.reg
  34
  35
  36 %}
  37
  38 /* Define Start States ... Actually we will use exclusion.
  39    If no start state is specified it should match any state
  40    and <INITIAL> would match some keyword rules only with
  41    initial.  */
  42 %s KEYWORD
  43 %s FLAGS
  44
  45 %%
  46 [sS][fF][tT][rR][eE][sS][eE][tT]        _REG.regno = REG_sftreset;  return REG;
  47 [oO][mM][oO][dD][eE]                    _REG.regno = REG_omode;     return REG;
  48 [iI][dD][lL][eE]_[rR][eE][qQ]           _REG.regno = REG_idle_req;  return REG;
  49 [hH][wW][eE][rR][rR][cC][aA][uU][sS][eE] _REG.regno = REG_hwerrcause; return REG;
  50 [eE][xX][cC][aA][uU][sS][eE]            _REG.regno = REG_excause;   return REG;
  51 [eE][mM][uU][cC][aA][uU][sS][eE]        _REG.regno = REG_emucause;  return REG;
  52 <FLAGS>[zZ]                             return Z;
  53 <FLAGS>[xX]                             return X;
  54 [wW]32                                  yylval.value = M_W32; return MMOD;
  55 [wW]                                    return W;
  56 [vV][iI][tT]_[mM][aA][xX]               return VIT_MAX;
  57 [vV]               return V; /* Special: V is a statflag and a modifier.  */
  58 [uU][sS][pP]       _REG.regno = REG_USP; return REG;
  59 [tT][lL]                                return TL;
  60 [tT][hH]                                return TH;
  61 [tT][fF][uU]                            yylval.value = M_TFU; return MMOD;
  62 [tT][eE][sS][tT][sS][eE][tT]            return TESTSET;
  63 <FLAGS>[tT]                             yylval.value = M_T; return MMOD;
  64 <FLAGS>[sS]                             return S;
  65 [sS][yY][sS][cC][fF][gG]       _REG.regno = REG_SYSCFG; return REG;
  66 [sS][tT][iI]                            return STI;
  67 [sS][sS][yY][nN][cC]                    return SSYNC;
  68 [sS][pP]"."[lL]                         _REG.regno = REG_SP; _REG.flags = F_REG_LOW; return HALF_REG;
  69 [sS][pP]"."[hH]                         _REG.regno = REG_SP; _REG.flags = F_REG_HIGH; return HALF_REG;
  70 [sS][pP]                                _REG.regno = REG_SP; return REG;
  71 [sS][iI][gG][nN][bB][iI][tT][sS]        return SIGNBITS;
  72 [sS][iI][gG][nN]                        return SIGN;
  73 [sS][eE][qQ][sS][tT][aA][tT]     _REG.regno = REG_SEQSTAT; return REG;
  74 [sS][eE][aA][rR][cC][hH]                return SEARCH;
  75 [sS][hH][iI][fF][tT]                    return SHIFT;
  76 [sS][cC][oO]                            return SCO;
  77
  78 [sS][aA][aA]                            return SAA;
  79 [sS]2[rR][nN][dD]                       yylval.value = M_S2RND; return MMOD;
  80 [rR][tT][xX]                            return RTX;
  81 [rR][tT][sS]                            return RTS;
  82 [rR][tT][nN]                            return RTN;
  83 [rR][tT][iI]                            return RTI;
  84 [rR][tT][eE]                            return RTE;
  85 [rR][oO][tT]                            return ROT;
  86 [rR][nN][dD]20                          return RND20;
  87 [rR][nN][dD]12                          return RND12;
  88 [rR][nN][dD][lL]                        return RNDL;
  89 [rR][nN][dD][hH]                        return RNDH;
  90 [rR][nN][dD]                            return RND;
  91
  92 [rR][0-7]"."[lLhHbB]  return parse_halfreg(&yylval.reg, T_REG_R, yytext);
  93
  94 [rR][eE][tT][sS]                _REG.regno = REG_RETS; return REG;
  95 [rR][eE][tT][iI]                _REG.regno = REG_RETI; return REG;
  96 [rR][eE][tT][xX]                _REG.regno = REG_RETX; return REG;
  97 [rR][eE][tT][nN]                _REG.regno = REG_RETN; return REG;
  98 [rR][eE][tT][eE]                _REG.regno = REG_RETE; return REG;
  99 [eE][mM][uU][dD][aA][tT]        _REG.regno = REG_EMUDAT; return REG;
 100 [rR][aA][iI][sS][eE]            return RAISE;
 101
 102 [rR][0-7]           return parse_reg (&yylval.reg, T_REG_R, yytext);
 103
 104 [rR]      return R;
 105 [pP][rR][nN][tT]                        return PRNT;
 106 [pP][cC]                                return PC;
 107 [pP][aA][cC][kK]                        return PACK;
 108
 109 [pP][0-5]"."[lLhH]  return parse_halfreg (&yylval.reg, T_REG_P, yytext);
 110 [pP][0-5]           return parse_reg (&yylval.reg, T_REG_P, yytext);
 111
 112 [oO][uU][tT][cC]                        return OUTC;
 113 [oO][nN][eE][sS]                        return ONES;
 114
 115 [nN][oO][tT]                            return NOT;
 116 [nN][oO][pP]                            return NOP;
 117 [mM][nN][oO][pP]                        return MNOP;
 118 [nN][sS]                                return NS;
 119
 120
 121 [mM][iI][nN]                            return MIN;
 122 [mM][aA][xX]                            return MAX;
 123
 124 [mM][0-3]"."[lLhH]  return parse_halfreg (&yylval.reg, T_REG_M, yytext);
 125 [mM][0-3]           return parse_reg (&yylval.reg, T_REG_M, yytext);
 126
 127 <FLAGS>[mM]                             return M;
 128 [lL][tT]                                return LT;
 129 [lL][sS][hH][iI][fF][tT]                return LSHIFT;
 130 [lL][sS][eE][tT][uU][pP]                return LSETUP;
 131 [lL][oO][oO][pP]                        return LOOP;
 132 [lL][oO][oO][pP]_[bB][eE][gG][iI][nN]   return LOOP_BEGIN;
 133 [lL][oO][oO][pP]_[eE][nN][dD]           return LOOP_END;
 134
 135 [lL][eE]                                return LE;
 136 [lL][cC]0 _REG.regno = REG_LC0; return REG;
 137 [lL][tT]0 _REG.regno = REG_LT0; return REG;
 138 [lL][bB]0 _REG.regno = REG_LB0; return REG;
 139 [lL][cC]1 _REG.regno = REG_LC1; return REG;
 140 [lL][tT]1 _REG.regno = REG_LT1; return REG;
 141 [lL][bB]1 _REG.regno = REG_LB1; return REG;
 142
 143 [lL][0-3]"."[lLhH]  return parse_halfreg (&yylval.reg, T_REG_L, yytext);
 144 [lL][0-3]           return parse_reg (&yylval.reg, T_REG_L, yytext);
 145 [lL][oO]                                return LO;
 146 [jJ][uU][mM][pP]"."[sS]                 { BEGIN 0; return JUMP_DOT_S;}
 147 [jJ][uU][mM][pP]"."[lL]                 { BEGIN 0; return JUMP_DOT_L;}
 148 [jJ][uU][mM][pP]                        { BEGIN 0; return JUMP;}
 149 [jJ][uU][mM][pP]"."[xX]                 { BEGIN 0; return JUMP_DOT_L; }
 150 [iI][uU]                                yylval.value = M_IU;   return MMOD;
 151 [iI][sS][sS]2                           yylval.value = M_ISS2; return MMOD;
 152 [iI][sS]                                yylval.value = M_IS;   return MMOD;
 153 [iI][hH]                                yylval.value = M_IH;   return MMOD;
 154 [iI][fF]                                return IF;
 155 [iI][0-3]"."[lLhH]  return parse_halfreg (&yylval.reg, T_REG_I, yytext);
 156 [iI][0-3]           return parse_reg (&yylval.reg, T_REG_I, yytext);
 157 [hH][lL][tT]                            return HLT;
 158 [hH][iI]                                return HI;
 159 [gG][tT]                                return GT;
 160 [gG][eE]                                return GE;
 161 [fF][uU]                                yylval.value = M_FU; return MMOD;
 162 [fF][pP]         _REG.regno = REG_FP; return REG;
 163 [fF][pP]"."[lL]  _REG.regno = REG_FP; _REG.flags = F_REG_LOW; return HALF_REG;
 164 [fF][pP]"."[hH]  _REG.regno = REG_FP; _REG.flags = F_REG_HIGH; return HALF_REG;
 165
 166 [eE][xX][tT][rR][aA][cC][tT]            return EXTRACT;
 167 [eE][xX][pP][aA][dD][jJ]                return EXPADJ;
 168 [eE][xX][cC][pP][tT]                    return EXCPT;
 169 [eE][mM][uU][eE][xX][cC][pP][tT]        return EMUEXCPT;
 170 [dD][iI][vV][sS]                        return DIVS;
 171 [dD][iI][vV][qQ]                        return DIVQ;
 172 [dD][iI][sS][aA][lL][gG][nN][eE][xX][cC][pP][tT]  return DISALGNEXCPT;
 173 [dD][eE][pP][oO][sS][iI][tT]            return DEPOSIT;
 174 [dD][bB][gG][hH][aA][lL][tT]            return DBGHALT;
 175 [dD][bB][gG][cC][mM][pP][lL][xX]        return DBGCMPLX;
 176 [dD][bB][gG][aA][lL]                    return DBGAL;
 177 [dD][bB][gG][aA][hH]                    return DBGAH;
 178 [dD][bB][gG][aA]                        return DBGA;
 179 [dD][bB][gG]                            return DBG;
 180 [cC][yY][cC][lL][eE][sS]2  { _REG.regno = REG_CYCLES2; return REG; }
 181 [cC][yY][cC][lL][eE][sS]  { _REG.regno = REG_CYCLES; return REG; }
 182 [cC][sS][yY][nN][cC]                    return CSYNC;
 183 [cC][oO]                                return CO;
 184 [cC][lL][iI]                            return CLI;
 185
 186 [cC][cC]     _REG.regno = REG_CC; return CCREG;
 187 [cC][aA][lL][lL]"."[xX]                 { BEGIN 0; return CALL;}
 188 [cC][aA][lL][lL]                        { BEGIN 0; return CALL;}
 189 [bB][yY][tT][eE][uU][nN][pP][aA][cC][kK] return BYTEUNPACK;
 190 [bB][yY][tT][eE][pP][aA][cC][kK]        return BYTEPACK;
 191 [bB][yY][tT][eE][oO][pP]16[mM]          return BYTEOP16M;
 192 [bB][yY][tT][eE][oO][pP]16[pP]          return BYTEOP16P;
 193 [bB][yY][tT][eE][oO][pP]3[pP]           return BYTEOP3P;
 194 [bB][yY][tT][eE][oO][pP]2[pP]           return BYTEOP2P;
 195 [bB][yY][tT][eE][oO][pP]1[pP]           return BYTEOP1P;
 196 [bB][yY]                                return BY;
 197 [bB][xX][oO][rR][sS][hH][iI][fF][tT]    return BXORSHIFT;
 198 [bB][xX][oO][rR]                        return BXOR;
 199
 200 [bB][rR][eE][vV]                        return BREV;
 201 [bB][pP]                                return BP;
 202 [bB][iI][tT][tT][sS][tT]                return BITTST;
 203 [bB][iI][tT][tT][gG][lL]                return BITTGL;
 204 [bB][iI][tT][sS][eE][tT]                return BITSET;
 205 [bB][iI][tT][mM][uU][xX]                return BITMUX;
 206 [bB][iI][tT][cC][lL][rR]                return BITCLR;
 207 [bB][0-3]"."[lLhH]  return parse_halfreg (&yylval.reg, T_REG_B, yytext);
 208 [bB][0-3]           return parse_reg (&yylval.reg, T_REG_B, yytext);
 209 [bB]                                    return B;
 210 [aA][zZ]  _REG.regno = S_AZ;   return STATUS_REG;
 211 [aA][nN]  _REG.regno = S_AN;   return STATUS_REG;
 212 [aA][cC]0_[cC][oO][pP][yY]  _REG.regno = S_AC0_COPY; return STATUS_REG;
 213 [vV]_[cC][oO][pP][yY]       _REG.regno = S_V_COPY;   return STATUS_REG;
 214 [aA][qQ]  _REG.regno = S_AQ;   return STATUS_REG;
 215 [aA][cC]0 _REG.regno = S_AC0;  return STATUS_REG;
 216 [aA][cC]1 _REG.regno = S_AC1;  return STATUS_REG;
 217 [aA][vV]0 _REG.regno = S_AV0;  return STATUS_REG;
 218 [aA][vV]0[sS] _REG.regno = S_AV0S; return STATUS_REG;
 219 [aA][vV]1 _REG.regno = S_AV1;  return STATUS_REG;
 220 [aA][vV]1[sS] _REG.regno = S_AV1S; return STATUS_REG;
 221 [vV][sS]  _REG.regno = S_VS;   return STATUS_REG;
 222 [rR][nN][dD]_[mM][oO][dD]  _REG.regno = S_RND_MOD; return STATUS_REG;
 223
 224
 225 [aA][sS][tT][aA][tT]   _REG.regno = REG_ASTAT; return REG;
 226 [aA][sS][hH][iI][fF][tT]                return ASHIFT;
 227 [aA][sS][lL]                            return ASL;
 228 [aA][sS][rR]                            return ASR;
 229 [aA][lL][iI][gG][nN]8                   return ALIGN8;
 230 [aA][lL][iI][gG][nN]16                  return ALIGN16;
 231 [aA][lL][iI][gG][nN]24                  return ALIGN24;
 232 [aA]1"."[lL]    return A_ONE_DOT_L;
 233 [aA]0"."[lL]    return A_ZERO_DOT_L;
 234 [aA]1"."[hH]    return A_ONE_DOT_H;
 235 [aA]0"."[hH]    return A_ZERO_DOT_H;
 236 [aA][bB][sS]                            return ABS;
 237 [aA][bB][oO][rR][tT]                    return ABORT;
 238 [aA]1"."[xX]    _REG.regno = REG_A1x; return REG;
 239 [aA]1"."[wW]    _REG.regno = REG_A1w; return REG;
 240 [aA]1           _REG.regno = REG_A1;  return REG_A_DOUBLE_ONE;
 241 [aA]0"."[xX]    _REG.regno = REG_A0x; return REG;
 242 [aA]0"."[wW]    _REG.regno = REG_A0w; return REG;
 243 [aA]0           _REG.regno = REG_A0;  return REG_A_DOUBLE_ZERO;
 244 [Gg][Oo][Tt]    return GOT;
 245 [Gg][Oo][Tt]"17"[Mm]"4" return GOT17M4;
 246 [Ff][Uu][Nn][Cc][Dd][Ee][Ss][Cc]"_"[Gg][Oo][Tt]"17"[Mm]"4" return FUNCDESC_GOT17M4;
 247 [Pp][Ll][Tt][Pp][Cc]    return PLTPC;
 248
 249
 250 "~"                     return TILDA;
 251 "|="                    return _BAR_ASSIGN;
 252 "|"                     return BAR;
 253 "^="                    return _CARET_ASSIGN;
 254 "^"                     return CARET;
 255 "]"                     return RBRACK;
 256 "["                     return LBRACK;
 257 ">>>="                  return _GREATER_GREATER_GREATER_THAN_ASSIGN;
 258 ">>="                   return _GREATER_GREATER_ASSIGN;
 259 ">>>"                   return _GREATER_GREATER_GREATER;
 260 ">>"                    return GREATER_GREATER;
 261 "=="                    return _ASSIGN_ASSIGN;
 262 "="                     return ASSIGN;
 263 "<="                    return _LESS_THAN_ASSIGN;
 264 "<<="                   return _LESS_LESS_ASSIGN;
 265 "<<"                    return LESS_LESS;
 266 "<"                     return LESS_THAN;
 267 "("                     BEGIN(FLAGS); return LPAREN;
 268 ")"                     BEGIN(INITIAL); return RPAREN;
 269 ":"                     return COLON;
 270 "/"                     return SLASH;
 271 "-="                    return _MINUS_ASSIGN;
 272 "+|+"                                   return _PLUS_BAR_PLUS;
 273 "-|+"                                   return _MINUS_BAR_PLUS;
 274 "+|-"                                   return _PLUS_BAR_MINUS;
 275 "-|-"                                   return _MINUS_BAR_MINUS;
 276 "--"                    return _MINUS_MINUS;
 277 "-"                     return MINUS;
 278 ","                     return COMMA;
 279 "+="                    return _PLUS_ASSIGN;
 280 "++"                    return _PLUS_PLUS;
 281 "+"                     return PLUS;
 282 "*="                    return _STAR_ASSIGN;
 283 "*"                     return STAR;
 284 "&="                    return _AMPERSAND_ASSIGN;
 285 "&"                     return AMPERSAND;
 286 "%"                     return PERCENT;
 287 "!"                     return BANG;
 288 ";"                     return SEMICOLON;
 289 "=!"                    return _ASSIGN_BANG;
 290 "||"                    return DOUBLE_BAR;
 291 "@"                     return AT;
 292 <KEYWORD>[pP][rR][eE][fF][eE][tT][cC][hH]        return PREFETCH;
 293 <KEYWORD>[uU][nN][lL][iI][nN][kK]                return UNLINK;
 294 <KEYWORD>[lL][iI][nN][kK]                        return LINK;
 295 <KEYWORD>[iI][dD][lL][eE]                        return IDLE;
 296 <KEYWORD>[iI][fF][lL][uU][sS][hH]                return IFLUSH;
 297 <KEYWORD>[fF][lL][uU][sS][hH][iI][nN][vV]        return FLUSHINV;
 298 <KEYWORD>[fF][lL][uU][sS][hH]                    return FLUSH;
 299 ([0-9]+)|(0[xX][0-9a-fA-F]+)|([bhfodBHOFD]#[0-9a-fA-F]+)|(0"."[0-9]+) {
 300     yylval.value = parse_int (&yytext);
 301     return NUMBER;
 302   }
 303 [[:alpha:]\x80-\xff_$.][[:alnum:]\x80-\xff_$.]* {
 304     yylval.symbol = symbol_find_or_make (yytext);
 305     symbol_mark_used (yylval.symbol);
 306     return SYMBOL;
 307   }
 308 [0-9][bfBF] {
 309     char *name;
 310     char *ref = strdup (yytext);
 311     if (ref[1] == 'b' || ref[1] == 'B')
 312       {
 313         name = fb_label_name ((int) (ref[0] - '0'), 0);
 314         yylval.symbol = symbol_find (name);
 315
 316         if ((yylval.symbol != NULL)
 317              && (S_IS_DEFINED (yylval.symbol)))
 318           return SYMBOL;
 319         as_bad ("backward reference to unknown label %d:",
 320                                                   (int) (ref[0] - '0'));
 321       }
 322     else if (ref[1] == 'f' || ref[1] == 'F')
 323       {
 324         /* Forward reference.  Expect symbol to be undefined or
 325            unknown.  undefined: seen it before.  unknown: never seen
 326            it before.
 327
 328            Construct a local label name, then an undefined symbol.
 329            Just return it as never seen before.  */
 330
 331         name = fb_label_name ((int) (ref[0] - '0'), 1);
 332         yylval.symbol = symbol_find_or_make (name);
 333         /* We have no need to check symbol properties.  */
 334         return SYMBOL;
 335       }
 336   }
 337 [ \t\n]                                    ;
 338 "/*".*"*/"                                 ;
 339 .                                          return yytext[0];
 340 %%
 341 static long parse_int (char **end)
 342 {
 343   char fmt = '\0';
 344   int not_done = 1;
 345   int shiftvalue = 0;
 346   char * char_bag;
 347   unsigned long value = 0;
 348   char *arg = *end;
 349
 350   while (*arg && *arg == ' ')
 351     arg++;
 352
 353   switch (*arg)
 354     {
 355       case '1':
 356       case '2':
 357       case '3':
 358       case '4':
 359       case '5':
 360       case '6':
 361       case '7':
 362       case '8':
 363       case '9':
 364         fmt = 'd';
 365         break;
 366
 367       case '0':  /* Accept different formatted integers hex octal and binary. */
 368         {
 369           char c = *++arg;
 370           arg++;
 371           if (c == 'x' || c == 'X') /* Hex input.  */
 372             fmt = 'h';
 373           else if (c == 'b' || c == 'B')
 374             fmt = 'b';
 375           else if (c == '.')
 376             fmt = 'f';
 377           else
 378             {             /* Octal.  */
 379               arg--;
 380               fmt = 'o';
 381             }
 382           break;
 383         }
 384
 385       case 'd':
 386       case 'D':
 387       case 'h':
 388       case 'H':
 389       case 'o':
 390       case 'O':
 391       case 'b':
 392       case 'B':
 393       case 'f':
 394       case 'F':
 395         {
 396           fmt = *arg++;
 397           if (*arg == '#')
 398             arg++;
 399         }
 400     }
 401
 402   switch (fmt)
 403     {
 404       case 'h':
 405       case 'H':
 406         shiftvalue = 4;
 407         char_bag = "0123456789ABCDEFabcdef";
 408         break;
 409
 410       case 'o':
 411       case 'O':
 412         shiftvalue = 3;
 413         char_bag = "01234567";
 414         break;
 415
 416       case 'b':
 417       case 'B':
 418         shiftvalue = 1;
 419         char_bag = "01";
 420         break;
 421
 422 /* The assembler allows for fractional constants to be created
 423    by either the 0.xxxx or the f#xxxx format
 424
 425    i.e.   0.5 would result in 0x4000
 426
 427    note .5 would result in the identifier .5.
 428
 429    The assembler converts to fractional format 1.15 by the simple rule:
 430
 431              value = (short) (finput * (1 << 15)).  */
 432
 433       case 'f':
 434       case 'F':
 435         {
 436           float fval = 0.0;
 437           float pos = 10.0;
 438           while (1)
 439             {
 440               int c;
 441               c = *arg++;
 442
 443               if (c >= '0' && c <= '9')
 444                 {
 445                   float digit = (c - '0') / pos;
 446                   fval = fval + digit;
 447                   pos = pos * 10.0;
 448                 }
 449               else
 450                 {
 451                   *--arg = c;
 452                   value = (short) (fval * (1 << 15));
 453                   break;
 454                 }
 455             }
 456           *end = arg+1;
 457           return value;
 458         }
 459
 460       case 'd':
 461       case 'D':
 462       default:
 463         {
 464           while (1)
 465             {
 466               char c;
 467               c = *arg++;
 468               if (c >= '0' && c <= '9')
 469                 value = (value * 10) + (c - '0');
 470               else
 471                 {
 472                   /* Constants that are suffixed with k|K are multiplied by 1024
 473                      This suffix is only allowed on decimal constants. */
 474                   if (c == 'k' || c == 'K')
 475                     value *= 1024;
 476                   else
 477                     *--arg = c;
 478                   break;
 479                 }
 480             }
 481           *end = arg+1;
 482           return value;
 483         }
 484     }
 485
 486   while (not_done)
 487     {
 488       char c;
 489       c = *arg++;
 490       if (c == 0 || !strchr (char_bag, c))
 491         {
 492           not_done = 0;
 493           *--arg = c;
 494         }
 495       else
 496         {
 497           if (c >= 'a' && c <= 'z')
 498             c = c - ('a' - '9') + 1;
 499           else if (c >= 'A' && c <= 'Z')
 500             c = c - ('A' - '9') + 1;
 501
 502           c -= '0';
 503           value = (value << shiftvalue) + c;
 504         }
 505     }
 506   *end = arg+1;
 507   return value;
 508 }
 509
 510
 511 static int parse_reg (Register *r, int cl, char *rt)
 512 {
 513   r->regno = cl | (rt[1] - '0');
 514   r->flags = F_REG_NONE;
 515   return REG;
 516 }
 517
 518 static int parse_halfreg (Register *r, int cl, char *rt)
 519 {
 520   r->regno = cl | (rt[1] - '0');
 521
 522   switch (rt[3])
 523     {
 524       case 'b':
 525       case 'B':
 526         return BYTE_DREG;
 527
 528       case 'l':
 529       case 'L':
 530         r->flags = F_REG_LOW;
 531         break;
 532
 533       case 'h':
 534       case 'H':
 535         r->flags = F_REG_HIGH;
 536         break;
 537     }
 538
 539   return HALF_REG;
 540 }
 541
 542 /* Our start state is KEYWORD as we have
 543    command keywords such as PREFETCH.  */
 544
 545 void
 546 set_start_state (void)
 547 {
 548   BEGIN KEYWORD;
 549 }