FIX: unexpected slowdown when processing deep recursive loops

Oldes · Oldes · commit b6c9a389fb0b · 2021-09-24T15:29:48.000+02:00
related to: Oldes/Rebol-issues#592
diff --git a/src/core/c-do.c b/src/core/c-do.c
@@ -918,7 +918,7 @@ x*/	static REBINT Do_Args_Light(REBVAL *func, REBVAL *path, REBSER *block, REBCN
 		// Evaluate the function:
 		DSF = dsf;	// Set new DSF
 		if (!THROWN(DS_TOP)) {
-			//if (Trace_Flags) 
+			if (Trace_Flags) 
 				Trace_Func(word, value);
 			Func_Dispatch[ftype](value);
 		}

Original file line number	Diff line number	Diff line change
`@@ -918,7 +918,7 @@ x/ static REBINT Do_Args_Light(REBVAL func, REBVAL path, REBSER block, REBCN`
`918`	`918`	`// Evaluate the function:`
`919`	`919`	`DSF = dsf; // Set new DSF`
`920`	`920`	`if (!THROWN(DS_TOP)) {`
`921`		`- //if (Trace_Flags)`
	`921`	`+ if (Trace_Flags)`
`922`	`922`	`Trace_Func(word, value);`
`923`	`923`	`Func_Dispatch[ftype](value);`
`924`	`924`	`}`