From dda55f673a550054623f58bf09ebce6f02cec567 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Wed, 10 Jun 2015 14:31:42 +0200
Subject: Fix deletion of old frames

---
 src/sc_interp.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/sc_interp.c')

diff --git a/src/sc_interp.c b/src/sc_interp.c
index 86e2329..96efb4e 100644
--- a/src/sc_interp.c
+++ b/src/sc_interp.c
@@ -900,14 +900,15 @@ static void delete_unused_subframes(struct frame *fr)
 {
 	int i;
 	int done = 1;
+	int start = 0;
 
 	do {
-		printf("checking %i children of %p\n", fr->num_children, fr);
-		for ( i=0; i<fr->num_children; i++ ) {
+		done = 1;
+		for ( i=start; i<fr->num_children; i++ ) {
 			if ( !fr->children[i]->visited ) {
 				delete_subframe(fr, fr->children[i]);
 				done = 0;
-				printf("deleting %p\n", fr->children[i]);
+				start = i;
 				break;
 			} else {
 				delete_unused_subframes(fr->children[i]);
-- 
cgit v1.2.3