summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-05-20 11:29:26 +0000
committerNicholas Clark <nick@ccl4.org>2006-05-20 11:29:26 +0000
commit7b0bddfae402018e486a2f1fa0daf4581b85b65b (patch)
tree15b7cbc8a733cb29f8a8e9286cdb4a6950316953 /embed.fnc
parent8ff9a42beba9f4156f50b64fd80480645efd8c5a (diff)
downloadperl-7b0bddfae402018e486a2f1fa0daf4581b85b65b.tar.gz
Abolish cop_arybase. Signal a non zero $[ with a hint flag, and store
the value in the hints structure used for %^H. p4raw-id: //depot/perl@28250
Diffstat (limited to 'embed.fnc')
-rw-r--r--embed.fnc4
1 files changed, 4 insertions, 0 deletions
diff --git a/embed.fnc b/embed.fnc
index dac19c7e3c..097023f5fc 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -308,6 +308,9 @@ ApdR |SV* |hv_iterval |NN HV* tb|NN HE* entry
Ap |void |hv_ksplit |NN HV* hv|IV newmax
Apdbm |void |hv_magic |NN HV* hv|NULLOK GV* gv|int how
dpoM |HV * |refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
+XEpoM |SV * |refcounted_he_fetch|NN const struct refcounted_he *chain \
+ |NULLOK SV *keysv|NULLOK const char *key \
+ |STRLEN klen, int flags, U32 hash
dpoM |void |refcounted_he_free|NULLOK struct refcounted_he *he
dpoM |struct refcounted_he *|refcounted_he_new \
|NULLOK struct refcounted_he *const parent \
@@ -1094,6 +1097,7 @@ sM |SV* |hv_delete_common|NULLOK HV* tb|NULLOK SV* keysv|NULLOK const char* key
sM |HE* |hv_fetch_common|NULLOK HV* tb|NULLOK SV* keysv|NULLOK const char* key \
|STRLEN klen|int flags|int action|NULLOK SV* val|U32 hash
sM |void |clear_placeholders |NN HV* hb|U32 items
+sM |SV * |refcounted_he_value |NN const struct refcounted_he *he
#endif
#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)