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.
 
 
 
 
 
 

78 lines
2.6 KiB

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) {