Fix up:
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index 18f9f3db..bd0ec450 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -131,7 +131,7 @@ processInteractive(form, posnForm) ==
initializeTimedStack()
finally(
object := processInteractive0(form, posnForm),
- while $timedNameStack repeat stopTimingProcess peekTimedName())
+ while IFCDR $timedNameStack repeat stopTimingProcess
peekTimedName())
object
processInteractive0(form, posnForm) ==
- Qian
On 1/16/24 19:32, Qian Yun wrote:
This is the second patch (of two) to enable correct collection
of statistics information on recursive calls to interpreter.
Move $statsInfo and other global variables required for timing
to the top of $timedNameStack.
Since $timedNameStack now has dynamic scope, recursive timing
is correctly supported after this patch.
- Qian
On 1/16/24 19:29, Qian Yun wrote:
This is the first patch (of two) to enable correct collection
of statistics information on recursive calls to interpreter.
So instead of storing stats info into symbol plist of
$interpreterTimedNames and $interpreterTimedClasses, (which are
overwritten during recursive calls.) it now stores such info
into $statsInfo.
- Qian
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/4b322e8f-454c-48cd-bd30-926f5acb2b63%40gmail.com.
