Fcalva/flisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pt.2

Browse source
This commit is contained in:
attilavs2 2025-03-26 11:48:12 +01:00
parent cb44634016
commit 6997aee232
4 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile
View file

@ -3,7 +3,7 @@
OUTNAME = flisp OUTNAME = flisp
CFLAGS = -std=c99 -O3 -flto -Wall -Wextra -g -pipe -Wno-cast-function-type CFLAGS = -std=c99 -O0 -flto -Wall -Wextra -g -pipe -Wno-cast-function-type
CC = gcc CC = gcc

1
src/interpreter.c
View file

@ -42,7 +42,6 @@ void assign(Value *dst, Value src){
if(dst->tag.type == src.tag.type || !dst->tag.is_strong if(dst->tag.type == src.tag.type || !dst->tag.is_strong
|| dst->tag.type == T_any) || dst->tag.type == T_any)
*dst = src; *dst = src;
}
else{ else{
runtime_err("Invalid assignement"); runtime_err("Invalid assignement");
} }

2
src/parse_utils.c
View file

@ -54,7 +54,7 @@ int make_stack(){
} }
void free_stack(){ void free_stack(){
for(int i = 0; i < stack->curr_statement){ for(int i = 0; i < stack->curr_statement; i++){
Statement *stat = &stack->statements[i]; Statement *stat = &stack->statements[i];
if(stat->child_n) if(stat->child_n)
free(stat->children); free(stat->children);

2
src/parser.h
View file

@ -59,4 +59,6 @@ void pop_scope();
FnArgs *make_fnargs(char *name, Tag type); FnArgs *make_fnargs(char *name, Tag type);
FnArgs *add_fnargs(char *name, Tag type); FnArgs *add_fnargs(char *name, Tag type);
Statement *make_function(FnArgs *fn_args, Statement *statements);
void set_entry_point(Statement *statement); void set_entry_point(Statement *statement);