config/auto/memalign.pm

   1 # Copyright (C) 2001-2003, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/memalign.pm - Memory Alignment
   7
   8 =head1 DESCRIPTION
   9
  10 Determines if the C library supports C<memalign()>.
  11
  12 =cut
  13
  14 package auto::memalign;
  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} = q{Determining if your C library supports memalign};
  28     $data{result}      = q{};
  29     return \%data;
  30 }
  31
  32 sub runstep {
  33     my ( $self, $conf ) = @_;
  34
  35     if ( $conf->options->get('miniparrot') ) {
  36         $conf->data->set( memalign => '' );
  37         $self->set_result('skipped');
  38         return 1;
  39     }
  40
  41     if ( defined $conf->data->get('memalign') ) {
  42
  43         # already set; leave it alone
  44         $self->set_result('already set');
  45         return 1;
  46     }
  47     my $test = 0;
  48
  49     _set_malloc_header($conf);
  50
  51     _set_ptrcast($conf);
  52
  53     $conf->cc_gen('config/auto/memalign/test_c.in');
  54     eval { $conf->cc_build(); };
  55     unless ( $@ || $conf->cc_run_capture() !~ /ok/ ) {
  56         $test = 1;
  57     }
  58     $conf->cc_clean();
  59
  60     my $test2 = 0;
  61
  62     $conf->cc_gen('config/auto/memalign/test_c2.in');
  63     eval { $conf->cc_build(); };
  64     unless ( $@ || $conf->cc_run_capture() !~ /ok/ ) {
  65         $test2 = 1;
  66     }
  67     $conf->cc_clean();
  68
  69     $self->_set_memalign($conf, $test, $test2);
  70
  71     return 1;
  72 }
  73
  74 sub _set_malloc_header {
  75     my $conf = shift;
  76     if ( $conf->data->get('i_malloc') ) {
  77         $conf->data->set( malloc_header => 'malloc.h' );
  78     }
  79     else {
  80         $conf->data->set( malloc_header => 'stdlib.h' );
  81     }
  82 }
  83
  84 sub _set_ptrcast {
  85     my $conf = shift;
  86     if ( $conf->data->get('ptrsize') == $conf->data->get('intsize') ) {
  87         $conf->data->set( ptrcast => 'int' );
  88     }
  89     else {
  90         $conf->data->set( ptrcast => 'long' );
  91     }
  92 }
  93
  94 sub _set_memalign {
  95     my $self = shift;
  96     my ($conf, $test, $test2) = @_;
  97     $conf->data->set( malloc_header => undef );
  98
  99     my $f =
 100           $test2 ? 'posix_memalign'
 101         : $test  ? 'memalign'
 102         :          '';
 103     $conf->data->set( memalign => $f );
 104     print( $test ? " (Yep:$f) " : " (no) " ) if $conf->options->get('verbose');
 105     $self->set_result( $test ? 'yes' : 'no' );
 106 }
 107
 108 1;
 109
 110 # Local Variables:
 111 #   mode: cperl
 112 #   cperl-indent-level: 4
 113 #   fill-column: 100
 114 # End:
 115 # vim: expandtab shiftwidth=4: