diff options
Diffstat (limited to 'execution.e')
| -rw-r--r-- | execution.e | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/execution.e b/execution.e index 3800e16..536bcbf 100644 --- a/execution.e +++ b/execution.e @@ -508,44 +508,44 @@ ~ within itself. L@' log-load-log offset-to-target-address-space pack64 - ~ : -8 log-load-log (codeword pointer) + ~ : -8 log-load-log #-- (codeword pointer) L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" log" packstring 8 packalign L@' log-load-variable offset-to-target-address-space pack64 - ~ : -8 log-load-variable (codeword pointer) + ~ : -8 log-load-variable #-- (codeword pointer) L@' log-load-s0 offset-to-target-address-space pack64 - ~ : -8 log-load-s0 (codeword pointer) + ~ : -8 log-load-s0 #-- (codeword pointer) L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" s0" packstring 8 packalign L@' log-load-variable offset-to-target-address-space pack64 - ~ : -8 log-load-variable (codeword pointer) + ~ : -8 log-load-variable #-- (codeword pointer) L@' log-load-r0 offset-to-target-address-space pack64 - ~ : -8 log-load-r0 (codeword pointer) + ~ : -8 log-load-r0 #-- (codeword pointer) L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" r0" packstring 8 packalign L@' log-load-variable offset-to-target-address-space pack64 - ~ : -8 log-load-variable (codeword pointer) + ~ : -8 log-load-variable #-- (codeword pointer) L@' log-load-latest offset-to-target-address-space pack64 - ~ : -8 log-load-latest (codeword pointer) + ~ : -8 log-load-latest #-- (codeword pointer) L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" latest" packstring 8 packalign L@' log-load-variable offset-to-target-address-space pack64 - ~ : -8 log-load-variable (codeword pointer) + ~ : -8 log-load-variable #-- (codeword pointer) L@' log-load-here offset-to-target-address-space pack64 - ~ : -8 log-load-here (codeword pointer) + ~ : -8 log-load-here #-- (codeword pointer) L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" here" packstring 8 packalign L@' log-load-variable offset-to-target-address-space pack64 - ~ : -8 log-load-variable (codeword pointer) + ~ : -8 log-load-variable #-- (codeword pointer) ~ Having done that, nothing else needs to be defined in an unusual way, so ~ we can go ahead and dispatch to the log-load transform, and do the rest of @@ -568,17 +568,17 @@ ~ The next layer is built now, so let's move on to it. L@' litstring offset-to-target-address-space pack64 - ~ : -8 litstring (codeword pointer) + ~ : -8 litstring #-- (codeword pointer) s" quit" packstring 8 packalign L@' log-load-find-execution-token offset-to-target-address-space pack64 - ~ : -8 log-load-find-execution-token (codeword pointer) + ~ : -8 log-load-find-execution-token #-- (codeword pointer) L@' swap offset-to-target-address-space pack64 - ~ : -8 swap (codewored pointer) + ~ : -8 swap #-- (codewored pointer) ~ : Get rid of that heap pointer on the stack, we're finally done with it! L@' drop offset-to-target-address-space pack64 - ~ : -8 drop (codeword pointer) + ~ : -8 drop #-- (codeword pointer) L@' execute offset-to-target-address-space pack64 - ~ : -8 execute (codeword pointer) + ~ : -8 execute #-- (codeword pointer) ~ : deindent ; |