epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

changes for stupid win32

Browse Source
This commit is contained in:
Marty Kraimer
2003-03-24 13:54:30 +00:00
parent e675fd2178
commit f41cdef0d6
1 changed files with 2 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/registry/registerRecordDeviceDriver.pl
View File

@@ -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);