2012-08-16 01:00:30 +01:00
|
|
|
#include <stdint.h>
|
|
|
|
#include "bytecode.h"
|
|
|
|
#include "opcode.h"
|
2012-09-11 12:24:54 +01:00
|
|
|
#include "locfile.h"
|
2012-08-16 01:00:30 +01:00
|
|
|
|
|
|
|
struct inst;
|
|
|
|
typedef struct inst inst;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct block {
|
|
|
|
inst* first;
|
|
|
|
inst* last;
|
|
|
|
} block;
|
|
|
|
|
2012-09-11 12:24:54 +01:00
|
|
|
block gen_location(location, block);
|
|
|
|
|
2012-08-16 01:00:30 +01:00
|
|
|
block gen_noop();
|
|
|
|
block gen_op_simple(opcode op);
|
2012-09-02 16:31:59 +01:00
|
|
|
block gen_op_const(opcode op, jv constant);
|
2012-08-16 01:00:30 +01:00
|
|
|
block gen_op_target(opcode op, block target);
|
|
|
|
block gen_op_var_unbound(opcode op, const char* name);
|
|
|
|
block gen_op_var_bound(opcode op, block binder);
|
2012-08-21 18:14:13 +01:00
|
|
|
block gen_op_block_defn(opcode op, const char* name, block block);
|
|
|
|
block gen_op_block_unbound(opcode op, const char* name);
|
|
|
|
block gen_op_call(opcode op, block arglist);
|
2012-08-16 01:00:30 +01:00
|
|
|
block gen_op_symbol(opcode op, const char* name);
|
|
|
|
|
|
|
|
block gen_subexp(block a);
|
|
|
|
block gen_both(block a, block b);
|
|
|
|
block gen_collect(block expr);
|
2012-08-27 10:11:55 +01:00
|
|
|
block gen_assign(block expr);
|
2012-09-04 15:34:34 +01:00
|
|
|
block gen_definedor(block a, block b);
|
2012-09-04 20:38:59 +01:00
|
|
|
block gen_and(block a, block b);
|
|
|
|
block gen_or(block a, block b);
|
2012-09-04 20:43:40 +01:00
|
|
|
block gen_not(block a);
|
2012-09-04 15:34:34 +01:00
|
|
|
|
|
|
|
block gen_cond(block cond, block iftrue, block iffalse);
|
2012-08-16 01:00:30 +01:00
|
|
|
|
2012-08-27 11:19:42 +01:00
|
|
|
block gen_cbinding(struct symbol_table* functions, block b);
|
2012-08-16 01:00:30 +01:00
|
|
|
|
|
|
|
void block_append(block* b, block b2);
|
|
|
|
block block_join(block a, block b);
|
2012-08-21 18:14:13 +01:00
|
|
|
block block_bind(block binder, block body, int bindflags);
|
2012-08-16 01:00:30 +01:00
|
|
|
|
2012-09-11 12:24:54 +01:00
|
|
|
int block_compile(block, struct locfile*, struct bytecode**);
|
2012-08-16 01:00:30 +01:00
|
|
|
|
|
|
|
void block_free(block);
|
2012-08-27 11:19:42 +01:00
|
|
|
|
|
|
|
|