 @@ -1,670 +1,641 @@
-/*	$NetBSD: ofw_subr.c,v 1.46 2021/01/24 17:44:16 thorpej Exp $	*/
+/*	$NetBSD: ofw_subr.c,v 1.47 2021/01/24 19:38:37 thorpej Exp $	*/
 /*
  * Copyright 1998
  * Digital Equipment Corporation. All rights reserved.
+ *
  * This software is furnished under license and may be used and
  * copied only in accordance with the following terms and conditions.
  * Subject to these conditions, you may download, copy, install,
  * use, modify and distribute this software in source and/or binary
  * form. No title or ownership is transferred hereby.
+ *
  * 1) Any source code used, modified or distributed must reproduce
  *    and retain this copyright notice and list of conditions as
  *    they appear in the source file.
+ *
  * 2) No right is granted to use any trade name, trademark, or logo of
  *    Digital Equipment Corporation. Neither the "Digital Equipment
  *    Corporation" name nor any trademark or logo of Digital Equipment
  *    Corporation may be used to endorse or promote products derived
  *    from this software without the prior written permission of
  *    Digital Equipment Corporation.
+ *
  * 3) This software is provided "AS-IS" and any express or implied
  *    warranties, including but not limited to, any implied warranties
  *    of merchantability, fitness for a particular purpose, or
  *    non-infringement are disclaimed. In no event shall DIGITAL be
  *    liable for any damages whatsoever, and in particular, DIGITAL
  *    shall not be liable for special, indirect, consequential, or
  *    incidental damages or damages for lost profits, loss of
  *    revenue or loss of use, whether such damages arise in contract,
  *    negligence, tort, under statute, in equity, at law or otherwise,
  *    even if advised of the possibility of such damage.
  */
 #include <sys/cdefs.h>
-__KERNEL_RCSID(0, "$NetBSD: ofw_subr.c,v 1.46 2021/01/24 17:44:16 thorpej Exp $");
+__KERNEL_RCSID(0, "$NetBSD: ofw_subr.c,v 1.47 2021/01/24 19:38:37 thorpej Exp $");
 #include <sys/param.h>
 #include <sys/device.h>
 #include <sys/kmem.h>
 #include <sys/systm.h>
 #include <sys/malloc.h>
 #include <dev/ofw/openfirm.h>
 #define	OFW_MAX_STACK_BUF_SIZE	256
 #define	OFW_PATH_BUF_SIZE	512
 /*
  * int of_decode_int(p)
+ *
  * This routine converts OFW encoded-int datums
  * into the integer format of the host machine.
+ *
  * It is primarily used to convert integer properties
  * returned by the OF_getprop routine.
+ *
  * Arguments:
  *	p		pointer to unsigned char array which is an
  *			OFW-encoded integer.
+ *
  * Return Value:
  *	Decoded integer value of argument p.
+ *
  * Side Effects:
  *	None.
  */
 int
 of_decode_int(const unsigned char *p)
+{
 	unsigned int i = *p++ << 8;
 	i = (i + *p++) << 8;
 	i = (i + *p++) << 8;
 	return (i + *p);
+}
 /*
  * int of_compatible(phandle, strings)
+ *
  * This routine checks an OFW node's "compatible" entry to see if
  * it matches any of the provided strings.
+ *
  * It should be used when determining whether a driver can drive
  * a particular device.
+ *
  * Arguments:
  *	phandle		OFW phandle of device to be checked for
  *			compatibility.
  *	strings		Array of containing expected "compatibility"
  *			property values, presence of any of which
  *			indicates compatibility.
+ *
  * Return Value:
  *	-1 if none of the strings are found in phandle's "compatibility"
  *	property, or the reverse index of the matching string in the
  *	phandle's "compatibility" property.
+ *
  * Side Effects:
  *	None.
  */
 int
 of_compatible(int phandle, const char * const *strings)
+{
 	char *prop, propbuf[OFW_MAX_STACK_BUF_SIZE];
 	const char *cp;
 	int proplen, match, rv = -1;
-	int len, olen, allocated, nstr, cstr, rv;
+	proplen = OF_getproplen(phandle, "compatible");
-	char *buf, sbuf[OFW_MAX_STACK_BUF_SIZE];
+	if (proplen <= 0) {
-	const char *sp, *nsp;
+		return -1;
 	len = OF_getproplen(phandle, "compatible");
 	if (len <= 0)
 		return (-1);
 	if (len > sizeof(sbuf)) {
 		buf = malloc(len, M_TEMP, M_WAITOK);
 		allocated = 1;
 	} else {
 		buf = sbuf;
 		allocated = 0;
+	}
-	/* 'compatible' size should not change. */
+	prop = kmem_tmpbuf_alloc(proplen, propbuf, sizeof(propbuf), KM_SLEEP);
 	if (OF_getprop(phandle, "compatible", buf, len) != len) {
-		rv = -1;
+	if (OF_getprop(phandle, "compatible", prop, proplen) != proplen) {
 		goto out;
+	}
-	/* count 'compatible' strings */
+	for (; (cp = *strings) != NULL; strings++) {
-	sp = buf;
+		if ((match = strlist_match(prop, proplen, cp)) != 0) {
-	nstr = 0;
+			rv = match - 1;
-	olen = len;
+			break;
 	while (len && (nsp = memchr(sp, 0, len)) != NULL) {
 		nsp++;			/* skip over NUL char */
 		len -= (nsp - sp);
-		sp = nsp;
+ out:
-		nstr++;
+	kmem_tmpbuf_free(prop, proplen, propbuf);
 	return rv;
 	len = olen;
 	sp = buf;
 	rv = nstr;
 	while (len && (nsp = memchr(sp, 0, len)) != NULL) {
 		rv--;
 		/* look for a match among the strings provided */
 		for (cstr = 0; strings[cstr] != NULL; cstr++)
 			if (strcmp(sp, strings[cstr]) == 0)
 				goto out;
 		nsp++;			/* skip over NUL char */
 		len -= (nsp - sp);
 		sp = nsp;
 	rv = -1;
 out:
 	if (allocated)
 		free(buf, M_TEMP);
 	return (rv);
+}
 /*
  * int of_match_compatible(phandle, strings)
+ *
  * This routine checks an OFW node's "compatible" entry to see if
  * it matches any of the provided strings.
+ *
  * It should be used when determining whether a driver can drive
  * a particular device.
+ *
  * Arguments:
  *	phandle		OFW phandle of device to be checked for
  *			compatibility.
  *	strings		Array of containing expected "compatibility"
  *			property values, presence of any of which
  *			indicates compatibility.
+ *
  * Return Value:
  *	0 if none of the strings are found in phandle's "compatibility"
  *	property, or a positive number based on the reverse index of the
  *	matching string in the phandle's "compatibility" property, plus 1.
+ *
  * Side Effects:
  *	None.
  */
 int
 of_match_compatible(int phandle, const char * const *strings)
+{
 	return of_compatible(phandle, strings) + 1;
+}
 /*
  * int of_match_compat_data(phandle, compat_data)
+ *
  * This routine searches an array of compat_data structures for a
  * matching "compatible" entry matching the supplied OFW node.
+ *
  * It should be used when determining whether a driver can drive
  * a particular device.
+ *
  * Arguments:
  *	phandle		OFW phandle of device to be checked for
  *			compatibility.
  *	compat_data	Array of possible compat entry strings and
  *			associated metadata. The last entry in the
  *			list should have a "compat" of NULL to terminate
  *			the list.
+ *
  * Return Value:
  *	0 if none of the strings are found in phandle's "compatibility"
  *	property, or a positive number based on the reverse index of the
  *	matching string in the phandle's "compatibility" property, plus 1.
+ *
  * Side Effects:
  *	None.
  */
 int
 of_match_compat_data(int phandle,
     const struct device_compatible_entry *compat_data)
+{
 	char *prop, propbuf[OFW_MAX_STACK_BUF_SIZE];
 	int proplen, match = 0;
 	proplen = OF_getproplen(phandle, "compatible");
 	if (proplen <= 0) {
 		return 0;
+	}
 	prop = kmem_tmpbuf_alloc(proplen, propbuf, sizeof(propbuf), KM_SLEEP);
 	if (OF_getprop(phandle, "compatible", prop, proplen) != proplen) {
 		goto out;
+	}
 	match = device_compatible_match_strlist(prop, proplen, compat_data);
  out:
 	kmem_tmpbuf_free(prop, proplen, propbuf);
 	return match;
+}
 /*
  * const struct device_compatible_entry *of_search_compatible(phandle,
  *							      compat_data)
+ *
  * This routine searches an array of compat_data structures for a
  * matching "compatible" entry matching the supplied OFW node.
+ *
  * Arguments:
  *	phandle		OFW phandle of device to be checked for
  *			compatibility.
  *	compat_data	Array of possible compat entry strings and
  *			associated metadata. The last entry in the
  *			list should have a "compat" of NULL to terminate
  *			the list.
+ *
  * Return Value:
  *	The first matching compat_data entry in the array. If no matches
  *	are found, NULL is returned.
+ *
  * Side Effects:
  *	None.
  */
 const struct device_compatible_entry *
 of_search_compatible(int phandle,
     const struct device_compatible_entry *compat_data)
+{
 	char *prop, propbuf[OFW_MAX_STACK_BUF_SIZE];
 	const struct device_compatible_entry *match = NULL;
 	int proplen;
 	proplen = OF_getproplen(phandle, "compatible");
 	if (proplen <= 0) {
 		return 0;
+	}
 	prop = kmem_tmpbuf_alloc(proplen, propbuf, sizeof(propbuf), KM_SLEEP);
 	if (OF_getprop(phandle, "compatible", prop, proplen) != proplen) {
 		goto out;
+	}
 	match = device_compatible_lookup_strlist(prop, proplen, compat_data);
  out:
 	kmem_tmpbuf_free(prop, proplen, propbuf);
 	return match;
+}
 /*
  * int of_packagename(phandle, buf, bufsize)
+ *
  * This routine places the last component of an OFW node's name
  * into a user-provided buffer.
+ *
  * It can be used during autoconfiguration to make printing of
  * device names more informative.
+ *
  * Arguments:
  *	phandle		OFW phandle of device whose name name is
  *			desired.
  *	buf		Buffer to contain device name, provided by
  *			caller.  (For now, must be at least 4
  *			bytes long.)
  *	bufsize		Length of buffer referenced by 'buf', in
  *			bytes.
+ *
  * Return Value:
  *	-1 if the device path name could not be obtained or would
  *	not fit in the allocated temporary buffer, or zero otherwise
  *	(meaning that the leaf node name was successfully extracted).
+ *
  * Side Effects:
  *	If the leaf node name was successfully extracted, 'buf' is
  *	filled in with at most 'bufsize' bytes of the leaf node
  *	name.  If the leaf node was not successfully extracted, a
  *	somewhat meaningful string is placed in the buffer.  In
  *	either case, the contents of 'buf' will be NUL-terminated.
  */
 int
 of_packagename(int phandle, char *buf, int bufsize)
+{
 	char *pbuf;
 	const char *lastslash;
 	int l, rv;
 	pbuf = malloc(OFW_PATH_BUF_SIZE, M_TEMP, M_WAITOK);
 	l = OF_package_to_path(phandle, pbuf, OFW_PATH_BUF_SIZE);
 	/* check that we could get the name, and that it's not too long. */
 	if (l < 0 ||
 	    (l == OFW_PATH_BUF_SIZE && pbuf[OFW_PATH_BUF_SIZE - 1] != '\0')) {
 		if (bufsize >= 25)
 			snprintf(buf, bufsize, "??? (phandle 0x%x)", phandle);
 		else if (bufsize >= 4)
 			strlcpy(buf, "???", bufsize);
 		else
 			panic("of_packagename: bufsize = %d is silly",
 			    bufsize);
 		rv = -1;
 	} else {
 		pbuf[l] = '\0';
 		lastslash = strrchr(pbuf, '/');
 		strlcpy(buf, (lastslash == NULL) ? pbuf : (lastslash + 1),
 		    bufsize);
 		rv = 0;
+	}
 	free(pbuf, M_TEMP);
 	return (rv);
+}
 /*
  * Find the first child of a given node that matches name. Does not recurse.
  */
 int
 of_find_firstchild_byname(int node, const char *name)
+{
 	char namex[32];
 	int nn;
 	for (nn = OF_child(node); nn; nn = OF_peer(nn)) {
 		memset(namex, 0, sizeof(namex));
 		if (OF_getprop(nn, "name", namex, sizeof(namex)) == -1)
 			continue;
 		if (strcmp(name, namex) == 0)
 			return nn;
+	}
 	return -1;
+}
 /*
  * Find a child node that is compatible with str. Recurses, starting at node.
  */
 int
 of_find_bycompat(int node, const char *str)
+{
 	const char * compatible[] = { str, NULL };
 	int child, ret;
 	for (child = OF_child(node); child; child = OF_peer(child)) {
 		if (of_match_compatible(child, compatible) != 0)
 			return child;
 		ret = of_find_bycompat(child, str);
 		if (ret != -1)
 			return ret;
+	}
 	return -1;
+}
 /*
  * Find a give node by name.  Recurses, and seems to walk upwards too.
  */
 int
 of_getnode_byname(int start, const char *target)
+{
 	int node, next;
 	char name[64];
 	if (start == 0)
 		start = OF_peer(0);
 	for (node = start; node; node = next) {
 		memset(name, 0, sizeof name);
 		OF_getprop(node, "name", name, sizeof name - 1);
 		if (strcmp(name, target) == 0)
 			break;
 		if ((next = OF_child(node)) != 0)
 			continue;
 		while (node) {
 			if ((next = OF_peer(node)) != 0)
 				break;
 			node = OF_parent(node);
+		}
+	}
 	/* XXX is this correct? */
 	return node;
+}
 /*
  * Create a uint32_t integer property from an OFW node property.
  */
 boolean_t
 of_to_uint32_prop(prop_dictionary_t dict, int node, const char *ofname,
     const char *propname)
+{
 	uint32_t prop;
 	if (OF_getprop(node, ofname, &prop, sizeof(prop)) != sizeof(prop))
 		return FALSE;
 	return(prop_dictionary_set_uint32(dict, propname, prop));
+}
 /*
  * Create a data property from an OFW node property.  Max size of 256bytes.
  */
 boolean_t
 of_to_dataprop(prop_dictionary_t dict, int node, const char *ofname,
     const char *propname)
+{
 	int len;
 	uint8_t prop[256];
 	len = OF_getprop(node, ofname, prop, 256);
 	if (len < 1)
 		return FALSE;
 	return prop_dictionary_set_data(dict, propname, prop, len);
+}
 /*
  * look at output-device, see if there's a Sun-typical video mode specifier as
  * in screen:r1024x768x60 attached. If found copy it into *buffer, otherwise
  * return NULL
  */
 char *
 of_get_mode_string(char *buffer, int len)
+{
 	int options;
 	char *pos, output_device[256];
 	/*
 	 * finally, let's see if there's a video mode specified in
 	 * output-device and pass it on so there's at least some way
 	 * to program video modes
 	 */
 	options = OF_finddevice("/options");
 	if ((options == 0) || (options == -1))
 		return NULL;
 	if (OF_getprop(options, "output-device", output_device, 256) == 0)
 		return NULL;
 	/* find the mode string if there is one */
 	pos = strstr(output_device, ":r");
 	if (pos == NULL)
 		return NULL;
 	strncpy(buffer, pos + 2, len);
 	return buffer;
+}
 /*
  * Iterate over the subtree of a i2c controller node.
  * Add all sub-devices into an array as part of the controller's
  * device properties.
  * This is used by the i2c bus attach code to do direct configuration.
  */
 void
 of_enter_i2c_devs(prop_dictionary_t props, int ofnode, size_t cell_size,
     int addr_shift)
+{
 	int node, len;
 	char name[32];
 	uint64_t reg64;
 	uint32_t reg32;
 	uint64_t addr;
 	prop_array_t array = NULL;
 	prop_dictionary_t dev;
 	for (node = OF_child(ofnode); node; node = OF_peer(node)) {
 		if (OF_getprop(node, "name", name, sizeof(name)) <= 0)
 			continue;
 		len = OF_getproplen(node, "reg");
 		addr = 0;
 		if (cell_size == 8 && len >= sizeof(reg64)) {
 			if (OF_getprop(node, "reg", &reg64, sizeof(reg64))
 			    < sizeof(reg64))
 				continue;
 			addr = be64toh(reg64);
 			/*
 			 * The i2c bus number (0 or 1) is encoded in bit 33
 			 * of the register, but we encode it in bit 8 of
 			 * i2c_addr_t.
 			 */
 			if (addr & 0x100000000)
 				addr = (addr & 0xff) | 0x100;
 		} else if (cell_size == 4 && len >= sizeof(reg32)) {
 			if (OF_getprop(node, "reg", &reg32, sizeof(reg32))
 			    < sizeof(reg32))
 				continue;
 			addr = be32toh(reg32);
 		} else {
 			continue;
+		}
 		addr >>= addr_shift;
 		if (addr == 0) continue;
 		if (array == NULL)
 			array = prop_array_create();
 		dev = prop_dictionary_create();
 		prop_dictionary_set_string(dev, "name", name);
 		prop_dictionary_set_uint32(dev, "addr", addr);
 		prop_dictionary_set_uint64(dev, "cookie", node);
 		of_to_dataprop(dev, node, "compatible", "compatible");
 		prop_array_add(array, dev);
 		prop_object_release(dev);
+	}
 	if (array != NULL) {
 		prop_dictionary_set(props, "i2c-child-devices", array);
 		prop_object_release(array);
+	}
+}
 void
 of_enter_spi_devs(prop_dictionary_t props, int ofnode, size_t cell_size)
+{
 	int node, len;
 	char name[32];
 	uint64_t reg64;
 	uint32_t reg32;
 	uint32_t slave;
 	u_int32_t maxfreq;
 	prop_array_t array = NULL;
 	prop_dictionary_t dev;
 	int mode;
 	for (node = OF_child(ofnode); node; node = OF_peer(node)) {
 		if (OF_getprop(node, "name", name, sizeof(name)) <= 0)
 			continue;
 		len = OF_getproplen(node, "reg");
 		slave = 0;
 		if (cell_size == 8 && len >= sizeof(reg64)) {
 			if (OF_getprop(node, "reg", &reg64, sizeof(reg64))
 			    < sizeof(reg64))
 				continue;
 			slave = be64toh(reg64);
 		} else if (cell_size == 4 && len >= sizeof(reg32)) {
 			if (OF_getprop(node, "reg", &reg32, sizeof(reg32))
 			    < sizeof(reg32))
 				continue;
 			slave = be32toh(reg32);
 		} else {
 			continue;
+		}
 		if (of_getprop_uint32(node, "spi-max-frequency", &maxfreq)) {
 			maxfreq = 0;
+		}
 		mode = ((int)of_hasprop(node, "cpol") << 1) | (int)of_hasprop(node, "cpha");
 		if (array == NULL)
 			array = prop_array_create();
 		dev = prop_dictionary_create();
 		prop_dictionary_set_string(dev, "name", name);
 		prop_dictionary_set_uint32(dev, "slave", slave);
 		prop_dictionary_set_uint32(dev, "mode", mode);
 		if (maxfreq > 0)
 			prop_dictionary_set_uint32(dev, "spi-max-frequency", maxfreq);
 		prop_dictionary_set_uint64(dev, "cookie", node);
 		of_to_dataprop(dev, node, "compatible", "compatible");
 		prop_array_add(array, dev);
 		prop_object_release(dev);
+	}
 	if (array != NULL) {
 		prop_dictionary_set(props, "spi-child-devices", array);
 		prop_object_release(array);
+	}
+}
 /*
  * Returns true if the specified property is present.
  */
 bool
 of_hasprop(int node, const char *prop)
+{
 	return OF_getproplen(node, prop) >= 0;
+}
 /*
  * Get the value of a uint32 property, compensating for host byte order.
  * Returns 0 on success, non-zero on failure.
  */
 int
 of_getprop_uint32(int node, const char *prop, uint32_t *val)
+{
 	uint32_t v;
 	int len;
 	len = OF_getprop(node, prop, &v, sizeof(v));
 	if (len != sizeof(v))
 		return -1;
 	*val = be32toh(v);
 	return 0;
+}
 int
 of_getprop_uint32_array(int node, const char *prop, uint32_t *array, int n)
+{
 	uint32_t *v = array;
 	int len;
 	len = OF_getprop(node, prop, array, n * sizeof(*v));
 	if (len < (int)(n * sizeof(*v)))
 		return -1;
 	for (; n > 0; n--) {
 		BE32TOH(*v);
 		v++;
+	}
 	return 0;
+}
 /*
  * Get the value of a uint64 property, compensating for host byte order.
  * Returns 0 on success, non-zero on failure.
  */
 int
 of_getprop_uint64(int node, const char *prop, uint64_t *val)
+{
 	uint64_t v;
 	int len;
 	len = OF_getprop(node, prop, &v, sizeof(v));
 	if (len != sizeof(v))
 		return -1;
 	*val = be64toh(v);
 	return 0;
+}