3 files changed, 17 insertions, 17 deletions
diff --git a/embed.fnc b/embed.fnc
index eda1e63326..c7b585e280 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2582,7 +2582,7 @@ Apd	|CV*	|cv_clone	|NN CV* proto
 p	|CV*	|cv_clone_into	|NN CV* proto|NN CV *target
 pd	|void	|pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv
 pdX	|void	|pad_push	|NN PADLIST *padlist|int depth
-ApdR	|HV*	|pad_compname_type|const PADOFFSET po
+ApbdR	|HV*	|pad_compname_type|const PADOFFSET po
 #if defined(USE_ITHREADS)
 pdR	|PADLIST *|padlist_dup	|NN PADLIST *srcpad \
 				|NN CLONE_PARAMS *param
diff --git a/mathoms.c b/mathoms.c
index fa60621b96..378c4097a7 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1773,6 +1773,22 @@ Perl_save_re_context(pTHX)
     PERL_UNUSED_CONTEXT;
 }
 
+/*
+=for apidoc Am|HV *|pad_compname_type|PADOFFSET po
+
+Looks up the type of the lexical variable at position I<po> in the
+currently-compiling pad.  If the variable is typed, the stash of the
+class to which it is typed is returned.  If not, C<NULL> is returned.
+
+=cut
+*/
+
+HV *
+Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+{
+    return PAD_COMPNAME_TYPE(po);
+}
+
 
 END_EXTERN_C
 
diff --git a/pad.c b/pad.c
index f95d388889..8cbb882a00 100644
--- a/pad.c
+++ b/pad.c
@@ -2487,22 +2487,6 @@ Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
     }
 }
 
-/*
-=for apidoc Am|HV *|pad_compname_type|PADOFFSET po
-
-Looks up the type of the lexical variable at position I<po> in the
-currently-compiling pad.  If the variable is typed, the stash of the
-class to which it is typed is returned.  If not, C<NULL> is returned.
-
-=cut
-*/
-
-HV *
-Perl_pad_compname_type(pTHX_ const PADOFFSET po)
-{
-    return PadnameTYPE(PAD_COMPNAME(po));
-}
-
 #if defined(USE_ITHREADS)
 
 #  define av_dup_inc(s,t)	MUTABLE_AV(sv_dup_inc((const SV *)s,t))