config/auto/va_ptr.pm

   1 # Copyright (C) 2001-2007, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/va_ptr.pm - va_list to va_ptr conversion test
   7
   8 =head1 DESCRIPTION
   9
  10 Tests which kind of PARROT_VA_TO_VAPTR to use.
  11
  12 =cut
  13
  14 package auto::va_ptr;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 use Parrot::Configure::Utils ':auto';
  22
  23
  24 sub _init {
  25     my $self = shift;
  26     my %data;
  27     $data{description} =
  28         q{Test the type of va_ptr (this test is likely to segfault)};
  29     $data{result}      = q{};
  30     return \%data;
  31 }
  32
  33 sub runstep {
  34     my ( $self, $conf ) = @_;
  35
  36     my $va_type;
  37     $conf->cc_gen('config/auto/va_ptr/test_c.in');
  38     eval { $conf->cc_build('-DVA_TYPE_STACK'); };
  39
  40     if ( $@ || $conf->cc_run() !~ /^ok/ ) {
  41         eval { $conf->cc_build('-DVA_TYPE_REGISTER'); };
  42         if ( $@ || $conf->cc_run() !~ /^ok/ ) {
  43             die "Unknown va_ptr type";
  44         }
  45         $va_type = 'register';
  46     }
  47     else {
  48         $va_type = 'stack';
  49     }
  50     $conf->cc_clean();
  51     $self->set_result($va_type);
  52     $conf->data->set( va_ptr_type => $va_type );
  53
  54     return 1;
  55 }
  56
  57 1;
  58
  59 # Local Variables:
  60 #   mode: cperl
  61 #   cperl-indent-level: 4
  62 #   fill-column: 100
  63 # End:
  64 # vim: expandtab shiftwidth=4: