From deae20a6aa2f0f1afc5cd7d60f6a201207827f70 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Mon, 4 Mar 2024 23:55:22 +0000
Subject: slbt_ar_create_dlsyms(): allow dlopen & dlpreoepn to elegantly use
 the force.

---
 src/arbits/slbt_archive_dlsyms.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/arbits/slbt_archive_dlsyms.c b/src/arbits/slbt_archive_dlsyms.c
index e75ee3c..10201b4 100644
--- a/src/arbits/slbt_archive_dlsyms.c
+++ b/src/arbits/slbt_archive_dlsyms.c
@@ -274,6 +274,11 @@ static int slbt_ar_output_dlsyms_impl(
 	if (slbt_dprintf(fdout,dlsymfmt,symname,"","0") < 0)
 		return SLBT_NESTED_ERROR(dctx);
 
+	/* (-dlopen force) */
+	if (!arctxv[0]->meta->a_memberv)
+		if (!strcmp(*arctxv[0]->path,"@PROGRAM@"))
+			arctxv++;
+
 	/* at long last */
 	for (parctx=arctxv; *parctx; parctx++) {
 		actx = *parctx;
-- 
cgit v1.2.3