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.
 
 
 
 
 
 

85 lines
2.1 KiB

From aab54373e9406ee2a154b8d6166b3045aa3484ee Mon Sep 17 00:00:00 2001
From: Muh Muhten <muh.muhten@gmail.com>
Date: Sat, 9 Feb 2019 17:24:18 -0500
Subject: [PATCH 2/9] Reimplement block_drop_unreferenced in linear time
---
src/compile.c | 50 +++++++++++++++++++++++++++++---------------------
1 file changed, 29 insertions(+), 21 deletions(-)
--- a/src/compile.c
+++ b/src/compile.c
@@ -53,6 +53,7 @@ struct inst {
struct inst* bound_by;
char* symbol;
int any_unbound;
+ int referenced;
int nformals;
int nactuals;
@@ -75,6 +76,7 @@ static inst* inst_new(opcode op) {
i->bound_by = 0;
i->symbol = 0;
i->any_unbound = 0;
+ i->referenced = 0;
i->nformals = -1;
i->nactuals = -1;
i->subfn = gen_noop();
@@ -465,30 +467,36 @@ block block_bind_referenced(block binder
return block_join(refd, body);
}
+static void block_mark_referenced(block body) {
+ int saw_top = 0;
+ for (inst* i = body.last; i; i = i->prev) {
+ if (saw_top && i->bound_by == i && !i->referenced)
+ continue;
+ if (i->op == TOP) {
+ saw_top = 1;
+ }
+ if (i->bound_by) {
+ i->bound_by->referenced = 1;
+ }
+
+ block_mark_referenced(i->arglist);
+ block_mark_referenced(i->subfn);
+ }
+}
+
block block_drop_unreferenced(block body) {
- inst* curr;
+ block_mark_referenced(body);
+
block refd = gen_noop();
- block unrefd = gen_noop();
- int drop;
- do {
- drop = 0;
- while ((curr = block_take(&body)) && curr->op != TOP) {
- block b = inst_block(curr);
- if (block_count_refs(b,refd) + block_count_refs(b,body) == 0) {
- unrefd = BLOCK(unrefd, b);
- drop++;
- } else {
- refd = BLOCK(refd, b);
- }
- }
- if (curr && curr->op == TOP) {
- body = BLOCK(inst_block(curr),body);
+ inst* curr;
+ while ((curr = block_take(&body))) {
+ if (curr->bound_by == curr && !curr->referenced) {
+ inst_free(curr);
+ } else {
+ refd = BLOCK(inst_block(curr), refd);
}
- body = BLOCK(refd, body);
- refd = gen_noop();
- } while (drop != 0);
- block_free(unrefd);
- return body;
+ }
+ return refd;
}
jv block_take_imports(block* body) {