1 /*  BEGIN INCLUDE FILE ..... mrds_lex_stack.incl.pl1 ..... 11/27/85 Hergert.MRDS */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(87-11-23,Hergert), approve(88-06-28,MCR7903),
 5      audit(88-06-28,Dupuis), install(88-08-01,MR12.2-1073):
 6      Created for for new parser.
 7                                                    END HISTORY COMMENTS */
 8 
 9 dcl 1 lex_stack (-3:100) based (lex_stack_ptr) aligned,
10                                                             /* 3:-1 is the FIFO lookahead stack
11                                                                1:50 is the LIFO lexical stack */
12     2 invariant_part,                                       /* LALR predefined data */
13       3 token_ptr ptr,                                      /* pointer to symbol (must be valid) */
14       3 token_length fixed bin,                             /* length of symbol (may be 0) */
15       3 token_start_pos fixed bin,                          /* start position of symbol */
16       3 token_id fixed bin;                                 /* encoding of the symbol */
17 
18 /* END INCLUDE FILE ..... mrds_lex_stack.incl.pl1 ..... */