BASIC compiler/interpreter for PIC32MX/MZ-80K (suspended)
| Revision | 153 (tree) |
|---|---|
| Time | 2016-08-24 05:03:51 |
| Author | kmorimatsu |
Debug about wrong float value assignment.
mips/branches/zoea/debug.c (diff) mips/branches/zoea/float.c (diff)| @@ -139,9 +139,12 @@ | ||
| 139 | 139 | |
| 140 | 140 | static const char bastext[]= |
| 141 | 141 | "CLS\n" |
| 142 | -"WHILE 1\n" | |
| 143 | -" IF J THEN BREAK ELSE J=1\n" | |
| 144 | -" WEND\n" | |
| 142 | +"T#=10\n" | |
| 143 | +"T#=-10\n" | |
| 144 | +"T#=0\n" | |
| 145 | +"IF INT(T#=0) THEN X=1\n" | |
| 146 | +"T#=-10\n" | |
| 147 | +"PRINT T#\n" | |
| 145 | 148 | "\n"; |
| 146 | 149 | |
| 147 | 150 | /* |
| @@ -27,7 +27,7 @@ | ||
| 27 | 27 | err=get_simple_float(); |
| 28 | 28 | if (err) return err; |
| 29 | 29 | check_obj_space(2); |
| 30 | - g_object[g_objpos++]=0x3404; // ori a0,zero,0x123 | |
| 30 | + g_object[g_objpos++]=0x34040000; // ori a0,zero,0 | |
| 31 | 31 | g_object[g_objpos++]=0x34050000|(OP_SUB&0x0000FFFF); // ori a1,zero,xxxx |
| 32 | 32 | call_lib_code(LIB_FLOAT); |
| 33 | 33 | } else { |
