This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/newSVpv_hek/newSVhek/g; # Lousy choice of name
authorNicholas Clark <nick@ccl4.org>
Fri, 3 Jun 2005 10:03:21 +0000 (10:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 3 Jun 2005 10:03:21 +0000 (10:03 +0000)
p4raw-id: //depot/perl@24696

embed.fnc
embed.h
hv.c
proto.h
sv.c

index edffcf8..c3ff3d3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -533,7 +533,7 @@ Apda        |SV*    |newSVuv        |UV u
 Apda   |SV*    |newSVnv        |NV n
 Apda   |SV*    |newSVpv        |const char* s|STRLEN len
 Apda   |SV*    |newSVpvn       |const char* s|STRLEN len
-Apda   |SV*    |newSVpv_hek    |const HEK *hek
+Apda   |SV*    |newSVhek       |const HEK *hek
 Apda   |SV*    |newSVpvn_share |const char* s|I32 len|U32 hash
 Afpda  |SV*    |newSVpvf       |const char* pat|...
 Ap     |SV*    |vnewSVpvf      |const char* pat|va_list* args
diff --git a/embed.h b/embed.h
index 15cbbb6..aa87797 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define newSVnv                        Perl_newSVnv
 #define newSVpv                        Perl_newSVpv
 #define newSVpvn               Perl_newSVpvn
-#define newSVpv_hek            Perl_newSVpv_hek
+#define newSVhek               Perl_newSVhek
 #define newSVpvn_share         Perl_newSVpvn_share
 #define newSVpvf               Perl_newSVpvf
 #define vnewSVpvf              Perl_vnewSVpvf
 #define newSVnv(a)             Perl_newSVnv(aTHX_ a)
 #define newSVpv(a,b)           Perl_newSVpv(aTHX_ a,b)
 #define newSVpvn(a,b)          Perl_newSVpvn(aTHX_ a,b)
-#define newSVpv_hek(a)         Perl_newSVpv_hek(aTHX_ a)
+#define newSVhek(a)            Perl_newSVhek(aTHX_ a)
 #define newSVpvn_share(a,b,c)  Perl_newSVpvn_share(aTHX_ a,b,c)
 #define vnewSVpvf(a,b)         Perl_vnewSVpvf(aTHX_ a,b)
 #define newSVrv(a,b)           Perl_newSVrv(aTHX_ a,b)
diff --git a/hv.c b/hv.c
index 1562976..6201e66 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2059,7 +2059,7 @@ see C<hv_iterinit>.
 SV *
 Perl_hv_iterkeysv(pTHX_ register HE *entry)
 {
-    return sv_2mortal(newSVpv_hek(HeKEY_hek(entry)));
+    return sv_2mortal(newSVhek(HeKEY_hek(entry)));
 }
 
 /*
diff --git a/proto.h b/proto.h
index 5964997..04fc3ec 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1033,6 +1033,10 @@ PERL_CALLCONV SV*        Perl_newSVpvn(pTHX_ const char* s, STRLEN len)
                        __attribute__malloc__
                        __attribute__warn_unused_result__;
 
+PERL_CALLCONV SV*      Perl_newSVhek(pTHX_ const HEK *hek)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
 PERL_CALLCONV SV*      Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
                        __attribute__malloc__
                        __attribute__warn_unused_result__;
diff --git a/sv.c b/sv.c
index 69a8908..546df0a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7612,7 +7612,7 @@ point to the shared string table where possible.
 */
 
 SV *
-Perl_newSVpv_hek(pTHX_ const HEK *hek)
+Perl_newSVhek(pTHX_ const HEK *hek)
 {
     if (HEK_LEN(hek) == HEf_SVKEY) {
        return newSVsv(*(SV**)HEK_KEY(hek));