regRecDevDrv.pl: Don't break long symbol names in DBD files

Makes a test symbol name long enough to trigger the problem.

Fixes lp: #1995728
This commit is contained in:
Andrew Johnson
2022-11-04 11:09:06 -05:00
parent 0f8ea3aa36
commit cbd86ada20
3 changed files with 6 additions and 3 deletions

View File

@@ -46,6 +46,7 @@ if ($opt_D) { # Output dependencies only
}
$Text::Wrap::columns = 75;
$Text::Wrap::huge = 'overflow';
# Eliminate chars not allowed in C symbol names
my $c_bad_ident_chars = '[^0-9A-Za-z_]';

View File

@@ -131,13 +131,15 @@ static long xscanio_read(xRecord *prec)
return 0;
}
static xdset devxScanIO = {
static xdset
devxScanIO_excessively_long_symbol_name_for_testing_code_generation = {
5, NULL, NULL,
&xscanio_init_record,
&xscanio_get_ioint_info,
&xscanio_read
};
epicsExportAddress(dset, devxScanIO);
epicsExportAddress(dset,
devxScanIO_excessively_long_symbol_name_for_testing_code_generation);
/* basic DTYP="Soft Channel" */
static long xsoft_init_record(xRecord *prec)

View File

@@ -1,2 +1,2 @@
device(x, CONSTANT, devxSoft, "Soft Channel")
device(x, INST_IO , devxScanIO, "Scan I/O")
device(x, INST_IO, devxScanIO_excessively_long_symbol_name_for_testing_code_generation, "Scan I/O")