This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
get PERL_OBJECT build going again on windows
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 30 Jan 2001 02:37:26 +0000 (02:37 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 30 Jan 2001 02:37:26 +0000 (02:37 +0000)
p4raw-id: //depot/maint-5.6/perl@8597

embed.h
embed.pl
global.sym
objXSUB.h
perlapi.c
pod/perlapi.pod
proto.h
sv.c

diff --git a/embed.h b/embed.h
index 598b574..0f30ac5 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define sv_utf8_encode         Perl_sv_utf8_encode
 #define sv_utf8_decode         Perl_sv_utf8_decode
 #define sv_force_normal                Perl_sv_force_normal
+#define sv_add_backref         Perl_sv_add_backref
+#define sv_del_backref         Perl_sv_del_backref
 #define tmps_grow              Perl_tmps_grow
 #define sv_rvweaken            Perl_sv_rvweaken
 #define magic_killbackrefs     Perl_magic_killbackrefs
 #define sv_unglob              S_sv_unglob
 #define not_a_number           S_not_a_number
 #define visit                  S_visit
-#define sv_add_backref         S_sv_add_backref
-#define sv_del_backref         S_sv_del_backref
 #  if defined(DEBUGGING)
 #define del_sv                 S_del_sv
 #  endif
 #define sv_utf8_encode(a)      Perl_sv_utf8_encode(aTHX_ a)
 #define sv_utf8_decode(a)      Perl_sv_utf8_decode(aTHX_ a)
 #define sv_force_normal(a)     Perl_sv_force_normal(aTHX_ a)
+#define sv_add_backref(a,b)    Perl_sv_add_backref(aTHX_ a,b)
+#define sv_del_backref(a)      Perl_sv_del_backref(aTHX_ a)
 #define tmps_grow(a)           Perl_tmps_grow(aTHX_ a)
 #define sv_rvweaken(a)         Perl_sv_rvweaken(aTHX_ a)
 #define magic_killbackrefs(a,b)        Perl_magic_killbackrefs(aTHX_ a,b)
 #define sv_unglob(a)           S_sv_unglob(aTHX_ a)
 #define not_a_number(a)                S_not_a_number(aTHX_ a)
 #define visit(a)               S_visit(aTHX_ a)
-#define sv_add_backref(a,b)    S_sv_add_backref(aTHX_ a,b)
-#define sv_del_backref(a)      S_sv_del_backref(aTHX_ a)
 #  if defined(DEBUGGING)
 #define del_sv(a)              S_del_sv(aTHX_ a)
 #  endif
 #define sv_utf8_decode         Perl_sv_utf8_decode
 #define Perl_sv_force_normal   CPerlObj::Perl_sv_force_normal
 #define sv_force_normal                Perl_sv_force_normal
+#define Perl_sv_add_backref    CPerlObj::Perl_sv_add_backref
+#define sv_add_backref         Perl_sv_add_backref
+#define Perl_sv_del_backref    CPerlObj::Perl_sv_del_backref
+#define sv_del_backref         Perl_sv_del_backref
 #define Perl_tmps_grow         CPerlObj::Perl_tmps_grow
 #define tmps_grow              Perl_tmps_grow
 #define Perl_sv_rvweaken       CPerlObj::Perl_sv_rvweaken
 #define not_a_number           S_not_a_number
 #define S_visit                        CPerlObj::S_visit
 #define visit                  S_visit
-#define S_sv_add_backref       CPerlObj::S_sv_add_backref
-#define sv_add_backref         S_sv_add_backref
-#define S_sv_del_backref       CPerlObj::S_sv_del_backref
-#define sv_del_backref         S_sv_del_backref
 #  if defined(DEBUGGING)
 #define S_del_sv               CPerlObj::S_del_sv
 #define del_sv                 S_del_sv
index 7b5f175..fd11774 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -2169,6 +2169,8 @@ ApdM      |bool   |sv_utf8_downgrade|SV *sv|bool fail_ok
 ApdM      |void   |sv_utf8_encode |SV *sv
 Ap      |bool   |sv_utf8_decode |SV *sv
 Ap     |void   |sv_force_normal|SV *sv
+Ap     |void   |sv_add_backref |SV *tsv|SV *sv
+Ap     |void   |sv_del_backref |SV *sv
 Ap     |void   |tmps_grow      |I32 n
 Apd    |SV*    |sv_rvweaken    |SV *sv
 p      |int    |magic_killbackrefs|SV *sv|MAGIC *mg
@@ -2459,8 +2461,6 @@ s |void   |del_xrv        |XRV* p
 s      |void   |sv_unglob      |SV* sv
 s      |void   |not_a_number   |SV *sv
 s      |void   |visit          |SVFUNC_t f
-s      |void   |sv_add_backref |SV *tsv|SV *sv
-s      |void   |sv_del_backref |SV *sv
 #  if defined(DEBUGGING)
 s      |void   |del_sv |SV *p
 #  endif
index 169cfa5..7b3d103 100644 (file)
@@ -528,6 +528,8 @@ Perl_sv_utf8_downgrade
 Perl_sv_utf8_encode
 Perl_sv_utf8_decode
 Perl_sv_force_normal
+Perl_sv_add_backref
+Perl_sv_del_backref
 Perl_tmps_grow
 Perl_sv_rvweaken
 Perl_newANONATTRSUB
index a489a15..c45e911 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #define Perl_sv_force_normal   pPerl->Perl_sv_force_normal
 #undef  sv_force_normal
 #define sv_force_normal                Perl_sv_force_normal
+#undef  Perl_sv_add_backref
+#define Perl_sv_add_backref    pPerl->Perl_sv_add_backref
+#undef  sv_add_backref
+#define sv_add_backref         Perl_sv_add_backref
+#undef  Perl_sv_del_backref
+#define Perl_sv_del_backref    pPerl->Perl_sv_del_backref
+#undef  sv_del_backref
+#define sv_del_backref         Perl_sv_del_backref
 #undef  Perl_tmps_grow
 #define Perl_tmps_grow         pPerl->Perl_tmps_grow
 #undef  tmps_grow
index e12e2e1..259d071 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -3861,6 +3861,20 @@ Perl_sv_force_normal(pTHXo_ SV *sv)
     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
 }
 
+#undef  Perl_sv_add_backref
+void
+Perl_sv_add_backref(pTHXo_ SV *tsv, SV *sv)
+{
+    ((CPerlObj*)pPerl)->Perl_sv_add_backref(tsv, sv);
+}
+
+#undef  Perl_sv_del_backref
+void
+Perl_sv_del_backref(pTHXo_ SV *sv)
+{
+    ((CPerlObj*)pPerl)->Perl_sv_del_backref(sv);
+}
+
 #undef  Perl_tmps_grow
 void
 Perl_tmps_grow(pTHXo_ I32 n)
index 24f0485..428a87d 100644 (file)
@@ -1165,7 +1165,7 @@ eligible for inlining at compile-time.
        void    newCONSTSUB(HV* stash, char* name, SV* sv)
 
 =for hackers
-Found in file opmini.c
+Found in file op.c
 
 =item newHV
 
@@ -1298,7 +1298,7 @@ Found in file sv.c
 Used by C<xsubpp> to hook up XSUBs as Perl subs.
 
 =for hackers
-Found in file opmini.c
+Found in file op.c
 
 =item newXSproto
 
diff --git a/proto.h b/proto.h
index 33c2d32..3d79ce2 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -918,6 +918,8 @@ PERL_CALLCONV bool  Perl_sv_utf8_downgrade(pTHX_ SV *sv, bool fail_ok);
 PERL_CALLCONV void     Perl_sv_utf8_encode(pTHX_ SV *sv);
 PERL_CALLCONV bool     Perl_sv_utf8_decode(pTHX_ SV *sv);
 PERL_CALLCONV void     Perl_sv_force_normal(pTHX_ SV *sv);
+PERL_CALLCONV void     Perl_sv_add_backref(pTHX_ SV *tsv, SV *sv);
+PERL_CALLCONV void     Perl_sv_del_backref(pTHX_ SV *sv);
 PERL_CALLCONV void     Perl_tmps_grow(pTHX_ I32 n);
 PERL_CALLCONV SV*      Perl_sv_rvweaken(pTHX_ SV *sv);
 PERL_CALLCONV int      Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg);
@@ -1199,8 +1201,6 @@ STATIC void       S_del_xrv(pTHX_ XRV* p);
 STATIC void    S_sv_unglob(pTHX_ SV* sv);
 STATIC void    S_not_a_number(pTHX_ SV *sv);
 STATIC void    S_visit(pTHX_ SVFUNC_t f);
-STATIC void    S_sv_add_backref(pTHX_ SV *tsv, SV *sv);
-STATIC void    S_sv_del_backref(pTHX_ SV *sv);
 #  if defined(DEBUGGING)
 STATIC void    S_del_sv(pTHX_ SV *p);
 #  endif
diff --git a/sv.c b/sv.c
index 4e77b04..41633c0 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3540,8 +3540,8 @@ Perl_sv_rvweaken(pTHX_ SV *sv)
     return sv;
 }
 
-STATIC void
-S_sv_add_backref(pTHX_ SV *tsv, SV *sv)
+void
+Perl_sv_add_backref(pTHX_ SV *tsv, SV *sv)
 {
     AV *av;
     MAGIC *mg;
@@ -3555,8 +3555,8 @@ S_sv_add_backref(pTHX_ SV *tsv, SV *sv)
     av_push(av,sv);
 }
 
-STATIC void 
-S_sv_del_backref(pTHX_ SV *sv)
+void 
+Perl_sv_del_backref(pTHX_ SV *sv)
 {
     AV *av;
     SV **svp;