Experimental Physics and
Industrial Control System

Andrew Johnson via Core-talk <core-talk at aps.anl.gov> · Fri, 13 May 2022 22:55:15 -0000

See https://github.com/epics-base/epics-base/pull/267 for a solution to
this.

-- 
You received this bug notification because you are a member of EPICS
Core Developers, which is subscribed to EPICS Base.
Matching subscriptions: epics-core-list-subscription
https://bugs.launchpad.net/bugs/1858467

Title:
  dbExpand.pl outputs records in non-deterministic order

Status in EPICS Base:
  Triaged
Status in EPICS Base 7.0 series:
  Triaged

Bug description:
  This concerns only the 7.0 branch since in 3.15 there is no
  dbExpand.pl.

  The observed non-determinism makes it hard to compare (diff) generated
  db files if DB_OPT has been set in a Makefile.

  The solution is simple, at the cost of making the procedure slightly
  less efficient:

  diff --git a/modules/database/src/tools/DBD/Output.pm b/modules/database/src/tools/DBD/Output.pm
  index 869b485..55051df 100644
  --- a/modules/database/src/tools/DBD/Output.pm
  +++ b/modules/database/src/tools/DBD/Output.pm
  @@ -118,8 +118,7 @@ sub OutputBreaktables {

   sub OutputRecords {
       my ($out, $records) = @_;
  -    foreach my $name (sort(keys %$records)) {
  -        my $rec = $records->{$name};
  +    while (my ($name, $rec) = each %{$records}) {
           next if $name ne $rec->name; # Alias
           printf $out "record(%s, \"%s\") {\n", $rec->recordtype->name, $name;
           printf $out "    alias(\"%s\")\n", $_

  Note: other output routines inside this module are similarly non-
  deterministic in their output, but they are not used by dbExpand.pl.

To manage notifications about this bug go to:
https://bugs.launchpad.net/epics-base/+bug/1858467/+subscriptions

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System