1 /* ====== BEGIN INCLUDE FILE            apl_save_frame.incl.pl1 =================================== */
 2 
 3 declare   save_frame_pointer pointer unaligned;
 4 
 5 declare 1 save_frame                    aligned based (save_frame_pointer),
 6           2 last_frame_pointer          ptr unal,           /* pointer to last parse frame                    */
 7           2 frame_type                  fixed bin,          /* = save_frame_type                              */
 8           2 saved_symbol_count          fixed bin (29),     /* number of symbols in saved frame               */
 9           2 symbol_list                 aligned dimension (total_symbols refer (save_frame.saved_symbol_count)),
10             3 symbol_pointer            ptr unal,           /* pointer to each symbol bead (never null)       */
11             3 saved_meaning_pointer     ptr unal,           /* ptr to local meaning at time save_frame is created */
12                                                             /* (if null, local meaning is null)               */
13             3 global_meaning_pointer_pointer                /* pointer to the meaning pointer which           */
14                                         ptr unal;           /* represents the global meaning of this symbol   */
15                                                             /* (if null, either symbol was never localized,   */
16                                                             /* or save_frame was created by apl_load_command_,*/
17                                                             /* and saved_meaning_ptr determines whether it    */
18                                                             /* was localized)                                 */
19 
20 /* ------ END INCLUDE FILE              apl_save_frame.incl.pl1 ----------------------------------- */