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)
def speak(a)
print "bark" + a;
print "woof" + a;
enddef
endclass

4
shell/main.c
View File

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