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