st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes, -O3

Browse source
This commit is contained in:
ProgramSnail 2025-03-16 11:03:16 +03:00
parent 2e59845cec
commit 616ffd7a5c
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
byterun/dune
View file

@ -11,7 +11,7 @@
(mode (mode
(promote (until-clean))) (promote (until-clean)))
(action (action
(run g++ -Wall -Wextra -std=c++20 -DWITH_CHECK -Iinclude/ %{main} %{parser} %{analyzer} %{module_manager} %{runtime} %{obj} -o %{target}))) (run g++ -Wall -Wextra -O3 -std=c++20 -DWITH_CHECK -Iinclude/ %{main} %{parser} %{analyzer} %{module_manager} %{runtime} %{obj} -o %{target})))
(rule (rule
(target types.o) (target types.o)
@ -22,7 +22,7 @@
(mode (mode
(promote (until-clean))) (promote (until-clean)))
(action (action
(run gcc -Wall -Wextra -Iinclude/ -DWITH_CHECK -c %{src} -o %{target}))) (run gcc -Wall -Wextra -O3 -Iinclude/ -DWITH_CHECK -c %{src} -o %{target})))
(rule (rule
(target interpreter.o) (target interpreter.o)
@ -33,4 +33,4 @@
(mode (mode
(promote (until-clean))) (promote (until-clean)))
(action (action
(run gcc -Wall -Wextra -Iinclude/ -DWITH_CHECK -c %{src} -o %{target}))) (run gcc -Wall -Wextra -O3 -Iinclude/ -DWITH_CHECK -c %{src} -o %{target})))

2
byterun/include/runtime_externs.h
View file

@ -105,7 +105,9 @@ void *Lstring(aint *p);
void *Bclosure(aint *args, aint bn); void *Bclosure(aint *args, aint bn);
void *Barray(aint *args, aint bn); void *Barray(aint *args, aint bn);
void *Barray_rev(aint *args, aint bn);
void *Bsexp(aint *args, aint bn); void *Bsexp(aint *args, aint bn);
void *Bsexp_rev(aint *args, aint bn);
aint Btag(void *d, aint t, aint n); aint Btag(void *d, aint t, aint n);
aint get_tag(data *d); aint get_tag(data *d);

2
byterun/src/types.c
View file

@ -12,7 +12,7 @@ extern size_t __gc_stack_top, __gc_stack_bottom;
// --- State --- // --- State ---
void init_state(struct State* s, void** stack) { void init_state(struct State* s, void** stack) {
// __init(); // FIXME, disable gc __init(); // FIXME, disable gc
s->stack = stack; s->stack = stack;
s->fp = NULL; s->fp = NULL;