diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-06 16:07:03 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-06 16:07:03 +0000 |
| commit | 2393f1b901d4e694bd945211b6a0392db1b3cf57 (patch) | |
| tree | a4e70557d6703ed1aed4c47201fe5b61a9232c93 /proto.h | |
| parent | 19692e8d256164f96817d6df6ecee26c3cda4ae9 (diff) | |
| download | perl-2393f1b901d4e694bd945211b6a0392db1b3cf57.tar.gz | |
Make hv_notallowed a static as suggested by Nicholas Clark;
and synchronize the nomenclature to talk about restricted
(not fixed) hashes.
p4raw-id: //depot/perl@15758
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1033,8 +1033,13 @@ STATIC void S_hfreeentries(pTHX_ HV *hv); STATIC void S_more_he(pTHX); STATIC HE* S_new_he(pTHX); STATIC void S_del_he(pTHX_ HE *p); -STATIC HEK* S_save_hek(pTHX_ const char *str, I32 len, U32 hash); +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_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, 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 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) |