Skip to content
Browse files

Merge branch 'm0' of github.com:parrot/parrot into m0

  • Loading branch information...
2 parents 455cd1b + f35c986 commit cd61d94d061acd4d0113183ee233aefaacba4c1c Jimmy Zhuo committed Apr 4, 2012
View
4 src/m0/perl5/m0_interp.pl
@@ -256,9 +256,9 @@ sub i {
sub n {
if (scalar(@_) == 2) {
my ($cf, $reg) = @_;
- return unpack('f', $cf->[$reg]);
+ return unpack('d', $cf->[$reg]);
}
- return pack('f', $_[0] );
+ return pack('d', $_[0] );
}
View
2 t/m0/integration/m0_deref.m0
@@ -16,7 +16,7 @@
set_imm N0, 0, 3
deref N0, CONSTS, N0
set_imm N1, 0, 99
- sub_n N0, N0, N1
+ sub_i N0, N0, N1
goto_if deref_nok, N0
goto deref_ok, x
View
2 t/m0/integration/m0_set.m0
@@ -17,7 +17,7 @@
deref N0, CONSTS, N0
set N1, N0, x
set_imm N0, 0, 99
- sub_n N0, N0, N1
+ sub_i N0, N0, N1
goto_if set_nok, N0
goto set_ok, x
View
2 t/m0/integration/m0_set_imm.m0
@@ -16,7 +16,7 @@
set_imm N0, 0, 3
deref N0, CONSTS, N0
set_imm N1, 0, 99
- sub_n N0, N0, N1
+ sub_i N0, N0, N1
goto_if set_imm_nok, N0
goto set_imm_ok, x
View
2 t/m0/integration/m0_set_ref.m0
@@ -19,7 +19,7 @@
set_imm N1, 0, 4
deref N1, CONSTS, N1
- sub_n N0, N0, N1
+ sub_i N0, N0, N1
goto_if set_ref_nok, N0
goto set_ref_ok, x

0 comments on commit cd61d94

Please sign in to comment.
Something went wrong with that request. Please try again.