diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-10-03 19:04:19 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-10-04 02:12:15 -0700 |
| commit | 7f8b6008ef760ff51eaf769e3c355b00e329b5ee (patch) | |
| tree | 0eb50a36b489a6c0d2143d173cf2ddd72e066059 | |
| parent | a5aa911587f923efb1ec4a68015b3cb842c81069 (diff) | |
use regular comment entries with the new string syntax for strings
Change-Id: I2a903031c08c1182c0c4811e7b137c2db08195fe Force-Push: yes
| -rw-r--r-- | compilation/execution.e | 2 | ||||
| -rw-r--r-- | compilation/transform.e | 12 |
2 files changed, 10 insertions, 4 deletions
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 <= |