BASIC compiler/interpreter for PIC32MX/MZ-80K
| Revisión | c4f03b40c018cd43243d75bcf046b8a2846ad4c5 (tree) |
|---|---|
| Tiempo | 2019-01-27 08:05:44 |
| Autor | Katsumi <kmorimatsu@sour...> |
| Commiter | Katsumi |
Debug for not causing error by "ELSE" after integer.
mips/megalopa/value.c (diff)| @@ -134,7 +134,11 @@ char* get_simple_value(void){ | ||
| 134 | 134 | } |
| 135 | 135 | // The next character should not be '.' or 'E'. |
| 136 | 136 | // Or, it must be recognized as a float value. |
| 137 | - if (b1=='.' || b1=='E') return ERR_SYNTAX; | |
| 137 | + if (b1=='.') return ERR_SYNTAX; | |
| 138 | + if (b1=='E') { | |
| 139 | + b2=g_source[g_srcpos+1]; | |
| 140 | + if (b2==' ' || '0'<=b2 && b2<='9') return ERR_SYNTAX; | |
| 141 | + } | |
| 138 | 142 | g_intconst=i; |
| 139 | 143 | if (i&0xFFFF0000) { |
| 140 | 144 | // 32 bit |
Fork