Mailing List Archive

Some unclean code that I noticed today.

- Sarathy.
gsar@engin.umich.edu
---------------------------------8<---------------------------------
*** av.c.dist Wed Nov 15 14:26:17 1995
--- av.c Sat Dec 9 23:03:32 1995
***************
*** 317,326 ****
key = AvFILL(av) + 1;
while (key)
SvREFCNT_dec(AvARRAY(av)[--key]);
- }
- if (key = AvARRAY(av) - AvALLOC(av)) {
- AvMAX(av) += key;
- SvPVX(av) = (char*)AvALLOC(av);
}
Safefree(AvALLOC(av));
AvALLOC(av) = 0;
--- 319,324 ----
*** av.h.dist Wed Nov 15 14:26:41 1995
--- av.h Sat Dec 9 18:45:40 1995
***************
*** 44,48 ****
#define AvREUSED_on(av) (AvFLAGS(av) |= AVf_REUSED)
#define AvREUSED_off(av) (AvFLAGS(av) &= ~AVf_REUSED)

! #define AvREALISH(av) AvFLAGS(av) /* REAL or REIFY -- shortcut */

--- 44,48 ----
#define AvREUSED_on(av) (AvFLAGS(av) |= AVf_REUSED)
#define AvREUSED_off(av) (AvFLAGS(av) &= ~AVf_REUSED)

! #define AvREALISH(av) (AvFLAGS(av) & (AVf_REAL|AVf_REIFY))