diff options
| author | Dan Sugalski <dan@sidhe.org> | 1999-06-08 07:09:38 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-06 07:00:01 +0000 |
| commit | 6520202708b2a849ca8538ed88e0f75376c3b2d7 (patch) | |
| tree | 543627af324c7f4ae271b4f2df1abe73fd0ef55e /ext | |
| parent | 626727d5e2c1f691a308ce30d70cf3d5998f4c53 (diff) | |
| download | perl-6520202708b2a849ca8538ed88e0f75376c3b2d7.tar.gz | |
slightly tweaked version of suggested patch
Message-Id: <3.0.6.32.19990608140938.030f12e0@ous.edu>
Subject: [PATCH 5.005_57]Use NV instead of double in the core
p4raw-id: //depot/perl@3602
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 4 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 9d597fbed2..04a05e4251 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -70,10 +70,10 @@ typedef IV IV64; arg = PL_tokenbuf; \ } STMT_END -#define BGET_double(arg) STMT_START { \ +#define BGET_NV(arg) STMT_START { \ char *str; \ BGET_strconst(str); \ - arg = atof(str); \ + arg = Perl_atonv(str); \ } STMT_END #define BGET_objindex(arg, type) STMT_START { \ diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 544a59f042..035578f424 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -221,8 +221,8 @@ byterun(pTHXo_ struct bytestream bs) } case INSN_XNV: /* 21 */ { - double arg; - BGET_double(arg); + NV arg; + BGET_NV(arg); SvNVX(bytecode_sv) = arg; break; } |