1 %option yylineno
2 %option nounput
3 %{
4 #include <string.h>
5 #include "elk_asm.h"
6 #undef ALIGN16
7 #include "elk_gram.tab.h"
8
9 /* Locations */
10 int yycolumn = 1;
11
12 int saved_state = 0;
13 extern char *input_filename;
14
15 #define YY_NO_INPUT
16 #define YY_USER_ACTION \
17 yylloc.first_line = yylloc.last_line = yylineno; \
18 yylloc.first_column = yycolumn; \
19 yylloc.last_column = yycolumn + yyleng - 1; \
20 yycolumn += yyleng;
21 %}
22
23 %x BLOCK_COMMENT
24 %x FILENAME
25 %x CHANNEL
26 %x REG
27 %x DOTSEL
28 %x LABEL
29 %x MSGDESC
30 %%
31
32 /* eat up single line comment */
33 \/\/.*[\r\n] { yycolumn = 1; }
34
35 /* eat up multiline comment */
36 \/\* { saved_state = YYSTATE; BEGIN(BLOCK_COMMENT); }
37
38 <BLOCK_COMMENT>\*\/ { BEGIN(saved_state); }
39
40 <BLOCK_COMMENT>. { }
41 <BLOCK_COMMENT>[\r\n] { }
42
43 <FILENAME>\"[^\"]+\" {
44 char *name = malloc(yyleng - 1);
45 memmove(name, yytext + 1, yyleng - 2);
46 name[yyleng-1] = '\0';
47 input_filename = name;
48 }
49
50 /* null register */
51 null { BEGIN(REG); return NULL_TOKEN; }
52
53 /* Opcodes */
54 add { yylval.integer = ELK_OPCODE_ADD; return ADD; }
55 addc { yylval.integer = ELK_OPCODE_ADDC; return ADDC; }
56 and { yylval.integer = ELK_OPCODE_AND; return AND; }
57 asr { yylval.integer = ELK_OPCODE_ASR; return ASR; }
58 avg { yylval.integer = ELK_OPCODE_AVG; return AVG; }
59 bfe { yylval.integer = ELK_OPCODE_BFE; return BFE; }
60 bfi1 { yylval.integer = ELK_OPCODE_BFI1; return BFI1; }
61 bfi2 { yylval.integer = ELK_OPCODE_BFI2; return BFI2; }
62 bfrev { yylval.integer = ELK_OPCODE_BFREV; return BFREV; }
63 brc { yylval.integer = ELK_OPCODE_BRC; return BRC; }
64 brd { yylval.integer = ELK_OPCODE_BRD; return BRD; }
65 break { yylval.integer = ELK_OPCODE_BREAK; return BREAK; }
66 call { yylval.integer = ELK_OPCODE_CALL; return CALL; }
67 calla { yylval.integer = ELK_OPCODE_CALLA; return CALLA; }
68 case { yylval.integer = ELK_OPCODE_CASE; return CASE; }
69 cbit { yylval.integer = ELK_OPCODE_CBIT; return CBIT; }
70 cmp { yylval.integer = ELK_OPCODE_CMP; return CMP; }
71 cmpn { yylval.integer = ELK_OPCODE_CMPN; return CMPN; }
72 cont { yylval.integer = ELK_OPCODE_CONTINUE; return CONT; }
73 csel { yylval.integer = ELK_OPCODE_CSEL; return CSEL; }
74 dim { yylval.integer = ELK_OPCODE_DIM; return DIM; }
75 do { yylval.integer = ELK_OPCODE_DO; return DO; }
76 dp2 { yylval.integer = ELK_OPCODE_DP2; return DP2; }
77 dp3 { yylval.integer = ELK_OPCODE_DP3; return DP3; }
78 dp4 { yylval.integer = ELK_OPCODE_DP4; return DP4; }
79 dph { yylval.integer = ELK_OPCODE_DPH; return DPH; }
80 else { yylval.integer = ELK_OPCODE_ELSE; return ELSE; }
81 endif { yylval.integer = ELK_OPCODE_ENDIF; return ENDIF; }
82 f16to32 { yylval.integer = ELK_OPCODE_F16TO32; return F16TO32; }
83 f32to16 { yylval.integer = ELK_OPCODE_F32TO16; return F32TO16; }
84 fbh { yylval.integer = ELK_OPCODE_FBH; return FBH; }
85 fbl { yylval.integer = ELK_OPCODE_FBL; return FBL; }
86 fork { yylval.integer = ELK_OPCODE_FORK; return FORK; }
87 frc { yylval.integer = ELK_OPCODE_FRC; return FRC; }
88 goto { yylval.integer = ELK_OPCODE_GOTO; return GOTO; }
89 halt { yylval.integer = ELK_OPCODE_HALT; return HALT; }
90 if { yylval.integer = ELK_OPCODE_IF; return IF; }
91 iff { yylval.integer = ELK_OPCODE_IFF; return IFF; }
92 illegal { yylval.integer = ELK_OPCODE_ILLEGAL; return ILLEGAL; }
93 jmpi { yylval.integer = ELK_OPCODE_JMPI; return JMPI; }
94 line { yylval.integer = ELK_OPCODE_LINE; return LINE; }
95 lrp { yylval.integer = ELK_OPCODE_LRP; return LRP; }
96 lzd { yylval.integer = ELK_OPCODE_LZD; return LZD; }
97 mac { yylval.integer = ELK_OPCODE_MAC; return MAC; }
98 mach { yylval.integer = ELK_OPCODE_MACH; return MACH; }
99 mad { yylval.integer = ELK_OPCODE_MAD; return MAD; }
100 madm { yylval.integer = ELK_OPCODE_MADM; return MADM; }
101 mov { yylval.integer = ELK_OPCODE_MOV; return MOV; }
102 movi { yylval.integer = ELK_OPCODE_MOVI; return MOVI; }
103 mul { yylval.integer = ELK_OPCODE_MUL; return MUL; }
104 mrest { yylval.integer = ELK_OPCODE_MREST; return MREST; }
105 msave { yylval.integer = ELK_OPCODE_MSAVE; return MSAVE; }
106 nenop { yylval.integer = ELK_OPCODE_NENOP; return NENOP; }
107 nop { yylval.integer = ELK_OPCODE_NOP; return NOP; }
108 not { yylval.integer = ELK_OPCODE_NOT; return NOT; }
109 or { yylval.integer = ELK_OPCODE_OR; return OR; }
110 pln { yylval.integer = ELK_OPCODE_PLN; return PLN; }
111 pop { yylval.integer = ELK_OPCODE_POP; return POP; }
112 push { yylval.integer = ELK_OPCODE_PUSH; return PUSH; }
113 ret { yylval.integer = ELK_OPCODE_RET; return RET; }
114 rndd { yylval.integer = ELK_OPCODE_RNDD; return RNDD; }
115 rnde { yylval.integer = ELK_OPCODE_RNDE; return RNDE; }
116 rndu { yylval.integer = ELK_OPCODE_RNDU; return RNDU; }
117 rndz { yylval.integer = ELK_OPCODE_RNDZ; return RNDZ; }
118 sad2 { yylval.integer = ELK_OPCODE_SAD2; return SAD2; }
119 sada2 { yylval.integer = ELK_OPCODE_SADA2; return SADA2; }
120 sel { yylval.integer = ELK_OPCODE_SEL; return SEL; }
121 send { yylval.integer = ELK_OPCODE_SEND; return SEND; }
122 sendc { yylval.integer = ELK_OPCODE_SENDC; return SENDC; }
123 shl { yylval.integer = ELK_OPCODE_SHL; return SHL; }
124 shr { yylval.integer = ELK_OPCODE_SHR; return SHR; }
125 smov { yylval.integer = ELK_OPCODE_SMOV; return SMOV; }
126 subb { yylval.integer = ELK_OPCODE_SUBB; return SUBB; }
127 wait { yylval.integer = ELK_OPCODE_WAIT; return WAIT; }
128 while { yylval.integer = ELK_OPCODE_WHILE; return WHILE; }
129 xor { yylval.integer = ELK_OPCODE_XOR; return XOR; }
130
131 /* extended math functions */
132 cos { yylval.integer = ELK_MATH_FUNCTION_COS; return COS; }
133 exp { yylval.integer = ELK_MATH_FUNCTION_EXP; return EXP; }
134 fdiv { yylval.integer = ELK_MATH_FUNCTION_FDIV; return FDIV; }
135 inv { yylval.integer = ELK_MATH_FUNCTION_INV; return INV; }
136 invm { yylval.integer = GFX8_MATH_FUNCTION_INVM; return INVM; }
137 intdiv {
138 yylval.integer = ELK_MATH_FUNCTION_INT_DIV_QUOTIENT;
139 return INTDIV;
140 }
141 intdivmod {
142 yylval.integer =
143 ELK_MATH_FUNCTION_INT_DIV_QUOTIENT_AND_REMAINDER;
144 return INTDIVMOD;
145 }
146 intmod {
147 yylval.integer = ELK_MATH_FUNCTION_INT_DIV_REMAINDER;
148 return INTMOD;
149 }
150 log { yylval.integer = ELK_MATH_FUNCTION_LOG; return LOG; }
151 pow { yylval.integer = ELK_MATH_FUNCTION_POW; return POW; }
152 rsq { yylval.integer = ELK_MATH_FUNCTION_RSQ; return RSQ; }
153 rsqrtm { yylval.integer = GFX8_MATH_FUNCTION_RSQRTM; return RSQRTM; }
154 sin { yylval.integer = ELK_MATH_FUNCTION_SIN; return SIN; }
155 sqrt { yylval.integer = ELK_MATH_FUNCTION_SQRT; return SQRT; }
156 sincos { yylval.integer = ELK_MATH_FUNCTION_SINCOS; return SINCOS; }
157
158 /* shared functions for send instruction */
159 sampler { return SAMPLER; }
160 dp_sampler { return DP_SAMPLER; }
161 gateway { return GATEWAY; }
162 urb { return URB; }
163 thread_spawner { return THREAD_SPAWNER; }
164 render { return RENDER; }
165 const { return CONST; }
166 data { return DATA; }
167 cre { return CRE; }
168 math { return MATH; }
169 read { return READ; }
170 write { return WRITE; }
171 vme { return VME; }
172 "pixel interp" { return PIXEL_INTERP; }
173 "dp data 1" { return DP_DATA_1; }
174 "rt accel" { return RT_ACCEL; }
175 slm { return SLM; }
176 tgm { return TGM; }
177 ugm { return UGM; }
178
179 ";" { return SEMICOLON; }
180 ":" { return COLON; }
181 "(" { return LPAREN; }
182 ")" { return RPAREN; }
183 "{" { return LCURLY; }
184 "}" { return RCURLY; }
185 "[" { return LSQUARE; }
186 "]" { return RSQUARE; }
187 "<" { return LANGLE; }
188 ">" { return RANGLE; }
189 "," { return COMMA; }
190 "." { return DOT; }
191 "+" { return PLUS; }
192 "-" { return MINUS; }
193 "~" { return MINUS; }
194 "(abs)" { return ABS; }
195
196
197 "VxH" { return VxH; }
198 <REG>"<" { return LANGLE; }
199 <REG>[0-9][0-9]* {
200 yylval.integer = strtoul(yytext, NULL, 10);
201 return INTEGER;
202 }
203 <REG>">" { return RANGLE; }
204 <REG>"," { return COMMA; }
205 <REG>"." { BEGIN(DOTSEL); return DOT; }
206 <REG>";" { return SEMICOLON; }
207
208 <DOTSEL>"x" { yylval.integer = ELK_CHANNEL_X; return X; }
209 <DOTSEL>"y" { yylval.integer = ELK_CHANNEL_Y; return Y; }
210 <DOTSEL>"z" { yylval.integer = ELK_CHANNEL_Z; return Z; }
211 <DOTSEL>"w" { yylval.integer = ELK_CHANNEL_W; return W; }
212 <DOTSEL>[0-9][0-9]* {
213 yylval.integer = strtoul(yytext, NULL, 10);
214 BEGIN(REG);
215 return INTEGER;
216 }
217 <DOTSEL>. { yyless(0); BEGIN(INITIAL); }
218 <REG>. { yyless(0); BEGIN(INITIAL); }
219
220 /* Access mode */
221 "align1" { return ALIGN1; }
222 "align16" { return ALIGN16; }
223
224 /* Accumulator write control */
225 AccWrEnable { return ACCWREN; }
226
227 /* Mask control (formerly WECtrl/Write Enable Control) */
228 "WE_all" { return WECTRL; }
229
230 /* Compaction control */
231 compacted { return CMPTCTRL; }
232
233 /* Debug control */
234 breakpoint { return BREAKPOINT; }
235
236 /* Dependency control */
237 NoDDClr { return NODDCLR; }
238 NoDDChk { return NODDCHK; }
239
240 /* End of thread */
241 EOT { return EOT; }
242
243 /* Mask control */
244 nomask { return MASK_DISABLE; }
245
246 /* Channel */
247 <CHANNEL>"x" { yylval.integer = ELK_CHANNEL_X; return X; }
248 <CHANNEL>"y" { yylval.integer = ELK_CHANNEL_Y; return Y; }
249 <CHANNEL>"z" { yylval.integer = ELK_CHANNEL_Z; return Z; }
250 <CHANNEL>"w" { yylval.integer = ELK_CHANNEL_W; return W; }
251 <CHANNEL>[0-9][0-9]* {
252 yylval.integer = strtoul(yytext, NULL, 10);
253 return INTEGER;
254 }
255 <CHANNEL>"." { return DOT; }
256 <CHANNEL>. { yyless(0); BEGIN(INITIAL); }
257
258
259 /* Predicate Control */
260 <CHANNEL>".anyv" { yylval.integer = ELK_PREDICATE_ALIGN1_ANYV; return ANYV; }
261 <CHANNEL>".allv" { yylval.integer = ELK_PREDICATE_ALIGN1_ALLV; return ALLV; }
262 <CHANNEL>".any2h" { yylval.integer = ELK_PREDICATE_ALIGN1_ANY2H; return ANY2H; }
263 <CHANNEL>".all2h" { yylval.integer = ELK_PREDICATE_ALIGN1_ALL2H; return ALL2H; }
264 <CHANNEL>".any4h" { yylval.integer = ELK_PREDICATE_ALIGN16_ANY4H; return ANY4H; }
265 <CHANNEL>".all4h" { yylval.integer = ELK_PREDICATE_ALIGN16_ALL4H; return ALL4H; }
266 <CHANNEL>".any8h" { yylval.integer = ELK_PREDICATE_ALIGN1_ANY8H; return ANY8H; }
267 <CHANNEL>".all8h" { yylval.integer = ELK_PREDICATE_ALIGN1_ALL8H; return ALL8H; }
268 <CHANNEL>".any16h" { yylval.integer = ELK_PREDICATE_ALIGN1_ANY16H; return ANY16H; }
269 <CHANNEL>".all16h" { yylval.integer = ELK_PREDICATE_ALIGN1_ALL16H; return ALL16H; }
270 <CHANNEL>".any32h" { yylval.integer = ELK_PREDICATE_ALIGN1_ANY32H; return ANY32H; }
271 <CHANNEL>".all32h" { yylval.integer = ELK_PREDICATE_ALIGN1_ALL32H; return ALL32H; }
272
273 /* Saturation */
274 ".sat" { return SATURATE; }
275
276 /* Thread control */
277 atomic { return ATOMIC; }
278 switch { return SWITCH; }
279
280 /* compression control */
281 compr { return COMPR; }
282 compr4 { return COMPR4; }
283 sechalf { return SECHALF; }
284
285 /* Quarter Control */
286 1[HNQ] { }
287 "2Q" { return QTR_2Q; }
288 "3Q" { return QTR_3Q; }
289 "4Q" { return QTR_4Q; }
290 "2H" { return QTR_2H; }
291 "2N" { return QTR_2N; }
292 "3N" { return QTR_3N; }
293 "4N" { return QTR_4N; }
294 "5N" { return QTR_5N; }
295 "6N" { return QTR_6N; }
296 "7N" { return QTR_7N; }
297 "8N" { return QTR_8N; }
298
299 /* data types */
300 :?B { return TYPE_B; }
301 :?D { return TYPE_D; }
302 :?DF { return TYPE_DF; }
303 :?F { return TYPE_F; }
304 :?HF { return TYPE_HF; }
305 :?NF { return TYPE_NF; }
306 :?Q { return TYPE_Q; }
307 :?UB { return TYPE_UB; }
308 :?UD { return TYPE_UD; }
309 :?UW { return TYPE_UW; }
310 :?UQ { return TYPE_UQ; }
311 :?UV { return TYPE_UV; }
312 :?V { return TYPE_V; }
313 :?VF { return TYPE_VF; }
314 :?W { return TYPE_W; }
315
316 /* Address registers */
317 "a0" { return ADDRREG; }
318
319 /* accumulator registers */
320 "acc"[0-9]+ { yylval.integer = atoi(yytext + 3); return ACCREG; }
321
322 /* channel enable registers */
323 "ce0" { return CHANNELENABLEREG; }
324
325 /* control registers */
326 "cr0" { return CONTROLREG; }
327
328 /* flag registers */
329 "f"[0|1] { BEGIN(CHANNEL); yylval.integer = atoi(yytext + 1); return FLAGREG; }
330
331 /* message control registers */
332 "m" { return MSGREGFILE; }
333 m[0-9]+ { yylval.integer = atoi(yytext + 1); BEGIN(REG); return MSGREG; }
334
335 /* state register */
336 sr[0-9]+ { yylval.integer = atoi(yytext + 2); return STATEREG; }
337
338 /* notification registers */
339 "n0" { BEGIN(REG); return NOTIFYREG; }
340
341 /* IP register */
342 "ip" { return IPREG; }
343
344 /* Thread control register */
345 "tdr0" { return THREADREG; }
346
347 /* performance register */
348 "tm0" { BEGIN(REG); return PERFORMANCEREG; }
349
350 [gr][0-9]+ {
351 yylval.integer = atoi(yytext + 1);
352 BEGIN(REG); return GENREG;
353 }
354 [gr] { return GENREGFILE; }
355 "mask"[0-9]+ { yylval.integer = atoi(yytext + 4); return MASKREG; }
356
357 /* Conditional modifiers */
358 ".e" { yylval.integer = ELK_CONDITIONAL_Z; return EQUAL; }
359 ".g" { yylval.integer = ELK_CONDITIONAL_G; return GREATER; }
360 ".ge" { yylval.integer = ELK_CONDITIONAL_GE; return GREATER_EQUAL; }
361 ".l" { yylval.integer = ELK_CONDITIONAL_L; return LESS; }
362 ".le" { yylval.integer = ELK_CONDITIONAL_LE; return LESS_EQUAL; }
363 ".ne" { yylval.integer = ELK_CONDITIONAL_NZ; return NOT_EQUAL; }
364 ".nz" { yylval.integer = ELK_CONDITIONAL_NZ; return NOT_ZERO; }
365 ".o" { yylval.integer = ELK_CONDITIONAL_O; return OVERFLOW; }
366 ".r" { yylval.integer = ELK_CONDITIONAL_R; return ROUND_INCREMENT; }
367 ".u" { yylval.integer = ELK_CONDITIONAL_U; return UNORDERED; }
368 ".z" { yylval.integer = ELK_CONDITIONAL_Z; return ZERO; }
369
370 /* Eat up JIP and UIP token, their values will be parsed
371 * in numeric section
372 */
373 "JIP: " { BEGIN(LABEL); }
374 "UIP: " { BEGIN(LABEL); }
375 "Jump: " { }
376 "Pop: " { }
377 [ \t]+ { }
378
379 "MsgDesc: " { BEGIN(MSGDESC); return MSGDESC_BEGIN; }
380 <MSGDESC>ex_bso { return EX_BSO; }
381 <MSGDESC>src1_len { return SRC1_LEN; }
382 <MSGDESC>"=" { return ASSIGN; }
383 <MSGDESC>[0-9][0-9]* {
384 yylval.integer = strtoul(yytext, NULL, 10);
385 return INTEGER;
386 }
387 <MSGDESC>"{" { yyless(0); BEGIN(INITIAL); return MSGDESC_END; }
388 <MSGDESC>. { }
389
390 "0x"[0-9a-f][0-9a-f]* {
391 yylval.llint = strtoull(yytext + 2, NULL, 16);
392 return LONG;
393 }
394 [0-9][0-9]* {
395 yylval.llint = strtoll(yytext, NULL, 10);
396 return LONG;
397 }
398
399 /* jump label target */
400 [a-zA-Z_][0-9a-zA-Z_]*":" {
401 yylval.string = ralloc_strdup(p->mem_ctx, yytext);
402 /* Stomp the trailing ':' */
403 yylval.string[yyleng - 1] = '\0';
404 return JUMP_LABEL_TARGET;
405 }
406
407 /* jump label */
408 <LABEL>[a-zA-Z_][0-9a-zA-Z_]* {
409 yylval.string = ralloc_strdup(p->mem_ctx, yytext);
410 BEGIN(INITIAL);
411 return JUMP_LABEL;
412 }
413
414 \n { yycolumn = 1; }
415
416 . {
417 fprintf(stderr, "%s: %d: %s: at \"%s\"\n",
418 input_filename, yylineno,
419 "unexpected token", lex_text());
420 }
421 %%
422
423 char *
424 lex_text(void)
425 {
426 return yytext;
427 }
428
429 #ifndef yywrap
yywrap()430 int yywrap()
431 {
432 return -1;
433 }
434 #endif
435