diff options
| author | Paul Buetow <paul@buetow.org> | 2008-10-18 22:49:03 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2008-10-18 22:49:03 +0000 |
| commit | 41e590f05d295a40ba4633d493be1ffe28f16ddf (patch) | |
| tree | cb743603e32acba4c27f8ddfe4f105d1941efe4f | |
| parent | cb1450b796eff3c8830616e2e9a3d83d4dfb4900 (diff) | |
examples work now again
| -rw-r--r-- | Makefile | 4 | ||||
| -rw-r--r-- | docs/help.txt | 2 | ||||
| -rw-r--r-- | docs/version.txt | 2 | ||||
| -rwxr-xr-x | fype | bin | 47628 -> 425663 bytes | |||
| -rw-r--r-- | src/build.h | 2 | ||||
| -rw-r--r-- | src/core/interpret.c | 12 | ||||
| -rw-r--r-- | src/core/token.c | 4 |
7 files changed, 14 insertions, 12 deletions
@@ -5,7 +5,7 @@ SRCS!=find ./src -name '*.c' OBJS=$(SRCS:.c=.o) CC?=cc #CC=mingw32-gcc -#DEBUG=-g3 -ggdb3 +DEBUG=-g3 -ggdb3 CFLAGS+=-c -Wall -std=c99 -pedantic $(DEBUG) LDADD+= HEADER?=docs/header.txt @@ -73,6 +73,8 @@ run: ./$(BIN) ./tmp/test.fy core: gdb $(BIN) $(BIN).core +gdb: + gdb --args $(BIN) ./tmp/test.fy newline: @echo examples: all diff --git a/docs/help.txt b/docs/help.txt index b99470f..ad6748e 100644 --- a/docs/help.txt +++ b/docs/help.txt @@ -1,4 +1,4 @@ -Fype v0.1-devel Build 9213 +Fype v0.1-devel Build 9215 Copyright by Paul C. Buetow (2005 - 2008) <fype@dev.buetow.org> -e Executes given code string (see synopses) -h Prints this help diff --git a/docs/version.txt b/docs/version.txt index 10949e7..41b77c9 100644 --- a/docs/version.txt +++ b/docs/version.txt @@ -1 +1 @@ -Fype v0.1-devel Build 9213 +Fype v0.1-devel Build 9215 Binary files differdiff --git a/src/build.h b/src/build.h index ced3b51..c6f0270 100644 --- a/src/build.h +++ b/src/build.h @@ -35,7 +35,7 @@ #ifndef BUILD_H #define BUILD_H -#define BUILDNR 9214 +#define BUILDNR 9215 #define OS_FREEBSD #endif diff --git a/src/core/interpret.c b/src/core/interpret.c index 5aa07ef..a69e85a 100644 --- a/src/core/interpret.c +++ b/src/core/interpret.c @@ -175,7 +175,7 @@ _var_decl(Interpret *p_interpret) { _CHECK TRACK switch (p_interpret->tt) { - //case TT_ARR: //TODO cleanup TT_ARR + //case TT_ARR: //TODO cleanup TT_ARR case TT_MY: { if (_NEXT_TT != TT_IDENT) @@ -200,7 +200,7 @@ _var_decl(Interpret *p_interpret) { } } default: - break; + break; } return (0); @@ -226,8 +226,8 @@ _var_assign(Interpret *p_interpret) { p_interpret->p_stack = stack_new(); if (_expression_(p_interpret)) { - function_process_buildin(p_interpret, p_token, - p_interpret->p_stack); + function_process_buildin(p_interpret, p_token, + p_interpret->p_stack); stack_merge(p_stack, p_interpret->p_stack); stack_delete(p_interpret->p_stack); @@ -917,9 +917,9 @@ _term(Interpret *p_interpret) { Token *p_token = p_interpret->p_token; _NEXT - Token *p_token_arr = token_new_array(ARRAY_SIZE); + Token *p_token_arr = token_new_array(ARRAY_SIZE); stack_push(p_interpret->p_stack, p_token_arr); - _INTERPRET_ERROR("arrays not yet fully implemented", p_token_arr); + _INTERPRET_ERROR("arrays not yet fully implemented", p_token_arr); } break; diff --git a/src/core/token.c b/src/core/token.c index 1a2aec9..4626e5a 100644 --- a/src/core/token.c +++ b/src/core/token.c @@ -344,8 +344,8 @@ token_delete(Token *p_token) { if (p_token->c_val) free(p_token->c_val); - if (p_token->p_array) - array_delete(p_token->p_array); + if (p_token->p_array) + array_delete(p_token->p_array); free(p_token); } |
