shithub: femtolisp

Info  •  Files  •  Log  •  Branches

_stacktrace: move declarations inside the loop

--- a/flisp.c

+++ b/flisp.c

@@ -1794,13 +1794,13 @@

 static value_t

 _stacktrace(uint32_t top)

 {

-	uint32_t bp, sz;

-	value_t v, lst = NIL;

+	value_t lst = NIL;

+

 	fl_gc_handle(&lst);

 	while(top > 0){

-		sz = Stack[top-3]+1;

-		bp = top-5-sz;

-		v = alloc_vector(sz, 0);

+		uint32_t sz = Stack[top-3]+1;

+		uint32_t bp = top-5-sz;

+		value_t v = alloc_vector(sz, 0);

 		if(Stack[top-1] /*captured*/){

 			vector_elt(v, 0) = Stack[bp];

 			memmove(&vector_elt(v, 1),