1 /* BEGIN INCLUDE FILE pascal_call_trap_info.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-09-16,JPFauche), approve(86-09-16,MCR7521),
 6      audit(86-09-16,Martinson), install(86-11-12,MR12.0-1208):
 7      Added to support Version 8.03 of pascal.
 8                                                    END HISTORY COMMENTS */
 9 
10 /* Information passed to the trap procedure which is called
11 at the first reference to a procedure called from PASCAL and needing descriptors */
12 
13      dcl     1 trap_info            based (trap_info_ptr),
14                2 (version_number, call_descs_relp) fixed bin (18) unsigned unal,
15                2 (symbol_relp, desc_vector_addr_relp) fixed bin (18) unsigned unal,
16                2 trans              char (8) unal;
17 
18      dcl     trap_info_ptr          ptr;
19 
20 /* END INCLUDE FILE pascal_call_trap_info.incl.pl1 */