# realname is name if not set by user
$_->{"realname"} = $_->{"name"} if (! exists($_->{"realname"}));
my $realname = $_->{realname};
# realname is name if not set by user
$_->{"realname"} = $_->{"name"} if (! exists($_->{"realname"}));
my $realname = $_->{realname};
push(@obst_regtypes_def, "\t\t\"$realname\",\n");
push(@obst_regtypes_def, "\t\t$class_ptr,\n");
push(@obst_regtypes_def, "\t\tREG_${ucname},\n");
push(@obst_regtypes_def, "\t\t\"$realname\",\n");
push(@obst_regtypes_def, "\t\t$class_ptr,\n");
push(@obst_regtypes_def, "\t\tREG_${ucname},\n");
- push(@obst_regtypes_def, "\t\t$type,\n");
- push(@obst_regtypes_def, "\t\t$execunitvarname\n");
+ push(@obst_regtypes_def, "\t\t$type\n");