diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-15 23:03:11 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-15 23:03:11 +0000 |
| commit | 76854fea946342f75a73f6266f0a5dedd775121f (patch) | |
| tree | ea51c7270c19c33ff001378768b161b001b15ad5 /stab.h | |
| parent | d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d (diff) | |
| download | perl-76854fea946342f75a73f6266f0a5dedd775121f.tar.gz | |
perl 3.0 patch #33 patch #29, continued
See patch #29.
Diffstat (limited to 'stab.h')
| -rw-r--r-- | stab.h | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -1,4 +1,4 @@ -/* $Header: stab.h,v 3.0.1.3 90/08/09 05:18:42 lwall Locked $ +/* $Header: stab.h,v 3.0.1.4 90/10/16 10:33:08 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,10 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: stab.h,v $ + * Revision 3.0.1.4 90/10/16 10:33:08 lwall + * patch29: *foo now prints as *package'foo + * patch29: package behavior is now more consistent + * * Revision 3.0.1.3 90/08/09 05:18:42 lwall * patch19: Added support for linked-in C subroutines * @@ -27,6 +31,7 @@ struct stabptrs { FCMD *stbp_form; /* format value */ ARRAY *stbp_array; /* array value */ HASH *stbp_hash; /* associative array value */ + HASH *stbp_stash; /* symbol table for this stab */ SUBR *stbp_sub; /* subroutine value */ int stbp_lastexpr; /* used by nothing_in_common() */ line_t stbp_line; /* line first declared at (for -w) */ @@ -57,6 +62,7 @@ HASH *stab_hash(); ((STBP*)(stab->str_ptr))->stbp_hash : \ ((STBP*)(hadd(stab)->str_ptr))->stbp_hash) #endif /* Microport 2.4 hack */ +#define stab_stash(stab) (((STBP*)(stab->str_ptr))->stbp_stash) #define stab_sub(stab) (((STBP*)(stab->str_ptr))->stbp_sub) #define stab_lastexpr(stab) (((STBP*)(stab->str_ptr))->stbp_lastexpr) #define stab_line(stab) (((STBP*)(stab->str_ptr))->stbp_line) @@ -93,7 +99,7 @@ struct sub { CMD *cmd; int (*usersub)(); int userindex; - char *filename; + STAB *filestab; long depth; /* >= 2 indicates recursive call */ ARRAY *tosave; }; @@ -117,3 +123,4 @@ EXT int delaymagic INIT(0); STAB *aadd(); STAB *hadd(); +STAB *fstab(); |