Skip to content
This repository
Browse code

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

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

0 comments on commit cd61d94

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