This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
grok_atoUV: don't make part of API
authorHugo van der Sanden <hv@crypt.org>
Fri, 27 Feb 2015 17:55:43 +0000 (17:55 +0000)
committerHugo van der Sanden <hv@crypt.org>
Mon, 9 Mar 2015 22:15:46 +0000 (22:15 +0000)
.. but keep available to extensions.

16 files changed:
embed.fnc
embed.h
ext/DynaLoader/DynaLoader_pm.PL
ext/DynaLoader/dl_aix.xs
ext/DynaLoader/dl_dllload.xs
ext/DynaLoader/dl_dlopen.xs
ext/DynaLoader/dl_dyld.xs
ext/DynaLoader/dl_freemint.xs
ext/DynaLoader/dl_hpux.xs
ext/DynaLoader/dl_none.xs
ext/DynaLoader/dl_symbian.xs
ext/DynaLoader/dl_vms.xs
ext/DynaLoader/dl_win32.xs
ext/DynaLoader/dlutils.c
ext/XS-APItest/APItest.xs
numeric.c

index 128d4bd..6ff8fcd 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -818,7 +818,7 @@ Apd |int    |grok_number    |NN const char *pv|STRLEN len|NULLOK UV *valuep
 Apd    |int    |grok_number_flags|NN const char *pv|STRLEN len|NULLOK UV *valuep|U32 flags
 ApdR   |bool   |grok_numeric_radix|NN const char **sp|NN const char *send
 Apd    |UV     |grok_oct       |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV *result
-Apdn   |bool   |grok_atoUV     |NN const char* pv|NN UV* valptr|NULLOK const char** endptr
+EXpn   |bool   |grok_atoUV     |NN const char* pv|NN UV* valptr|NULLOK const char** endptr
 : These are all indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_clearenv |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_clear_all_env|NN SV* sv|NN MAGIC* mg
diff --git a/embed.h b/embed.h
index 02a4ace..acbd1ea 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define getcwd_sv(a)           Perl_getcwd_sv(aTHX_ a)
 #define gp_free(a)             Perl_gp_free(aTHX_ a)
 #define gp_ref(a)              Perl_gp_ref(aTHX_ a)
-#define grok_atoUV             Perl_grok_atoUV
 #define grok_bin(a,b,c,d)      Perl_grok_bin(aTHX_ a,b,c,d)
 #define grok_hex(a,b,c,d)      Perl_grok_hex(aTHX_ a,b,c,d)
 #define grok_infnan(a,b)       Perl_grok_infnan(aTHX_ a,b)
 #define av_reify(a)            Perl_av_reify(aTHX_ a)
 #define current_re_engine()    Perl_current_re_engine(aTHX)
 #define cv_ckproto_len_flags(a,b,c,d,e)        Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e)
+#define grok_atoUV             Perl_grok_atoUV
 #define mg_find_mglob(a)       Perl_mg_find_mglob(aTHX_ a)
 #define multideref_stringify(a,b)      Perl_multideref_stringify(aTHX_ a,b)
 #define op_clear(a)            Perl_op_clear(aTHX_ a)
index c59dd5a..45dd6d3 100644 (file)
@@ -85,7 +85,7 @@ package DynaLoader;
 # Tim.Bunce@ig.co.uk, August 1994
 
 BEGIN {
-    $VERSION = '1.31';
+    $VERSION = '1.32';
 }
 
 use Config;
index dc20b74..137af19 100644 (file)
@@ -12,6 +12,7 @@
  */
 
 #define PERLIO_NOT_STDIO 0
+#define PERL_EXT
 
 /*
  * On AIX 4.3 and above the emulation layer is not needed any more, and
index 1f99b61..aac2f7b 100644 (file)
@@ -84,6 +84,7 @@
    Other comments within the dl_dlopen.xs file may be helpful as well.
 */
 
+#define PERL_EXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index c3df9ea..3dce1ef 100644 (file)
 */
 
 #define PERL_NO_GET_CONTEXT
+#define PERL_EXT
 
 #include "EXTERN.h"
 #define PERL_IN_DL_DLOPEN_XS
index 3027dda..7822878 100644 (file)
@@ -39,6 +39,7 @@ been tested on NeXT platforms.
 
 */
 
+#define PERL_EXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index 0bf620e..9ecafa0 100644 (file)
@@ -37,6 +37,7 @@
  *
  */
 
+#define PERL_EXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index 70bedb8..0ed0173 100644 (file)
@@ -22,6 +22,7 @@
 #undef MAGIC
 #endif
 
+#define PERL_EXT
 #include "EXTERN.h"
 #define PERL_IN_DL_HPUX_XS
 #include "perl.h"
index 5a193e4..2914177 100644 (file)
@@ -3,6 +3,7 @@
  * Stubs for platforms that do not support dynamic linking
  */
 
+#define PERL_EXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index c17f397..562b034 100644 (file)
@@ -26,6 +26,7 @@
  * trouble because of Symbian's New(), Copy(), etc definitions. */
 
 #define DL_SYMBIAN_XS
+#define PERL_EXT
 
 #include "EXTERN.h"
 #include "perl.h"
index 576b08a..ca8d54f 100644 (file)
@@ -45,6 +45,7 @@
  *
  */
 
+#define PERL_EXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index d99f116..605b63f 100644 (file)
@@ -25,6 +25,7 @@ calls.
 #include <string.h>
 
 #define PERL_NO_GET_CONTEXT
+#define PERL_EXT
 
 #include "EXTERN.h"
 #include "perl.h"
index fca8e78..557c0ec 100644 (file)
@@ -10,6 +10,7 @@
 
 #define PERL_EUPXS_ALWAYS_EXPORT
 #ifndef START_MY_CXT /* Some IDEs try compiling this standalone. */
+#   define PERL_EXT
 #   include "EXTERN.h"
 #   include "perl.h"
 #   include "XSUB.h"
index 2b7b349..c3f88b4 100644 (file)
@@ -1,4 +1,8 @@
 #define PERL_IN_XS_APITEST
+
+/* We want to be able to test things that aren't API yet. */
+#define PERL_EXT
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
index 41f620c..a13a5e2 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -1033,7 +1033,7 @@ Perl_grok_number_flags(pTHX_ const char *pv, STRLEN len, UV *valuep, U32 flags)
 }
 
 /*
-=for apidoc grok_atoUV
+grok_atoUV
 
 grok_atoUV parses a C-style zero-byte terminated string, looking for
 a decimal unsigned integer.
@@ -1060,7 +1060,6 @@ used for incremental parsing, and therefore should be avoided
 atoi and strtol are also affected by locale settings, which can also be
 seen as a bug (global state controlled by user environment).
 
-=cut
 */
 
 bool