This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Let embed.fnc define the my_str_foo() fcns
authorKarl Williamson <khw@cpan.org>
Wed, 29 May 2019 20:49:57 +0000 (14:49 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 31 May 2019 00:13:29 +0000 (18:13 -0600)
We don't always define a Perl_ form for these, expecting all calls to be
made through the macro, which will use the native form on the systems
that have one.

Removing these extra #defines helps future commits

embed.fnc
embed.h
perl.h

index 47d9587..cc088b5 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -3157,15 +3157,15 @@ XpoT    |I32    |xs_handshake   |const U32 key|NN void * v_my_perl\
                                |NN const char * file| ...
 Xp     |void   |xs_boot_epilog |const I32 ax
 #ifndef HAS_STRLCAT
                                |NN const char * file| ...
 Xp     |void   |xs_boot_epilog |const I32 ax
 #ifndef HAS_STRLCAT
-ApTod  |Size_t |my_strlcat     |NULLOK char *dst|NULLOK const char *src|Size_t size
+ApT  |Size_t |my_strlcat     |NULLOK char *dst|NULLOK const char *src|Size_t size
 #endif
 
 #ifndef HAS_STRLCPY
 #endif
 
 #ifndef HAS_STRLCPY
-ApTod  |Size_t |my_strlcpy     |NULLOK char *dst|NULLOK const char *src|Size_t size
+ApT  |Size_t |my_strlcpy     |NULLOK char *dst|NULLOK const char *src|Size_t size
 #endif
 
 #ifndef HAS_STRNLEN
 #endif
 
 #ifndef HAS_STRNLEN
-ApTod  |Size_t |my_strnlen     |NN const char *str|Size_t maxlen
+ApT  |Size_t |my_strnlen     |NN const char *str|Size_t maxlen
 #endif
 
 #ifndef HAS_MKOSTEMP
 #endif
 
 #ifndef HAS_MKOSTEMP
diff --git a/embed.h b/embed.h
index aa1b2c2..e59b519 100644 (file)
--- a/embed.h
+++ b/embed.h
 #if !defined(EBCDIC)
 #define _variant_byte_number   S__variant_byte_number
 #endif
 #if !defined(EBCDIC)
 #define _variant_byte_number   S__variant_byte_number
 #endif
+#if !defined(HAS_STRLCAT)
+#define my_strlcat             Perl_my_strlcat
+#endif
+#if !defined(HAS_STRLCPY)
+#define my_strlcpy             Perl_my_strlcpy
+#endif
+#if !defined(HAS_STRNLEN)
+#define my_strnlen             Perl_my_strnlen
+#endif
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 #define my_chsize(a,b)         Perl_my_chsize(aTHX_ a,b)
 #endif
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 #define my_chsize(a,b)         Perl_my_chsize(aTHX_ a,b)
 #endif
diff --git a/perl.h b/perl.h
index 06f62b1..04ff997 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1675,8 +1675,6 @@ EXTERN_C char *crypt(const char *, const char *);
 
 #ifdef HAS_STRLCAT
 #  define my_strlcat    strlcat
 
 #ifdef HAS_STRLCAT
 #  define my_strlcat    strlcat
-#else
-#  define my_strlcat    Perl_my_strlcat
 #endif
 
 #if defined(PERL_CORE) || defined(PERL_EXT)
 #endif
 
 #if defined(PERL_CORE) || defined(PERL_EXT)
@@ -1689,14 +1687,10 @@ EXTERN_C char *crypt(const char *, const char *);
 
 #ifdef HAS_STRLCPY
 #  define my_strlcpy   strlcpy
 
 #ifdef HAS_STRLCPY
 #  define my_strlcpy   strlcpy
-#else
-#  define my_strlcpy   Perl_my_strlcpy
 #endif
 
 #ifdef HAS_STRNLEN
 #  define my_strnlen   strnlen
 #endif
 
 #ifdef HAS_STRNLEN
 #  define my_strnlen   strnlen
-#else
-#  define my_strnlen   Perl_my_strnlen
 #endif
 
 /*
 #endif
 
 /*