In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/ad97526782cdd5392f99d55127e22a7eb5ea9851?hp=7001ab9ef23c71d16d78a845cc0c5507f4d29bff>
- Log -----------------------------------------------------------------
commit ad97526782cdd5392f99d55127e22a7eb5ea9851
Author: Zefram <zef...@fysh.org>
Date: Mon Oct 4 10:14:28 2010 +0200
add stray save_* functions to the API
-----------------------------------------------------------------------
Summary of changes:
embed.fnc | 8 ++++----
embed.h | 4 ++--
global.sym | 2 ++
3 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/embed.fnc b/embed.fnc
index def0c36..8ed216c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1042,7 +1042,7 @@ Ap |void
|save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p
Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p
Apmb |void |save_freesv |NULLOK SV* sv
: Used in SAVEFREOP(), used in op.c, pp_ctl.c
-pmb |void |save_freeop |NULLOK OP* o
+Apmb |void |save_freeop |NULLOK OP* o
Apmb |void |save_freepv |NULLOK char* pv
Ap |void |save_generic_svref|NN SV** sptr
Ap |void |save_generic_pvref|NN char** str
@@ -1064,7 +1064,7 @@ Ap |void |save_long |NN long* longp
Apmb |void |save_mortalizesv|NN SV* sv
Ap |void |save_nogv |NN GV* gv
: Used in SAVEFREOP(), used in gv.c, op.c, perl.c, pp_ctl.c, pp_sort.c
-pmb |void |save_op
+Apmb |void |save_op
Ap |SV* |save_scalar |NN GV* gv
Ap |void |save_pptr |NN char** pptr
Ap |void |save_vptr |NN void *ptr
@@ -1074,9 +1074,9 @@ Ap |void |save_sptr |NN SV** sptr
Ap |SV* |save_svref |NN SV** sptr
Ap |void |save_pushptr |NULLOK void *const ptr|const int type
: Used by SAVECOPARYBASE() in op.c
-p |void |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int
type
+Ap |void |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int
type
: Used by SAVESWITCHSTACK() in pp.c
-p |void |save_pushptrptr|NULLOK void *const ptr1 \
+Ap |void |save_pushptrptr|NULLOK void *const ptr1 \
|NULLOK void *const ptr2|const int type
#if defined(PERL_IN_SCOPE_C)
s |void |save_pushptri32ptr|NULLOK void *const ptr1|const I32 i \
diff --git a/embed.h b/embed.h
index 5ed1748..370d175 100644
--- a/embed.h
+++ b/embed.h
@@ -441,7 +441,9 @@
#define save_nogv(a) Perl_save_nogv(aTHX_ a)
#define save_padsv_and_mortalize(a) Perl_save_padsv_and_mortalize(aTHX_ a)
#define save_pptr(a) Perl_save_pptr(aTHX_ a)
+#define save_pushi32ptr(a,b,c) Perl_save_pushi32ptr(aTHX_ a,b,c)
#define save_pushptr(a,b) Perl_save_pushptr(aTHX_ a,b)
+#define save_pushptrptr(a,b,c) Perl_save_pushptrptr(aTHX_ a,b,c)
#define save_re_context() Perl_save_re_context(aTHX)
#define save_scalar(a) Perl_save_scalar(aTHX_ a)
#define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c)
@@ -1435,8 +1437,6 @@
#define rsignal_restore(a,b) Perl_rsignal_restore(aTHX_ a,b)
#define rsignal_save(a,b,c) Perl_rsignal_save(aTHX_ a,b,c)
#define rxres_save(a,b) Perl_rxres_save(aTHX_ a,b)
-#define save_pushi32ptr(a,b,c) Perl_save_pushi32ptr(aTHX_ a,b,c)
-#define save_pushptrptr(a,b,c) Perl_save_pushptrptr(aTHX_ a,b,c)
#define sawparens(a) Perl_sawparens(aTHX_ a)
#define scalar(a) Perl_scalar(aTHX_ a)
#define scalarvoid(a) Perl_scalarvoid(aTHX_ a)
diff --git a/global.sym b/global.sym
index 13e68cc..ffd2249 100644
--- a/global.sym
+++ b/global.sym
@@ -511,7 +511,9 @@ Perl_save_nogv
Perl_save_op
Perl_save_padsv_and_mortalize
Perl_save_pptr
+Perl_save_pushi32ptr
Perl_save_pushptr
+Perl_save_pushptrptr
Perl_save_re_context
Perl_save_scalar
Perl_save_set_svflags
--
Perl5 Master Repository
