X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.h;h=d1771223cb5f213df0d8264316284715965637af;hb=554ad1fcb1c9a72f13e2c15496f1fa2ad5b5e63c;hp=b56917fa2c63708103fa30da1a101a4703836c8a;hpb=954c1994944eafa74aaac1bab94e820b6e447da9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/av.h b/av.h index b56917f..d177122 100644 --- a/av.h +++ b/av.h @@ -1,6 +1,7 @@ /* av.h * - * Copyright (c) 1991-1999, Larry Wall + * Copyright (C) 1991, 1992, 1993, 1995, 1996, 1997, 1998, 1999, + * 2000, 2001, 2002, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -16,7 +17,7 @@ struct xpvav { MAGIC* xmg_magic; /* magic for scalar array */ HV* xmg_stash; /* class package */ - SV** xav_alloc; /* pointer to malloced string */ + SV** xav_alloc; /* pointer to beginning of C array of SVs */ SV* xav_arylen; U8 xav_flags; }; @@ -32,8 +33,8 @@ struct xpvav { * real if the array needs to be modified in some way. Functions that * modify fake AVs check both flags to call av_reify() as appropriate. * - * Note that the Perl stack has neither flag set. (Thus, items that go - * on the stack are never refcounted.) + * Note that the Perl stack and @DB::args have neither flag set. (Thus, + * items that go on the stack are never refcounted.) * * These internal details are subject to change any time. AV * manipulations external to perl should not care about any of this. @@ -46,9 +47,13 @@ struct xpvav { #define AVf_REUSED 4 /* got undeffed--don't turn old memory into SVs now */ /* +=head1 Handy Values + =for apidoc AmU||Nullav Null AV pointer. +=head1 Array Manipulation Functions + =for apidoc Am|int|AvFILL|AV* av Same as C. Deprecated, use C instead. @@ -79,3 +84,4 @@ Same as C. Deprecated, use C instead. #define AvFILL(av) ((SvRMAGICAL((SV *) (av))) \ ? mg_size((SV *) av) : AvFILLp(av)) +#define NEGATIVE_INDICES_VAR "NEGATIVE_INDICES"