st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2026-01-03 20:48:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

basically initial impl of all except sti. sexp with params not working, some bugs in closure impl

Browse source
This commit is contained in:
ProgramSnail 2024-11-06 02:28:46 +03:00
parent 1e38ffaefb
commit bd27e79b22
5 changed files with 186 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

5
byterun/include/stack.h
View file

@ -29,8 +29,11 @@ void s_popn(struct State *s, size_t n);
//
// where |> defines corresponding frame pointer, | is stack pointer
// location before / after new frame added
void s_enter_f(struct State *s, char *rp, auint args_sz, auint locals_sz);
void s_enter_f(struct State *s, char *rp, bool is_closure_call, auint args_sz,
auint locals_sz);
void s_exit_f(struct State *s);
// ---- category ---
void **var_by_category(struct State *s, enum VarCategory category, int id);

10
byterun/include/types.h
View file

@ -3,6 +3,7 @@
#include "../../runtime/runtime.h"
#include "../../runtime/runtime_common.h"
#include "parser.h"
#include <stdbool.h>
#include <stdint.h>
// ------ General ------
@ -21,6 +22,7 @@ static const size_t MAX_ARRAY_SIZE = 0x11111110;
// ------ Frame ------
struct Frame {
void *closure; // where closure value stored if needed
void *ret; // store returned value [gc pointer]
char *rp; // ret instruction pointer [not gc pointer]
void **prev_fp; // ret function frame pointer [boxed value, not gc
@ -39,16 +41,18 @@ void **f_args(struct Frame *fp);
// ------ State ------
struct State {
void **stack;
void *stack[STACK_SIZE + 1];
void **sp; // stack pointer
struct Frame *fp; // function frame pointer
bytefile *bf;
bool is_closure_call;
char *ip; // instruction pointer
char *call_ip; // prev instruction pointer (to remember jmp locations)
};
struct State init_state(bytefile *bf);
void init_state(bytefile *bf, struct State *s);
void cleanup_state(struct State *state);
// ------ VarCategory ------
@ -57,7 +61,7 @@ enum VarCategory {
VAR_GLOBAL = 0,
VAR_LOCAL = 1,
VAR_ARGUMENT = 2,
VAR_C = 3 // TODO: constants ??
VAR_CLOSURE = 3
};
enum VarCategory to_var_category(uint8_t category);