From f41cdef0d63343517731920792eb25eb3d62dedf Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 24 Mar 2003 13:54:30 +0000
Subject: [PATCH] changes for stupid win32

---
 src/registry/registerRecordDeviceDriver.pl | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/registry/registerRecordDeviceDriver.pl b/src/registry/registerRecordDeviceDriver.pl
index 98eb81199..cbd94c853 100755
--- a/src/registry/registerRecordDeviceDriver.pl
+++ b/src/registry/registerRecordDeviceDriver.pl
@@ -158,14 +158,6 @@ if($numberRegistrar>0) {
 	print "epicsShareFunc void epicsShareAPI $registrar[$i](void);\n";
     }
     print "}\n\n";
-    
-    print "static REGISTRARFUNC registrarFunctions[$i] = {\n";
-    for ($i=0; $i<$numberRegistrar; $i++) {
-        print "    &$registrar[$i]";
-        if($i < $numberRegistrar-1) { print ",";}
-        print "\n";
-    }
-    print "};\n\n";
 }
 
 #Now actual registration code.
@@ -226,11 +218,9 @@ if($numberDriverSupport>0) {
 END
 }
 if($numberRegistrar>0) {
-    print << "END" ;
-    for(i=0; i< $numberRegistrar;  i++ ) {
-        registrarFunctions[i]();
+    for($i=0; $i< $numberRegistrar;  $i++ ) {
+        print "    $registrar[$i]();\n";
     }
-END
 }
 print << "END" ;
     return(0);