diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-06 09:28:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-06 09:28:48 +0000 |
| commit | cad2e5aadfceb1a406f657488ea1c699f44a1487 (patch) | |
| tree | 6b3bb4b24d8f3134513ba135edab54a4ea574fef /ext/ByteLoader/bytecode.h | |
| parent | 4e4001929c5e81f54967a70241728b7f8bd0de63 (diff) | |
| download | perl-cad2e5aadfceb1a406f657488ea1c699f44a1487.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@3609
Diffstat (limited to 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 4 |
1 files changed, 2 insertions, 2 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 { \ |