1 # Copyright (C) 2001-2007, Parrot Foundation.
6 config/auto/va_ptr.pm - va_list to va_ptr conversion test
10 Tests which kind of PARROT_VA_TO_VAPTR to use.
19 use base
qw(Parrot::Configure::Step);
21 use Parrot
::Configure
::Utils
':auto';
27 $data{description
} = q{Test the type of va_ptr};
33 my ( $self, $conf ) = @_;
36 $conf->cc_gen('config/auto/va_ptr/test_c.in');
37 eval { $conf->cc_build('-DVA_TYPE_STACK'); };
39 if ( $@
|| $conf->cc_run() !~ /^ok/ ) {
40 eval { $conf->cc_build('-DVA_TYPE_REGISTER'); };
41 if ( $@
|| $conf->cc_run() !~ /^ok/ ) {
42 die "Unknown va_ptr type";
44 $va_type = 'register';
50 $self->set_result($va_type);
51 $conf->data->set( va_ptr_type
=> $va_type );
60 # cperl-indent-level: 4
63 # vim: expandtab shiftwidth=4: