| /* $Header$ |
| * |
| * Copyright (c) 1989, Larry Wall |
| * |
| * You may distribute under the terms of the GNU General Public License |
| * as specified in the README file that comes with the perl 3.0 kit. |
| * |
| * $Log$ |
| * Revision 1.2 2004/09/01 14:33:24 criswell |
| * Migrating test suite out of the source tree. |
| * |
| * Revision 1.1 2004/02/17 22:21:15 criswell |
| * Initial commit of the perl Malloc Benchmark. I've cheated a little by |
| * generating the yacc output files and committing them directly, but it was |
| * easier than disabling the Bison Voodoo that gets executed by default. |
| * |
| * Revision 4.0 91/03/20 01:03:44 lwall |
| * 4.0 baseline. |
| * |
| */ |
| |
| struct atbl { |
| STR **ary_array; |
| STR **ary_alloc; |
| STR *ary_magic; |
| int ary_max; |
| int ary_fill; |
| char ary_flags; |
| }; |
| |
| #define ARF_REAL 1 /* free old entries */ |
| |
| STR *afetch(); |
| bool astore(); |
| STR *apop(); |
| STR *ashift(); |
| void afree(); |
| void aclear(); |
| bool apush(); |
| int alen(); |
| ARRAY *anew(); |
| ARRAY *afake(); |