diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:30 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:30 +0000 |
| commit | d48672a2009b4897fb5bf74d6723c050cdd015e0 (patch) | |
| tree | 8b55c5c62bca864358bc6bcb107144d864062543 /stab.h | |
| parent | 9ef589d8078fdf16316dec772c00e81b3c38fd22 (diff) | |
| download | perl-d48672a2009b4897fb5bf74d6723c050cdd015e0.tar.gz | |
perl 4.0 patch 9: patch #4, continued
See patch #4.
Diffstat (limited to 'stab.h')
| -rw-r--r-- | stab.h | 15 |
1 files changed, 11 insertions, 4 deletions
@@ -1,11 +1,15 @@ -/* $Header: stab.h,v 4.0 91/03/20 01:39:49 lwall Locked $ +/* $RCSfile: stab.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:56:35 $ * - * Copyright (c) 1989, Larry Wall + * Copyright (c) 1991, 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. + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. * * $Log: stab.h,v $ + * Revision 4.0.1.1 91/06/07 11:56:35 lwall + * patch4: new copyright notice + * patch4: length($`), length($&), length($') now optimized to avoid string copy + * * Revision 4.0 91/03/20 01:39:49 lwall * 4.0 baseline. * @@ -93,7 +97,10 @@ struct sub { #define Nullstab Null(STAB*) +STRLEN stab_len(); + #define STAB_STR(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_str(stab_val(tmpstab)->str_magic) : stab_val(tmpstab)) +#define STAB_LEN(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_len(stab_val(tmpstab)->str_magic) : stab_val(tmpstab)->str_cur) #define STAB_GET(s) (tmpstab = (s), str_get(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab))) #define STAB_GNUM(s) (tmpstab = (s), str_gnum(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab))) |