Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #754 from nbrown/m0-double-precision

M0 double precision
  • Loading branch information...
commit f35c986f39cebbc4cf5239e35feedf604b2fde07 2 parents ab85c1c + 1c59bbd
Jimmy Zhuo authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.