From 7ff9431e77e9966c19c8fcda06a0de2a750efe09 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Mar 16 2024 15:31:41 +0000
Subject: slbt_ar_output_symfile(): include weak aliases of strong symbols.


---

diff --git a/src/arbits/slbt_archive_symfile.c b/src/arbits/slbt_archive_symfile.c
index eadfed1..49d2ff0 100644
--- a/src/arbits/slbt_archive_symfile.c
+++ b/src/arbits/slbt_archive_symfile.c
@@ -34,11 +34,14 @@ static int slbt_ar_output_symfile_impl(
 {
 	bool            fsort;
 	bool            fcoff;
+	const char *    dot;
+	const char *    mark;
 	const char *    regex;
 	const char **   symv;
 	const char **   symstrv;
 	regex_t         regctx;
 	regmatch_t      pmatch[2] = {{0,0},{0,0}};
+	char            strbuf[4096];
 
 	fsort = !(dctx->cctx->fmtflags & SLBT_OUTPUT_ARCHIVE_NOSORT);
 
@@ -63,6 +66,18 @@ static int slbt_ar_output_symfile_impl(
 				if (slbt_dprintf(fdout,"%s\n",*symv) < 0)
 					return SLBT_SYSTEM_ERROR(dctx,0);
 			}
+
+		/* coff weak symbols: expsym = .weak.alias.strong */
+		} else if (fcoff && !strncmp(*symv,".weak.",6)) {
+			mark = &(*symv)[6];
+			dot  = strchr(mark,'.');
+
+			strncpy(strbuf,mark,dot-mark);
+			strbuf[dot-mark] = '\0';
+
+			if (!regex || !regexec(&regctx,strbuf,1,pmatch,0))
+				if (slbt_dprintf(fdout,"    %s = %s\n",strbuf,++dot) < 0)
+					return SLBT_SYSTEM_ERROR(dctx,0);
 		}
 	}