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/transform.e | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'compilation/transform.e') 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