Make Perl_find_runcv a member of the public API

(so Sub::Current works on Windows)

p4raw-id: //depot/perl@31548

diff --git a/embed.fnc b/embed.fnc
index 3568ba3..93c0a2e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1669,7 +1669,7 @@ sd        |PADOFFSET|pad_findlex  |NN const char *name|NN const CV* cv|U32 seq|int warn
 sd     |void   |cv_dump        |NN const CV *cv|NN const char *title
 #  endif
 #endif
-pdR    |CV*    |find_runcv     |NULLOK U32 *db_seqp
+ApdR   |CV*    |find_runcv     |NULLOK U32 *db_seqp
 p      |void   |free_tied_hv_pool
 #if defined(DEBUGGING)
 pR     |int    |get_debug_opts |NN const char **s|bool givehelp

diff --git a/embed.h b/embed.h
index a8af4ba..76d8387 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1673,8 +1673,8 @@
 #endif
 #  endif
 #endif
-#ifdef PERL_CORE
 #define find_runcv             Perl_find_runcv
+#ifdef PERL_CORE
 #define free_tied_hv_pool      Perl_free_tied_hv_pool
 #endif
 #if defined(DEBUGGING)
@@ -3966,8 +3966,8 @@
 #endif
 #  endif
 #endif
-#ifdef PERL_CORE
 #define find_runcv(a)          Perl_find_runcv(aTHX_ a)
+#ifdef PERL_CORE
 #define free_tied_hv_pool()    Perl_free_tied_hv_pool(aTHX)
 #endif
 #if defined(DEBUGGING)

diff --git a/global.sym b/global.sym
index ee302b0..7b0a18b 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -730,6 +730,7 @@ Perl_PerlIO_stdin
 Perl_PerlIO_stdout
 Perl_PerlIO_stderr
 Perl_pad_push
+Perl_find_runcv
 Perl_save_set_svflags
 Perl_hv_assert
 Perl_hv_scalar

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 172a51a..702cd50 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1193,6 +1193,28 @@ Found in file mathoms.c
 
 =back
 
+=head1 Functions in file pp_ctl.c
+
+
+=over 8
+
+=item find_runcv
+X<find_runcv>
+
+Locate the CV corresponding to the currently executing sub or eval.
+If db_seqp is non_null, skip CVs that are in the DB package and populate
+*db_seqp with the cop sequence number at the point that the DB:: code was
+entered. (allows debuggers to eval in the scope of the breakpoint rather
+than in the scope of the debugger itself).
+
+       CV*     find_runcv(U32 *db_seqp)
+
+=for hackers
+Found in file pp_ctl.c
+
+
+=back
+
 =head1 Functions in file pp_pack.c
 
 

diff --git a/pod/perlintern.pod b/pod/perlintern.pod
index 73c21c3..06e0f0b 100644 (file)
--- a/pod/perlintern.pod
+++ b/pod/perlintern.pod
@@ -331,28 +331,6 @@ Found in file pad.h
 
 =back
 
-=head1 Functions in file pp_ctl.c
-
-
-=over 8
-
-=item find_runcv
-X<find_runcv>
-
-Locate the CV corresponding to the currently executing sub or eval.
-If db_seqp is non_null, skip CVs that are in the DB package and populate
-*db_seqp with the cop sequence number at the point that the DB:: code was
-entered. (allows debuggers to eval in the scope of the breakpoint rather
-than in the scope of the debugger itself).
-
-       CV*     find_runcv(U32 *db_seqp)
-
-=for hackers
-Found in file pp_ctl.c
-
-
-=back
-
 =head1 GV Functions
 
 =over 8