diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-11-19 22:28:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-19 22:28:25 +0000 |
| commit | 113738bb099c38d994cf82554560490df0f6d525 (patch) | |
| tree | 54c14f614a67d110bf1e73f384b020cb50b409ab /proto.h | |
| parent | 9133b6393363c0c6671c1b2c6b2ecadb3ff402ee (diff) | |
| download | perl-113738bb099c38d994cf82554560490df0f6d525.tar.gz | |
merge hv_fetch and hv_fetch_ent into hv_fetch_common
remove S_hv_fetch_flags
hv.c now 13% smaller than when I started. hv_store TODO
p4raw-id: //depot/perl@21753
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -952,7 +952,6 @@ STATIC HEK* S_save_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags STATIC void S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store); STATIC void S_unshare_hek_or_pvn(pTHX_ HEK* hek, const char* sv, I32 len, U32 hash); STATIC HEK* S_share_hek_flags(pTHX_ const char* sv, I32 len, U32 hash, int flags); -STATIC SV** S_hv_fetch_flags(pTHX_ HV* tb, const char* key, I32 klen, I32 lval, int flags); STATIC void S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg); #endif @@ -1338,6 +1337,7 @@ PERL_CALLCONV void Perl_hv_assert(pTHX_ HV* tb); #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) STATIC SV* S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, I32 klen, I32 flags, U32 hash); STATIC bool S_hv_exists_common(pTHX_ HV* tb, SV* key_sv, const char* key, I32 klen, U32 hash); +STATIC HE* S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, I32 klen, int flags, int action, U32 hash); #endif END_EXTERN_C |