Permalink
Browse files

Use double precision floating point values for the perl m0_interp.pl …

…per the spec
  • Loading branch information...
1 parent f0987bc commit 1c59bbd85f9febb3f3023dc9bbbd1fea1b9280ee @nbrown nbrown committed Apr 3, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 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] );
}

0 comments on commit 1c59bbd

Please sign in to comment.