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

BSD fixes Pt.2

Browse source
This commit is contained in:
Charlie Root 2025-03-22 22:55:20 +00:00
parent 53dad0f47b
commit b5f0ebc258
3 changed files with 7 additions and 6 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
CFLAGS = -std=c99 -O0 -Wall -Wextra -g -pipe -Wno-cast-function-type
CFLAGS = -std=c99 -O0 -flto -Wall -Wextra -g -pipe -Wno-cast-function-type
CC = gcc

8
src/exec_common.c
View file

@ -183,7 +183,7 @@ void *get_addr(u32 pos){
return internal_buf + pos;
}
Value write(Value a);
Value fl_write(Value a);
void print_ast1(Statement *base, i32 indent){
i32 close_parent = 1;
@ -198,7 +198,7 @@ void print_ast1(Statement *base, i32 indent){
printf("(call<%lx>\n", (u64)base->func);
break;
case ST_Const:
write(base->cons);
fl_write(base->cons);
printf("\n");
close_parent = 0;
break;
@ -598,7 +598,7 @@ Value pop(Value a, Value b){
}
Value write(Value a){
Value fl_write(Value a){
char *nstr;
switch(a.tag.type){
case T_null:
@ -668,7 +668,7 @@ FnSig builtins[] = {
{{tvec} ,1,1,{.bi = BICAST(len)}},
{{tvec,tany},2,1,{.bi = BICAST(push)}},
{{tvec,tint},2,1,{.bi = BICAST(pop)}},
{{tany} ,1,1,{.bi = BICAST(write)}},
{{tany} ,1,1,{.bi = BICAST(fl_write)}},
{{0} ,0,1,{.bi = BICAST(nwline)}}
};

3
src/main.c
View file

@ -20,6 +20,7 @@
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include "types.h"
#include "tests.h"
@ -34,7 +35,7 @@ extern FILE *yyin;
int main(int argc, char *argv[]){
i32 fpos = 1;
if(argc > 1){
if(!strcmp(argv[1], "--tests")){
fpos++;