File Coverage

File:config/auto/jit.pm
Coverage:100.0%

linestmtbrancondsubcode
1# Copyright (C) 2001-2009, Parrot Foundation.
2# $Id: jit.pm 41356 2009-09-19 08:10:11Z bacek $
3
4 - 18
=head1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines whether there is JIT capability available.  Use the
C<--jitcapable> and C<--execcapable> options to override the default
value calculated specifically for your CPU architecture and operating
system.

Code formerly found in this step class used to determine characteristics
of the CPU has been moved into the preceding step class, auto::arch.

=cut
19
20package auto::jit;
21
22
81
81
81
81
use strict;
23
81
81
81
81
use warnings;
24
25
81
81
81
81
use base qw(Parrot::Configure::Step);
26
27sub _init {
28
81
81
    my $self = shift;
29
81
    my %data;
30
81
    $data{description} = q{Determine JIT capability};
31
81
    $data{result} = q{};
32
81
    return \%data;
33}
34
35sub runstep {
36
80
80
    my ( $self, $conf ) = @_;
37
38
80
    my $osname = $conf->data->get('osname');
39
80
    my $cpuarch = $conf->data->get('cpuarch');
40
41
80
    $conf->data->set(
42        jitarchname => 'nojit',
43        jitcpuarch => $cpuarch,
44        jitcpu => $cpuarch,
45        jitosname => $osname,
46        jitcapable => 0,
47        execcapable => 0,
48        cc_hasjit => '',
49        TEMP_jit_o => '',
50        TEMP_exec_h => '',
51        TEMP_exec_o => '',
52        TEMP_exec_dep => '',
53        asmfun_o => '',
54    );
55
80
    $self->set_result('no');
56
80
    return 1;
57}
58
591;
60
61# Local Variables:
62# mode: cperl
63# cperl-indent-level: 4
64# fill-column: 100
65# End:
66# vim: expandtab shiftwidth=4: