1 /* BEGIN INCLUDE FILE ... probe_var_info.incl.pl
 2 
 3    describes a probe variable.  This str pointed to by the probe_var_info_ptr
 4    of a reference node.
 5    Jim Davis 19 Feb 80
 6 */
 7 
 8 
 9 /****^  HISTORY COMMENTS:
10   1) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952),
11      audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184):
12      Added info for new types used by C.
13                                                    END HISTORY COMMENTS */
14 
15 
16 /* Added probe_variable.unaligned_sw and pointer_unal type 12/04/81 S. Herbst */
17 /* Added address-type constants (ADDRESS_ALLOC_TYPE, etc.) 03/12/84 S. Herbst */
18 
19 dcl (ADDRESS_ALLOC_TYPE init (1),
20      ADDRESS_EXTERNAL_TYPE init (2),
21      ADDRESS_GIVEN_TYPE init (3)) fixed bin int static options (constant);
22 
23 dcl 1 probe_variable aligned based (probe_variable_ptr),
24       2 next ptr unal,                                     /* threaded */
25       2 name char (64) varying,
26       2 declared_type char (64) varying,                   /* what user TYPE */
27       2 type fixed bin,                                    /* Multics type */
28       2 unaligned_sw bit (1) aligned,
29       2 address ptr unal,                                  /* to the data */
30       2 pad (5) ptr unal;
31 
32 dcl probe_variable_integer fixed bin (35) based (probe_variable.address);
33 dcl probe_variable_pointer pointer aligned based (probe_variable.address);
34 dcl probe_variable_pointer_unal pointer unaligned based (probe_variable.address);
35 dcl probe_variable_float float bin (27) based (probe_variable.address);
36 dcl probe_variable_char  char(1) based (probe_variable.address);
37 dcl probe_variable_double float bin (63) based (probe_variable.address);
38 dcl probe_variable_long fixed bin(71) based (probe_variable.address);
39 
40 dcl probe_variable_ptr pointer unal;
41 
42 /* END INCLUDE FILE ... probe_var_info.incl.pl1 */
43