Move Perl_l?stat() from mathoms to macros in perl.h

Author: khwilliamson

embed.fnc

@@ -2088,7 +2088,7 @@ Adpr	|void	|my_exit	|U32 status
 Adpr	|void	|my_failure_exit
 Cdp	|I32	|my_fflush_all
 CTdp	|Pid_t	|my_fork
-m	|I32	|my_lstat
+mp	|I32	|my_lstat
 Xp	|I32	|my_lstat_flags |NULLOK const U32 flags
 RTop	|int	|my_mkostemp_cloexec					\
 				|NN char *templte			\
@@ -2109,7 +2109,7 @@ CTdp	|int	|my_socketpair	|int family				\
 				|int type				\
 				|int protocol				\
 				|int fd[2]
-m	|I32	|my_stat
+mp	|I32	|my_stat
 Xp	|I32	|my_stat_flags	|NULLOK const U32 flags
 p	|const char *|my_strerror					\
 				|const int errnum			\

embed.h

@@ -1126,7 +1126,9 @@
 #   define mro_package_moved(a,b,c,d)           Perl_mro_package_moved(aTHX_ a,b,c,d)
 #   define my_attrs(a,b)                        Perl_my_attrs(aTHX_ a,b)
 #   define my_clearenv()                        Perl_my_clearenv(aTHX)
+#   define my_lstat()                           Perl_my_lstat(aTHX)
 #   define my_lstat_flags(a)                    Perl_my_lstat_flags(aTHX_ a)
+#   define my_stat()                            Perl_my_stat(aTHX)
 #   define my_stat_flags(a)                     Perl_my_stat_flags(aTHX_ a)
 #   define my_strerror(a,b)                     Perl_my_strerror(aTHX_ a,b)
 #   define my_unexec()                          Perl_my_unexec(aTHX)

mathoms.c

@@ -135,18 +135,6 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
     PERL_UNUSED_ARG(sv);
 }
 
-I32
-Perl_my_stat(pTHX)
-{
-    return my_stat_flags(SV_GMAGIC);
-}
-
-I32
-Perl_my_lstat(pTHX)
-{
-    return my_lstat_flags(SV_GMAGIC);
-}
-
 STRLEN
 Perl_is_utf8_char_buf(const U8 *buf, const U8* buf_end)
 {

perl.h

@@ -4536,8 +4536,8 @@ struct Perl_OpDumpContext;
 #include "utf8.h"
 
 /* these would be in doio.h if there was such a file */
-#define my_stat()  my_stat_flags(SV_GMAGIC)
-#define my_lstat() my_lstat_flags(SV_GMAGIC)
+#define Perl_my_stat(mTHX_)  Perl_my_stat_flags(aTHX_  SV_GMAGIC)
+#define Perl_my_lstat(mTHX)  Perl_my_lstat_flags(aTHX_ SV_GMAGIC)
 
 /* defined in sv.c, but also used in [ach]v.c */
 #undef _XPV_HEAD