From 9dbdfdc9b780dbd27915f4280ccac4e41c56f9dc Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 11 Jun 2026 15:12:25 -0700 Subject: clean up the entry flag bits a bit Force-Push: yes Change-Id: I7a5f4033bf80dfd3754de564ab49233459a952c5 --- dynamic.e | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/dynamic.e b/dynamic.e index 79944b2..f99f0ec 100644 --- a/dynamic.e +++ b/dynamic.e @@ -135,9 +135,9 @@ stringlen 1+ 54 swap - 0 max indent dup .hex64 dup entry-flags@ dup { space - dup 128 & { s" H" emitstring } if - dup 64 & { s" M" emitstring } if - dup 1 & { s" I" emitstring } if + dup 0x80 & { s" H" emitstring } if + dup 0x40 & { s" M" emitstring } if + dup 0x01 & { s" I" emitstring } if } if drop dup is-assembly-word { s" asm" emitstring } { dup is-docol-interpreted-word { s" raw" emitstring } unless @@ -296,6 +296,7 @@ : make-immediate latest @ dup entry-flags@ 0x01 | swap entry-flags! ; : make-hidden latest @ dup entry-flags@ 0x80 | swap entry-flags! ; : make-visible latest @ dup entry-flags@ 0x80 invert & swap entry-flags! ; +: make-metadata latest @ dup entry-flags@ 0x40 | swap entry-flags! ; ~ Sooner or later we'll want to define recursive words; this one lets us ~ do that. It compiles into a call to the word that's currently being -- cgit 1.4.1