diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-06-11 15:12:25 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-06-11 15:12:25 -0700 |
| commit | 9dbdfdc9b780dbd27915f4280ccac4e41c56f9dc (patch) | |
| tree | 6c7684c5f098d7a21b08e2a55d547a50e8129071 /dynamic.e | |
| parent | cf01ab4c0034f081d05907b9ed1174f59356d16c (diff) | |
clean up the entry flag bits a bit
Force-Push: yes Change-Id: I7a5f4033bf80dfd3754de564ab49233459a952c5
Diffstat (limited to 'dynamic.e')
| -rw-r--r-- | dynamic.e | 7 |
1 files 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 |