From 691df57aba2063cba34cc3bcf0cea90a54e83e76 Mon Sep 17 00:00:00 2001
From: David Boddie <david@boddie.org.uk>
Date: Sun, 2 Apr 2023 18:24:44 +0200
Subject: Enabled assembly of constant strings into the text segment.

---
 utils/tl/span.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'utils/tl/span.c')

diff --git a/utils/tl/span.c b/utils/tl/span.c
index 8ceaf631..6d5a0443 100644
--- a/utils/tl/span.c
+++ b/utils/tl/span.c
@@ -350,6 +350,7 @@ span(void)
 		 * add strings to text segment
 		 */
 		c = rnd(c, 8);
+		INITRODAT = c;
 		for(i=0; i<NHASH; i++)
 		for(s = hash[i]; s != S; s = s->link) {
 			if(s->type != SSTRING)
@@ -358,6 +359,7 @@ span(void)
 			while(v & 3)
 				v++;
 			s->value = c;
+			s->base = -INITDAT; // compensate for assumptions in thumb.c
 			c += v;
 		}
 	}
-- 
cgit v1.2.3