You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

119 lines
4.2 KiB

From a949ffe9554b5af5614d31b795805f56939a031b Mon Sep 17 00:00:00 2001
From: Muh Muhten <muh.muhten@gmail.com>
Date: Fri, 8 Feb 2019 16:52:04 -0500
Subject: [PATCH 1/9] Improve linking time by marking subtrees with unbound
symbols
---
src/compile.c | 29 +++++++++++++++++++++++++----
1 file changed, 25 insertions(+), 4 deletions(-)
--- a/src/compile.c
+++ b/src/compile.c
@@ -49,9 +49,10 @@ struct inst {
// Unbound instructions (references to other things that may or may not
// exist) are created by "gen_foo_unbound", and bindings are created by
// block_bind(definition, body), which binds all instructions in
- // body which are unboudn and refer to "definition" by name.
+ // body which are unbound and refer to "definition" by name.
struct inst* bound_by;
char* symbol;
+ int any_unbound;
int nformals;
int nactuals;
@@ -73,6 +74,7 @@ static inst* inst_new(opcode op) {
i->bytecode_pos = -1;
i->bound_by = 0;
i->symbol = 0;
+ i->any_unbound = 0;
i->nformals = -1;
i->nactuals = -1;
i->subfn = gen_noop();
@@ -156,6 +158,7 @@ block gen_const_global(jv constant, cons
inst* i = inst_new(STORE_GLOBAL);
i->imm.constant = constant;
i->symbol = strdup(name);
+ i->any_unbound = 0;
return inst_block(i);
}
@@ -211,6 +214,7 @@ block gen_op_unbound(opcode op, const ch
assert(opcode_describe(op)->flags & OP_HAS_BINDING);
inst* i = inst_new(op);
i->symbol = strdup(name);
+ i->any_unbound = 1;
return inst_block(i);
}
@@ -224,6 +228,7 @@ block gen_op_bound(opcode op, block bind
assert(block_is_single(binder));
block b = gen_op_unbound(op, binder.first->symbol);
b.first->bound_by = binder.first;
+ b.first->any_unbound = 0;
return b;
}
@@ -324,7 +329,7 @@ static int block_count_refs(block binder
return nrefs;
}
-static int block_bind_subblock(block binder, block body, int bindflags, int break_distance) {
+static int block_bind_subblock_inner(int* any_unbound, block binder, block body, int bindflags, int break_distance) {
assert(block_is_single(binder));
assert((opcode_describe(binder.first->op)->flags & bindflags) == (bindflags & ~OP_BIND_WILDCARD));
assert(binder.first->symbol);
@@ -336,6 +341,9 @@ static int block_bind_subblock(block bin
binder.first->nformals = block_count_formals(binder);
int nrefs = 0;
for (inst* i = body.first; i; i = i->next) {
+ if (i->any_unbound == 0)
+ continue;
+
int flags = opcode_describe(i->op)->flags;
if ((flags & bindflags) == (bindflags & ~OP_BIND_WILDCARD) && i->bound_by == 0 &&
(!strcmp(i->symbol, binder.first->symbol) ||
@@ -357,14 +365,25 @@ static int block_bind_subblock(block bin
// a break whenever we come across a STOREV of *anonlabel...
break_distance++;
}
+
+ i->any_unbound = (i->symbol && !i->bound_by);
+
// binding recurses into closures
- nrefs += block_bind_subblock(binder, i->subfn, bindflags, break_distance);
+ nrefs += block_bind_subblock_inner(&i->any_unbound, binder, i->subfn, bindflags, break_distance);
// binding recurses into argument list
- nrefs += block_bind_subblock(binder, i->arglist, bindflags, break_distance);
+ nrefs += block_bind_subblock_inner(&i->any_unbound, binder, i->arglist, bindflags, break_distance);
+
+ if (i->any_unbound)
+ *any_unbound = 1;
}
return nrefs;
}
+static int block_bind_subblock(block binder, block body, int bindflags, int break_distance) {
+ int any_unbound;
+ return block_bind_subblock_inner(&any_unbound, binder, body, bindflags, break_distance);
+}
+
static int block_bind_each(block binder, block body, int bindflags) {
assert(block_has_only_binders(binder, bindflags));
bindflags |= OP_HAS_BINDING;
@@ -550,6 +569,7 @@ block gen_function(const char* name, blo
}
i->subfn = body;
i->symbol = strdup(name);
+ i->any_unbound = -1;
i->arglist = formals;
block b = inst_block(i);
block_bind_subblock(b, b, OP_IS_CALL_PSEUDO | OP_HAS_BINDING, 0);
@@ -1081,6 +1101,7 @@ block gen_cbinding(const struct cfunctio
inst* i = inst_new(CLOSURE_CREATE_C);
i->imm.cfunc = &cfunctions[cfunc];
i->symbol = strdup(i->imm.cfunc->name);
+ i->any_unbound = 0;
code = block_bind(inst_block(i), code, OP_IS_CALL_PSEUDO);
}
return code;