BASIC compiler/interpreter for PIC32MX/MZ-80K
| Revision | db4465223479a141e642ff2f9110cd6514b43d4b (tree) |
|---|---|
| Zeit | 2019-01-07 11:27:00 |
| Autor | Katsumi <kmorimatsu@sour...> |
| Commiter | Katsumi |
& operator.
mips/megalopa/value.c (diff)| @@ -77,6 +77,13 @@ char* get_simple_value(void){ | ||
| 77 | 77 | check_obj_space(1); |
| 78 | 78 | g_object[g_objpos++]=0x00021023; // subu v0,zero,v0 |
| 79 | 79 | g_intconst=-g_intconst; |
| 80 | + } else if (b1=='&') { | |
| 81 | + // '&' operator | |
| 82 | + g_srcpos++; | |
| 83 | + i=get_var_number(); | |
| 84 | + if (i<0) return ERR_SYNTAX; | |
| 85 | + check_obj_space(1); | |
| 86 | + g_object[g_objpos++]=0x27C20000|(i*4); // addiu v0,s8,xxxx | |
| 80 | 87 | } else { |
| 81 | 88 | // Main routine of getting value here |
| 82 | 89 | if (b1=='+') g_srcpos++; // Ignore unary '+' operator |
Fork