From 7f8b6008ef760ff51eaf769e3c355b00e329b5ee Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Sat, 3 Oct 2026 19:04:19 -0700 Subject: use regular comment entries with the new string syntax for strings Change-Id: I2a903031c08c1182c0c4811e7b137c2db08195fe Force-Push: yes --- compilation/execution.e | 2 +- compilation/transform.e | 12 +++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) (limited to 'compilation') diff --git a/compilation/execution.e b/compilation/execution.e index e2cb2b2..b827a51 100644 --- a/compilation/execution.e +++ b/compilation/execution.e @@ -720,7 +720,7 @@ ~ : provide-data ~ : data-adjust-length drop - ~ : 1 suppress + ~ : 2 suppress packstring 8 packalign ~ : fresh-line diff --git a/compilation/transform.e b/compilation/transform.e index a6c26a3..4895827 100644 --- a/compilation/transform.e +++ b/compilation/transform.e @@ -4817,8 +4817,13 @@ allocate-transformation-state s" transformation-state" variable 2 pick over hex-pack-trace swap ~ (output point, string length, string pointer) - drop over - hex-output-metadata-entry-type-string-literal swap + drop 2dup over + ~ (output point, string length, output point, string length, output point) + hex-output-metadata-entry-type-push-subitem-string swap + add-hex-output-metadata-entry + ~ (output point, string length) + hex-output-metadata-entry-type-line-comment + s" '#' (string literal with null)" add-hex-output-metadata-entry ; ~ The purpose of this word is to make sure that the memory-sliding @@ -4865,7 +4870,8 @@ allocate-transformation-state s" transformation-state" variable dup hex-output-metadata-entry-type @ dup hex-output-metadata-entry-type-string-literal = - swap hex-output-metadata-entry-type-raw-string-literal = || { + swap dup hex-output-metadata-entry-type-raw-string-literal = || + swap hex-output-metadata-entry-type-push-subitem-string = || { dup hex-output-metadata-entry-content @ ~ (source, destination, length, scan pointer, content pointer) dup 5 pick <= -- cgit 1.4.1