Add support for Olimex firmware updates.

Makefile

@@ -129,6 +129,7 @@ OBJ=\
     drivers/sim.o \
     drivers/tilib.o \
     drivers/goodfet.o \
+    drivers/obl.o \
     formats/binfile.o \
     formats/coff.o \
     formats/elf32.o \

drivers/fet.c

@@ -39,6 +39,7 @@
 #include "olimex_iso.h"
 #include "rf2500.h"
 #include "ti3410.h"
+#include "obl.h"
 
 /* Send data in separate packets, as in the RF2500 */
 #define FET_PROTO_SEPARATE_DATA		0x01
@@ -1115,6 +1116,7 @@ const struct device_class device_rf2500 = {
 static device_t fet_open_olimex(const struct device_args *args)
 {
 	transport_t trans;
+	uint32_t version;
 
 	if (args->flags & DEVICE_FLAG_TTY)
 		trans = uif_open(args->path, UIF_TYPE_OLIMEX);
@@ -1124,6 +1126,32 @@ static device_t fet_open_olimex(const struct device_args *args)
 	if (!trans)
 		return NULL;
 
+	if (args->require_fwupdate) {
+		int r;
+
+		if (obl_update(trans, args->require_fwupdate) < 0) {
+			trans->ops->destroy(trans);
+			return NULL;
+		}
+
+		r = obl_reset(trans);
+		trans->ops->destroy(trans);
+
+		printc("Resetting, please wait...\n");
+		delay_s(15);
+
+		if (args->flags & DEVICE_FLAG_TTY)
+			trans = uif_open(args->path, UIF_TYPE_OLIMEX);
+		else
+			trans = olimex_open(args->path, args->requested_serial);
+
+		if (!trans)
+			return NULL;
+	}
+
+	if (!obl_get_version(trans, &version))
+		printc_dbg("Olimex firmware version: %x\n", version);
+
 	return fet_open(args, FET_PROTO_NOLEAD_SEND | FET_PROTO_EXTRA_RECV |
 			      FET_PROTO_IDENTIFY_NEW | FET_PROTO_FORCE_RESET,
 			trans, &device_olimex);

drivers/obl.c

@@ -0,0 +1,412 @@
+/* MSPDebug - debugging tool for MSP430 MCUs
+ * Copyright (C) 2009-2012 Daniel Beer
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "util.h"
+#include "output.h"
+#include "obl.h"
+
+#define IMAGE_MAGIC		0xd1261176
+#define FLASH_PAGE_SIZE		1024
+#define COPY_OFFSET		0x38000
+#define COPY_VALID_ADDR		0x7dff0
+
+typedef enum {
+	OBL_CMD_READ_RAM	= 0x01,
+	OBL_CMD_WRITE_RAM	= 0x02,
+	OBL_CMD_READ_FLASH	= 0x03,
+	OBL_CMD_WRITE_FLASH	= 0x04,
+	OBL_CMD_RF_SELF_TEST	= 0x05,
+	OBL_CMD_SET_PROTECTION	= 0x06,
+	OBL_CMD_DEV_RESET	= 0x07,
+	OBL_CMD_DEV_VERSION	= 0x08,
+	OBL_CMD_PROD_TEST	= 0x09
+} obl_cmd_t;
+
+typedef enum {
+	OBL_RESULT_OK			= 0x00,
+	OBL_RESULT_NRF_SPI_FAULT	= 0x01,
+	OBL_RESULT_NRF_LINK_FAULT	= 0x02,
+	OBL_RESULT_COMMAND_FAULT	= 0xff
+} obl_result_t;
+
+struct progress_meter {
+	uint32_t	total;
+	uint32_t	last;
+	int		interval_shift;
+};
+
+static void progress_init(struct progress_meter *m, uint32_t size)
+{
+	m->total = size;
+	m->last = 0;
+	m->interval_shift = 0;
+
+	while (size > 30) {
+		size >>= 1;
+		m->interval_shift++;
+	}
+}
+
+static void progress_update(struct progress_meter *m, const char *label,
+			    uint32_t cur)
+{
+	if (!((m->last ^ cur) >> m->interval_shift))
+		return;
+
+	m->last = cur;
+	printc("%s: %8d/%8d [%3d%%]\n",
+	       label, cur, m->total, cur * 100 / m->total);
+}
+
+static int transport_read_all(transport_t tr, uint8_t *data, int len)
+{
+	while (len > 0) {
+		int r = tr->ops->recv(tr, data, len);
+
+		if (r <= 0)
+			return -1;
+
+		data += r;
+		len -= r;
+	}
+
+	return 0;
+}
+
+static int obl_xfer(transport_t tr, const uint8_t *command, int cmd_len,
+		    uint8_t *recv_data, int recv_len)
+{
+	uint8_t result;
+
+	if (tr->ops->set_modem(tr, TRANSPORT_MODEM_DTR) < 0) {
+		printc_err("obl_xfer: failed to activate DTR\n");
+		return -1;
+	}
+
+	if (tr->ops->send(tr, command, cmd_len) < 0) {
+		printc_err("obl_xfer: failed to send command\n");
+		goto fail;
+	}
+
+	if (tr->ops->recv(tr, &result, 1) < 0) {
+		printc_err("obl_xfer: failed to read status byte\n");
+		goto fail;
+	}
+
+	if (result != OBL_RESULT_OK) {
+		printc_err("obl_xfer: device error code: 0x%02x\n",
+			   result);
+		goto fail;
+	}
+
+	if (recv_len && transport_read_all(tr, recv_data, recv_len) < 0) {
+		printc_err("obl_xfer: failed to read data\n");
+		goto fail;
+	}
+
+	tr->ops->set_modem(tr, 0);
+	return 0;
+
+fail:
+	tr->ops->set_modem(tr, 0);
+	return -1;
+}
+
+static uint8_t *read_file(const char *filename, unsigned int *len_ret)
+{
+	FILE *in = fopen(filename, "rb");
+	unsigned int len;
+	uint8_t *buf;
+
+	if (!in) {
+		printc_err("Can't open %s for reading: %s\n",
+			   filename, last_error());
+		return NULL;
+	}
+
+	if (fseek(in, 0, SEEK_END) < 0) {
+		printc_err("Can't determine file size: %s: %s\n",
+			   filename, last_error());
+		fclose(in);
+		return NULL;
+	}
+
+	len = ftell(in);
+	rewind(in);
+
+	buf = malloc(len);
+	if (!buf) {
+		printc_err("Can't allocate memory for "
+			   "firmware image: %s: %s\n",
+			   filename, last_error());
+		fclose(in);
+		return NULL;
+	}
+
+	if (fread(buf, len, 1, in) != 1) {
+		printc_err("Failed to read %s: %s\n",
+			   filename, last_error());
+		free(buf);
+		fclose(in);
+		return NULL;
+	}
+
+	fclose(in);
+
+	*len_ret = len;
+	return buf;
+}
+
+static int obl_read_mem(transport_t tr, uint32_t addr,
+			uint8_t *data, uint32_t size)
+{
+	uint8_t cmd[9];
+
+	cmd[0] = OBL_CMD_READ_RAM;
+	cmd[1] = addr & 0xff;
+	cmd[2] = (addr >> 8) & 0xff;
+	cmd[3] = (addr >> 16) & 0xff;
+	cmd[4] = (addr >> 24) & 0xff;
+	cmd[5] = size & 0xff;
+	cmd[6] = (size >> 8) & 0xff;
+	cmd[7] = (size >> 16) & 0xff;
+	cmd[8] = (size >> 24) & 0xff;
+
+	if (obl_xfer(tr, cmd, sizeof(cmd), data, size) < 0) {
+		printc_err("obl_read_mem: failed to read %d bytes from "
+			   "0x%x\n", size, addr);
+		return -1;
+	}
+
+	return 0;
+}
+
+static int obl_write_flash(transport_t tr, uint32_t addr,
+			   const uint8_t *data, uint32_t size)
+{
+	uint8_t cmd[size + 9];
+
+	cmd[0] = OBL_CMD_WRITE_FLASH;
+	cmd[1] = addr & 0xff;
+	cmd[2] = (addr >> 8) & 0xff;
+	cmd[3] = (addr >> 16) & 0xff;
+	cmd[4] = (addr >> 24) & 0xff;
+	cmd[5] = size & 0xff;
+	cmd[6] = (size >> 8) & 0xff;
+	cmd[7] = (size >> 16) & 0xff;
+	cmd[8] = (size >> 24) & 0xff;
+
+	memcpy(cmd + 9, data, size);
+
+	if (obl_xfer(tr, cmd, size + 9, NULL, 0) < 0) {
+		printc_err("obl_write_flash: failed to write %d bytes to "
+			   "0x%x\n", size, addr);
+		return -1;
+	}
+
+	return 0;
+}
+
+static int write_image(transport_t tr, uint32_t addr, uint32_t size,
+		       const uint8_t *data)
+{
+	struct progress_meter pm;
+	uint32_t i;
+
+	progress_init(&pm, size);
+
+	for (i = 0; i < size; i += FLASH_PAGE_SIZE) {
+		const uint32_t offset = i + addr + COPY_OFFSET;
+		int r;
+
+		if (i + FLASH_PAGE_SIZE < size) {
+			r = obl_write_flash(tr, offset,
+					    data + i, FLASH_PAGE_SIZE);
+		} else {
+			uint8_t partial[FLASH_PAGE_SIZE];
+
+			memset(partial, 0xff, sizeof(partial));
+			memcpy(partial, data + i, size - i);
+			r = obl_write_flash(tr, offset, partial,
+					    FLASH_PAGE_SIZE);
+		}
+
+		if (r < 0) {
+			printc_err("Write failed at offset 0x%x\n", i);
+			return -1;
+		}
+
+		progress_update(&pm, "Writing", i);
+	}
+
+	return 0;
+}
+
+static int verify_image(transport_t tr, uint32_t addr, uint32_t size,
+			const uint8_t *data)
+{
+	struct progress_meter pm;
+	uint32_t i;
+
+	progress_init(&pm, size);
+
+	for (i = 0; i < size; i += FLASH_PAGE_SIZE) {
+		const uint32_t offset = i + addr + COPY_OFFSET;
+		uint8_t buf[FLASH_PAGE_SIZE];
+		int is_ok = 1;
+
+		if (obl_read_mem(tr, offset, buf, FLASH_PAGE_SIZE) < 0) {
+			printc_err("Read error at offset 0x%x\n", i);
+			return -1;
+		}
+
+		if (i + FLASH_PAGE_SIZE < size) {
+			if (memcmp(buf, data + i, FLASH_PAGE_SIZE))
+				is_ok = 0;
+		} else {
+			int j;
+
+			if (memcmp(buf, data + i, size - i))
+				is_ok = 0;
+			for (j = size - i; j < FLASH_PAGE_SIZE; j++)
+				if (buf[j] != 0xff)
+					is_ok = 0;
+		}
+
+		if (!is_ok) {
+			printc_err("Verification failed at flash "
+				   "page offset 0x%x\n", i);
+			return -1;
+		}
+
+		progress_update(&pm, "Verifying", i);
+	}
+
+	return 0;
+}
+
+static int write_valid_size(transport_t tr, uint32_t size)
+{
+	uint8_t buf[FLASH_PAGE_SIZE];
+	const int page = COPY_VALID_ADDR & ~(FLASH_PAGE_SIZE - 1);
+	const int offset = COPY_VALID_ADDR & (FLASH_PAGE_SIZE - 1);
+
+	memset(buf, 0xff, sizeof(buf));
+	buf[offset] = size & 0xff;
+	buf[offset + 1] = (size >> 8) & 0xff;
+	buf[offset + 2] = (size >> 16) & 0xff;
+	buf[offset + 3] = (size >> 24) & 0xff;
+
+	if (obl_write_flash(tr, page, buf, FLASH_PAGE_SIZE) < 0) {
+		printc_err("Failed to write image-valid marker\n");
+		return -1;
+	}
+
+	return 0;
+}
+
+int obl_get_version(transport_t tr, uint32_t *ver_ret)
+{
+	static const uint8_t cmd = OBL_CMD_DEV_VERSION;
+	uint8_t buf[4];
+	uint32_t version;
+
+	if (obl_xfer(tr, &cmd, 1, buf, 4) < 0) {
+		printc_err("warning: obl_get_version: unable to retrieve "
+			   "Olimex firmware version\n");
+		return -1;
+	}
+
+	version = LE_LONG(buf, 0);
+
+	if (ver_ret)
+		*ver_ret = version;
+
+	return 0;
+}
+
+static int load_image(transport_t trans, const uint8_t *file_data,
+		      unsigned int file_len, const char *image_filename)
+{
+	uint32_t image_offset;
+	uint32_t image_size;
+
+	if (file_len < 16 || LE_LONG(file_data, 0) != IMAGE_MAGIC) {
+		printc_err("Invalid firmware image: %s\n", image_filename);
+		return -1;
+	}
+
+	image_offset = LE_LONG(file_data, 8);
+	image_size = LE_LONG(file_data, 12);
+
+	printc_dbg("Firmware image version: %x: %d bytes at offset 0x%x\n",
+		   LE_LONG(file_data, 4), image_size, image_offset);
+
+	if (image_size + 16 != file_len) {
+		printc_err("Image length mismatch: %s\n", image_filename);
+		return -1;
+	}
+
+	if (write_image(trans, image_offset, image_size,
+			file_data + 16) < 0)
+		return -1;
+
+	if (verify_image(trans, image_offset, image_size,
+			 file_data + 16) < 0)
+		return -1;
+
+	if (write_valid_size(trans, image_size) < 0)
+		return -1;
+
+	printc("Firmware update successful\n");
+	return 0;
+}
+
+int obl_update(transport_t trans, const char *image_filename)
+{
+	uint8_t *file_data;
+	unsigned int file_len;
+
+	file_data = read_file(image_filename, &file_len);
+	if (!file_data)
+		return -1;
+
+	if (load_image(trans, file_data, file_len, image_filename) < 0) {
+		free(file_data);
+		return -1;
+	}
+
+	free(file_data);
+	return 0;
+}
+
+int obl_reset(transport_t trans)
+{
+	const uint8_t cmd = OBL_CMD_DEV_RESET;
+
+	if (obl_xfer(trans, &cmd, 1, NULL, 0) < 0) {
+		printc_err("Device reset failed\n");
+		return -1;
+	}
+
+	return 0;
+}

drivers/obl.h

@@ -0,0 +1,39 @@
+/* MSPDebug - debugging tool for MSP430 MCUs
+ * Copyright (C) 2009-2012 Daniel Beer
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#ifndef OBL_H_
+#define OBL_H_
+
+#include "transport.h"
+
+/* Fetch the version of installed Olimex firmware. Returns 0 on success
+ * or -1 if an error occurs.
+ */
+int obl_get_version(transport_t trans, uint32_t *ver_ret);
+
+/* Perform a firmware update using the given image file. */
+int obl_update(transport_t trans, const char *image_filename);
+
+/* Perform a device reset. This will return almost immediately, but it
+ * will take 15 seconds for the reset to complete. During this time, the
+ * underlying device will disappear and reappear, so it must be
+ * reopened.
+ */
+int obl_reset(transport_t trans);
+
+#endif

mspdebug.man

@@ -77,8 +77,9 @@ When using a V3 FET device via the TI library, allow the library to
 perform a firmware update if the FET firmware is incompatible with the
 library.
 .IP "\-\-require-fw-update \fIimage.txt\fR"
-When using a V3 FET device, force a firmware update using the given
+When using a V3 FET device, or certain Olimex devices, force a firmware
-firmware image. The firmware file must be in TI Text format.
+update using the given firmware image. The firmware format depends on
+the driver.
 .IP "\-\-version"
 Show program version and copyright information.
 .SH DRIVERS

ui/main.c

@@ -115,8 +115,8 @@ static void usage(const char *progname)
 "    --allow-fw-update\n"
 "        Update FET firmware (tilib only) if necessary.\n"
 "    --require-fw-update <image.txt>\n"
-"        Require FET firmware update (tilib only). The image must be\n"
+"        Require FET firmware update. The required image format depends\n"
-"        a TI Text file.\n"
+"        on the driver.\n"
 "    --version\n"
 "        Show copyright and version information.\n"
 "\n"