[Lsb-messages] /var/www/bzr/lsb/devel/build_env r2138: Fix processing of 'pointer to array' type members

Denis Silakov denis.silakov at rosalab.ru
Fri Aug 23 06:09:04 UTC 2013


------------------------------------------------------------
revno: 2138
committer: Denis Silakov <denis.silakov at rosalab.ru>
branch nick: build_env
timestamp: Fri 2013-08-23 10:09:04 +0400
message:
  Fix processing of 'pointer to array' type members
modified:
  specdb.pm
-------------- next part --------------
=== modified file 'specdb.pm'
--- a/specdb.pm	2012-03-20 13:16:07 +0000
+++ b/specdb.pm	2013-08-23 06:09:04 +0000
@@ -774,6 +774,18 @@
                         }
                     }
                 }
+                elsif( $bentry->{'Ttype'} eq 'Array' ) {
+                    $tth = getBaseTypeRecord( $ArchId, $bentry->{'ATbasetype'} );
+                    $bentry2 = $tth->fetchrow_hashref;
+                    $tth->finish;
+                    if ($bentry2->{'Ttype'} eq 'Array') {
+                        print "[".$bentry2->{'ATsize'}."]"."[".$bentry->{'ATsize'}."]";
+                    } elsif( $bentry->{'ATsize'} and $bentry->{'ATsize'} ne '0' ) {
+                        print "[".$bentry->{'ATsize'}."]";
+                    } else {
+                        print "[]";
+                    }
+                }
                 if( $tmentry->{'TMbitfield'} != 0 ) {
                     print ":".$tmentry->{'TMbitfield'};
                 }



More information about the lsb-messages mailing list