Blame src/host/slbt_host_params.c

8f60d4
/*******************************************************************/
eac61a
/*  slibtool: a strong libtool implementation, written in C        */
49181b
/*  Copyright (C) 2016--2024  SysDeer Technologies, LLC            */
8f60d4
/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
8f60d4
/*******************************************************************/
8f60d4
deab68
#include <ctype.h>
8f60d4
#include <stdint.h>
8f60d4
#include <string.h>
8f60d4
#include <unistd.h>
8f60d4
#include <stdlib.h>
8f60d4
#include <stdbool.h>
8f60d4
#include <fcntl.h>
8f60d4
#include <spawn.h>
8f60d4
#include <sys/wait.h>
8f60d4
8f60d4
#include <slibtool/slibtool.h>
8f60d4
#include "slibtool_driver_impl.h"
c8ac94
#include "slibtool_spawn_impl.h"
8f60d4
#include "slibtool_errinfo_impl.h"
4b56de
#include "slibtool_visibility_impl.h"
8f60d4
#include "slibtool_ar_impl.h"
8f60d4
8f60d4
8f60d4
/* annotation strings */
8f60d4
static const char cfgexplicit[] = "command-line argument";
8f60d4
static const char cfghost[]     = "derived from <host>";
deab68
static const char cfgar[]       = "derived from <ar>";
55e42f
static const char cfgranlib[]   = "derived from <ranlib>";
8f60d4
static const char cfgtarget[]   = "derived from <target>";
8f60d4
static const char cfgcompiler[] = "derived from <compiler>";
8f60d4
static const char cfgnmachine[] = "native (cached in ccenv/host.mk)";
8f60d4
static const char cfgxmachine[] = "foreign (derived from -dumpmachine)";
8f60d4
static const char cfgnative[]   = "native";
8f60d4
8f60d4
static void slbt_get_host_quad(
8f60d4
	char *	hostbuf,
8f60d4
	char ** hostquad)
8f60d4
{
8f60d4
	char *	mark;
8f60d4
	char *	ch;
8f60d4
	int	i;
8f60d4
8f60d4
	for (i=0, ch=hostbuf, mark=hostbuf; *ch && i<4; ch++) {
8f60d4
		if (*ch == '-') {
8f60d4
			*ch = 0;
8f60d4
			hostquad[i++] = mark;
8f60d4
			mark = &ch[1];
8f60d4
		}
8f60d4
	}
8f60d4
8f60d4
	if (i<4)
8f60d4
		hostquad[i] = mark;
8f60d4
8f60d4
	if (i==3) {
8f60d4
		hostquad[1] = hostquad[2];
8f60d4
		hostquad[2] = hostquad[3];
8f60d4
		hostquad[3] = 0;
8f60d4
	}
8f60d4
}
8f60d4
8f60d4
8f60d4
static void slbt_spawn_ar(char ** argv, int * ecode)
8f60d4
{
8f60d4
	int	estatus;
8f60d4
	pid_t	pid;
8f60d4
8f60d4
	*ecode = 127;
8f60d4
c8ac94
	if ((pid = slbt_fork()) < 0) {
8f60d4
		return;
8f60d4
8f60d4
	} else if (pid == 0) {
8f60d4
		execvp(argv[0],argv);
8f60d4
		_exit(errno);
8f60d4
8f60d4
	} else {
8f60d4
		waitpid(pid,&estatus,0);
8f60d4
8f60d4
		if (WIFEXITED(estatus))
8f60d4
			*ecode = WEXITSTATUS(estatus);
8f60d4
	}
8f60d4
}
8f60d4
8f60d4
4b56de
slbt_hidden int slbt_init_host_params(
8f60d4
	const struct slbt_driver_ctx *	dctx,
8f60d4
	const struct slbt_common_ctx *	cctx,
8f60d4
	struct slbt_host_strs *		drvhost,
8f60d4
	struct slbt_host_params *	host,
8f60d4
	struct slbt_host_params *	cfgmeta,
771899
	const char *                    cfgmeta_host,
8f60d4
	const char *                    cfgmeta_ar,
b4058c
	const char *                    cfgmeta_as,
b5e104
	const char *                    cfgmeta_nm,
fc8ee9
	const char *                    cfgmeta_ranlib,
fc8ee9
	const char *                    cfgmeta_dlltool)
8f60d4
{
8f60d4
	int		fdcwd;
8f60d4
	int		arprobe;
8f60d4
	int		arfd;
8f60d4
	int		ecode;
deab68
	int             cint;
8f60d4
	size_t		toollen;
8f60d4
	char *		dash;
8f60d4
	char *		base;
8f60d4
	char *		mark;
8f60d4
	const char *	machine;
8f60d4
	bool		ftarget       = false;
8f60d4
	bool		fhost         = false;
8f60d4
	bool		fcompiler     = false;
8f60d4
	bool		fnative       = false;
deab68
	bool		fnativear     = false;
8f60d4
	bool		fdumpmachine  = false;
8f60d4
	char		buf        [256];
8f60d4
	char		hostbuf    [256];
8f60d4
	char		machinebuf [256];
8f60d4
	char *		hostquad   [4];
8f60d4
	char *		machinequad[4];
8f60d4
	char *		arprobeargv[4];
8f60d4
	char		archivename[] = "/tmp/slibtool.ar.probe.XXXXXXXXXXXXXXXX";
8f60d4
8f60d4
	/* base */
8f60d4
	if ((base = strrchr(cctx->cargv[0],'/')))
8f60d4
		base++;
8f60d4
	else
8f60d4
		base = cctx->cargv[0];
8f60d4
8f60d4
	fdumpmachine  = (cctx->mode == SLBT_MODE_COMPILE)
8f60d4
			|| (cctx->mode == SLBT_MODE_LINK)
8f60d4
			|| (cctx->mode == SLBT_MODE_INFO);
8f60d4
8f60d4
	fdumpmachine &= (!strcmp(base,"xgcc")
8f60d4
			|| !strcmp(base,"xg++"));
8f60d4
8f60d4
	/* support the portbld <--> unknown synonym */
8f60d4
	if (!(drvhost->machine = strdup(SLBT_MACHINE)))
8f60d4
		return -1;
8f60d4
8f60d4
	if ((mark = strstr(drvhost->machine,"-portbld-")))
8f60d4
		memcpy(mark,"-unknown",8);
8f60d4
8f60d4
	/* host */
8f60d4
	if (host->host) {
771899
		cfgmeta->host = cfgmeta_host ? cfgmeta_host : cfgexplicit;
8f60d4
		fhost         = true;
8f60d4
8f60d4
	} else if (cctx->target) {
8f60d4
		host->host    = cctx->target;
8f60d4
		cfgmeta->host = cfgtarget;
8f60d4
		ftarget       = true;
8f60d4
819223
	} else if (!strcmp(base,"slibtool-ar")) {
819223
		host->host    = drvhost->machine;
819223
		cfgmeta->host = cfgnmachine;
819223
		fnative       = true;
819223
8f60d4
	} else if (strrchr(base,'-')) {
8f60d4
		if (!(drvhost->host = strdup(cctx->cargv[0])))
8f60d4
			return -1;
8f60d4
8f60d4
		dash          = strrchr(drvhost->host,'-');
8f60d4
		*dash         = 0;
8f60d4
		host->host    = drvhost->host;
8f60d4
		cfgmeta->host = cfgcompiler;
8f60d4
		fcompiler     = true;
8f60d4
8f60d4
	} else if (!fdumpmachine) {
8f60d4
		host->host    = drvhost->machine;
8f60d4
		cfgmeta->host = cfgnmachine;
8f60d4
8dc63d
	} else if (slbt_util_dump_machine(cctx->cargv[0],buf,sizeof(buf)) < 0) {
8f60d4
		if (dctx)
8f60d4
			slbt_dprintf(
8f60d4
				slbt_driver_fderr(dctx),
8f60d4
				"%s: could not determine host "
8f60d4
				"via -dumpmachine\n",
8f60d4
				dctx->program);
8f60d4
		return -1;
8f60d4
8f60d4
	} else {
8f60d4
		if (!(drvhost->host = strdup(buf)))
8f60d4
			return -1;
8f60d4
8f60d4
		host->host    = drvhost->host;
8f60d4
		fcompiler     = true;
8f60d4
		fnative       = !strcmp(host->host,drvhost->machine);
8f60d4
		cfgmeta->host = fnative ? cfgnmachine : cfgxmachine;
8f60d4
8f60d4
		if (!fnative) {
8f60d4
			strcpy(hostbuf,host->host);
8f60d4
			strcpy(machinebuf,drvhost->machine);
8f60d4
8f60d4
			slbt_get_host_quad(hostbuf,hostquad);
8f60d4
			slbt_get_host_quad(machinebuf,machinequad);
8f60d4
8f60d4
			if (hostquad[2] && machinequad[2])
8f60d4
				fnative = !strcmp(hostquad[0],machinequad[0])
8f60d4
					&& !strcmp(hostquad[1],machinequad[1])
8f60d4
					&& !strcmp(hostquad[2],machinequad[2]);
8f60d4
		}
8f60d4
	}
8f60d4
8f60d4
	/* flavor */
8f60d4
	if (host->flavor) {
8f60d4
		cfgmeta->flavor = cfgexplicit;
8f60d4
	} else {
8f60d4
		if (fhost) {
8f60d4
			machine         = host->host;
8f60d4
			cfgmeta->flavor = cfghost;
8f60d4
		} else if (ftarget) {
8f60d4
			machine         = cctx->target;
8f60d4
			cfgmeta->flavor = cfgtarget;
8f60d4
		} else if (fcompiler) {
8f60d4
			machine         = drvhost->host;
8f60d4
			cfgmeta->flavor = cfgcompiler;
8f60d4
		} else {
8f60d4
			machine         = drvhost->machine;
8f60d4
			cfgmeta->flavor = cfgnmachine;
8f60d4
		}
8f60d4
8f60d4
		dash = strrchr(machine,'-');
8f60d4
		cfgmeta->flavor = cfghost;
8f60d4
8f60d4
		if ((dash && !strcmp(dash,"-bsd")) || strstr(machine,"-bsd-"))
8f60d4
			host->flavor = "bsd";
8f60d4
		else if ((dash && !strcmp(dash,"-cygwin")) || strstr(machine,"-cygwin-"))
8f60d4
			host->flavor = "cygwin";
a8b6dd
		else if ((dash && !strcmp(dash,"-msys")) || strstr(machine,"-msys-"))
a8b6dd
			host->flavor = "msys";
8f60d4
		else if ((dash && !strcmp(dash,"-darwin")) || strstr(machine,"-darwin"))
8f60d4
			host->flavor = "darwin";
8f60d4
		else if ((dash && !strcmp(dash,"-linux")) || strstr(machine,"-linux-"))
8f60d4
			host->flavor = "linux";
8f60d4
		else if ((dash && !strcmp(dash,"-midipix")) || strstr(machine,"-midipix-"))
8f60d4
			host->flavor = "midipix";
8f60d4
		else if ((dash && !strcmp(dash,"-mingw")) || strstr(machine,"-mingw-"))
8f60d4
			host->flavor = "mingw";
8f60d4
		else if ((dash && !strcmp(dash,"-mingw32")) || strstr(machine,"-mingw32-"))
8f60d4
			host->flavor = "mingw";
8f60d4
		else if ((dash && !strcmp(dash,"-mingw64")) || strstr(machine,"-mingw64-"))
8f60d4
			host->flavor = "mingw";
8f60d4
		else if ((dash && !strcmp(dash,"-windows")) || strstr(machine,"-windows-"))
8f60d4
			host->flavor = "mingw";
8f60d4
		else {
8f60d4
			host->flavor   = "default";
8f60d4
			cfgmeta->flavor = "fallback, unverified";
8f60d4
		}
8f60d4
8f60d4
		if (fcompiler && !fnative)
8f60d4
			if ((mark = strstr(drvhost->machine,host->flavor)))
8f60d4
				if (mark > drvhost->machine)
8f60d4
					fnative = (*--mark == '-');
8f60d4
	}
8f60d4
8f60d4
	/* toollen */
8f60d4
	toollen =  fnative ? 0 : strlen(host->host);
8f60d4
	toollen += strlen("-utility-name");
2f0fd7
	toollen += host->ranlib ? strlen(host->ranlib) : 0;
8f60d4
8f60d4
	/* ar */
8f60d4
	if (host->ar)
8f60d4
		cfgmeta->ar = cfgmeta_ar ? cfgmeta_ar : cfgexplicit;
8f60d4
	else {
8f60d4
		if (!(drvhost->ar = calloc(1,toollen)))
8f60d4
			return -1;
8f60d4
8f60d4
		if (fnative) {
8f60d4
			strcpy(drvhost->ar,"ar");
8f60d4
			cfgmeta->ar = cfgnative;
8f60d4
			arprobe = 0;
8f60d4
		} else if (cctx->mode == SLBT_MODE_LINK) {
8f60d4
			arprobe = true;
8f60d4
		} else if (cctx->mode == SLBT_MODE_INFO) {
8f60d4
			arprobe = true;
8f60d4
		} else {
8f60d4
			arprobe = false;
8f60d4
		}
8f60d4
8f60d4
		/* arprobe */
8f60d4
		if (arprobe) {
8f60d4
			sprintf(drvhost->ar,"%s-ar",host->host);
8f60d4
			cfgmeta->ar = cfghost;
8f60d4
			ecode       = 127;
8f60d4
8f60d4
			/* empty archive */
8f60d4
			if ((arfd = mkstemp(archivename)) >= 0) {
8f60d4
				slbt_dprintf(arfd,"!<arch>\n");
8f60d4
8f60d4
				arprobeargv[0] = drvhost->ar;
8f60d4
				arprobeargv[1] = "-t";
8f60d4
				arprobeargv[2] = archivename;
8f60d4
				arprobeargv[3] = 0;
8f60d4
8f60d4
				/* <target>-ar */
8f60d4
				slbt_spawn_ar(
8f60d4
					arprobeargv,
8f60d4
					&ecode);
8f60d4
			}
8f60d4
8f60d4
			/* <target>-<compiler>-ar */
8f60d4
			if (ecode && !strchr(base,'-')) {
8f60d4
				sprintf(drvhost->ar,"%s-%s-ar",host->host,base);
8f60d4
8f60d4
				slbt_spawn_ar(
8f60d4
					arprobeargv,
8f60d4
					&ecode);
8f60d4
			}
8f60d4
8f60d4
			/* <compiler>-ar */
8f60d4
			if (ecode && !strchr(base,'-')) {
8f60d4
				sprintf(drvhost->ar,"%s-ar",base);
8f60d4
8f60d4
				slbt_spawn_ar(
8f60d4
					arprobeargv,
8f60d4
					&ecode);
8f60d4
			}
8f60d4
8f60d4
			/* if target is the native target, fallback to native ar */
8f60d4
			if (ecode && !strcmp(host->host,SLBT_MACHINE)) {
8f60d4
				strcpy(drvhost->ar,"ar");
8f60d4
				cfgmeta->ar = cfgnative;
637ac5
				fnative     = true;
8f60d4
			}
8f60d4
8f60d4
			/* fdcwd */
8f60d4
			fdcwd = slbt_driver_fdcwd(dctx);
8f60d4
8f60d4
			/* clean up */
8f60d4
			if (arfd >= 0) {
8f60d4
				unlinkat(fdcwd,archivename,0);
8f60d4
				close(arfd);
8f60d4
			}
8f60d4
		}
8f60d4
8f60d4
		host->ar = drvhost->ar;
8f60d4
	}
8f60d4
deab68
	if (!fnative && !strncmp(host->ar,"ar",2)) {
deab68
		if (!host->ar[2] || isspace((cint = host->ar[2]))) {
deab68
			fnative   = true;
deab68
			fnativear = true;
deab68
		}
deab68
	}
deab68
6bc170
	/* as */
6bc170
	if (host->as)
b4058c
		cfgmeta->as = cfgmeta_as ? cfgmeta_as : cfgexplicit;
6bc170
	else {
6bc170
		if (!(drvhost->as = calloc(1,toollen)))
6bc170
			return -1;
6bc170
6bc170
		if (fnative) {
6bc170
			strcpy(drvhost->as,"as");
deab68
			cfgmeta->as = fnativear ? cfgar : cfgnative;
6bc170
		} else {
6bc170
			sprintf(drvhost->as,"%s-as",host->host);
6bc170
			cfgmeta->as = cfghost;
6bc170
		}
6bc170
6aa833
		if (host->ranlib && (mark = strrchr(host->ranlib,'/'))) {
6aa833
			if (strcmp(++mark,"ranlib"))
6aa833
				if ((mark = strrchr(mark,'-')))
6aa833
					if (strcmp(++mark,"ranlib"))
6aa833
						mark = 0;
6aa833
6aa833
			if (mark) {
6aa833
				strcpy(drvhost->as,host->ranlib);
6aa833
				strcpy(&drvhost->as[mark-host->ranlib],"as");
55e42f
				cfgmeta->as = cfgranlib;
6aa833
			}
6aa833
		}
6aa833
6bc170
		host->as = drvhost->as;
6bc170
	}
6bc170
b5e104
	/* nm */
b5e104
	if (host->nm)
b5e104
		cfgmeta->nm = cfgmeta_nm ? cfgmeta_nm : cfgexplicit;
b5e104
	else {
b5e104
		if (!(drvhost->nm = calloc(1,toollen)))
b5e104
			return -1;
b5e104
b5e104
		if (fnative) {
b5e104
			strcpy(drvhost->nm,"nm");
deab68
			cfgmeta->nm = fnativear ? cfgar : cfgnative;
b5e104
		} else {
b5e104
			sprintf(drvhost->nm,"%s-nm",host->host);
b5e104
			cfgmeta->nm = cfghost;
b5e104
		}
b5e104
b5e104
		host->nm = drvhost->nm;
b5e104
	}
b5e104
8f60d4
	/* ranlib */
8f60d4
	if (host->ranlib)
8f60d4
		cfgmeta->ranlib = cfgmeta_ranlib ? cfgmeta_ranlib : cfgexplicit;
8f60d4
	else {
8f60d4
		if (!(drvhost->ranlib = calloc(1,toollen)))
8f60d4
			return -1;
8f60d4
8f60d4
		if (fnative) {
8f60d4
			strcpy(drvhost->ranlib,"ranlib");
deab68
			cfgmeta->ranlib = fnativear ? cfgar : cfgnative;
8f60d4
		} else {
8f60d4
			sprintf(drvhost->ranlib,"%s-ranlib",host->host);
8f60d4
			cfgmeta->ranlib = cfghost;
8f60d4
		}
8f60d4
8f60d4
		host->ranlib = drvhost->ranlib;
8f60d4
	}
8f60d4
8f60d4
	/* windres */
8f60d4
	if (host->windres)
8f60d4
		cfgmeta->windres = cfgexplicit;
8f60d4
8f60d4
	else if (strcmp(host->flavor,"cygwin")
a8b6dd
			&& strcmp(host->flavor,"msys")
8f60d4
			&& strcmp(host->flavor,"midipix")
8f60d4
			&& strcmp(host->flavor,"mingw")) {
8f60d4
		host->windres    = "";
8f60d4
		cfgmeta->windres = "not applicable";
8f60d4
8f60d4
	} else {
8f60d4
		if (!(drvhost->windres = calloc(1,toollen)))
8f60d4
			return -1;
8f60d4
8f60d4
		if (fnative) {
8f60d4
			strcpy(drvhost->windres,"windres");
deab68
			cfgmeta->windres = fnativear ? cfgar : cfgnative;
8f60d4
		} else {
8f60d4
			sprintf(drvhost->windres,"%s-windres",host->host);
8f60d4
			cfgmeta->windres = cfghost;
8f60d4
		}
8f60d4
2f0fd7
		if ((mark = strrchr(host->ranlib,'/'))) {
2f0fd7
			if (strcmp(++mark,"ranlib"))
2f0fd7
				if ((mark = strrchr(mark,'-')))
2f0fd7
					if (strcmp(++mark,"ranlib"))
2f0fd7
						mark = 0;
2f0fd7
2f0fd7
			if (mark) {
2f0fd7
				strcpy(drvhost->windres,host->ranlib);
2f0fd7
				strcpy(&drvhost->windres[mark-host->ranlib],"windres");
55e42f
				cfgmeta->windres = cfgranlib;
2f0fd7
			}
2f0fd7
		}
2f0fd7
8f60d4
		host->windres = drvhost->windres;
8f60d4
	}
8f60d4
8f60d4
	/* dlltool */
8f60d4
	if (host->dlltool)
fc8ee9
		cfgmeta->dlltool = cfgmeta_dlltool ? cfgmeta_dlltool : cfgexplicit;
8f60d4
8f60d4
	else if (strcmp(host->flavor,"cygwin")
a8b6dd
			&& strcmp(host->flavor,"msys")
8f60d4
			&& strcmp(host->flavor,"midipix")
8f60d4
			&& strcmp(host->flavor,"mingw")) {
8f60d4
		host->dlltool = "";
8f60d4
		cfgmeta->dlltool = "not applicable";
8f60d4
8f60d4
	} else {
8f60d4
		if (!(drvhost->dlltool = calloc(1,toollen)))
8f60d4
			return -1;
8f60d4
8f60d4
		if (fnative) {
8f60d4
			strcpy(drvhost->dlltool,"dlltool");
deab68
			cfgmeta->dlltool = fnativear ? cfgar : cfgnative;
8f60d4
		} else {
8f60d4
			sprintf(drvhost->dlltool,"%s-dlltool",host->host);
8f60d4
			cfgmeta->dlltool = cfghost;
8f60d4
		}
8f60d4
2f0fd7
		if ((mark = strrchr(host->ranlib,'/'))) {
2f0fd7
			if (strcmp(++mark,"ranlib"))
2f0fd7
				if ((mark = strrchr(mark,'-')))
2f0fd7
					if (strcmp(++mark,"ranlib"))
2f0fd7
						mark = 0;
2f0fd7
2f0fd7
			if (mark) {
2f0fd7
				strcpy(drvhost->dlltool,host->ranlib);
2f0fd7
				strcpy(&drvhost->dlltool[mark-host->ranlib],"dlltool");
55e42f
				cfgmeta->dlltool = cfgranlib;
2f0fd7
			}
2f0fd7
		}
2f0fd7
8f60d4
		host->dlltool = drvhost->dlltool;
8f60d4
	}
8f60d4
8f60d4
	/* mdso */
8f60d4
	if (host->mdso)
8f60d4
		cfgmeta->mdso = cfgexplicit;
8f60d4
8f60d4
	else if (strcmp(host->flavor,"cygwin")
a8b6dd
			&& strcmp(host->flavor,"msys")
8f60d4
			&& strcmp(host->flavor,"midipix")
8f60d4
			&& strcmp(host->flavor,"mingw")) {
8f60d4
		host->mdso = "";
8f60d4
		cfgmeta->mdso = "not applicable";
8f60d4
8f60d4
	} else {
8f60d4
		if (!(drvhost->mdso = calloc(1,toollen)))
8f60d4
			return -1;
8f60d4
8f60d4
		if (fnative) {
8f60d4
			strcpy(drvhost->mdso,"mdso");
deab68
			cfgmeta->mdso = fnativear ? cfgar : cfgnative;
8f60d4
		} else {
8f60d4
			sprintf(drvhost->mdso,"%s-mdso",host->host);
8f60d4
			cfgmeta->mdso = cfghost;
8f60d4
		}
8f60d4
8f60d4
		host->mdso = drvhost->mdso;
8f60d4
	}
8f60d4
8f60d4
	return 0;
8f60d4
}
8f60d4
5ddd2a
static void slbt_free_host_tool_argv(char ** argv)
5ddd2a
{
5ddd2a
	char ** parg;
5ddd2a
5ddd2a
	if (!argv)
5ddd2a
		return;
5ddd2a
5ddd2a
	for (parg=argv; *parg; parg++)
5ddd2a
		free(*parg);
5ddd2a
5ddd2a
	free(argv);
5ddd2a
}
8f60d4
4b56de
slbt_hidden void slbt_free_host_params(struct slbt_host_strs * host)
8f60d4
{
8f60d4
	if (host->machine)
8f60d4
		free(host->machine);
8f60d4
8f60d4
	if (host->host)
8f60d4
		free(host->host);
8f60d4
8f60d4
	if (host->flavor)
8f60d4
		free(host->flavor);
8f60d4
8f60d4
	if (host->ar)
8f60d4
		free(host->ar);
8f60d4
6bc170
	if (host->as)
6bc170
		free(host->as);
6bc170
b5e104
	if (host->nm)
b5e104
		free(host->nm);
b5e104
8f60d4
	if (host->ranlib)
8f60d4
		free(host->ranlib);
8f60d4
8f60d4
	if (host->windres)
8f60d4
		free(host->windres);
8f60d4
8f60d4
	if (host->dlltool)
8f60d4
		free(host->dlltool);
8f60d4
8f60d4
	if (host->mdso)
8f60d4
		free(host->mdso);
8f60d4
5ddd2a
	slbt_free_host_tool_argv(host->ar_argv);
5ddd2a
	slbt_free_host_tool_argv(host->as_argv);
b5e104
	slbt_free_host_tool_argv(host->nm_argv);
5ddd2a
	slbt_free_host_tool_argv(host->ranlib_argv);
5ddd2a
	slbt_free_host_tool_argv(host->windres_argv);
5ddd2a
	slbt_free_host_tool_argv(host->dlltool_argv);
5ddd2a
	slbt_free_host_tool_argv(host->mdso_argv);
5ddd2a
8f60d4
	memset(host,0,sizeof(*host));
8f60d4
}
8f60d4
8f60d4
4373b8
void slbt_host_reset_althost(const struct slbt_driver_ctx * ctx)
8f60d4
{
8f60d4
	struct slbt_driver_ctx_alloc *	ictx;
8f60d4
	uintptr_t			addr;
8f60d4
8f60d4
	addr = (uintptr_t)ctx - offsetof(struct slbt_driver_ctx_alloc,ctx);
8f60d4
	addr = addr - offsetof(struct slbt_driver_ctx_impl,ctx);
8f60d4
	ictx = (struct slbt_driver_ctx_alloc *)addr;
8f60d4
8f60d4
	slbt_free_host_params(&ictx->ctx.ahost);
8f60d4
}
8f60d4
4373b8
int  slbt_host_set_althost(
8f60d4
	const struct slbt_driver_ctx *	ctx,
8f60d4
	const char *			host,
8f60d4
	const char *			flavor)
8f60d4
{
8f60d4
	struct slbt_driver_ctx_alloc *	ictx;
8f60d4
	uintptr_t			addr;
8f60d4
8f60d4
	addr = (uintptr_t)ctx - offsetof(struct slbt_driver_ctx_alloc,ctx);
8f60d4
	addr = addr - offsetof(struct slbt_driver_ctx_impl,ctx);
8f60d4
	ictx = (struct slbt_driver_ctx_alloc *)addr;
8f60d4
	slbt_free_host_params(&ictx->ctx.ahost);
8f60d4
8f60d4
	if (!(ictx->ctx.ahost.host = strdup(host)))
8f60d4
		return SLBT_SYSTEM_ERROR(ctx,0);
8f60d4
8f60d4
	if (!(ictx->ctx.ahost.flavor = strdup(flavor))) {
8f60d4
		slbt_free_host_params(&ictx->ctx.ahost);
8f60d4
		return SLBT_SYSTEM_ERROR(ctx,0);
8f60d4
	}
8f60d4
8f60d4
	ictx->ctx.cctx.ahost.host   = ictx->ctx.ahost.host;
8f60d4
	ictx->ctx.cctx.ahost.flavor = ictx->ctx.ahost.flavor;
8f60d4
8f60d4
	if (slbt_init_host_params(
8f60d4
			0,
8f60d4
			ctx->cctx,
8f60d4
			&ictx->ctx.ahost,
8f60d4
			&ictx->ctx.cctx.ahost,
8f60d4
			&ictx->ctx.cctx.acfgmeta,
b5e104
			0,0,0,0,0,0)) {
8f60d4
		slbt_free_host_params(&ictx->ctx.ahost);
8f60d4
		return SLBT_CUSTOM_ERROR(ctx,SLBT_ERR_HOST_INIT);
8f60d4
	}
8f60d4
8f60d4
	slbt_init_flavor_settings(
8f60d4
		&ictx->ctx.cctx,
8f60d4
		&ictx->ctx.cctx.ahost,
8f60d4
		&ictx->ctx.cctx.asettings);
8f60d4
8f60d4
	if (slbt_init_ldrpath(
8f60d4
			&ictx->ctx.cctx,
8f60d4
			&ictx->ctx.cctx.ahost)) {
8f60d4
		slbt_free_host_params(&ictx->ctx.ahost);
8f60d4
		return SLBT_CUSTOM_ERROR(ctx,SLBT_ERR_LDRPATH_INIT);
8f60d4
	}
8f60d4
8f60d4
	return 0;
8f60d4
}