485  *top_stack;			/* Top stack ptr */  variable
496   if (top_stack && top_stack->prev)  in push_parse_stack()
497     new = top_stack->prev;  in push_parse_stack()
501   if (top_stack)  in push_parse_stack()
505       *new = *top_stack;  in push_parse_stack()
506       top_stack->prev = new;  in push_parse_stack()
508       new->next = top_stack;  in push_parse_stack()
510   top_stack = new;  in push_parse_stack()
518   if (!top_stack)  in pop_parse_stack()
520   if (top_stack->next)  in pop_parse_stack()
521     top_stack = top_stack->next;  in pop_parse_stack()
650       b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (top_stack->cur_st),  in parse_symbol()
658       b = top_stack->cur_block;  in parse_symbol()
681       b = top_stack->cur_block;  in parse_symbol()
702       top_stack->numargs++;  in parse_symbol()
733       add_symbol (s, top_stack->cur_block);  in parse_symbol()
742       add_symbol (s, top_stack->cur_block);  in parse_symbol()
804       b = top_stack->cur_block;  in parse_symbol()
807 	  struct blockvector *bv = BLOCKVECTOR (top_stack->cur_st);  in parse_symbol()
816 	  else if (sh->value == top_stack->procadr)  in parse_symbol()
834       BLOCK_SUPERBLOCK (b) = top_stack->cur_block;  in parse_symbol()
835       add_block (b, top_stack->cur_st);  in parse_symbol()
842       top_stack->cur_block = b;  in parse_symbol()
843       top_stack->blocktype = sh->st;  in parse_symbol()
844       top_stack->cur_type = SYMBOL_TYPE (s);  in parse_symbol()
845       top_stack->cur_field = -1;  in parse_symbol()
846       top_stack->procadr = sh->value;  in parse_symbol()
847       top_stack->numargs = 0;  in parse_symbol()
883 	top_stack->blocktype = stBlock;  in parse_symbol()
1111 		add_symbol (enum_sym, top_stack->cur_block);  in parse_symbol()
1121 	top_stack->cur_type = t;  in parse_symbol()
1122 	top_stack->cur_field = 0;  in parse_symbol()
1141 	add_symbol (s, top_stack->cur_block);  in parse_symbol()
1157       if (top_stack->blocktype == stProc  in parse_symbol()
1158 	  || top_stack->blocktype == stStaticProc)  in parse_symbol()
1160 	  top_stack->blocktype = stNil;  in parse_symbol()
1164       top_stack->blocktype = stBlock;  in parse_symbol()
1166       BLOCK_START (b) = sh->value + top_stack->procadr;  in parse_symbol()
1167       BLOCK_SUPERBLOCK (b) = top_stack->cur_block;  in parse_symbol()
1168       top_stack->cur_block = b;  in parse_symbol()
1169       add_block (b, top_stack->cur_st);  in parse_symbol()
1176 	  top_stack->cur_type = 0;  in parse_symbol()
1179 	       (top_stack->blocktype == stProc ||  in parse_symbol()
1180 		top_stack->blocktype == stStaticProc))  in parse_symbol()
1183 	  struct blockvector *bv = BLOCKVECTOR (top_stack->cur_st);  in parse_symbol()
1185 	  struct block *b = top_stack->cur_block;  in parse_symbol()
1186 	  struct type *ftype = top_stack->cur_type;  in parse_symbol()
1189 	  BLOCK_END (top_stack->cur_block) += sh->value;	/* size */  in parse_symbol()
1201 	  e->numargs = top_stack->numargs;  in parse_symbol()
1203 	  add_symbol (s, top_stack->cur_block);  in parse_symbol()
1211 		  && BLOCK_START (b_bad) == top_stack->procadr  in parse_symbol()
1212 		  && BLOCK_END (b_bad) == top_stack->procadr)  in parse_symbol()
1223 	      int nparams = top_stack->numargs;  in parse_symbol()
1257       else if (sh->sc == scText && top_stack->blocktype == stBlock)  in parse_symbol()
1262 	  BLOCK_END (top_stack->cur_block) = sh->value + top_stack->procadr;  in parse_symbol()
1264       else if (sh->sc == scText && top_stack->blocktype == stNil)  in parse_symbol()
1270       else if (sh->sc == scText && top_stack->blocktype == stFile)  in parse_symbol()
1284       f = &TYPE_FIELDS (top_stack->cur_type)[top_stack->cur_field++];  in parse_symbol()
1340       SYMBOL_BLOCK_VALUE (s) = top_stack->cur_block;  in parse_symbol()
1342       add_symbol (s, top_stack->cur_block);  in parse_symbol()
1379       top_stack->blocktype = sh->st;  in parse_symbol()
1929     s = mylookup_symbol (sh_name, top_stack->cur_block,  in parse_procedure()
1948       add_symbol (s, top_stack->cur_block);  in parse_procedure()
1957       BLOCK_SUPERBLOCK (b) = top_stack->cur_block;  in parse_procedure()
1958       add_block (b, top_stack->cur_st);  in parse_procedure()
4051       top_stack->cur_st = st;  in psymtab_to_symtab_1()
4052       top_stack->cur_block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (st),  in psymtab_to_symtab_1()
4054       BLOCK_START (top_stack->cur_block) = pst->textlow;  in psymtab_to_symtab_1()
4055       BLOCK_END (top_stack->cur_block) = 0;  in psymtab_to_symtab_1()
4056       top_stack->blocktype = stFile;  in psymtab_to_symtab_1()
4057       top_stack->cur_type = 0;  in psymtab_to_symtab_1()
4058       top_stack->procadr = 0;  in psymtab_to_symtab_1()
4059       top_stack->numargs = 0;  in psymtab_to_symtab_1()
4136       top_stack->cur_st = st;  in psymtab_to_symtab_1()
4137       top_stack->cur_block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (top_stack->cur_st),  in psymtab_to_symtab_1()
4139       top_stack->blocktype = stFile;  in psymtab_to_symtab_1()