diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-15 12:28:52 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-15 12:28:52 -0700 |
commit | 8068b8450f163b2ba3824fb430cc3edb130b6489 (patch) | |
tree | 98b00d2bbc202dcf6e78d62943a2d0ef48973d66 /shell/environment.mu | |
parent | c2c6f4c7ab40356f1138a3f4d8f06464373ad50b (diff) | |
download | mu-8068b8450f163b2ba3824fb430cc3edb130b6489.tar.gz |
more precisely track count of calls to eval
Before I only separately counted calls at each stack depth. I don't remember if that seemed good enough or was just an oversight.
Diffstat (limited to 'shell/environment.mu')
-rw-r--r-- | shell/environment.mu | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/shell/environment.mu b/shell/environment.mu index 516c545d..af4f1529 100644 --- a/shell/environment.mu +++ b/shell/environment.mu @@ -393,8 +393,10 @@ fn read-and-evaluate-and-save-gap-buffer-to-globals _in-ah: (addr handle gap-buf allocate-pair nil-ah #? set-cursor-position 0/screen, 0 0 #? turn-on-debug-print + var call-number-storage: int + var call-number/edi: (addr int) <- address call-number-storage debug-print "^", 4/fg, 0/bg - evaluate read-result-ah, result-ah, *nil-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, 1/call-number + evaluate read-result-ah, result-ah, *nil-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number debug-print "$", 4/fg, 0/bg var error?/eax: boolean <- has-errors? trace { |