|
From e6676ebbd2ab0a6283d96c797dbe93552c1a222c Mon Sep 17 00:00:00 2001
|
|
From: Muh Muhten <muh.muhten@gmail.com>
|
|
Date: Mon, 18 Feb 2019 21:00:59 -0500
|
|
Subject: [PATCH 3/9] Simplify definition of block_bind_referenced
|
|
|
|
---
|
|
src/compile.c | 49 ++++++++-----------------------------------------
|
|
1 file changed, 8 insertions(+), 41 deletions(-)
|
|
|
|
--- a/src/compile.c
|
|
+++ b/src/compile.c
|
|
@@ -317,20 +317,6 @@ static int block_count_actuals(block b)
|
|
return args;
|
|
}
|
|
|
|
-static int block_count_refs(block binder, block body) {
|
|
- int nrefs = 0;
|
|
- for (inst* i = body.first; i; i = i->next) {
|
|
- if (i != binder.first && i->bound_by == binder.first) {
|
|
- nrefs++;
|
|
- }
|
|
- // counting recurses into closures
|
|
- nrefs += block_count_refs(binder, i->subfn);
|
|
- // counting recurses into argument list
|
|
- nrefs += block_count_refs(binder, i->arglist);
|
|
- }
|
|
- return nrefs;
|
|
-}
|
|
-
|
|
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));
|
|
@@ -434,37 +420,18 @@ block block_bind_library(block binder, b
|
|
return body; // We don't return a join because we don't want those sticking around...
|
|
}
|
|
|
|
-// Bind binder to body and throw away any defs in binder not referenced
|
|
-// (directly or indirectly) from body.
|
|
+// Bind binder to body, then throw it away if not referenced.
|
|
block block_bind_referenced(block binder, block body, int bindflags) {
|
|
+ assert(block_is_single(binder));
|
|
assert(block_has_only_binders(binder, bindflags));
|
|
bindflags |= OP_HAS_BINDING;
|
|
- block refd = gen_noop();
|
|
- block unrefd = gen_noop();
|
|
- int nrefs;
|
|
- for (int last_kept = 0, kept = 0; ; ) {
|
|
- for (inst* curr; (curr = block_take(&binder));) {
|
|
- block b = inst_block(curr);
|
|
- nrefs = block_bind_each(b, body, bindflags);
|
|
- // Check if this binder is referenced from any of the ones we
|
|
- // already know are referenced by body.
|
|
- nrefs += block_count_refs(b, refd);
|
|
- nrefs += block_count_refs(b, body);
|
|
- if (nrefs) {
|
|
- refd = BLOCK(refd, b);
|
|
- kept++;
|
|
- } else {
|
|
- unrefd = BLOCK(unrefd, b);
|
|
- }
|
|
- }
|
|
- if (kept == last_kept)
|
|
- break;
|
|
- last_kept = kept;
|
|
- binder = unrefd;
|
|
- unrefd = gen_noop();
|
|
+
|
|
+ if (block_bind_subblock(binder, body, bindflags, 0) == 0) {
|
|
+ block_free(binder);
|
|
+ } else {
|
|
+ body = BLOCK(binder, body);
|
|
}
|
|
- block_free(unrefd);
|
|
- return block_join(refd, body);
|
|
+ return body;
|
|
}
|
|
|
|
static void block_mark_referenced(block body) {
|