From 6aa833daed98ec60e8e95efe35d5ecd33b8b02f9 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Fri, 29 Mar 2024 03:29:56 +0000
Subject: slbt_init_host_params(): derive as from ranlib as needed.

---
 src/host/slbt_host_params.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/host')

diff --git a/src/host/slbt_host_params.c b/src/host/slbt_host_params.c
index f9ef88c..39272ef 100644
--- a/src/host/slbt_host_params.c
+++ b/src/host/slbt_host_params.c
@@ -345,6 +345,18 @@ slbt_hidden int slbt_init_host_params(
 			cfgmeta->as = cfghost;
 		}
 
+		if (host->ranlib && (mark = strrchr(host->ranlib,'/'))) {
+			if (strcmp(++mark,"ranlib"))
+				if ((mark = strrchr(mark,'-')))
+					if (strcmp(++mark,"ranlib"))
+						mark = 0;
+
+			if (mark) {
+				strcpy(drvhost->as,host->ranlib);
+				strcpy(&drvhost->as[mark-host->ranlib],"as");
+			}
+		}
+
 		host->as = drvhost->as;
 	}
 
-- 
cgit v1.2.3