From e2c55e3d2657be8af55b1c80a96b8a1331c0eae3 Mon Sep 17 00:00:00 2001
From: Yannis Huber <32066446+yannishuber@users.noreply.github.com>
Date: Mon, 8 Jun 2020 16:59:13 +0200
Subject: [PATCH] gen-device-svd: fix lowercase cluster name

---
 tools/gen-device-svd/gen-device-svd.go | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tools/gen-device-svd/gen-device-svd.go b/tools/gen-device-svd/gen-device-svd.go
index c32cf973..e63b026a 100755
--- a/tools/gen-device-svd/gen-device-svd.go
+++ b/tools/gen-device-svd/gen-device-svd.go
@@ -342,6 +342,11 @@ func readSVD(path, sourceURL string) (*Device, error) {
 				firstAddress := clusterRegisters[0].address
 				dimIncrement = int(lastAddress - firstAddress)
 			}
+
+			if !unicode.IsUpper(rune(clusterName[0])) && !unicode.IsDigit(rune(clusterName[0])) {
+				clusterName = strings.ToUpper(clusterName)
+			}
+
 			p.registers = append(p.registers, &PeripheralField{
 				name:        clusterName,
 				address:     baseAddress + clusterOffset,