Lines Matching refs:_
147 my %disabled_uc = map { my $x = uc $_; $x =~ s|-|_|g; $x => 1 } keys %disabled;
179 if (exists $OS->{platforms}->{$_}) {
180 return $platforms{$_} == $OS->{platforms}->{$_};
182 if ($platforms{$_}) {
198 my $verdict = ! grep { $disabled_uc{$_} } @features;
254 for (@_) {
255 if ($thisversion && $_->version() ne $thisversion) {
267 $thisversion = $_->version();
276 print ' ', $_->name(), ";\n";
286 for (@_) {
287 print $_->name(),"\n";
292 for (@_) {
293 print "-export ",$_->name(),"\n";
307 for (@_) {
308 print " ",$_->name();
310 print "=". platform->export2internal($_->name());
317 return [ 'SPARE', 'SPARE' ] unless @_;
328 return [ 'SPARE' ] unless @_;
343 foreach (@_) {
344 my $this_num = $_->number();
353 } -> {$_->type()};
354 push @slot_collection, $collector->($_->name(), $type);
378 + length($_)
401 $symvtextcount += length($indent) + length($_) + 1;
431 for (@_) {
432 my $this_num = $_->number();
435 if ($_->type() eq 'VARIABLE') {
436 print "\textern int ", $_->name(), '; /* type unknown */ /* ',
437 $this_num, ' ', $_->version(), " */\n";
439 print "\textern int ", $_->name(), '(); /* type unknown */ /* ',
440 $this_num, ' ', $_->version(), " */\n";
