quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*fixed a crash bug.

Browse Source
This commit is contained in:
paladin-t 2016-01-18 15:58:36 +08:00
parent 69d26f6006
commit 891c601b35
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
output/my_basic.exe
View File

Binary file not shown.

2
sample/sample06.bas
View File

@ -16,7 +16,7 @@ endclass
class dog(animal) class dog(animal)
def speak(a) def speak(a)
print "bark" + a; print "woof" + a;
enddef enddef
endclass endclass

4
shell/main.c
View File

@ -213,7 +213,7 @@ static void _tidy_mem_pool(void) {
} }
static void _open_mem_pool(void) { static void _open_mem_pool(void) {
#define N 23 #define N 22
size_t szs[N]; size_t szs[N];
size_t lst[N]; size_t lst[N];
int i = 0; int i = 0;
@ -245,6 +245,8 @@ static void _open_mem_pool(void) {
szs[i++] = MB_SIZEOF_RTN; szs[i++] = MB_SIZEOF_RTN;
szs[i++] = MB_SIZEOF_CLS; szs[i++] = MB_SIZEOF_CLS;
mb_assert(i == N);
memset(lst, 0, sizeof(lst)); memset(lst, 0, sizeof(lst));
/* Find all unduplicated sizes */ /* Find all unduplicated sizes */