package reg_spec.pm;
sub new	{
  my $self        = {};
  my $dummy       = shift;
  my $name        = shift;
  my $offset      = shift;
  my $comment     = shift;
  my @fields      = @_;
  my $fref        = \@fields;
  my $fc          = @fields;
  $self->{name}   = $name;
  $self->{field_ptr} = $fref;
  $self->{offset}    = $offset;
  $self->{comment}   = $comment;
  bless  ($self);
  return $self;
}

package areg_fparse.pm;

my $new_reg = reg_spec->new ($cur_reg_name,$cur_reg_offset,$cur_reg_comment,@cur_fields);

printf $OFILE "<Descr Value=\"%s\"> </Descr>\n",$self->{comment};