From 1cecd7cc09807fadf3c6dc1af4d1e67fa9844f77 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Tue, 19 Dec 2017 10:59:37 -0500
Subject: link mode: argument vector ordering: treat {.a|.so} the same way as
 -lfoo.

---
 src/logic/slbt_exec_link.c | 60 +++++++++++++++++++++++++++-------------------
 1 file changed, 35 insertions(+), 25 deletions(-)

diff --git a/src/logic/slbt_exec_link.c b/src/logic/slbt_exec_link.c
index 0721aef..2c7beb1 100644
--- a/src/logic/slbt_exec_link.c
+++ b/src/logic/slbt_exec_link.c
@@ -498,6 +498,8 @@ static int slbt_exec_link_finalize_argument_vector(
 	char **		dst;
 	char **		mark;
 	char **		cap;
+	int		flast;
+	int		fwhole;
 	size_t		argc;
 	size_t		first;
 	size_t		last;
@@ -509,40 +511,48 @@ static int slbt_exec_link_finalize_argument_vector(
 	objidx = 0;
 
 	for (parg=ectx->argv; *parg; parg++) {
-		arg = *parg;
+		arg    = *parg;
+		flast  = false;
+		fwhole = false;
 
-		if ((arg[0] == '-') && (arg[1] == 'l')) {
-			last  = parg - base;
-			first = first ? first : last;
+		if ((arg[0] == '-') && (arg[1] == 'l'))
+			flast = true;
+
+		else if ((arg[0] == '-') && (arg[1] == 'L'))
+			flast = true;
+
+		else if ((dot = strrchr(arg,'.')))
+			flast = !strcmp(dot,dctx->cctx->settings.arsuffix)
+					|| !strcmp(dot,dctx->cctx->settings.dsosuffix)
+					|| !strcmp(dot,dctx->cctx->settings.impsuffix);
+
+		else if ((arg[0] == '-')
+				&& (arg[1] == 'W')
+				&& (arg[2] == 'l')
+				&& (arg[3] == ','))
+			fwhole = (!strcmp(&arg[4],"--whole-archive"))
+				&& parg[1] && parg[2]
+				&& !strcmp(parg[2],"-Wl,--no-whole-archive")
+				&& (dot = strrchr(parg[1],'.'))
+				&& !strcmp(dot,dctx->cctx->settings.arsuffix);
+
+
+		if (fwhole) {
+			parg   = &parg[2];
+			flast  = true;
+			objidx = parg - base;
+		}
 
-		} else if ((arg[0] == '-') && (arg[1] == 'L')) {
+
+		if (flast) {
 			last  = parg - base;
 			first = first ? first : last;
 
 		} else if (objidx) {
 			(void)0;
 
-		} else if ((dot = strrchr(arg,'.'))) {
-			if (!strcmp(dot,".o")
-					|| !strcmp(dot,".lo")
-					|| !strcmp(dot,dctx->cctx->settings.arsuffix)
-					|| !strcmp(dot,dctx->cctx->settings.dsosuffix)
-					|| !strcmp(dot,dctx->cctx->settings.impsuffix))
-				objidx = parg - base;
-		} else if ((arg[0] == '-')
-					&& (arg[1] == 'W')
-					&& (arg[2] == 'l')
-					&& (arg[3] == ',')) {
-			if ((!strcmp(&arg[4],"--whole-archive"))
-					&& parg[1] && parg[2]
-					&& !strcmp(parg[2],"-Wl,--no-whole-archive")
-					&& (dot = strrchr(parg[1],'.'))
-					&& !strcmp(dot,dctx->cctx->settings.arsuffix)) {
+		} else if (dot && (!strcmp(dot,".o") || !strcmp(dot,".lo"))) {
 				objidx = parg - base;
-			} else {
-				last  = parg - base;
-				first = first ? first : last;
-			}
 		}
 	}
 
-- 
cgit v1.2.3