epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

RecordSizeOffset now static; fix decoration for registrar functions

Browse Source
This commit is contained in:
Marty Kraimer
2003-03-27 14:59:47 +00:00
parent 88bbe19d70
commit 6438775f6e
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/registry/registerRecordDeviceDriver.pl
View File

@@ -61,7 +61,14 @@ print << "END" ;
#include "registryDriverSupport.h"
#include "iocsh.h"
#include "shareLib.h"
#define GEN_SIZE_OFFSET
END
if($numberRecordType>0) {
for ($i=0; $i<$numberRecordType; $i++) {
print "#include <$recordType[$i]Record.h>\n"
}
}
print "#undef GEN_SIZE_OFFSET\n";
#definitions for recordtype
if($numberRecordType>0) {
@@ -70,9 +77,6 @@ if($numberRecordType>0) {
print "#endif\n";
for ($i=0; $i<$numberRecordType; $i++) {
print "epicsShareExtern struct rset $recordType[$i]RSET;\n";
print "epicsShareFunc int epicsShareAPI $recordType[$i]RecordSizeOffset(dbRecordType *pdbRecordType);\n";
#NOTE the following caused a compiler error on vxWorks
# print "extern computeSizeOffset $recordType[$i]RecordSizeOffset;\n";
}
print "#ifdef __cplusplus\n";
print "}\n";
@@ -155,7 +159,7 @@ if($numberRegistrar>0) {
print "typedef void(*REGISTRARFUNC)(void);\n";
print "extern \"C\" {\n";
for ($i=0; $i<$numberRegistrar; $i++) {
print "epicsShareFunc void epicsShareAPI $registrar[$i](void);\n";
print "epicsShareFunc void $registrar[$i](void);\n";
}
print "}\n\n";
}