|
 |
3d5567 |
/*******************************************************************/
|
|
|
3d5567 |
/* slibtool: a skinny libtool implementation, written in C */
|
|
|
49181b |
/* Copyright (C) 2016--2024 SysDeer Technologies, LLC */
|
|
|
3d5567 |
/* Released under the Standard MIT License; see COPYING.SLIBTOOL. */
|
|
|
3d5567 |
/*******************************************************************/
|
|
|
3d5567 |
|
|
|
3d5567 |
#include <stdarg.h>
|
|
|
3d5567 |
#include <stdlib.h>
|
|
|
3d5567 |
#include <stdio.h>
|
|
|
3d5567 |
#include <string.h>
|
|
|
3d5567 |
#include <fcntl.h>
|
|
|
3d5567 |
#include <errno.h>
|
|
|
3d5567 |
#include <sys/stat.h>
|
|
|
3d5567 |
|
|
|
3d5567 |
#include <slibtool/slibtool.h>
|
|
|
3d5567 |
#include "slibtool_driver_impl.h"
|
|
|
3d5567 |
#include "slibtool_errinfo_impl.h"
|
|
|
752c02 |
#include "slibtool_spawn_impl.h"
|
|
|
3d5567 |
#include "slibtool_linkcmd_impl.h"
|
|
|
3d5567 |
#include "slibtool_mapfile_impl.h"
|
|
|
3d5567 |
#include "slibtool_metafile_impl.h"
|
|
|
3d5567 |
#include "slibtool_snprintf_impl.h"
|
|
|
3d5567 |
#include "slibtool_symlink_impl.h"
|
|
|
3d5567 |
#include "slibtool_readlink_impl.h"
|
|
|
4b56de |
#include "slibtool_visibility_impl.h"
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
3d5567 |
static int slbt_linkcmd_exit(
|
|
|
3d5567 |
struct slbt_deps_meta * depsmeta,
|
|
|
3d5567 |
int ret)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
if (depsmeta->altv)
|
|
|
3d5567 |
free(depsmeta->altv);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (depsmeta->args)
|
|
|
3d5567 |
free(depsmeta->args);
|
|
|
3d5567 |
|
|
|
3d5567 |
return ret;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
3d5567 |
static int slbt_emit_fdwrap_amend_dl_path(
|
|
|
3d5567 |
const struct slbt_driver_ctx * dctx,
|
|
|
3d5567 |
struct slbt_exec_ctx * ectx,
|
|
|
3d5567 |
struct slbt_deps_meta * depsmeta,
|
|
|
3d5567 |
const char * fmt,
|
|
|
3d5567 |
...)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
va_list ap;
|
|
|
3d5567 |
char * buf;
|
|
|
3d5567 |
int cnt;
|
|
|
3d5567 |
char dlpathbuf[2048];
|
|
|
3d5567 |
int fdwrap;
|
|
|
3d5567 |
const char * fdwrap_fmt;
|
|
|
3d5567 |
int size;
|
|
|
3d5567 |
|
|
|
3d5567 |
va_start(ap,fmt);
|
|
|
3d5567 |
|
|
|
3d5567 |
size = sizeof(dlpathbuf);
|
|
|
3d5567 |
|
|
|
3d5567 |
buf = ((cnt = vsnprintf(dlpathbuf,size,fmt,ap)) < size)
|
|
|
3d5567 |
? dlpathbuf : malloc((size = cnt + 1));
|
|
|
3d5567 |
|
|
|
3d5567 |
va_end(ap);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (buf == dlpathbuf) {
|
|
|
3d5567 |
(void)0;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (buf) {
|
|
|
3d5567 |
va_start(ap,fmt);
|
|
|
3d5567 |
vsprintf(buf,fmt,ap);
|
|
|
3d5567 |
va_end(ap);
|
|
|
3d5567 |
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_SYSTEM_ERROR(dctx,0));
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((fdwrap = slbt_exec_get_fdwrapper(ectx)) >= 0) {
|
|
|
3d5567 |
if (buf[0] == '/') {
|
|
|
3d5567 |
fdwrap_fmt =
|
|
|
3d5567 |
"DL_PATH=\"${DL_PATH}${COLON}%s\"\n"
|
|
|
3d5567 |
"COLON=':'\n\n";
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
fdwrap_fmt =
|
|
|
3d5567 |
"DL_PATH=\"${DL_PATH}${COLON}${DL_PATH_FIXUP}%s\"\n"
|
|
|
3d5567 |
"COLON=':'\n\n";
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (slbt_dprintf(fdwrap,fdwrap_fmt,buf) < 0) {
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_SYSTEM_ERROR(dctx,0));
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
4b56de |
slbt_hidden bool slbt_adjust_object_argument(
|
|
|
3d5567 |
char * arg,
|
|
|
3d5567 |
bool fpic,
|
|
|
3d5567 |
bool fany,
|
|
|
3d5567 |
int fdcwd)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
char * slash;
|
|
|
3d5567 |
char * dot;
|
|
|
3d5567 |
char base[PATH_MAX];
|
|
|
3d5567 |
|
|
|
3d5567 |
if (*arg == '-')
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* object argument: foo.lo or foo.o */
|
|
|
3d5567 |
if (!(dot = strrchr(arg,'.')))
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((dot[1]=='l') && (dot[2]=='o') && !dot[3]) {
|
|
|
3d5567 |
dot[1] = 'o';
|
|
|
3d5567 |
dot[2] = 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if ((dot[1]=='o') && !dot[2]) {
|
|
|
3d5567 |
(void)0;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* foo.o requested and is present? */
|
|
|
3d5567 |
if (!fpic && !faccessat(fdcwd,arg,0,0))
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* .libs/foo.o */
|
|
|
3d5567 |
if ((slash = strrchr(arg,'/')))
|
|
|
3d5567 |
slash++;
|
|
|
3d5567 |
else
|
|
|
3d5567 |
slash = arg;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (slbt_snprintf(base,sizeof(base),
|
|
|
3d5567 |
"%s",slash) < 0)
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
sprintf(slash,".libs/%s",base);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!faccessat(fdcwd,arg,0,0))
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* foo.o requested and neither is present? */
|
|
|
3d5567 |
if (!fpic) {
|
|
|
3d5567 |
strcpy(slash,base);
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* .libs/foo.o explicitly requested and is not present? */
|
|
|
3d5567 |
if (!fany)
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* use foo.o in place of .libs/foo.o */
|
|
|
3d5567 |
strcpy(slash,base);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (faccessat(fdcwd,arg,0,0))
|
|
|
3d5567 |
sprintf(slash,".libs/%s",base);
|
|
|
3d5567 |
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
4b56de |
slbt_hidden bool slbt_adjust_wrapper_argument(
|
|
|
3d5567 |
char * arg,
|
|
|
3d5567 |
bool fpic)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
char * slash;
|
|
|
3d5567 |
char * dot;
|
|
|
3d5567 |
char base[PATH_MAX];
|
|
|
3d5567 |
|
|
|
3d5567 |
if (*arg == '-')
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(dot = strrchr(arg,'.')))
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (strcmp(dot,".la"))
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (fpic) {
|
|
|
3d5567 |
if ((slash = strrchr(arg,'/')))
|
|
|
3d5567 |
slash++;
|
|
|
3d5567 |
else
|
|
|
3d5567 |
slash = arg;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (slbt_snprintf(base,sizeof(base),
|
|
|
3d5567 |
"%s",slash) < 0)
|
|
|
3d5567 |
return false;
|
|
|
3d5567 |
|
|
|
3d5567 |
sprintf(slash,".libs/%s",base);
|
|
|
3d5567 |
dot = strrchr(arg,'.');
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
strcpy(dot,".a");
|
|
|
3d5567 |
return true;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
4b56de |
slbt_hidden int slbt_adjust_linker_argument(
|
|
|
3d5567 |
const struct slbt_driver_ctx * dctx,
|
|
|
3d5567 |
char * arg,
|
|
|
3d5567 |
char ** xarg,
|
|
|
3d5567 |
bool fpic,
|
|
|
3d5567 |
const char * dsosuffix,
|
|
|
3d5567 |
const char * arsuffix,
|
|
|
3d5567 |
struct slbt_deps_meta * depsmeta)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
int fdcwd;
|
|
|
3d5567 |
int fdlib;
|
|
|
3d5567 |
char * slash;
|
|
|
3d5567 |
char * dot;
|
|
|
3d5567 |
char base[PATH_MAX];
|
|
|
3d5567 |
|
|
|
3d5567 |
if (*arg == '-')
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(dot = strrchr(arg,'.')))
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(strcmp(dot,arsuffix))) {
|
|
|
3d5567 |
*xarg = arg;
|
|
|
3d5567 |
return slbt_get_deps_meta(dctx,arg,1,depsmeta);
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(strcmp(dot,dsosuffix)))
|
|
|
3d5567 |
return slbt_get_deps_meta(dctx,arg,1,depsmeta);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (strcmp(dot,".la"))
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (fpic) {
|
|
|
3d5567 |
if ((slash = strrchr(arg,'/')))
|
|
|
3d5567 |
slash++;
|
|
|
3d5567 |
else
|
|
|
3d5567 |
slash = arg;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (slbt_snprintf(base,sizeof(base),
|
|
|
3d5567 |
"%s",slash) < 0)
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
sprintf(slash,".libs/%s",base);
|
|
|
3d5567 |
dot = strrchr(arg,'.');
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* fdcwd */
|
|
|
3d5567 |
fdcwd = slbt_driver_fdcwd(dctx);
|
|
|
3d5567 |
|
|
|
3d5567 |
/* shared library dependency? */
|
|
|
3d5567 |
if (fpic) {
|
|
|
3d5567 |
sprintf(dot,"%s",dsosuffix);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (slbt_symlink_is_a_placeholder(fdcwd,arg))
|
|
|
3d5567 |
sprintf(dot,"%s",arsuffix);
|
|
|
9bbe9f |
else if (dctx->cctx->drvflags & SLBT_DRIVER_STATIC)
|
|
|
9bbe9f |
sprintf(dot,"%s",arsuffix);
|
|
|
3d5567 |
else if ((fdlib = openat(fdcwd,arg,O_RDONLY)) >= 0)
|
|
|
3d5567 |
close(fdlib);
|
|
|
3d5567 |
else
|
|
|
3d5567 |
sprintf(dot,"%s",arsuffix);
|
|
|
3d5567 |
|
|
|
3d5567 |
return slbt_get_deps_meta(dctx,arg,0,depsmeta);
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* input archive */
|
|
|
3d5567 |
sprintf(dot,"%s",arsuffix);
|
|
|
3d5567 |
return slbt_get_deps_meta(dctx,arg,0,depsmeta);
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
4b56de |
slbt_hidden int slbt_exec_link_adjust_argument_vector(
|
|
|
3d5567 |
const struct slbt_driver_ctx * dctx,
|
|
|
3d5567 |
struct slbt_exec_ctx * ectx,
|
|
|
3d5567 |
struct slbt_deps_meta * depsmeta,
|
|
|
3d5567 |
const char * cwd,
|
|
|
3d5567 |
bool flibrary)
|
|
|
3d5567 |
{
|
|
|
3d5567 |
int fd;
|
|
|
3d5567 |
int fdcwd;
|
|
|
3d5567 |
char ** carg;
|
|
|
3d5567 |
char ** aarg;
|
|
|
3d5567 |
char * ldir;
|
|
|
3d5567 |
char * slash;
|
|
|
3d5567 |
char * mark;
|
|
|
3d5567 |
char * darg;
|
|
|
3d5567 |
char * dot;
|
|
|
3d5567 |
char * base;
|
|
|
3d5567 |
char * dpath;
|
|
|
3d5567 |
int argc;
|
|
|
3d5567 |
char arg[PATH_MAX];
|
|
|
3d5567 |
char lib[PATH_MAX];
|
|
|
3d5567 |
char depdir [PATH_MAX];
|
|
|
3d5567 |
char rpathdir[PATH_MAX];
|
|
|
3d5567 |
char rpathlnk[PATH_MAX];
|
|
|
3d5567 |
struct stat st;
|
|
|
3d5567 |
size_t size;
|
|
|
3d5567 |
size_t dlen;
|
|
|
9c528f |
struct slbt_map_info * mapinfo = 0;
|
|
|
3d5567 |
bool fwholearchive = false;
|
|
|
3d5567 |
int ret;
|
|
|
3d5567 |
|
|
|
3d5567 |
for (argc=0,carg=ectx->cargv; *carg; carg++)
|
|
|
3d5567 |
argc++;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(depsmeta->args = calloc(1,depsmeta->infolen)))
|
|
|
3d5567 |
return SLBT_SYSTEM_ERROR(dctx,0);
|
|
|
3d5567 |
|
|
|
3d5567 |
argc *= 3;
|
|
|
3d5567 |
argc += depsmeta->depscnt;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(depsmeta->altv = calloc(argc,sizeof(char *))))
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_SYSTEM_ERROR(dctx,0));
|
|
|
3d5567 |
|
|
|
3d5567 |
fdcwd = slbt_driver_fdcwd(dctx);
|
|
|
3d5567 |
|
|
|
3d5567 |
carg = ectx->cargv;
|
|
|
3d5567 |
aarg = depsmeta->altv;
|
|
|
3d5567 |
darg = depsmeta->args;
|
|
|
3d5567 |
size = depsmeta->infolen;
|
|
|
3d5567 |
|
|
|
3d5567 |
for (; *carg; ) {
|
|
|
3d5567 |
dpath = 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!strcmp(*carg,"-Wl,--whole-archive"))
|
|
|
3d5567 |
fwholearchive = true;
|
|
|
3d5567 |
else if (!strcmp(*carg,"-Wl,--no-whole-archive"))
|
|
|
3d5567 |
fwholearchive = false;
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
3d5567 |
/* output annotation */
|
|
|
3d5567 |
if (carg == ectx->lout[0]) {
|
|
|
3d5567 |
ectx->mout[0] = &aarg[0];
|
|
|
3d5567 |
ectx->mout[1] = &aarg[1];
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* argument translation */
|
|
|
3d5567 |
mark = *carg;
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((mark[0] == '-') && (mark[1] == 'L')) {
|
|
|
3d5567 |
if (mark[2]) {
|
|
|
3d5567 |
ldir = &mark[2];
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
ldir = *carg;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
mark = ldir + strlen(ldir);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (mark[-1] == '/')
|
|
|
3d5567 |
strcpy(mark,".libs");
|
|
|
3d5567 |
else
|
|
|
3d5567 |
strcpy(mark,"/.libs");
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((fd = openat(fdcwd,ldir,O_DIRECTORY,0)) < 0)
|
|
|
3d5567 |
*mark = 0;
|
|
|
3d5567 |
else {
|
|
|
3d5567 |
close(fd);
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((ret = slbt_emit_fdwrap_amend_dl_path(
|
|
|
3d5567 |
dctx,ectx,depsmeta,
|
|
|
3d5567 |
"%s",ldir)) < 0)
|
|
|
3d5567 |
return ret;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (**carg == '-') {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (!(dot = strrchr(*carg,'.'))) {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (ectx->xargv[carg - ectx->cargv]) {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (!(strcmp(dot,".a"))) {
|
|
|
270b46 |
if (flibrary && !fwholearchive) {
|
|
|
270b46 |
strcpy(lib,*carg);
|
|
|
270b46 |
dot = strrchr(lib,'.');
|
|
|
270b46 |
strcpy(dot,".lai");
|
|
|
270b46 |
|
|
|
270b46 |
if ((fd = openat(fdcwd,lib,O_RDONLY,0)) < 0)
|
|
|
270b46 |
*aarg++ = "-Wl,--whole-archive";
|
|
|
270b46 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
dpath = lib;
|
|
|
3d5567 |
sprintf(lib,"%s.slibtool.deps",*carg);
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
270b46 |
if (flibrary && !fwholearchive) {
|
|
|
270b46 |
if (fd < 0) {
|
|
|
270b46 |
*aarg++ = "-Wl,--no-whole-archive";
|
|
|
270b46 |
} else {
|
|
|
270b46 |
close(fd);
|
|
|
270b46 |
}
|
|
|
270b46 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (strcmp(dot,dctx->cctx->settings.dsosuffix)) {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (carg == ectx->lout[1]) {
|
|
|
3d5567 |
/* ^^^hoppla^^^ */
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
/* -rpath */
|
|
|
3d5567 |
sprintf(rpathlnk,"%s.slibtool.rpath",*carg);
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!fstatat(fdcwd,rpathlnk,&st,AT_SYMLINK_NOFOLLOW)) {
|
|
|
3d5567 |
if (slbt_readlinkat(
|
|
|
3d5567 |
fdcwd,
|
|
|
3d5567 |
rpathlnk,
|
|
|
3d5567 |
rpathdir,
|
|
|
3d5567 |
sizeof(rpathdir)))
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_SYSTEM_ERROR(dctx,rpathlnk));
|
|
|
3d5567 |
|
|
|
3d5567 |
sprintf(darg,"-Wl,%s",rpathdir);
|
|
|
3d5567 |
*aarg++ = "-Wl,-rpath";
|
|
|
3d5567 |
*aarg++ = darg;
|
|
|
3d5567 |
darg += strlen(darg);
|
|
|
3d5567 |
darg++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
dpath = lib;
|
|
|
3d5567 |
sprintf(lib,"%s.slibtool.deps",*carg);
|
|
|
3d5567 |
|
|
|
3d5567 |
/* account for {'-','L','-','l'} */
|
|
|
3d5567 |
if (slbt_snprintf(arg,
|
|
|
3d5567 |
sizeof(arg) - 4,
|
|
|
3d5567 |
"%s",*carg) < 0)
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_BUFFER_ERROR(dctx));
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((slash = strrchr(arg,'/'))) {
|
|
|
3d5567 |
sprintf(*carg,"-L%s",arg);
|
|
|
3d5567 |
|
|
|
3d5567 |
mark = strrchr(*carg,'/');
|
|
|
3d5567 |
*mark = 0;
|
|
|
3d5567 |
*slash = 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((ret = slbt_emit_fdwrap_amend_dl_path(
|
|
|
3d5567 |
dctx,ectx,depsmeta,
|
|
|
3d5567 |
"%s%s%s",
|
|
|
3d5567 |
((arg[0] == '/') ? "" : cwd),
|
|
|
3d5567 |
((arg[0] == '/') ? "" : "/"),
|
|
|
3d5567 |
arg)) < 0) {
|
|
|
3d5567 |
return ret;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
dlen = strlen(dctx->cctx->settings.dsoprefix);
|
|
|
3d5567 |
|
|
|
3d5567 |
/* -module? (todo: non-portable usage, display warning) */
|
|
|
3d5567 |
if (strncmp(++slash,dctx->cctx->settings.dsoprefix,dlen)) {
|
|
|
3d5567 |
*--slash = '/';
|
|
|
3d5567 |
strcpy(*carg,arg);
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
*aarg++ = ++mark;
|
|
|
3d5567 |
|
|
|
3d5567 |
slash += dlen;
|
|
|
3d5567 |
|
|
|
3d5567 |
sprintf(mark,"-l%s",slash);
|
|
|
3d5567 |
dot = strrchr(mark,'.');
|
|
|
3d5567 |
*dot = 0;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *carg++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (dpath && !fstatat(fdcwd,dpath,&st,0)) {
|
|
|
3d5567 |
if (!(mapinfo = slbt_map_file(
|
|
|
3d5567 |
fdcwd,dpath,
|
|
|
3d5567 |
SLBT_MAP_INPUT)))
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_SYSTEM_ERROR(dctx,dpath));
|
|
|
3d5567 |
|
|
|
3d5567 |
if (!(strncmp(lib,".libs/",6))) {
|
|
|
3d5567 |
*aarg++ = "-L.libs";
|
|
|
3d5567 |
lib[1] = 0;
|
|
|
3d5567 |
} else if ((base = strrchr(lib,'/'))) {
|
|
|
3d5567 |
if (base - lib == 5) {
|
|
|
3d5567 |
if (!(strncmp(&base[-5],".libs/",6)))
|
|
|
3d5567 |
base -= 4;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if (base - lib >= 6) {
|
|
|
3d5567 |
if (!(strncmp(&base[-6],"/.libs/",7)))
|
|
|
3d5567 |
base -= 6;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
*base = 0;
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
lib[0] = '.';
|
|
|
3d5567 |
lib[1] = 0;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
while (mapinfo->mark < mapinfo->cap) {
|
|
|
3d5567 |
if (slbt_mapped_readline(dctx,mapinfo,darg,size))
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_NESTED_ERROR(dctx));
|
|
|
3d5567 |
|
|
|
3d5567 |
*aarg++ = darg;
|
|
|
3d5567 |
mark = darg;
|
|
|
3d5567 |
|
|
|
3d5567 |
dlen = strlen(darg);
|
|
|
3d5567 |
size -= dlen;
|
|
|
3d5567 |
darg += dlen;
|
|
|
3d5567 |
darg[-1] = 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* handle -L... as needed */
|
|
|
3d5567 |
if ((mark[0] == '-')
|
|
|
3d5567 |
&& (mark[1] == 'L')
|
|
|
3d5567 |
&& (mark[2] != '/')) {
|
|
|
3d5567 |
if (strlen(mark) >= sizeof(depdir) - 1)
|
|
|
3d5567 |
return slbt_linkcmd_exit(
|
|
|
3d5567 |
depsmeta,
|
|
|
3d5567 |
SLBT_BUFFER_ERROR(dctx));
|
|
|
3d5567 |
|
|
|
3d5567 |
darg = mark;
|
|
|
3d5567 |
strcpy(depdir,&mark[2]);
|
|
|
3d5567 |
sprintf(darg,"-L%s/%s",lib,depdir);
|
|
|
3d5567 |
|
|
|
3d5567 |
darg += strlen(darg);
|
|
|
3d5567 |
darg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
if ((ret = slbt_emit_fdwrap_amend_dl_path(
|
|
|
3d5567 |
dctx,ectx,depsmeta,
|
|
|
3d5567 |
"%s/%s",lib,depdir)) < 0)
|
|
|
3d5567 |
return ret;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else if ((mark[0] == '-') && (mark[1] == 'L')) {
|
|
|
3d5567 |
if ((ret = slbt_emit_fdwrap_amend_dl_path(
|
|
|
3d5567 |
dctx,ectx,depsmeta,
|
|
|
3d5567 |
"%s",&mark[2])) < 0)
|
|
|
3d5567 |
return ret;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
9c528f |
|
|
|
9c528f |
if (mapinfo) {
|
|
|
9c528f |
slbt_unmap_file(mapinfo);
|
|
|
9c528f |
mapinfo = 0;
|
|
|
9c528f |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (dctx->cctx->drvflags & SLBT_DRIVER_EXPORT_DYNAMIC)
|
|
|
3d5567 |
*aarg++ = "-Wl,--export-dynamic";
|
|
|
3d5567 |
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
|
|
|
752c02 |
static int slbt_exec_link_remove_file(
|
|
|
752c02 |
const struct slbt_driver_ctx * dctx,
|
|
|
752c02 |
struct slbt_exec_ctx * ectx,
|
|
|
752c02 |
const char * target)
|
|
|
752c02 |
{
|
|
|
752c02 |
int fdcwd;
|
|
|
752c02 |
|
|
|
752c02 |
(void)ectx;
|
|
|
752c02 |
|
|
|
752c02 |
/* fdcwd */
|
|
|
752c02 |
fdcwd = slbt_driver_fdcwd(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
/* remove target (if any) */
|
|
|
752c02 |
if (!unlinkat(fdcwd,target,0) || (errno == ENOENT))
|
|
|
752c02 |
return 0;
|
|
|
752c02 |
|
|
|
752c02 |
return SLBT_SYSTEM_ERROR(dctx,0);
|
|
|
752c02 |
}
|
|
|
752c02 |
|
|
|
752c02 |
|
|
|
752c02 |
static int slbt_exec_link_create_expsyms_archive(
|
|
|
752c02 |
const struct slbt_driver_ctx * dctx,
|
|
|
752c02 |
struct slbt_exec_ctx * ectx,
|
|
|
752c02 |
char ** lobjv,
|
|
|
752c02 |
char ** cnvlv)
|
|
|
752c02 |
{
|
|
|
752c02 |
int ret;
|
|
|
752c02 |
char * dot;
|
|
|
752c02 |
char ** argv;
|
|
|
752c02 |
char ** aarg;
|
|
|
752c02 |
char ** parg;
|
|
|
752c02 |
struct slbt_archive_ctx * arctx;
|
|
|
752c02 |
char ** ectx_argv;
|
|
|
752c02 |
char * ectx_program;
|
|
|
752c02 |
char program[PATH_MAX];
|
|
|
752c02 |
char output [PATH_MAX];
|
|
|
752c02 |
|
|
|
752c02 |
/* output */
|
|
|
752c02 |
if (slbt_snprintf(output,sizeof(output),
|
|
|
752c02 |
"%s",ectx->mapfilename) < 0)
|
|
|
752c02 |
return SLBT_BUFFER_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
if (!(dot = strrchr(output,'.')))
|
|
|
752c02 |
return SLBT_CUSTOM_ERROR(
|
|
|
752c02 |
dctx,
|
|
|
752c02 |
SLBT_ERR_FLOW_ERROR);
|
|
|
752c02 |
|
|
|
5b42a8 |
/* .expsyms.xxx --> .expsyms.a */
|
|
|
752c02 |
dot[1] = 'a';
|
|
|
752c02 |
dot[2] = '\0';
|
|
|
752c02 |
|
|
|
752c02 |
/* tool-specific argument vector */
|
|
|
752c02 |
argv = (slbt_get_driver_ictx(dctx))->host.ar_argv;
|
|
|
752c02 |
|
|
|
752c02 |
/* ar alternate argument vector */
|
|
|
752c02 |
if (!argv)
|
|
|
752c02 |
if (slbt_snprintf(program,sizeof(program),
|
|
|
752c02 |
"%s",dctx->cctx->host.ar) < 0)
|
|
|
752c02 |
return SLBT_BUFFER_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
/* ar command argument vector */
|
|
|
752c02 |
aarg = lobjv;
|
|
|
752c02 |
|
|
|
752c02 |
if ((parg = argv)) {
|
|
|
752c02 |
for (; *parg; )
|
|
|
752c02 |
*aarg++ = *parg++;
|
|
|
752c02 |
} else {
|
|
|
752c02 |
*aarg++ = program;
|
|
|
752c02 |
}
|
|
|
752c02 |
|
|
|
752c02 |
*aarg++ = "-crs";
|
|
|
752c02 |
*aarg++ = output;
|
|
|
752c02 |
|
|
|
752c02 |
ectx_argv = ectx->argv;
|
|
|
752c02 |
ectx_program = ectx->program;
|
|
|
752c02 |
|
|
|
752c02 |
ectx->argv = lobjv;
|
|
|
752c02 |
ectx->program = ectx->argv[0];
|
|
|
752c02 |
|
|
|
752c02 |
/* step output */
|
|
|
752c02 |
if (!(dctx->cctx->drvflags & SLBT_DRIVER_SILENT))
|
|
|
752c02 |
if (slbt_output_link(ectx))
|
|
|
752c02 |
return SLBT_NESTED_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
/* remove old archive as needed */
|
|
|
752c02 |
if (slbt_exec_link_remove_file(dctx,ectx,output))
|
|
|
752c02 |
return SLBT_NESTED_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
/* ar spawn */
|
|
|
752c02 |
if ((slbt_spawn(ectx,true) < 0) && (ectx->pid < 0)) {
|
|
|
752c02 |
return SLBT_SPAWN_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
} else if (ectx->exitcode) {
|
|
|
752c02 |
return SLBT_CUSTOM_ERROR(
|
|
|
752c02 |
dctx,
|
|
|
752c02 |
SLBT_ERR_AR_ERROR);
|
|
|
752c02 |
}
|
|
|
752c02 |
|
|
|
752c02 |
/* restore link command ectx */
|
|
|
752c02 |
ectx->argv = ectx_argv;
|
|
|
752c02 |
ectx->program = ectx_program;
|
|
|
752c02 |
|
|
|
752c02 |
/* input objects associated with .la archives */
|
|
|
752c02 |
for (parg=cnvlv; *parg; parg++)
|
|
|
752c02 |
if (slbt_util_import_archive(ectx,output,*parg))
|
|
|
752c02 |
return SLBT_NESTED_ERROR(dctx);
|
|
|
752c02 |
|
|
|
752c02 |
/* do the thing */
|
|
|
752c02 |
if (slbt_ar_get_archive_ctx(dctx,output,&arctx) < 0)
|
|
|
752c02 |
return SLBT_NESTED_ERROR(dctx);
|
|
|
752c02 |
|
|
|
5b42a8 |
/* .expsyms.a --> .exp */
|
|
|
ac4a1b |
if ((*dot = '\0'), !(dot = strrchr(output,'.'))) {
|
|
|
ac4a1b |
slbt_ar_free_archive_ctx(arctx);
|
|
|
ac4a1b |
return SLBT_CUSTOM_ERROR(
|
|
|
ac4a1b |
dctx,
|
|
|
ac4a1b |
SLBT_ERR_FLOW_ERROR);
|
|
|
ac4a1b |
}
|
|
|
ac4a1b |
|
|
|
ac4a1b |
dot[1] = 'e';
|
|
|
ac4a1b |
dot[2] = 'x';
|
|
|
ac4a1b |
dot[3] = 'p';
|
|
|
ac4a1b |
dot[4] = '\0';
|
|
|
ac4a1b |
|
|
|
ac4a1b |
/* symfile */
|
|
|
ac4a1b |
if (dctx->cctx->expsyms) {
|
|
|
ac4a1b |
struct slbt_symlist_ctx * sctx;
|
|
|
ac4a1b |
sctx = (slbt_get_exec_ictx(ectx))->sctx;
|
|
|
ac4a1b |
|
|
|
ac4a1b |
ret = slbt_util_create_symfile(
|
|
|
ac4a1b |
sctx,output,0644);
|
|
|
ac4a1b |
} else {
|
|
|
ac4a1b |
ret = slbt_ar_create_symfile(
|
|
|
ac4a1b |
arctx->meta,
|
|
|
ac4a1b |
output,
|
|
|
ac4a1b |
0644);
|
|
|
ac4a1b |
}
|
|
|
ac4a1b |
|
|
|
ac4a1b |
/* mapfile */
|
|
|
ac4a1b |
if ((ret == 0) && (dctx->cctx->regex)) {
|
|
|
ac4a1b |
ret = slbt_ar_create_mapfile(
|
|
|
ac4a1b |
arctx->meta,
|
|
|
ac4a1b |
ectx->mapfilename,
|
|
|
ac4a1b |
0644);
|
|
|
5b42a8 |
}
|
|
|
5b42a8 |
|
|
|
752c02 |
slbt_ar_free_archive_ctx(arctx);
|
|
|
752c02 |
|
|
|
ac4a1b |
return (ret < 0) ? SLBT_NESTED_ERROR(dctx) : 0;
|
|
|
752c02 |
}
|
|
|
752c02 |
|
|
|
752c02 |
|
|
|
4b56de |
slbt_hidden int slbt_exec_link_finalize_argument_vector(
|
|
|
3d5567 |
const struct slbt_driver_ctx * dctx,
|
|
|
3d5567 |
struct slbt_exec_ctx * ectx)
|
|
|
3d5567 |
{
|
|
|
30e15b |
size_t nargs;
|
|
|
3d5567 |
char * sargv[1024];
|
|
|
3d5567 |
char ** sargvbuf;
|
|
|
3d5567 |
char ** base;
|
|
|
3d5567 |
char ** parg;
|
|
|
752c02 |
char ** pcap;
|
|
|
752c02 |
char ** argv;
|
|
|
752c02 |
char ** mark;
|
|
|
3d5567 |
char ** aarg;
|
|
|
3d5567 |
char ** oarg;
|
|
|
752c02 |
char ** lobj;
|
|
|
752c02 |
char ** cnvl;
|
|
|
3d5567 |
char ** larg;
|
|
|
3d5567 |
char ** darg;
|
|
|
3d5567 |
char ** earg;
|
|
|
3d5567 |
char ** rarg;
|
|
|
3d5567 |
char ** aargv;
|
|
|
3d5567 |
char ** oargv;
|
|
|
752c02 |
char ** lobjv;
|
|
|
752c02 |
char ** cnvlv;
|
|
|
42187c |
char ** dlargv;
|
|
|
3d5567 |
char ** cap;
|
|
|
3d5567 |
char ** src;
|
|
|
3d5567 |
char ** dst;
|
|
|
3d5567 |
char * arg;
|
|
|
3d5567 |
char * dot;
|
|
|
3d5567 |
char * ccwrap;
|
|
|
abb1bf |
char * program;
|
|
|
3d5567 |
const char * arsuffix;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* vector size */
|
|
|
3d5567 |
base = ectx->argv;
|
|
|
3d5567 |
arsuffix = dctx->cctx->settings.arsuffix;
|
|
|
3d5567 |
|
|
|
3d5567 |
for (parg=base; *parg; parg++)
|
|
|
3d5567 |
(void)0;
|
|
|
3d5567 |
|
|
|
752c02 |
if (dctx->cctx->regex) {
|
|
|
752c02 |
argv = (slbt_get_driver_ictx(dctx))->host.ar_argv;
|
|
|
752c02 |
|
|
|
752c02 |
for (mark=argv; mark && *mark; mark++)
|
|
|
752c02 |
(void)0;
|
|
|
752c02 |
} else {
|
|
|
752c02 |
argv = 0;
|
|
|
752c02 |
mark = 0;
|
|
|
752c02 |
}
|
|
|
752c02 |
|
|
|
3d5567 |
/* buffer */
|
|
|
30e15b |
if ((nargs = ((parg - base) + (mark - argv))) < 256) {
|
|
|
3d5567 |
aargv = &sargv[0];
|
|
|
752c02 |
oargv = &sargv[1*256];
|
|
|
752c02 |
lobjv = &sargv[2*256];
|
|
|
752c02 |
cnvlv = &sargv[3*256];
|
|
|
3d5567 |
sargvbuf = 0;
|
|
|
3d5567 |
|
|
|
752c02 |
parg = &sargv[0];
|
|
|
752c02 |
pcap = &sargv[1024];
|
|
|
752c02 |
|
|
|
752c02 |
for (; parg
|
|
|
752c02 |
*parg++ = 0;
|
|
|
752c02 |
|
|
|
30e15b |
} else if (!(sargvbuf = calloc(4*(nargs+1),sizeof(char *)))) {
|
|
|
3d5567 |
return SLBT_SYSTEM_ERROR(dctx,0);
|
|
|
3d5567 |
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
aargv = &sargvbuf[0];
|
|
|
30e15b |
oargv = &sargvbuf[1*(nargs+1)];
|
|
|
30e15b |
lobjv = &sargvbuf[2*(nargs+1)];
|
|
|
30e15b |
cnvlv = &sargvbuf[3*(nargs+1)];
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
752c02 |
aarg = aargv;
|
|
|
752c02 |
oarg = oargv;
|
|
|
752c02 |
cnvl = cnvlv;
|
|
|
752c02 |
lobj = lobjv;
|
|
|
752c02 |
|
|
|
752c02 |
/* -export-symbols-regex: lobjv in place: ar [arg] [arg] -crs <output> */
|
|
|
752c02 |
if (dctx->cctx->regex && argv)
|
|
|
752c02 |
lobj += mark - argv + 2;
|
|
|
752c02 |
else
|
|
|
752c02 |
lobj += 3;
|
|
|
752c02 |
|
|
|
3d5567 |
/* (program name) */
|
|
|
3d5567 |
parg = &base[1];
|
|
|
3d5567 |
|
|
|
3d5567 |
/* split object args from all other args, record output */
|
|
|
752c02 |
/* annotation, and remove redundant -l arguments; and */
|
|
|
752c02 |
/* create additional vectors of all input objects as */
|
|
|
752c02 |
/* convenience libraries for -export-symbols-regex. */
|
|
|
3d5567 |
for (; *parg; ) {
|
|
|
3d5567 |
if (ectx->lout[0] == parg) {
|
|
|
3d5567 |
ectx->lout[0] = &aarg[0];
|
|
|
3d5567 |
ectx->lout[1] = &aarg[1];
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (ectx->mout[0] == parg) {
|
|
|
3d5567 |
ectx->mout[0] = &aarg[0];
|
|
|
3d5567 |
ectx->mout[1] = &aarg[1];
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
arg = *parg;
|
|
|
3d5567 |
dot = strrchr(arg,'.');
|
|
|
3d5567 |
|
|
|
3d5567 |
/* object input argument? */
|
|
|
3d5567 |
if (dot && (!strcmp(dot,".o") || !strcmp(dot,".lo"))) {
|
|
|
752c02 |
*lobj++ = *parg;
|
|
|
3d5567 |
*oarg++ = *parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* --whole-archive input argument? */
|
|
|
3d5567 |
} else if ((arg[0] == '-')
|
|
|
3d5567 |
&& (arg[1] == 'W')
|
|
|
3d5567 |
&& (arg[2] == 'l')
|
|
|
3d5567 |
&& (arg[3] == ',')
|
|
|
3d5567 |
&& !strcmp(&arg[4],"--whole-archive")
|
|
|
3d5567 |
&& parg[1] && parg[2]
|
|
|
3d5567 |
&& !strcmp(parg[2],"-Wl,--no-whole-archive")
|
|
|
3d5567 |
&& (dot = strrchr(parg[1],'.'))
|
|
|
3d5567 |
&& !strcmp(dot,arsuffix)) {
|
|
|
752c02 |
*cnvl++ = parg[1];
|
|
|
3d5567 |
*oarg++ = *parg++;
|
|
|
3d5567 |
*oarg++ = *parg++;
|
|
|
3d5567 |
*oarg++ = *parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* local archive input argument? */
|
|
|
3d5567 |
} else if (dot && !strcmp(dot,arsuffix)) {
|
|
|
35000f |
*aarg++ = *parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* -l argument? */
|
|
|
3d5567 |
} else if ((parg[0][0] == '-') && (parg[0][1] == 'l')) {
|
|
|
3d5567 |
/* find the previous occurence of this -l argument */
|
|
|
3d5567 |
for (rarg=0, larg=&aarg[-1]; !rarg && (larg>=aargv); larg--)
|
|
|
3d5567 |
if (!strcmp(*larg,*parg))
|
|
|
3d5567 |
rarg = larg;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* first occurence of this specific -l argument? */
|
|
|
3d5567 |
if (!rarg) {
|
|
|
3d5567 |
*aarg++ = *parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
larg = rarg;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* if all -l arguments following the previous */
|
|
|
3d5567 |
/* occurence had already appeared before the */
|
|
|
3d5567 |
/* previous argument, then the current */
|
|
|
3d4e32 |
/* occurence is (possibly) redundant. */
|
|
|
3d5567 |
|
|
|
3d5567 |
for (darg=&larg[1]; rarg && darg
|
|
|
3d5567 |
/* only test -l arguments */
|
|
|
3d5567 |
if ((darg[0][0] == '-') && (darg[0][1] == 'l')) {
|
|
|
3d5567 |
for (rarg=0, earg=aargv; !rarg && earg
|
|
|
3d5567 |
if (!strcmp(*earg,*darg))
|
|
|
3d5567 |
rarg = darg;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d4e32 |
/* any archive (.a) input arguments between the */
|
|
|
3d4e32 |
/* current occurrence and the previous one? */
|
|
|
3d4e32 |
for (darg=&larg[1]; rarg && darg
|
|
|
3d4e32 |
if ((dot = strrchr(*darg,'.')))
|
|
|
3d4e32 |
if (!(strcmp(dot,arsuffix)))
|
|
|
3d4e32 |
rarg = 0;
|
|
|
3d4e32 |
|
|
|
3d5567 |
/* final verdict: repeated -l argument? */
|
|
|
3d5567 |
if (rarg) {
|
|
|
3d5567 |
parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *parg++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* -L argument? */
|
|
|
3d5567 |
} else if ((parg[0][0] == '-') && (parg[0][1] == 'L')) {
|
|
|
3d5567 |
/* find a previous occurence of this -L argument */
|
|
|
3d5567 |
for (rarg=0, larg=aargv; !rarg && (larg
|
|
|
3d5567 |
if (!strcmp(*larg,*parg))
|
|
|
3d5567 |
rarg = larg;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* repeated -L argument? */
|
|
|
3d5567 |
if (rarg) {
|
|
|
3d5567 |
parg++;
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *parg++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
42187c |
/* dlsyms vtable object must only be added once (see below) */
|
|
|
42187c |
} else if (!strcmp(*parg,"-dlpreopen")) {
|
|
|
42187c |
parg++;
|
|
|
42187c |
|
|
|
3d5567 |
/* placeholder argument? */
|
|
|
3d5567 |
} else if (!strncmp(*parg,"-USLIBTOOL_PLACEHOLDER_",23)) {
|
|
|
3d5567 |
parg++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* all other arguments */
|
|
|
3d5567 |
} else {
|
|
|
3d5567 |
*aarg++ = *parg++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
42187c |
/* dlsyms vtable object inclusion */
|
|
|
42187c |
if (ectx->dlopenobj)
|
|
|
42187c |
*oarg++ = ectx->dlopenobj;
|
|
|
42187c |
|
|
|
ac4a1b |
/* export-symbols-regex, proper dlpreopen support */
|
|
|
ac4a1b |
if (dctx->cctx->libname)
|
|
|
752c02 |
if (slbt_exec_link_create_expsyms_archive(
|
|
|
752c02 |
dctx,ectx,lobjv,cnvlv) < 0)
|
|
|
752c02 |
return SLBT_NESTED_ERROR(dctx);
|
|
|
752c02 |
|
|
|
3d5567 |
/* program name, ccwrap */
|
|
|
3d5567 |
if ((ccwrap = (char *)dctx->cctx->ccwrap)) {
|
|
|
3d5567 |
base[1] = base[0];
|
|
|
3d5567 |
base[0] = ccwrap;
|
|
|
3d5567 |
base++;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
/* join object args */
|
|
|
3d5567 |
src = oargv;
|
|
|
3d5567 |
cap = oarg;
|
|
|
3d5567 |
dst = &base[1];
|
|
|
3d5567 |
|
|
|
3d5567 |
for (; src
|
|
|
3d5567 |
*dst++ = *src++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* join all other args */
|
|
|
3d5567 |
src = aargv;
|
|
|
3d5567 |
cap = aarg;
|
|
|
3d5567 |
|
|
|
3d5567 |
for (; src
|
|
|
3d5567 |
*dst++ = *src++;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* properly null-terminate argv, accounting for redundant -l arguments */
|
|
|
3d5567 |
*dst = 0;
|
|
|
3d5567 |
|
|
|
3d5567 |
/* output annotation */
|
|
|
3d5567 |
if (ectx->lout[0]) {
|
|
|
3d5567 |
ectx->lout[0] = &base[1] + (oarg - oargv) + (ectx->lout[0] - aargv);
|
|
|
3d5567 |
ectx->lout[1] = ectx->lout[0] + 1;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
3d5567 |
if (ectx->mout[0]) {
|
|
|
3d5567 |
ectx->mout[0] = &base[1] + (oarg - oargv) + (ectx->mout[0] - aargv);
|
|
|
3d5567 |
ectx->mout[1] = ectx->mout[0] + 1;
|
|
|
3d5567 |
}
|
|
|
3d5567 |
|
|
|
42187c |
/* dlsyms vtable object compilation */
|
|
|
42187c |
if (ectx->dlopenobj) {
|
|
|
42187c |
dlargv = (slbt_get_exec_ictx(ectx))->dlargv;
|
|
|
42187c |
*dlargv = base[0];
|
|
|
42187c |
|
|
|
42187c |
src = aargv;
|
|
|
42187c |
cap = aarg;
|
|
|
42187c |
dst = &dlargv[1];
|
|
|
42187c |
|
|
|
42187c |
/* compile argv, based on the linkcmd argv */
|
|
|
42187c |
for (; src
|
|
|
42187c |
if ((src[0][0] == '-') && (src[0][1] == '-')) {
|
|
|
42187c |
*dst++ = *src;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'L')) {
|
|
|
42187c |
(void)0;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'l')) {
|
|
|
42187c |
(void)0;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'o')) {
|
|
|
42187c |
src++;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'D')) {
|
|
|
42187c |
if (!src[0][2])
|
|
|
42187c |
src++;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'U')) {
|
|
|
42187c |
if (!src[0][2])
|
|
|
42187c |
src++;
|
|
|
42187c |
|
|
|
42187c |
} else if ((src[0][0] == '-') && (src[0][1] == 'W')) {
|
|
|
42187c |
if ((src[0][2] == 'a') && (src[0][3] == ','))
|
|
|
42187c |
*dst++ = *src;
|
|
|
42187c |
} else {
|
|
|
42187c |
*dst++ = *src;
|
|
|
42187c |
}
|
|
|
42187c |
|
|
|
42187c |
src++;
|
|
|
42187c |
}
|
|
|
42187c |
|
|
|
42187c |
*dst++ = dctx->cctx->settings.picswitch
|
|
|
42187c |
? dctx->cctx->settings.picswitch
|
|
|
42187c |
: *ectx->fpic;
|
|
|
42187c |
|
|
|
42187c |
*dst++ = "-c";
|
|
|
42187c |
*dst++ = ectx->dlopensrc;
|
|
|
42187c |
|
|
|
42187c |
*dst++ = "-o";
|
|
|
42187c |
*dst++ = ectx->dlopenobj;
|
|
|
42187c |
|
|
|
abb1bf |
*dst++ = 0;
|
|
|
abb1bf |
|
|
|
42187c |
/* nested compile step */
|
|
|
abb1bf |
program = ectx->program;
|
|
|
abb1bf |
ectx->argv = dlargv;
|
|
|
abb1bf |
ectx->program = dlargv[0];
|
|
|
42187c |
|
|
|
42187c |
if (!(dctx->cctx->drvflags & SLBT_DRIVER_SILENT))
|
|
|
42187c |
if (slbt_output_compile(ectx))
|
|
|
42187c |
return SLBT_NESTED_ERROR(dctx);
|
|
|
42187c |
|
|
|
42187c |
if ((slbt_spawn(ectx,true) < 0) && (ectx->pid < 0))
|
|
|
42187c |
return SLBT_SYSTEM_ERROR(dctx,0);
|
|
|
42187c |
|
|
|
42187c |
if (ectx->exitcode)
|
|
|
42187c |
return SLBT_CUSTOM_ERROR(
|
|
|
42187c |
dctx,
|
|
|
42187c |
SLBT_ERR_COMPILE_ERROR);
|
|
|
42187c |
|
|
|
abb1bf |
ectx->argv = base;
|
|
|
abb1bf |
ectx->program = program;
|
|
|
42187c |
}
|
|
|
42187c |
|
|
|
3d5567 |
/* all done */
|
|
|
3d5567 |
if (sargvbuf)
|
|
|
3d5567 |
free(sargvbuf);
|
|
|
3d5567 |
|
|
|
3d5567 |
return 0;
|
|
|
3d5567 |
}
|