#include "defines.h"
#include <nl_types.h>
#include <nlcatmsg.h>
#include <time.h>
#include "cif.h"
#include "cifprocs.h"
#include "host.m"
#include "host.h"
#include "target.m"
#include "target.h"
#include "globals.m"
#include "tokens.m"
#include "sytb.m"
#include "p_globals.m"
#include "s_globals.m"
#include "debug.m"
#include "cif.m"
#include "fecif.m"
#include "globals.h"
#include "tokens.h"
#include "sytb.h"
#include "p_globals.h"
#include "s_globals.h"
#include "fecif.h"
#include <unistd.h>

Include dependency graph for fecif.c:

Defines
#define	__NLS_INTERNALS 1 /* Obtain internal <nl_types.h> definitions. */
#define	CIF_VERSION 3
#define	outbuf1 output_buf[0]
#define	outbuf2 output_buf[1]
#define	FILE_ID_LIST_SIZE 1000
Functions
static int	cif_data_type (int)
static void	cif_flush_include_recs (void)
static int	get_line_and_file_id (int, int *)
static void	output_minimal_object_rec (int)
static void	process_attr_list (int, boolean)
static boolean	output_struct_ids (opnd_type *)
void	init_cif (char comp_date_time, char release_level)
void	cif_prog_unit_init (void)
void	cif_send_sytb ()
void	cif_send_attr (int attr_idx, int dt_attr_idx)
void	cif_directive_rec (cif_directive_code_type dir, int line, int col)
int	cif_file_name_rec (char file_name, char user_specified_file_name)
void	cif_include_rec (int line_num, int col_num, int include_file_id)
void	cif_message_rec (int msg_num, int glb_line_num, int col_num, msg_severities_type msg_severity, char msg_text, long arg0, long arg1, long arg2, long arg3, char scoping_unit_name, int relative_order)
void	cif_source_file_rec (int source_file_id, src_form_type source_form)
void	cif_summary_rec (char release_level, char gen_date, char *gen_time, float elapsed_time, long aux_elapsed_time, long max_field_len)
void	cif_unit_rec (void)
void	cif_copy_temp_to_actual_CIF (void)
void	cif_end_unit_rec (char *name_ptr)
void	cif_usage_rec (int obj_idx, fld_type obj_fld, int line_num, int col_num, int usage_code)
void	cif_sb_usage_rec (int sb_idx, int line_num, int col_num, cif_usage_code_type usage_code)
void	cif_enable_disable_rec (void)
void	cif_machine_characteristics_rec (void)
void	cif_stmt_type_rec (boolean exact_stmt_type_known, cif_stmt_type exact_stmt_type, int stmt_number)
void	cif_cont_line_rec (int continuation_type, int line_number)
void	cif_call_site_rec (int ir_idx, int gen_idx)
void	cif_named_constant_rec (int attr_idx, int start_line, int start_column)
void	cif_loop_def_rec (void)
void	cif_label_rec (int attr_idx)
void	cif_misc_compiler_opts_rec (void)
void	cif_optimization_opts_rec (void)
void	cif_begin_scope_rec (void)
void	cif_end_scope_rec (void)
void	cif_scope_info_rec (void)
void	cif_use_module_rec (int attr_idx, int mf_tbl_idx, boolean send_attr)
int	cif_rename_rec (int ro_idx, int cif_symbol_id, int attr_idx, int module_attr_idx)
void	cif_fake_a_unit ()
void	Cif_Error ()
void	close_cif ()
void	cif_object_rec_for_func_result (int attr_idx)
Variables
static char	USMID [] = "\n@(#)5.0_pl/sources/fecif.c 5.9 10/14/99 12:53:57\n"
static char	output_buf [2][64]

Define Documentation

#define __NLS_INTERNALS 1 /* Obtain internal <nl_types.h> definitions. */

Definition at line 42 of file fecif.c.

#define CIF_VERSION 3

Definition at line 57 of file fecif.c.

#define FILE_ID_LIST_SIZE 1000

Referenced by cif_flush_include_recs().

#define outbuf1 output_buf[0]

Definition at line 104 of file fecif.c.

Referenced by cif_call_site_rec(), and cif_send_attr().

#define outbuf2 output_buf[1]

Definition at line 105 of file fecif.c.

Function Documentation

void cif_begin_scope_rec ( void )

Definition at line 5044 of file fecif.c.

References AT_CIF_SYMBOL_ID, BLK_CIF_SCOPE_ID, BLK_DEF_COLUMN, BLK_DEF_LINE, BLK_NAME, blk_stk_idx, BLK_TYPE, Blockdata_Blk, c_i_f, Case_Blk, Cif_Error(), Cif_F90_Begin_Scope_Rec(), cif_internal_proc_start_line, cif_module_proc_start_line, cif_pgm_unit_start_line, Contains_Blk, CURR_BLK, CURR_BLK_DEF_COLUMN, CURR_BLK_DEF_LINE, curr_scp_idx, Derived_Type_Blk, Do_Blk, EOI, EOR, fprintf(), Func_Entry, Func_Exit, Function_Blk, get_line_and_file_id(), If_Blk, If_Else_If_Blk, If_Then_Blk, Interface_Blk, Interface_Body_Blk, Internal, Internal_Blk, Module_Blk, Module_Proc_Blk, NEXT_SCOPE_ID, NEXT_SYMBOL_ID, NULL, NULL_IDX, PRINTMSG(), Program_Blk, SCP_ATTR_IDX, SCP_CIF_ID, SCP_LEVEL, SCP_PARENT_IDX, Select_Blk, stmt_start_line, Subroutine_Blk, TRACE, Where_Else_Blk, Where_Else_Mask_Blk, and Where_Then_Blk.

Referenced by parse_interface_stmt(), parse_prog_unit(), start_new_subpgm(), and stmt_level_semantics().

Here is the call graph for this function:

void cif_call_site_rec	(	int	ir_idx,
		int	gen_idx
	)

Definition at line 3704 of file fecif.c.

References arg_info_list, AT_CIF_SYMBOL_ID, AT_COMPILER_GEND, AT_DCL_ERR, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_PRIVATE, AT_REFERENCED, AT_Tbl_Idx, ATD_ARRAY_IDX, ATI_CIF_SEEN_IN_CALL, ATI_INTERFACE_CLASS, ATI_USER_SPECIFIED, ATP_INTERFACE_IDX, ATP_PGM_UNIT, ATP_PROC, ATP_RSLT_IDX, ATT_CIF_DT_ID, BD_LB_FLD, BD_LB_IDX, BD_UB_FLD, BD_UB_IDX, c_i_f, Character, cif_data_type(), Cif_Error(), Cif_F90_Entry_Rec(), expr_semantics_args::cif_id, cif_number_of_struct_ids, CIF_PGM_PRIVATE, CIF_PGM_REFERENCE, cif_send_attr(), CN_CONST, CN_Tbl_Idx, CN_TYPE_IDX, convert_to_string(), COPY_OPND, curr_scp_idx, Defined_Assign_Interface, arg_strct::ed, EOI, EOR, EXIT, FALSE, find_left_attr(), fprintf(), Func_Entry, Func_Exit, Function, Generic_Function_Interface, Generic_Subroutine_Interface, get_line_and_file_id(), if(), IL_ARG_DESC_IDX, IL_FLD, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, Intrin_Proc, IR_COL_NUM, IR_COL_NUM_L, IR_IDX_L, IR_IDX_R, IR_LINE_NUM_L, IR_LIST_CNT_R, NEXT_SYMBOL_ID, NULL, NULL_CHAR, NULL_IDX, OPND_FLD, OPND_IDX, outbuf1, output_struct_ids(), Pgm_Unit, expr_semantics_args::rank, Referenced, SCP_CIF_ID, skip_struct_base, Structure, TRACE, TYP_IDX, expr_semantics_args::type, and VAR_LEN_CHAR.

Referenced by call_list_semantics(), and resolve_ext_opr().

Here is the call graph for this function:

void cif_cont_line_rec	(	int	continuation_type,
		int	line_number
	)

Definition at line 3667 of file fecif.c.

References c_i_f, Cif_Continuation_Rec(), and get_line_and_file_id().

Referenced by fixed_get_stmt(), and free_get_stmt().

Here is the call graph for this function:

void cif_copy_temp_to_actual_CIF ( void )

Definition at line 2890 of file fecif.c.

References c_i_f, cif_tmp_file, EOF, fprintf(), Func_Entry, Func_Exit, NULL, and TRACE.

Referenced by cif_unit_rec(), and stmt_level_semantics().

Here is the call graph for this function:

static int cif_data_type ( int data_type ) [static]

Definition at line 6514 of file fecif.c.

References Character_1, Character_2, Character_4, Complex_16, Complex_4, Complex_8, CRI_Ch_Ptr_8, CRI_Parcel_Ptr_8, CRI_Ptr_8, Err_Res, Func_Entry, Func_Exit, Integer_1, Integer_2, Integer_4, Integer_8, Internal, Logical_1, Logical_2, Logical_4, Logical_8, Long_Typeless, NULL, PRINTMSG(), Real_16, Real_4, Real_8, Short_Char_Const, Short_Typeless_Const, stmt_start_line, Structure_Type, TRACE, Typeless_4, and Typeless_8.

Referenced by cif_call_site_rec(), and cif_send_attr().

Here is the call graph for this function:

void cif_directive_rec	(	cif_directive_code_type	dir,
		int	line,
		int	col
	)

Definition at line 2338 of file fecif.c.

References c_i_f, Cif_Cdir_Rec(), Func_Entry, Func_Exit, get_line_and_file_id(), NULL, and TRACE.

Referenced by parse_dir_directives().

Here is the call graph for this function:

void cif_enable_disable_rec ( void )

void cif_end_scope_rec ( void )

Definition at line 5357 of file fecif.c.

References BLK_CIF_SCOPE_ID, blk_stk_idx, c_i_f, Cif_F90_End_Scope_Rec(), cif_internal_proc_start_line, cif_module_proc_start_line, cif_pgm_unit_error_recovery, CURR_BLK, CURR_BLK_ERR, curr_scp_idx, Func_Entry, Func_Exit, get_line_and_file_id(), Interface_Body_Blk, Internal_Blk, LA_CH_COLUMN, LA_CH_LINE, Module_Proc_Blk, NEXT_SCOPE_ID, NULL, Program_Blk, SCP_CIF_ID, and TRACE.

Referenced by end_blockdata(), end_function(), end_interface_blk(), end_interface_body(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), and end_subroutine().

Here is the call graph for this function:

void cif_end_unit_rec ( char * name_ptr )

Definition at line 2934 of file fecif.c.

References c_i_f, cif_end_unit_column, cif_end_unit_line, CIF_ENDUNIT, Cif_Endunit_Rec(), cif_flush_include_recs(), Func_Entry, Func_Exit, get_line_and_file_id(), last_msg_file_rec, NULL, stmt_start_col, and TRACE.

Referenced by cif_fake_a_unit(), end_blockdata(), end_function(), end_module(), end_program_unit(), end_subroutine(), flush_msg_file(), and main().

Here is the call graph for this function:

void Cif_Error ( void )

Definition at line 5737 of file fecif.c.

References curr_stmt_sh_idx, Error, exit_compiler(), Func_Entry, Func_Exit, NULL, PRINTMSG(), RC_USER_ERROR, SH_GLB_LINE, and TRACE.

Referenced by cif_begin_scope_rec(), cif_call_site_rec(), Cif_Cdir_Rec(), Cif_Cifhdr_Rec(), Cif_Continuation_Rec(), Cif_EDopts_Rec(), Cif_Endunit_Rec(), Cif_F90_Begin_Scope_Rec(), Cif_F90_Callsite_Rec(), Cif_F90_Comblk_Rec(), Cif_F90_Const_Rec(), Cif_F90_Derived_Type_Rec(), Cif_F90_End_Scope_Rec(), Cif_F90_Entry_Rec(), Cif_F90_Int_Block_Rec(), Cif_F90_Label_Rec(), Cif_F90_Loop_Rec(), Cif_F90_Misc_Opts_Rec(), Cif_F90_Namelist_Rec(), Cif_F90_Object_Rec(), Cif_F90_Opt_Opts_Rec(), Cif_F90_Rename_Rec(), Cif_F90_Scope_Info_Rec(), Cif_F90_Use_Module_Rec(), Cif_File_Rec(), Cif_Include_Rec(), Cif_Mach_Char_Rec(), Cif_Message_Rec(), cif_misc_compiler_opts_rec(), cif_named_constant_rec(), cif_optimization_opts_rec(), Cif_Orig_Cmd(), cif_scope_info_rec(), cif_send_attr(), Cif_Src_Pos_Rec(), Cif_Srcfile_Rec(), Cif_Stmt_Type_Rec(), Cif_Summary_Rec(), Cif_Unit_Rec(), Cif_Usage_Rec(), cif_usage_rec(), init_cif(), and output_minimal_object_rec().

Here is the call graph for this function:

void cif_fake_a_unit ( void )

Definition at line 5640 of file fecif.c.

References BASIC_RECS, c_i_f, cif_end_unit_rec(), Cif_F90_Begin_Scope_Rec(), Cif_F90_End_Scope_Rec(), Cif_F90_Entry_Rec(), cif_flags, cif_pgm_unit_start_line, cif_symbol_or_scope_id, cif_unit_rec(), curr_glb_line, Func_Entry, Func_Exit, get_line_and_file_id(), NEXT_SCOPE_ID, NEXT_SYMBOL_ID, NULL, stmt_start_col, stmt_start_line, TRACE, and UNNAMED_PROGRAM_NAME.

Referenced by flush_msg_file(), and main().

Here is the call graph for this function:

int cif_file_name_rec	(	char *	file_name,
		char *	user_specified_file_name
	)

Definition at line 2378 of file fecif.c.

References c_i_f, Cif_File_Rec(), Func_Entry, Func_Exit, NEXT_FILE_ID, NULL, and TRACE.

Referenced by cif_use_module_rec(), init_cif(), init_src_input(), and open_include_file().

Here is the call graph for this function:

static void cif_flush_include_recs ( void ) [static]

Definition at line 6012 of file fecif.c.

References buf, cif_actual_file, CIF_FILE, CIF_INCLUDE, CIF_MESSAGE, CIF_STMT_TYPE, cif_tmp_file, EOF, EOI, EXIT, FALSE, FILE_ID_LIST_SIZE, fprintf(), Func_Entry, get_temp_file(), GL_CIF_FILE_ID, global_to_local_line_number(), Internal, Log_Error, MAX_FILE_NAME_SIZE, NULL, NULL_CHAR, PRINTMSG(), stmt_start_line, strcpy, TRACE, and TRUE.

Referenced by cif_end_unit_rec().

Here is the call graph for this function:

void cif_include_rec	(	int	line_num,
		int	col_num,
		int	include_file_id
	)

Definition at line 2418 of file fecif.c.

References c_i_f, Cif_Include_Rec(), Cif_Src_Pos_Rec(), Func_Entry, Func_Exit, get_line_and_file_id(), NULL, and TRACE.

Referenced by open_include_file().

Here is the call graph for this function:

void cif_label_rec ( int attr_idx )

Definition at line 4525 of file fecif.c.

References AT_CIF_SYMBOL_ID, AT_OBJ_NAME_PTR, ATL_CLASS, c_i_f, Cif_F90_Label_Rec(), CIF_LB_CONSTRUCT, CIF_LB_FORMAT, CIF_LB_STMT, CIF_LB_UNKNOWN, curr_scp_idx, EXIT, Func_Entry, Func_Exit, Lbl_Debug, Lbl_Format, Lbl_Internal, Lbl_Unknown, Lbl_User, NEXT_SYMBOL_ID, NULL, SCP_CIF_ID, and TRACE.

Referenced by check_for_dup_derived_type_lbl(), and cif_send_attr().

Here is the call graph for this function:

void cif_loop_def_rec ( void )

Definition at line 4382 of file fecif.c.

References AT_CIF_SYMBOL_ID, AT_Tbl_Idx, c_i_f, Cif_F90_Loop_Rec(), CIF_LP_DO, CIF_LP_DO_INFINITE, CIF_LP_DOWHILE, curr_scp_idx, curr_stmt_sh_idx, Do_Iterative_Stmt, Do_While_Stmt, Func_Entry, Func_Exit, get_line_and_file_id(), IL_FLD, IL_IDX, IL_NEXT_LIST_IDX, IL_Tbl_Idx, IR_IDX_L, IR_IDX_R, NEXT_SYMBOL_ID, NO_Tbl_Idx, NULL, NULL_IDX, SCP_CIF_ID, SH_COL_NUM, SH_COMPILER_GEN, SH_GLB_LINE, SH_IR_IDX, SH_PARENT_BLK_IDX, SH_STMT_TYPE, statement_number, stmt_end_col, stmt_end_line, and TRACE.

Referenced by gen_loop_end_ir().

Here is the call graph for this function:

void cif_machine_characteristics_rec ( void )

Definition at line 3331 of file fecif.c.

Referenced by init_cif().

Here is the call graph for this function:

void cif_message_rec	(	int	msg_num,
		int	glb_line_num,
		int	col_num,
		msg_severities_type	msg_severity,
		char *	msg_text,
		long	arg0,
		long	arg1,
		long	arg2,
		long	arg3,
		char *	scoping_unit_name,
		int	relative_order
	)