diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-02 18:52:27 -0800 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-02-02 18:52:27 -0800 |
| commit | c07a80fdfe3926b5eb0585b674aa5d1f57b32ade (patch) | |
| tree | 6d56135571eb9ea6635748469bdaf72ad481247a /av.c | |
| parent | 91b7def858c29dac014df40946a128c06b3aa2ed (diff) | |
| download | perl-c07a80fdfe3926b5eb0585b674aa5d1f57b32ade.tar.gz | |
perl5.002beta3
[editor's note: no patch file was found for this release, so no
fine-grained changes]
I can't find the password for our ftp server, so I had to drop it into
ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop
directory you can't ls.
The current plan is that Andy is gonna whack on this a little more, and
then release a gamma in a few days when he's happy with it. So don't get
carried away. This is now *late* beta.
In other words, have less than the appropriate amount of fun. :-)
Larry
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -64,7 +64,9 @@ I32 key; } else { if (AvALLOC(av)) { +#ifndef STRANGE_MALLOC U32 bytes; +#endif newmax = key + AvMAX(av) / 5; resize: @@ -82,8 +84,10 @@ I32 key; newmax = tmp - 1; New(2,ary, newmax+1, SV*); Copy(AvALLOC(av), ary, AvMAX(av)+1, SV*); - if (AvMAX(av) > 64 && !AvREUSED(av)) - sv_add_arena((char*)AvALLOC(av), AvMAX(av) * sizeof(SV*),0); + if (AvMAX(av) > 64 && !nice_chunk) { + nice_chunk = (char*)AvALLOC(av); + nice_chunk_size = (AvMAX(av) + 1) * sizeof(SV*); + } else Safefree(AvALLOC(av)); AvALLOC(av) = ary; @@ -326,7 +330,6 @@ register AV *av; AvALLOC(av) = 0; SvPVX(av) = 0; AvMAX(av) = AvFILL(av) = -1; - AvREUSED_on(av); /* Avoid leak of making SVs out of old memory again. */ if (AvARYLEN(av)) { SvREFCNT_dec(AvARYLEN(av)); AvARYLEN(av) = 0; |