From a00f83c9446159eaf9ac817dfae5291cb226ab7a Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 28 May 2026 21:34:03 -0700 Subject: swap the parameters to "entry-flags!" Force-Push: yes Change-Id: I11f3eb1079d27a7306d6ed1e8e4b9fd6fb7d3a4a --- transform.e | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'transform.e') diff --git a/transform.e b/transform.e index 63ae9c1..f470cb5 100644 --- a/transform.e +++ b/transform.e @@ -881,7 +881,7 @@ allocate-transformation-state s" transformation-state" variable swap-transform-variables + , - latest @ dup entry-flags@ 0x80 | entry-flags! + latest @ dup entry-flags@ 0x80 | swap entry-flags! ] ; @@ -912,7 +912,7 @@ allocate-transformation-state s" transformation-state" variable swap-transform-variables offset-to-target-address-space , - latest @ dup entry-flags@ 0x80 invert & entry-flags! + latest @ dup entry-flags@ 0x80 invert & swap entry-flags! ~ Since [ is an immediate word, we have to go to extra trouble to compile ~ it as part of ;. @@ -926,7 +926,7 @@ allocate-transformation-state s" transformation-state" variable ~ before attempting to understand label-semicolon-assembly-alternate. : label-semicolon-assembly-alternate here @ pack-next 8 packalign here ! - latest @ dup dup entry-flags@ 0x80 invert & entry-flags! + latest @ dup dup entry-flags@ 0x80 invert & swap entry-flags! entry-to-execution-token ~ The codeword needs to be transformed to the target address space. dup 8 + host-address-space-to-target -- cgit 1.4.1