This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Mark atof2, atof3 for internal use only
authorKarl Williamson <khw@cpan.org>
Sun, 1 Sep 2019 02:58:57 +0000 (20:58 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Sep 2019 16:39:55 +0000 (10:39 -0600)
Now that we have Strtod, my_strtod, those should be used instead.

embed.fnc

index 369499d..efd7f2e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -3113,8 +3113,8 @@ Apd       |char*  |sv_pvn_force_flags|NN SV *const sv|NULLOK STRLEN *const lp|const I32
 AdpMb  |void   |sv_copypv      |NN SV *const dsv|NN SV *const ssv
 Apmd   |void   |sv_copypv_nomg |NN SV *const dsv|NN SV *const ssv
 Apd    |void   |sv_copypv_flags        |NN SV *const dsv|NN SV *const ssv|const I32 flags
-Apo    |char*  |my_atof2       |NN const char *orig|NN NV* value
-Ap     |char*  |my_atof3       |NN const char *orig|NN NV* value|const STRLEN len
+Cpo    |char*  |my_atof2       |NN const char *orig|NN NV* value
+Cp     |char*  |my_atof3       |NN const char *orig|NN NV* value|const STRLEN len
 ApT    |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
 ApT    |int    |my_dirfd       |NULLOK DIR* dir
 #ifdef PERL_ANY_COW