From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 7 Jul 2007 07:02:21 +0000 (+0000)
Subject: Make Perl_find_runcv a member of the public API
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=daad78fc377a1f13c3b53f9a0c2196bdd763b063;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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