diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-22 03:57:59 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-22 03:57:59 -0700 |
| commit | 3f3bda4692b4017c7ad6ed1c434313b9dcc62cfb (patch) | |
| tree | ee847faa5e64ce80a00a0bd2160ebb576b8d4ad4 /transform.e | |
| parent | 83953f9e4b4fb3130c8ac5e1b8408a2830e21c23 (diff) | |
small changes towards self-hosting
Force-Push: yes Change-Id: I6cf15b4e37b66a04afd5af9dfd9cc3d5eb52b894
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/transform.e b/transform.e index d148e58..6a81454 100644 --- a/transform.e +++ b/transform.e @@ -851,7 +851,8 @@ allocate-transform-state s" transform-state" variable swap-transform-variables + , - latest @ hide-entry ] ; + latest @ dup entry-flags@ 0x80 | entry-flags! + ] ; ~ This is the alternate version of ";" for use with the label transform. Its @@ -865,7 +866,7 @@ allocate-transform-state s" transform-state" variable swap-transform-variables offset-to-target-address-space , - latest @ unhide-entry + latest @ dup entry-flags@ 0x80 invert & entry-flags! ~ Since [ is an immediate word, we have to go to extra trouble to compile ~ it as part of ;. @@ -879,7 +880,8 @@ allocate-transform-state s" transform-state" variable ~ before attempting to understand label-semicolon-assembly-alternate. : label-semicolon-assembly-alternate here @ pack-next 8 packalign here ! - latest @ dup unhide-entry entry-to-execution-token + latest @ dup dup entry-flags@ 0x80 invert & entry-flags! + entry-to-execution-token ~ The codeword needs to be transformed to the target address space. dup 8 + host-address-space-to-target swap ! |