This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update embed.fnc and headers after change 26345 (spotted by Rafael)
authorNicholas Clark <nick@ccl4.org>
Tue, 13 Dec 2005 20:05:31 +0000 (20:05 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 13 Dec 2005 20:05:31 +0000 (20:05 +0000)
p4raw-id: //depot/perl@26346

embed.fnc
embed.h
proto.h

index 0f5d8b9..9322526 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1288,8 +1288,6 @@ po        |void   |sv_add_backref |NN SV *tsv|NN SV *sv
 
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 nsR    |char * |uiv_2buf       |NN char *buf|IV iv|UV uv|int is_uv|NN char **peob
-sR     |IV     |asIV           |NN SV* sv
-sR     |UV     |asUV           |NN SV* sv
 s      |void   |sv_unglob      |NN SV* sv
 s      |void   |not_a_number   |NN SV *sv
 s      |I32    |visit          |NN SVFUNC_t f|U32 flags|U32 mask
diff --git a/embed.h b/embed.h
index 32fa5b6..9707ec2 100644 (file)
--- a/embed.h
+++ b/embed.h
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define uiv_2buf               S_uiv_2buf
-#define asIV                   S_asIV
-#define asUV                   S_asUV
 #define sv_unglob              S_sv_unglob
 #define not_a_number           S_not_a_number
 #define visit                  S_visit
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define uiv_2buf               S_uiv_2buf
-#define asIV(a)                        S_asIV(aTHX_ a)
-#define asUV(a)                        S_asUV(aTHX_ a)
 #define sv_unglob(a)           S_sv_unglob(aTHX_ a)
 #define not_a_number(a)                S_not_a_number(aTHX_ a)
 #define visit(a,b,c)           S_visit(aTHX_ a,b,c)
diff --git a/proto.h b/proto.h
index a47102f..b5dfd5b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3590,14 +3590,6 @@ STATIC char *    S_uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
                        __attribute__nonnull__(1)
                        __attribute__nonnull__(5);
 
-STATIC IV      S_asIV(pTHX_ SV* sv)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-
-STATIC UV      S_asUV(pTHX_ SV* sv)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-
 STATIC void    S_sv_unglob(pTHX_ SV* sv)
                        __attribute__nonnull__(pTHX_1);