From 8a6cbfde2027ee178ce07b9d38206cdb8876ddc6 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Thu, 29 May 2003 21:20:02 +0000
Subject: [PATCH] Driver support names are const char*

---
 src/registry/registerRecordDeviceDriver.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/registry/registerRecordDeviceDriver.pl b/src/registry/registerRecordDeviceDriver.pl
index 05af0db70..b25d2e08c 100755
--- a/src/registry/registerRecordDeviceDriver.pl
+++ b/src/registry/registerRecordDeviceDriver.pl
@@ -115,7 +115,7 @@ if($numberDriverSupport>0) {
     for ($i=0; $i<$numberDriverSupport; $i++) {
         print "epicsShareExtern drvet *p$driverSupport[$i];\n";
     }
-    print "\nstatic char *driverSupportNames[$numberDriverSupport] = {\n";
+    print "\nstatic const char *driverSupportNames[$numberDriverSupport] = {\n";
     for ($i=0; $i<$numberDriverSupport; $i++) {
         print "    \"$driverSupport[$i]\"";
         if($i < $numberDriverSupport-1) { print ",";}