From 03aee2e9de120e42d92e0a1f41bc23d0a5a98840 Mon Sep 17 00:00:00 2001 From: Phil Burk Date: Sat, 11 May 2024 17:13:32 -0700 Subject: [PATCH] Fix TRACE for 2>R 2R> and 2R@ (#163) They needed a SWAP to match the kernel versions. Fixes #162 --- fth/trace.fth | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/fth/trace.fth b/fth/trace.fth index c311bc4..39dc8a8 100644 --- a/fth/trace.fth +++ b/fth/trace.fth @@ -21,6 +21,7 @@ \ \ Modifications: \ 19990930 John Providenza - Fixed stack bugs in GD +\ 20240511 Phil Burk - Fix 2>R and 2R> and 2R@ anew task-trace.fth @@ -272,9 +273,9 @@ variable TRACE-LOCALS-PTR \ point to top of local frame ['] R> OF trace.r> ENDOF ['] R@ OF trace.r@ ENDOF ['] RDROP OF trace.rdrop ENDOF - ['] 2>R OF trace.>r trace.>r ENDOF - ['] 2R> OF trace.r> trace.r> ENDOF - ['] 2R@ OF trace.r@ 1 trace.rpick ENDOF + ['] 2>R OF swap trace.>r trace.>r ENDOF + ['] 2R> OF trace.r> trace.r> swap ENDOF + ['] 2R@ OF 1 trace.rpick trace.r@ ENDOF ['] i OF 1 trace.rpick ENDOF ['] j OF 3 trace.rpick ENDOF ['] (LEAVE) OF trace.rdrop trace.rdrop ip @ +-> ip ENDOF