2 # Copyright (C) 2001-2005, The Perl Foundation.
7 use lib qw( . lib ../lib ../../lib );
9 use Parrot::Test tests => 14;
13 t/op/jitn.t - JIT register allocation
21 Tests JIT register allocation. These tests are written for four mappable
26 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 1,2,3 mapped" );
44 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_i 1,2,3 mapped" );
59 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 1,2 mapped" );
83 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 1,3 mapped" );
107 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_i 1,3 mapped" );
129 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 2,3 mapped" );
153 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_i 2,3 mapped" );
178 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 1 mapped" );
203 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 2 mapped" );
227 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 3 mapped" );
251 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n 0 mapped" );
276 pasm_output_is( <<'CODE', <<'OUTPUT', "sub_n_n_n mapped same" );
278 add N2, N2, N2 # reserve first reg
298 pir_output_is( <<'CODE', <<'OUT', "set_i_n testing" );
323 pasm_output_is( <<'CODE', <<'OUTPUT', "rounding due to mapped" );
338 # cperl-indent-level: 4
341 # vim: expandtab shiftwidth=4: