Adding upstream version 2.38.1.upstream/2.38.1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 911 insertions, 0 deletions

diff --git a/sys-utils/lscpu-cputype.c b/sys-utils/lscpu-cputype.c
new file mode 100644
index 0000000..31f4009
--- /dev/null
+++ b/sys-utils/lscpu-cputype.c
@@ -0,0 +1,911 @@
+
+#include <sys/utsname.h>
+#include <sys/personality.h>
+
+#if defined(HAVE_LIBRTAS)
+# include <librtas.h>
+#endif
+
+#include "lscpu.h"
+
+#include "fileutils.h"
+#include "c_strtod.h"
+
+/* Lookup a pattern and get the value for format  "<pattern> : <key>"
+ */
+int lookup(char *line, char *pattern, char **value)
+{
+	char *p, *v;
+	int len = strlen(pattern);
+
+	/* don't re-fill already found tags, first one wins */
+	if (!*line || *value)
+		return 0;
+	/* pattern */
+	if (strncmp(line, pattern, len))
+		return 0;
+	/* white spaces */
+	for (p = line + len; isspace(*p); p++);
+
+	/* separator */
+	if (*p != ':')
+		return 0;
+	/* white spaces */
+	for (++p; isspace(*p); p++);
+
+	/* value */
+	if (!*p)
+		return 0;
+	v = p;
+
+	/* end of value */
+	len = strlen(line) - 1;
+	for (p = line + len; isspace(*(p-1)); p--);
+	*p = '\0';
+
+	*value = xstrdup(v);
+	return 1;
+}
+
+struct lscpu_cputype *lscpu_new_cputype(void)
+{
+	struct lscpu_cputype *ct;
+
+	ct = xcalloc(1, sizeof(struct lscpu_cputype));
+	ct->refcount = 1;
+	ct->dispatching = -1;
+	ct->freqboost = -1;
+
+	DBG(TYPE, ul_debugobj(ct, "alloc"));
+	return ct;
+}
+
+void lscpu_ref_cputype(struct lscpu_cputype *ct)
+{
+	if (ct) {
+		ct->refcount++;
+		DBG(TYPE, ul_debugobj(ct, ">>> ref %d", ct->refcount));
+	}
+}
+
+void lscpu_unref_cputype(struct lscpu_cputype *ct)
+{
+	if (!ct)
+		return;
+
+	/*DBG(TYPE, ul_debugobj(ct, ">>> unref %d", ct->refcount - 1));*/
+
+	if (--ct->refcount <= 0) {
+		DBG(TYPE, ul_debugobj(ct, "  freeing %s/%s", ct->vendor, ct->model));
+		lscpu_cputype_free_topology(ct);
+		free(ct->vendor);
+		free(ct->bios_vendor);
+		free(ct->machinetype);	/* s390 */
+		free(ct->family);
+		free(ct->model);
+		free(ct->modelname);
+		free(ct->bios_modelname);
+		free(ct->bios_family);
+		free(ct->revision);	/* alternative for model (ppc) */
+		free(ct->stepping);
+		free(ct->bogomips);
+		free(ct->flags);
+		free(ct->mtid);		/* maximum thread id (s390) */
+		free(ct->addrsz);	/* address sizes */
+		free(ct->static_mhz);
+		free(ct->dynamic_mhz);
+		free(ct);
+	}
+}
+
+struct lscpu_cputype *lscpu_cputype_get_default(struct lscpu_cxt *cxt)
+{
+	return cxt->cputypes ? cxt->cputypes[0] : NULL;
+}
+
+#define match(astr, bstr) \
+		((!astr && !bstr) || (astr && bstr && strcmp(astr, bstr) == 0))
+
+struct lscpu_cputype *lscpu_add_cputype(struct lscpu_cxt *cxt, struct lscpu_cputype *ct)
+{
+	DBG(TYPE, ul_debugobj(ct, "add new"));
+	cxt->cputypes = xrealloc(cxt->cputypes, (cxt->ncputypes + 1)
+				* sizeof(struct lscpu_cputype *));
+	cxt->cputypes[cxt->ncputypes] = ct;
+	cxt->ncputypes++;
+	lscpu_ref_cputype(ct);
+	return ct;
+}
+
+static void fprintf_cputypes(FILE *f, struct lscpu_cxt *cxt)
+{
+	size_t i;
+
+	for (i = 0; i <	cxt->ncputypes; i++) {
+		struct lscpu_cputype *ct = cxt->cputypes[i];
+
+		fprintf(f, "\n vendor: %s\n", ct->vendor);
+		fprintf(f, " machinetype: %s\n", ct->machinetype);
+		fprintf(f, " family: %s\n", ct->family);
+		fprintf(f, " model: %s\n", ct->model);
+		fprintf(f, " modelname: %s\n", ct->modelname);
+		fprintf(f, " revision: %s\n", ct->revision);
+		fprintf(f, " stepping: %s\n", ct->stepping);
+		fprintf(f, " mtid: %s\n", ct->mtid);
+		fprintf(f, " addrsz: %s\n", ct->addrsz);
+	}
+}
+
+enum {
+	CPUINFO_LINE_UNKNOWN,	/* unknown line */
+	CPUINFO_LINE_CPUTYPE,	/* line found in type_patterns[] */
+	CPUINFO_LINE_CPU,	/* line found in cpu_patterns[] */
+	CPUINFO_LINE_CACHE	/* line found in cache_pattern[] */
+};
+
+/* Describes /proc/cpuinfo fields */
+struct cpuinfo_pattern {
+	int id;			/* field ID */
+	int domain;		/* CPUINFO_LINE_* */
+	const char *pattern;	/* field name as used in /proc/cpuinfo */
+	size_t	offset;		/* offset in lscpu_cputype or lscpu_cpu struct */
+};
+
+/* field identifiers (field name may be different on different archs) */
+enum {
+	PAT_ADDRESS_SIZES,
+	PAT_BOGOMIPS,		/* global */
+	PAT_BOGOMIPS_CPU,	/* per-cpu */
+	PAT_CPU,
+	PAT_FAMILY,
+	PAT_FEATURES,
+	PAT_FLAGS,
+	PAT_IMPLEMENTER,
+	PAT_MAX_THREAD_ID,
+	PAT_MHZ,
+	PAT_MHZ_DYNAMIC,
+	PAT_MHZ_STATIC,
+	PAT_MODEL,
+	PAT_MODEL_NAME,
+	PAT_PART,
+	PAT_PROCESSOR,
+	PAT_REVISION,
+	PAT_STEPPING,
+	PAT_TYPE,
+	PAT_VARIANT,
+	PAT_VENDOR,
+	PAT_CACHE
+};
+
+/*
+ * /proc/cpuinfo to lscpu_cputype conversion
+ */
+#define DEF_PAT_CPUTYPE(_str, _id, _member) \
+	{ \
+		.id = (_id), \
+		.domain = CPUINFO_LINE_CPUTYPE, \
+		.pattern = (_str), \
+		.offset = offsetof(struct lscpu_cputype, _member), \
+	}
+
+static const struct cpuinfo_pattern type_patterns[] =
+{
+	/* Sort by fields name! */
+	DEF_PAT_CPUTYPE( "ASEs implemented",	PAT_FLAGS,	flags),		/* mips */
+	DEF_PAT_CPUTYPE( "BogoMIPS",		PAT_BOGOMIPS,	bogomips),	/* aarch64 */
+	DEF_PAT_CPUTYPE( "CPU implementer",	PAT_IMPLEMENTER,vendor),	/* ARM and aarch64 */
+	DEF_PAT_CPUTYPE( "CPU part",		PAT_PART,	model),		/* ARM and aarch64 */
+	DEF_PAT_CPUTYPE( "CPU revision",	PAT_REVISION,	revision),	/* aarch64 */
+	DEF_PAT_CPUTYPE( "CPU variant",		PAT_VARIANT,	stepping),	/* aarch64 */
+	DEF_PAT_CPUTYPE( "Features",		PAT_FEATURES,	flags),		/* aarch64 */
+	DEF_PAT_CPUTYPE( "address sizes",	PAT_ADDRESS_SIZES,	addrsz),/* x86 */
+	DEF_PAT_CPUTYPE( "bogomips per cpu",	PAT_BOGOMIPS,	bogomips),	/* s390 */
+	DEF_PAT_CPUTYPE( "cpu",			PAT_CPU,	modelname),	/* ppc, sparc */
+	DEF_PAT_CPUTYPE( "cpu family",		PAT_FAMILY,	family),
+	DEF_PAT_CPUTYPE( "cpu model",		PAT_MODEL,	model),		/* mips */
+	DEF_PAT_CPUTYPE( "family",		PAT_FAMILY,	family),
+	DEF_PAT_CPUTYPE( "features",		PAT_FEATURES,	flags),		/* s390 */
+	DEF_PAT_CPUTYPE( "flags",		PAT_FLAGS,	flags),		/* x86 */
+	DEF_PAT_CPUTYPE( "max thread id",	PAT_MAX_THREAD_ID, mtid),	/* s390 */
+	DEF_PAT_CPUTYPE( "model",		PAT_MODEL,	model),
+	DEF_PAT_CPUTYPE( "model name",		PAT_MODEL_NAME,	modelname),
+	DEF_PAT_CPUTYPE( "revision",		PAT_REVISION,	revision),
+	DEF_PAT_CPUTYPE( "stepping",		PAT_STEPPING,	stepping),
+	DEF_PAT_CPUTYPE( "type",		PAT_TYPE,	flags),		/* sparc64 */
+	DEF_PAT_CPUTYPE( "vendor",		PAT_VENDOR,	vendor),
+	DEF_PAT_CPUTYPE( "vendor_id",		PAT_VENDOR,	vendor),	/* s390 */
+};
+
+/*
+ * /proc/cpuinfo to lscpu_cpu conversion
+ */
+#define DEF_PAT_CPU(_str, _id, _member) \
+	{ \
+		.id = (_id), \
+		.domain = CPUINFO_LINE_CPU, \
+		.pattern = (_str), \
+		.offset = offsetof(struct lscpu_cpu, _member), \
+	}
+
+static const struct cpuinfo_pattern cpu_patterns[] =
+{
+	/* Sort by fields name! */
+	DEF_PAT_CPU( "bogomips",	PAT_BOGOMIPS_CPU, bogomips),
+	DEF_PAT_CPU( "cpu MHz",		PAT_MHZ,          mhz),
+	DEF_PAT_CPU( "cpu MHz dynamic",	PAT_MHZ_DYNAMIC,  dynamic_mhz),	/* s390 */
+	DEF_PAT_CPU( "cpu MHz static",	PAT_MHZ_STATIC,   static_mhz),	/* s390 */
+	DEF_PAT_CPU( "cpu number",	PAT_PROCESSOR,    logical_id),	/* s390 */
+	DEF_PAT_CPU( "processor",	PAT_PROCESSOR,    logical_id),
+
+};
+
+/*
+ * /proc/cpuinfo to lscpu_cache conversion
+ */
+#define DEF_PAT_CACHE(_str, _id) \
+	{ \
+		.id = (_id), \
+		.domain = CPUINFO_LINE_CACHE, \
+		.pattern = (_str) \
+	}
+
+static const struct cpuinfo_pattern cache_patterns[] =
+{
+	/* Sort by fields name! */
+	DEF_PAT_CACHE("cache",	PAT_CACHE),
+};
+
+#define CPUTYPE_PATTERN_BUFSZ	32
+
+static int cmp_pattern(const void *a0, const void *b0)
+{
+	const struct cpuinfo_pattern
+		*a = (const struct cpuinfo_pattern *) a0,
+		*b = (const struct cpuinfo_pattern *) b0;
+	return strcmp(a->pattern, b->pattern);
+}
+
+struct cpuinfo_parser {
+	struct lscpu_cxt	*cxt;
+	struct lscpu_cpu	*curr_cpu;
+	struct lscpu_cputype	*curr_type;
+	unsigned int		curr_type_added : 1;
+};
+
+static int is_different_cputype(struct lscpu_cputype *ct, size_t offset, const char *value)
+{
+	switch (offset) {
+	case offsetof(struct lscpu_cputype, vendor):
+		return ct->vendor && value && strcmp(ct->vendor, value) != 0;
+	case offsetof(struct lscpu_cputype, model):
+		return ct->model && value && strcmp(ct->model, value) != 0;
+	case offsetof(struct lscpu_cputype, modelname):
+		return ct->modelname && value && strcmp(ct->modelname, value) != 0;
+	case offsetof(struct lscpu_cputype, stepping):
+		return ct->stepping && value && strcmp(ct->stepping, value) != 0;
+	}
+	return 0;
+}
+
+/* canonicalize @str -- remove number at the end return the
+ * number by @keynum. This is usable for example for "processor 5" or "cache1"
+ * cpuinfo lines */
+static char *key_cleanup(char *str, int *keynum)
+{
+	size_t sz = rtrim_whitespace((unsigned char *)str);
+	size_t i;
+
+	if (!sz)
+		return str;
+
+	for (i = sz; i > 0; i--) {
+		if (!isdigit(str[i - 1]))
+			break;
+	}
+
+	if (i < sz) {
+		char *end = NULL, *p = str + i;
+		int n;
+
+		errno = 0;
+		n = strtol(p, &end, 10);
+		if (errno || !end || end == p)
+			return str;
+
+		*keynum = n;
+		str[i] = '\0';
+		rtrim_whitespace((unsigned char *)str);
+	}
+	return str;
+}
+
+static const struct cpuinfo_pattern *cpuinfo_parse_line(char *str, char **value, int *keynum)
+{
+	struct cpuinfo_pattern key = { .id = 0 }, *pat;
+	char *p, *v;
+	char buf[CPUTYPE_PATTERN_BUFSZ] = { 0 };
+
+	DBG(GATHER, ul_debug("parse \"%s\"", str));
+
+	if (!str || !*str)
+		return NULL;
+	p = (char *) skip_blank(str);
+	if (!p || !*p)
+		return NULL;
+
+	v = strchr(p, ':');
+	if (!v || !*v)
+		return NULL;
+
+	/* prepare name of the field */
+	xstrncpy(buf, p, sizeof(buf));
+	buf[v - p] = '\0';
+	v++;
+
+	/* prepare value */
+	v = (char *) skip_space(v);
+	if (!v || !*v)
+		return NULL;
+
+	key.pattern = key_cleanup(buf, keynum);
+	/* CPU-type */
+	if ((pat = bsearch(&key, type_patterns,
+			ARRAY_SIZE(type_patterns),
+			sizeof(struct cpuinfo_pattern),
+			cmp_pattern)))
+		goto found;
+
+	/* CPU */
+	if ((pat = bsearch(&key, cpu_patterns,
+			ARRAY_SIZE(cpu_patterns),
+			sizeof(struct cpuinfo_pattern),
+			cmp_pattern)))
+		goto found;
+
+	/* CACHE */
+	if ((pat = bsearch(&key, cache_patterns,
+			ARRAY_SIZE(cache_patterns),
+			sizeof(struct cpuinfo_pattern),
+			cmp_pattern)))
+		goto found;
+
+	return NULL;
+found:
+	rtrim_whitespace((unsigned char *) v);
+	*value = v;
+	return pat;
+}
+
+/* Parse extra cache lines contained within /proc/cpuinfo but which are not
+ * part of the cache topology information within the sysfs filesystem.  This is
+ * true for all shared caches on e.g. s390. When there are layers of
+ * hypervisors in between it is not knows which CPUs share which caches.
+ * Therefore information about shared caches is only available in
+ * /proc/cpuinfo. Format is:
+ *
+ *  cache<nr> : level=<lvl> type=<type> scope=<scope> size=<size> line_size=<lsz> associativity=<as>
+ *
+ * the cache<nr> part is parsed in cpuinfo_parse_line, in this function parses part after ":".
+ */
+static int cpuinfo_parse_cache(struct lscpu_cxt *cxt, int keynum, char *data)
+{
+	struct lscpu_cache *cache;
+	long long size;
+	char *p, type;
+	int level;
+	unsigned int line_size, associativity;
+
+	DBG(GATHER, ul_debugobj(cxt, " parse cpuinfo cache '%s'", data));
+
+	p = strstr(data, "scope=") + 6;
+	/* Skip private caches, also present in sysfs */
+	if (!p || strncmp(p, "Private", 7) == 0)
+		return 0;
+	p = strstr(data, "level=");
+	if (!p || sscanf(p, "level=%d", &level) != 1)
+		return 0;
+	p = strstr(data, "type=") + 5;
+	if (!p || !*p)
+		return 0;
+	type = 0;
+	if (strncmp(p, "Data", 4) == 0)
+		type = 'd';
+	else if (strncmp(p, "Instruction", 11) == 0)
+		type = 'i';
+	else if (strncmp(p, "Unified", 7) == 0)
+		type = 'u';
+	p = strstr(data, "size=");
+	if (!p || sscanf(p, "size=%lld", &size) != 1)
+		return 0;
+
+	p = strstr(data, "line_size=");
+	if (!p || sscanf(p, "line_size=%u", &line_size) != 1)
+		return 0;
+
+	p = strstr(data, "associativity=");
+	if (!p || sscanf(p, "associativity=%u", &associativity) != 1)
+		return 0;
+
+	cxt->necaches++;
+	cxt->ecaches = xrealloc(cxt->ecaches,
+				cxt->necaches * sizeof(struct lscpu_cache));
+	cache = &cxt->ecaches[cxt->necaches - 1];
+	memset(cache, 0 , sizeof(*cache));
+
+	if (type == 'i' || type == 'd')
+		xasprintf(&cache->name, "L%d%c", level, type);
+	else
+		xasprintf(&cache->name, "L%d", level);
+
+	cache->nth = keynum;
+	cache->level = level;
+	cache->size = size * 1024;
+	cache->ways_of_associativity = associativity;
+	cache->coherency_line_size = line_size;
+	/* Number of sets for s390. For safety, just check divide by zero */
+	cache->number_of_sets = line_size ? (cache->size / line_size): 0;
+	cache->number_of_sets = associativity ? (cache->number_of_sets / associativity) : 0;
+
+	cache->type = type == 'i' ? xstrdup("Instruction") :
+		      type == 'd' ? xstrdup("Data") :
+		      type == 'u' ? xstrdup("Unified") : NULL;
+	return 1;
+}
+
+int lscpu_read_cpuinfo(struct lscpu_cxt *cxt)
+{
+	FILE *fp;
+	char buf[BUFSIZ];
+	size_t i;
+	struct lscpu_cputype *ct;
+	struct cpuinfo_parser _pr = { .cxt = cxt }, *pr = &_pr;
+
+	assert(cxt->npossibles);	/* lscpu_create_cpus() required */
+	assert(cxt->cpus);
+
+	DBG(GATHER, ul_debugobj(cxt, "reading cpuinfo"));
+
+	fp = ul_path_fopen(cxt->procfs, "r", "cpuinfo");
+	if (!fp)
+		err(EXIT_FAILURE, _("cannot open %s"), "/proc/cpuinfo");
+
+	do {
+		int keynum = -1;
+		char *p = NULL, *value = NULL;
+		const struct cpuinfo_pattern *pattern;
+
+		if (fgets(buf, sizeof(buf), fp) != NULL)
+			p = (char *) skip_space(buf);
+
+		if (p == NULL || (*buf && !*p)) {
+			/* Blank line separates information */
+			if (p == NULL)
+				break;	/* fgets() returns nothing; EOF */
+			continue;
+		}
+
+		rtrim_whitespace((unsigned char *) buf);
+
+		/* parse */
+		pattern = cpuinfo_parse_line(p, &value, &keynum);
+		if (!pattern) {
+			DBG(GATHER, ul_debug("'%s' not found", buf));
+			continue;
+		}
+
+		/* set data */
+		switch (pattern->domain) {
+		case CPUINFO_LINE_CPU:
+			if (pattern->id == PAT_PROCESSOR) {
+				/* switch CPU */
+				int id = 0;
+
+				if (keynum >= 0)
+					id = keynum;
+				else {
+					uint32_t n;
+					if (ul_strtou32(value, &n, 10) == 0)
+						id = n;
+				}
+
+				if (pr->curr_cpu && pr->curr_type)
+					lscpu_cpu_set_type(pr->curr_cpu, pr->curr_type);
+
+				lscpu_unref_cpu(pr->curr_cpu);
+				pr->curr_cpu = lscpu_get_cpu(cxt, id);
+
+				if (!pr->curr_cpu)
+					DBG(GATHER, ul_debug("*** cpu ID '%d' undefined", id));
+				else
+					DBG(GATHER, ul_debug(" switch to CPU %d", id));
+				lscpu_ref_cpu(pr->curr_cpu);
+				break;
+			}
+			if (!pr->curr_cpu)
+				DBG(GATHER, ul_debug("*** cpu data before cpu ID"));
+			else
+				strdup_to_offset(pr->curr_cpu, pattern->offset, value);
+
+			if (pattern->id == PAT_MHZ_DYNAMIC && pr->curr_type && !pr->curr_type->dynamic_mhz)
+				pr->curr_type->dynamic_mhz = xstrdup(value);
+			if (pattern->id == PAT_MHZ_STATIC && pr->curr_type && !pr->curr_type->static_mhz)
+				pr->curr_type->static_mhz = xstrdup(value);
+			if (pattern->id == PAT_BOGOMIPS_CPU && pr->curr_type && !pr->curr_type->bogomips)
+				pr->curr_type->bogomips = xstrdup(value);
+			if (pattern->id == PAT_MHZ && pr->curr_cpu && value) {
+				errno = 0;
+				pr->curr_cpu->mhz_cur_freq = (float) c_strtod(value, NULL);
+				if (errno)
+					pr->curr_cpu->mhz_cur_freq = 0;
+			}
+			break;
+		case CPUINFO_LINE_CPUTYPE:
+			if (pr->curr_type && is_different_cputype(pr->curr_type, pattern->offset, value)) {
+				lscpu_unref_cputype(pr->curr_type);
+				pr->curr_type = NULL;
+			}
+			if (!pr->curr_type) {
+				pr->curr_type = lscpu_new_cputype();
+				lscpu_add_cputype(cxt, pr->curr_type);
+			}
+
+			strdup_to_offset(pr->curr_type, pattern->offset, value);
+			break;
+		case CPUINFO_LINE_CACHE:
+			if (pattern->id != PAT_CACHE)
+				break;
+			cpuinfo_parse_cache(cxt, keynum, value);
+			break;
+		}
+	} while (1);
+
+	DBG(GATHER, fprintf_cputypes(stderr, cxt));
+
+	if (pr->curr_cpu && !pr->curr_cpu->type)
+		lscpu_cpu_set_type(pr->curr_cpu, pr->curr_type);
+
+	lscpu_unref_cputype(pr->curr_type);
+	lscpu_unref_cpu(pr->curr_cpu);
+
+	fclose(fp);
+	lscpu_sort_caches(cxt->ecaches, cxt->necaches);
+
+	/* Set the default type to CPUs which are missing (or not parsed)
+	 * in cpuinfo */
+	ct = lscpu_cputype_get_default(cxt);
+	for (i = 0; ct && i < cxt->npossibles; i++) {
+		struct lscpu_cpu *cpu = cxt->cpus[i];
+
+		if (cpu && !cpu->type)
+			lscpu_cpu_set_type(cpu, ct);
+	}
+
+	return 0;
+}
+
+struct lscpu_arch *lscpu_read_architecture(struct lscpu_cxt *cxt)
+{
+	struct utsname utsbuf;
+	struct lscpu_arch *ar;
+	struct lscpu_cputype *ct;
+
+	assert(cxt);
+
+	DBG(GATHER, ul_debug("reading architecture"));
+
+	if (uname(&utsbuf) == -1)
+		err(EXIT_FAILURE, _("error: uname failed"));
+
+	ar = xcalloc(1, sizeof(*cxt->arch));
+	ar->name = xstrdup(utsbuf.machine);
+
+	if (cxt->noalive)
+		/* reading info from any /{sys,proc} dump, don't mix it with
+		 * information about our real CPU */
+		;
+	else {
+#if defined(__alpha__) || defined(__ia64__)
+		ar->bit64 = 1;	/* 64bit platforms only */
+#endif
+		/* platforms with 64bit flag in /proc/cpuinfo, define
+		 * 32bit default here */
+#if defined(__i386__) || defined(__x86_64__) || \
+    defined(__s390x__) || defined(__s390__) || defined(__sparc_v9__)
+		ar->bit32 = 1;
+#endif
+
+#if defined(__aarch64__)
+		{
+			/* personality() is the most reliable way (since 4.7)
+			 * to determine aarch32 support */
+			int pers = personality(PER_LINUX32);
+			if (pers != -1) {
+				personality(pers);
+				ar->bit32 = 1;
+			}
+			ar->bit64 = 1;
+		}
+#endif
+	}
+
+	ct = lscpu_cputype_get_default(cxt);
+	if (ct && ct->flags) {
+		char buf[BUFSIZ];
+
+		snprintf(buf, sizeof(buf), " %s ", ct->flags);
+		if (strstr(buf, " lm "))
+			ar->bit32 = 1, ar->bit64 = 1;			/* x86_64 */
+		if (strstr(buf, " zarch "))
+			ar->bit32 = 1, ar->bit64 = 1;			/* s390x */
+		if (strstr(buf, " sun4v ") || strstr(buf, " sun4u "))
+			ar->bit32 = 1, ar->bit64 = 1;			/* sparc64 */
+	}
+
+	if (ar->name && !cxt->noalive) {
+		if (strcmp(ar->name, "ppc64") == 0)
+			ar->bit32 = 1, ar->bit64 = 1;
+		else if (strcmp(ar->name, "ppc") == 0)
+			ar->bit32 = 1;
+	}
+
+	DBG(GATHER, ul_debugobj(ar, "arch: name=%s %s %s",
+				ar->name,
+				ar->bit64 ? "64-bit" : "",
+				ar->bit64 ? "32-bit" : ""));
+	return ar;
+}
+
+void lscpu_free_architecture(struct lscpu_arch *ar)
+{
+	if (!ar)
+		return;
+	free(ar->name);
+	free(ar);
+}
+
+int lscpu_read_cpulists(struct lscpu_cxt *cxt)
+{
+	cpu_set_t *cpuset = NULL;
+
+	assert(cxt);
+	DBG(GATHER, ul_debugobj(cxt, "reading cpulists"));
+
+	if (ul_path_read_s32(cxt->syscpu, &cxt->maxcpus, "kernel_max") == 0)
+		/* note that kernel_max is maximum index [NR_CPUS-1] */
+		cxt->maxcpus += 1;
+
+	else if (!cxt->noalive)
+		/* the root is '/' so we are working with data from the current kernel */
+		cxt->maxcpus = get_max_number_of_cpus();
+
+	if (cxt->maxcpus <= 0)
+		/* error or we are reading some /sys snapshot instead of the
+		 * real /sys, let's use any crazy number... */
+		cxt->maxcpus = 2048;
+
+	cxt->setsize = CPU_ALLOC_SIZE(cxt->maxcpus);
+
+	/* create CPUs from possible mask */
+	if (ul_path_readf_cpulist(cxt->syscpu, &cpuset, cxt->maxcpus, "possible") == 0) {
+		lscpu_create_cpus(cxt, cpuset, cxt->setsize);
+		cpuset_free(cpuset);
+		cpuset = NULL;
+	} else
+		err(EXIT_FAILURE, _("failed to determine number of CPUs: %s"),
+				_PATH_SYS_CPU "/possible");
+
+
+	/* get mask for present CPUs */
+	if (ul_path_readf_cpulist(cxt->syscpu, &cxt->present, cxt->maxcpus, "present") == 0)
+		cxt->npresents = CPU_COUNT_S(cxt->setsize, cxt->present);
+
+	/* get mask for online CPUs */
+	if (ul_path_readf_cpulist(cxt->syscpu, &cxt->online, cxt->maxcpus, "online") == 0)
+		cxt->nonlines = CPU_COUNT_S(cxt->setsize, cxt->online);
+
+	return 0;
+}
+
+#if defined(HAVE_LIBRTAS)
+# define PROCESSOR_MODULE_INFO	43
+static int strbe16toh(const char *buf, int offset)
+{
+	return (buf[offset] << 8) + buf[offset+1];
+}
+#endif
+
+/* some extra information for the default CPU type */
+int lscpu_read_archext(struct lscpu_cxt *cxt)
+{
+	FILE *f;
+	char buf[BUFSIZ];
+	struct lscpu_cputype *ct;
+
+	DBG(GATHER, ul_debugobj(cxt, "reading extra arch info"));
+
+	assert(cxt);
+	ct = lscpu_cputype_get_default(cxt);
+	if (!ct)
+		return -EINVAL;
+
+	/* get dispatching mode */
+	if (ul_path_read_s32(cxt->syscpu, &ct->dispatching, "dispatching") != 0)
+		ct->dispatching = -1;
+
+	/* get cpufreq boost mode */
+	if (ul_path_read_s32(cxt->syscpu, &ct->freqboost, "cpufreq/boost") != 0)
+		ct->freqboost = -1;
+
+	if ((f = ul_path_fopen(cxt->procfs, "r", "sysinfo"))) {
+		while (fgets(buf, sizeof(buf), f) != NULL) {
+			if (lookup(buf, "Type", &ct->machinetype))
+				break;
+		}
+		fclose(f);
+	}
+
+#if defined(HAVE_LIBRTAS)
+	/* Get PowerPC specific info */
+	if (!cxt->noalive) {
+		int rc, len, ntypes;
+
+		ct->physsockets = ct->physchips = ct->physcoresperchip = 0;
+
+		rc = rtas_get_sysparm(PROCESSOR_MODULE_INFO, sizeof(buf), buf);
+		if (rc < 0)
+			goto nortas;
+
+		len = strbe16toh(buf, 0);
+		if (len < 8)
+			goto nortas;
+
+		ntypes = strbe16toh(buf, 2);
+		if (!ntypes)
+			goto nortas;
+
+		ct->physsockets = strbe16toh(buf, 4);
+		ct->physchips = strbe16toh(buf, 6);
+		ct->physcoresperchip = strbe16toh(buf, 8);
+	}
+nortas:
+#endif
+	return 0;
+}
+
+static int cmp_vulnerability_name(const void *a0, const void *b0)
+{
+	const struct lscpu_vulnerability
+			*a = (const struct lscpu_vulnerability *) a0,
+			*b = (const struct lscpu_vulnerability *) b0;
+	return strcmp(a->name, b->name);
+}
+
+int lscpu_read_vulnerabilities(struct lscpu_cxt *cxt)
+{
+	struct dirent *d;
+	DIR *dir;
+	size_t n = 0;
+
+	assert(cxt);
+
+	DBG(GATHER, ul_debugobj(cxt, "reading vulnerabilities"));
+
+	dir = ul_path_opendir(cxt->syscpu, "vulnerabilities");
+	if (!dir)
+		return 0;
+
+	cxt->nvuls = n = 0;
+	while (xreaddir(dir))
+		n++;
+	if (!n) {
+		closedir(dir);
+		return 0;
+	}
+
+	rewinddir(dir);
+	cxt->vuls = xcalloc(n, sizeof(struct lscpu_vulnerability));
+
+	while (cxt->nvuls < n && (d = xreaddir(dir))) {
+		char *str, *p;
+		struct lscpu_vulnerability *vu;
+
+#ifdef _DIRENT_HAVE_D_TYPE
+		if (d->d_type == DT_DIR || d->d_type == DT_UNKNOWN)
+			continue;
+#endif
+		if (ul_path_readf_string(cxt->syscpu, &str,
+					"vulnerabilities/%s", d->d_name) <= 0)
+			continue;
+
+		vu = &cxt->vuls[cxt->nvuls++];
+
+		/* Name */
+		vu->name = xstrdup(d->d_name);
+		*vu->name = toupper(*vu->name);
+		strrep(vu->name, '_', ' ');
+
+		/* Description */
+		vu->text = str;
+		p = (char *) startswith(vu->text, "Mitigation");
+		if (p) {
+			*p = ';';
+			strrem(vu->text, ':');
+		}
+	}
+	closedir(dir);
+
+	qsort(cxt->vuls, cxt->nvuls,
+	      sizeof(struct lscpu_vulnerability), cmp_vulnerability_name);
+
+	return 0;
+}
+
+static inline int is_node_dirent(struct dirent *d)
+{
+	return
+		d &&
+#ifdef _DIRENT_HAVE_D_TYPE
+		(d->d_type == DT_DIR || d->d_type == DT_UNKNOWN) &&
+#endif
+		strncmp(d->d_name, "node", 4) == 0 &&
+		isdigit_string(d->d_name + 4);
+}
+
+static int nodecmp(const void *ap, const void *bp)
+{
+	int *a = (int *) ap, *b = (int *) bp;
+	return *a - *b;
+}
+
+int lscpu_read_numas(struct lscpu_cxt *cxt)
+{
+	size_t i = 0;
+	DIR *dir;
+	struct dirent *d;
+	struct path_cxt *sys;
+
+	assert(!cxt->nnodes);
+
+
+	sys = ul_new_path(_PATH_SYS_NODE);
+	if (!sys)
+		err(EXIT_FAILURE, _("failed to initialize %s handler"), _PATH_SYS_NODE);
+
+	ul_path_set_prefix(sys, cxt->prefix);
+
+	dir = ul_path_opendir(sys, NULL);
+	if (!dir)
+		goto done;
+
+	while ((d = readdir(dir))) {
+		if (is_node_dirent(d))
+			cxt->nnodes++;
+	}
+
+	if (!cxt->nnodes) {
+		closedir(dir);
+		goto done;
+	}
+
+	cxt->nodemaps = xcalloc(cxt->nnodes, sizeof(cpu_set_t *));
+	cxt->idx2nodenum = xmalloc(cxt->nnodes * sizeof(int));
+
+	rewinddir(dir);
+	for (i = 0; (d = readdir(dir)) && i < cxt->nnodes;) {
+		if (is_node_dirent(d))
+			cxt->idx2nodenum[i++] = strtol_or_err(((d->d_name) + 4),
+						_("Failed to extract the node number"));
+	}
+	closedir(dir);
+	qsort(cxt->idx2nodenum, cxt->nnodes, sizeof(int), nodecmp);
+
+	/* information about how nodes share different CPUs */
+	for (i = 0; i < cxt->nnodes; i++)
+		ul_path_readf_cpuset(sys, &cxt->nodemaps[i], cxt->maxcpus,
+				"node%d/cpumap", cxt->idx2nodenum[i]);
+done:
+	DBG(GATHER, ul_debugobj(cxt, "read %zu numas", cxt->nnodes));
+
+	ul_unref_path(sys);
+	return 0;
+}