BASIC compiler/interpreter for PIC32MX/MZ-80K
| 修訂 | 0f68bf584708ace15d9b94bf7ca0db495cd5a2b8 (tree) |
|---|---|
| 時間 | 2019-02-05 07:18:57 |
| 作者 | Katsumi <kmorimatsu@sour...> |
| Commiter | Katsumi |
Permit using RETURN statement in loop. Test only and codes were inserted in previous commit.
mips/megalopa/debug.c (diff)| @@ -251,12 +251,17 @@ static const char classtext[]= | ||
| 251 | 251 | "return TEST+TEST2\n" |
| 252 | 252 | "METHOD TEST4\n" |
| 253 | 253 | " TEST6=args(1)\n" |
| 254 | -"return 3.14\n" | |
| 254 | +" while 1\n" | |
| 255 | +" return 3.14\n" | |
| 256 | +" wend\n" | |
| 257 | +" end\n" | |
| 255 | 258 | "METHOD TEST5\n" |
| 256 | 259 | "return hex$(0xabc)\n" |
| 257 | 260 | "METHOD TEST7\n" |
| 258 | -"return TEST6\n" | |
| 259 | -"\n" | |
| 261 | +" for i=1 to 2\n" | |
| 262 | +" return TEST6\n" | |
| 263 | +" next\n" | |
| 264 | +" end\n" | |
| 260 | 265 | "\n" |
| 261 | 266 | "\n" |
| 262 | 267 | "\n" |
Fork