/* BEGIN fort_shared_vars.incl.pl1 */ /****^ HISTORY COMMENTS: 1) change(86-07-14,BWong), approve(86-07-14,MCR7286), audit(86-07-17,Ginter), install(86-07-28,MR12.0-1105): Fix fortran bug 463. END HISTORY COMMENTS */ /* Created: June 1976, David Levin Modified: 30 Aug 76, David Levin - to add global variables for listing segment. Modified: 22 Nov 76, Richard Barnes - to add profile_size Modified: 24 Feb 77, Gabriel Chang - for the optimizer Modified: 06 Oct 77, Richard Barnes - for the loop optimizer Modified: 16 Nov 77, David Levin - add next_free_(temp array_ref). Modified: 09 Oct 78, Paul Smee - for larger common and arrays. Modified: 03 Apr 79, Paul Smee - add list of include file data. Modified: 17 May 79, Paul Smee - add cur_statement_list. Modified: 28 Jun 79, Paul Smee - add compile-time math entry arrays. Modified: 13 Sep 79, Paul Smee - add default_char_size. Modified: 18 Dec 79, Richard Barnes - add free and freei Modified: 03 Mar 80, C R Davis - add must_save_stack_extent. Modified: 15 Mar 82, T G Oke - add source (line_number, file_number). Modified: 20 Sept 82, T G Oke - add VLA_is_256K flag Modified: 22 Sept 82, T G Oke - add area creation info to pass to listing generator. Modified: 17 May 83, M Mabey - add declared_options. Modified: 02 Aug 85, B Wong - 463: changed 'must_save_stack_extent' to 'pad' since the variable is no longer used. */ 2 polish_base ptr, 2 operand_base ptr, 2 object_base ptr, 2 quadruple_base ptr, 2 opt_base ptr, 2 relocation_base ptr, 2 cref_base ptr, /* base of cross reference segment */ 2 source_line_base ptr, /* base of source line offset segment */ 2 listing_base ptr, /* base of listing info segment */ 2 cur_listing ptr, /* points to listing info for the active subprogram */ 2 free(2:4) ptr, /* free chains for optimizer */ 2 freei ptr, /* .. */ 2 polish_max_len fixed bin (19), 2 operand_max_len fixed bin (19), 2 object_max_len fixed bin (19), 2 quad_max_len fixed bin (19), 2 opt_max_len fixed bin (19), 2 next_free_polish fixed bin (18), 2 next_free_operand fixed bin (18), 2 next_free_object fixed bin (18), 2 next_free_listing fixed bin (18), 2 next_free_quad fixed bin (18), 2 next_free_array_ref fixed bin (18), /* Chain for freed array_ref nodes. */ 2 next_free_temp fixed bin (18), /* Chain for freed temporary nodes. */ 2 next_free_opt fixed bin (18), 2 first_segment fixed bin, 2 number_of_source_segments fixed bin (8), 2 number_of_lines fixed bin, 2 number_of_crefs fixed bin, 2 profile_size fixed bin, 2 main_entry_point_name char (32) varying, 2 cur_statement fixed bin (18), 2 cur_statement_list fixed bin (17), 2 cur_subprogram fixed bin (18), 2 first_subprogram fixed bin (18), 2 last_subprogram fixed bin (18), 2 unnamed_block_data_subprogram fixed bin (18), 2 first_entry_name fixed bin (18), 2 last_entry_name fixed bin (18), 2 constant_info (4) aligned structure, 3 constant_count fixed bin (17), 3 first_constant fixed bin (18), 3 last_constant fixed bin (18), 2 options aligned, 3 user_options aligned like fortran_options, 3 system_options aligned, 4 is_fast bit (1) unaligned, 4 namelist_used bit (1) unaligned, 4 compile_only bit (1) unaligned, 4 VLA_is_256K bit (1) unaligned, /* FLAG 255/256K code */ 4 pad bit (32) unaligned, 2 incl_data aligned, 3 incl_count fixed bin, 3 file_list (0:255), 4 source_node_offset fixed bin (18), 4 incl_len fixed bin (21), 4 incl_ptr unaligned ptr, 2 create_constant entry (fixed bin (4), bit (72) aligned) returns (fixed bin (18)) variable, 2 create_char_constant entry (char (*)) returns (fixed bin (18)) variable, 2 print_message entry options (variable) variable, 2 get_next_temp_segment entry (ptr, fixed bin (18)) returns (ptr) variable, 2 negate_round (6) entry (fixed bin (35), bit (72), bit (72), fixed bin (35)) returns (bit (72)) variable, 2 negate_trunc (6) entry (fixed bin (35), bit (72), bit (72), fixed bin (35)) returns (bit (72)) variable, 2 binop_round (6,6) entry (fixed bin (35), bit (72), bit (72), fixed bin (35)) returns (bit (72)) variable, 2 binop_trunc (6,6) entry (fixed bin (35), bit (72), bit (72), fixed bin (35)) returns (bit (72)) variable, 2 comp_parm (6,6) entry (fixed bin (35), bit (72), bit (72), fixed bin (35)) returns (bit (72)) variable, 2 conv_round (6,6) entry (bit (72), fixed bin (35)) returns (bit (72)) variable, 2 conv_trunc (6,6) entry (bit (72), fixed bin (35)) returns (bit (72)) variable, 2 pad bit (1) aligned, /* The following are used by "print_message - decode_source_id" if use_source_info set. */ 2 use_source_info bit (1) aligned, 2 source_file_number fixed bin (35), 2 source_line_number fixed bin (35), 2 Area_create_first fixed bin (18), /* start of text to do creation */ 2 Area_create_last fixed bin (18), /* Last item */ 2 Area_init_first fixed bin (18), /* start of text to init areas */ 2 Area_init_last fixed bin (18), /* Last item */ 2 declared_options aligned like fortran_declared; dcl num_of_word_constants fixed bin (17) defined (constant_info (1).constant_count); dcl first_word_constant fixed bin (18) defined (constant_info (1).first_constant); dcl last_word_constant fixed bin (18) defined (constant_info (1).last_constant); dcl num_of_dw_constants fixed bin (17) defined (constant_info (2).constant_count); dcl first_dw_constant fixed bin (18) defined (constant_info (2).first_constant); dcl last_dw_constant fixed bin (18) defined (constant_info (2).last_constant); dcl num_of_char_constants fixed bin (17) defined (constant_info (3).constant_count); dcl first_char_constant fixed bin (18) defined (constant_info (3).first_constant); dcl last_char_constant fixed bin (18) defined (constant_info (3).last_constant); dcl num_of_block_constants fixed bin (17) defined (constant_info (4).constant_count); dcl first_block_constant fixed bin (18) defined (constant_info (4).first_constant); dcl last_block_constant fixed bin (18) defined (constant_info (4).last_constant); /* END fort_shared_vars.incl.pl1 */ */ ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull and Bull HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by Bull HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved */