Commit 2b87217f60 for perl

commit 2b87217f60a8f92ae08828e18ea3ac95a329032d
Author: Karl Williamson <khw@cpan.org>
Date:   Tue Sep 8 08:46:53 2026 -0600

    Remove deprecated function get_ppaddr

    This has been deprecated since 5.38

diff --git a/embed.fnc b/embed.fnc
index 7c7f5f51e2..48c01e6b88 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1542,7 +1542,6 @@ MTp	|int	|get_extended_os_errno
 p	|void	|get_hash_seed	|NN unsigned char * const seed_buffer
 AOdp	|HV *	|get_hv 	|NN const char *name			\
 				|I32 flags
-CDPRp	|PPADDR_t *|get_ppaddr
 ERXp	|SV *	|get_prop_definition					\
 				|const int table_index
 ERTXp	|const char * const *|get_prop_values				\
diff --git a/embed.h b/embed.h
index 2d6c38e31d..71d3a973a8 100644
--- a/embed.h
+++ b/embed.h
@@ -248,7 +248,6 @@
 # define get_cv(a,b)                            Perl_get_cv(aTHX_ a,b)
 # define get_cvn_flags(a,b,c)                   Perl_get_cvn_flags(aTHX_ a,b,c)
 # define get_hv(a,b)                            Perl_get_hv(aTHX_ a,b)
-# define get_ppaddr()                           Perl_get_ppaddr(aTHX)
 # define get_sv(a,b)                            Perl_get_sv(aTHX_ a,b)
 # define get_vtbl(a)                            Perl_get_vtbl(aTHX_ a)
 # define getcwd_sv(a)                           Perl_getcwd_sv(aTHX_ a)
diff --git a/proto.h b/proto.h
index b06cd80b58..c8bacd45be 100644
--- a/proto.h
+++ b/proto.h
@@ -2124,16 +2124,6 @@ Perl_get_hv(pTHX_ const char *name, I32 flags)
                  PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
     } STMT_END

-PERL_CALLCONV PPADDR_t *
-Perl_get_ppaddr(pTHX)
-        Perl_attribute_nonnull_aTHX
-        __attribute__deprecated__
-        __attribute__warn_unused_result__
-        __attribute__pure__;
-#define PERL_ARGS_ASSERT_GET_PPADDR             \
-    STMT_START { Perl_assert_aTHX; PERL_UNUSED_CONTEXT_FOR_ARGS_ASSERT;  \
-    } STMT_END
-
 PERL_CALLCONV SV *
 Perl_get_prop_definition(pTHX_ const int table_index)
         Perl_attribute_nonnull_aTHX
diff --git a/util.c b/util.c
index 5a65b33846..26ca900964 100644
--- a/util.c
+++ b/util.c
@@ -3715,14 +3715,6 @@ Perl_set_context(void *t)

 #endif /* !PERL_GET_CONTEXT_DEFINED */

-PPADDR_t*
-Perl_get_ppaddr(pTHX)
-{
-    PERL_ARGS_ASSERT_GET_PPADDR;    /* Deprecated since 5.38 */
-
-    return (PPADDR_t*)PL_ppaddr;
-}
-
 #ifndef HAS_GETENV_LEN
 char *
 Perl_getenv_len(pTHX_ const char *env_elem, unsigned long *len)