diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-27 08:39:39 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-12-27 22:07:44 +0000 |
| commit | fabdb6c0879db76333e970b6c67260c877fc17b3 (patch) | |
| tree | 81d106dc99b2069f6968bbe00164e6bb222dc482 /hv.c | |
| parent | f319e147b252268cc6fe404c58538ec32cf8548a (diff) | |
| download | perl-fabdb6c0879db76333e970b6c67260c877fc17b3.tar.gz | |
pre-likely cleanup
Message-ID: <20051227203939.GC1781@petdance.com>
Includes a small fix to the changes in tryAMAGICbinW_var() in pp.h.
p4raw-id: //depot/perl@26505
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -267,6 +267,7 @@ Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash) return hek ? &HeVAL(hek) : NULL; } +/* XXX This looks like an ideal candidate to inline */ SV** Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, register U32 hash, int flags) @@ -305,6 +306,7 @@ information on how to use this function on tied hashes. =cut */ +/* XXX This looks like an ideal candidate to inline */ HE * Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash) { @@ -381,6 +383,7 @@ computed. =cut */ +/* XXX This looks like an ideal candidate to inline */ bool Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash) { @@ -936,6 +939,7 @@ precomputed hash value, or 0 to ask for it to be computed. =cut */ +/* XXX This looks like an ideal candidate to inline */ SV * Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash) { |