Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
Classes | Defines | Functions | Variables
w2f_driver.cxx File Reference
#include <iostream>
#include <sys/elf_whirl.h>
#include <time.h>
#include <errno.h>
#include "whirl2f_common.h"
#include "config_opt.h"
#include "config_flist.h"
#include "config_list.h"
#include "w2cf_parentize.h"
#include "file_util.h"
#include "flags.h"
#include "timing.h"
#include "wn_lower.h"
#include "wn_tree_util.h"
#include "const.h"
#include "PUinfo.h"
#include "st2f.h"
#include "wn2f.h"
#include "wn2f_stmt.h"
#include "wn2f_pragma.h"
#include "unparse_target_ftn.h"
Include dependency graph for w2f_driver.cxx:

Go to the source code of this file.

Classes

struct  enter_fld
struct  enter_st
struct  build_type_mod_map

Defines

#define DEB_Whirl2f_IR_TY_W2F_Outfile_Translate_Pu   0
#define W2F_Extension(i)
#define W2F_MAX_SKIP_ITEMS   128
#define MAX_FNAME_LENGTH   256-7 /* allow for suffix ".w2f.f\0" */
#define MAX_ANL_FNAME_LENGTH   256-5 /* allow for suffix ".anl\0" */

Functions

static void Process_Command_Line (INT argc, char **argv)
static void Process_Filename_Options (const char *src_filename, const char *irb_filename)
static FILE * Open_Read_File (const char *filename)
static FILE * Open_Append_File (const char *filename)
static FILE * Open_Create_File (const char *filename)
static void Close_File (const char *filename, FILE *afile)
static void Open_W2f_Output_File (W2F_FILE_KIND kind)
static void Close_W2f_Output_File (W2F_FILE_KIND kind)
static void Begin_New_Locations_File (void)
static void End_Locations_File (void)
static void Continue_Locations_File (void)
static void Move_Locations_To_Anl_File (const char *loc_fname)
static void W2F_Undo_Whirl_Side_Effects (void)
static void W2F_Enter_Global_Symbols (void)
static BOOL Check_Outfile_Initialized (const char *caller_name)
static BOOL Check_Initialized (const char *caller_name)
static BOOL Check_PU_Pushed (const char *caller_name)
BOOL W2F_Should_Emit_Nested_PUs (void)
void W2F_Process_Command_Line (INT phase_argc, char *phase_argv[], INT argc, char *argv[])
void W2F_Init (void)
void W2F_Push_PU (WN *pu, WN *body_part_of_interest)
void W2F_Pop_PU (void)
void W2F_Mark_Loads (void)
void W2F_Nomark_Loads (void)
void W2F_Set_Prompf_Emission (WN_MAP *construct_map)
void W2F_Set_Frequency_Map (WN_MAP frequency_map)
const char * W2F_Get_Transformed_Src_Path (void)
void W2F_Set_Purple_Emission (void)
void W2F_Reset_Purple_Emission (void)
void W2F_def_ST (FILE *outfile, ST *st)
const char * W2F_Object_Name (ST *func_st)
void W2F_Translate_Stid_Lhs (char *strbuf, UINT bufsize, ST *stid_st, STAB_OFFSET stid_ofst, TY_IDX stid_ty, TYPE_ID stid_mtype)
void W2F_Translate_Istore_Lhs (char *strbuf, UINT bufsize, WN *lhs, STAB_OFFSET istore_ofst, TY_IDX istore_addr_ty, TYPE_ID istore_mtype)
void W2F_Translate_Wn (FILE *outfile, WN *wn)
void W2F_Translate_Wn_Str (char *strbuf, UINT bufsize, WN *wn)
void W2F_Translate_Purple_Main (FILE *outfile, WN *pu, const char *region_name)
void W2F_Fini (void)
void W2F_Outfile_Init (void)
void W2F_Outfile_Translate_Pu (WN *pu)
void W2F_Outfile_Fini (void)
void W2F_Cleanup (void)

Variables

static char * W2F_File_Extension [W2F_NUM_FILES]
static char * W2F_Cite_Extension [W2F_NUM_FILES]
static char * W2F_Prompf_Extension [W2F_NUM_FILES]
static W2CF_SKIP_ITEM Skip [W2F_MAX_SKIP_ITEMS+1]
static INT Next_Skip_Item = 0
static BOOL W2F_Initialized = FALSE
static BOOL W2F_Outfile_Initialized = FALSE
static FORMAT_KIND W2F_Format_Kind = F77_ANSI_FORMAT
static WN2F_CONTEXT Global_Context = INIT_WN2F_CONTEXT
static char * W2F_Progname = ""
static const char * W2F_File_Name [W2F_NUM_FILES] = {NULL, NULL, NULL}
static BOOL File_Is_Created [W2F_NUM_FILES] = {FALSE, FALSE, FALSE}
static MEM_POOL W2F_Parent_Pool
FILE * W2F_File [W2F_NUM_FILES] = {NULL, NULL, NULL}
BOOL W2F_Enabled = TRUE
BOOL W2F_Verbose = TRUE
BOOL W2F_Old_F77 = FALSE
BOOL W2F_Ansi_Format = TRUE
BOOL W2F_No_Pragmas = FALSE
BOOL W2F_Emit_Prefetch = FALSE
BOOL W2F_Emit_All_Regions = FALSE
BOOL W2F_Emit_Linedirs = FALSE
BOOL W2F_Emit_Nested_PUs = TRUE
BOOL W2F_Emit_Frequency = FALSE
BOOL W2F_Emit_Cgtag = FALSE
BOOL W2F_Emit_Pcf = FALSE
BOOL W2F_Emit_Omp = FALSE
INT32 W2F_Line_Length = 0
BOOL W2F_OpenAD
char W2F_activeType [W2F_ACTIVE_TYPE_LEN]
BOOL W2F_Only_Mark_Loads = FALSE
BOOL WN2F_F90_pu = FALSE
BOOL W2F_Purple_Emission = FALSE
BOOL W2F_Prompf_Emission = FALSE
WN_MAP * W2F_Construct_Map = NULL
WN_MAP W2F_Frequency_Map = WN_MAP_UNDEFINED
Unparse_Target * W2X_Unparse_Target = NULL
TyIdxToStIdxMap tyidx_modidx

Define Documentation

#define DEB_Whirl2f_IR_TY_W2F_Outfile_Translate_Pu   0

Definition at line 85 of file w2f_driver.cxx.

#define MAX_ANL_FNAME_LENGTH   256-5 /* allow for suffix ".anl\0" */
#define MAX_FNAME_LENGTH   256-7 /* allow for suffix ".w2f.f\0" */
#define W2F_Extension (   i)
Value:
(W2F_Prompf_Emission? W2F_Prompf_Extension[i] : \
         (List_Cite ? W2F_Cite_Extension[i] : W2F_File_Extension[i]))

Definition at line 124 of file w2f_driver.cxx.

Referenced by Process_Filename_Options().

#define W2F_MAX_SKIP_ITEMS   128

Definition at line 131 of file w2f_driver.cxx.

Referenced by W2F_Push_PU().

Function Documentation

static void Begin_New_Locations_File ( void  ) [static]

Definition at line 438 of file w2f_driver.cxx.

References NULL, Open_W2f_Output_File(), W2F_File, W2F_File_Name, W2F_LOC_FILE, W2F_Prompf_Emission, and Write_String().

Referenced by W2F_Outfile_Init().

Here is the call graph for this function:

static BOOL Check_Initialized ( const char *  caller_name) [static]

Definition at line 695 of file w2f_driver.cxx.

References fprintf(), and W2F_Initialized.

Referenced by W2F_def_ST(), W2F_Fini(), W2F_Pop_PU(), W2F_Push_PU(), W2F_Translate_Purple_Main(), W2F_Translate_Wn(), and W2F_Translate_Wn_Str().

Here is the call graph for this function:

static BOOL Check_Outfile_Initialized ( const char *  caller_name) [static]

Definition at line 685 of file w2f_driver.cxx.

References fprintf(), and W2F_Outfile_Initialized.

Referenced by W2F_Outfile_Fini(), and W2F_Outfile_Translate_Pu().

Here is the call graph for this function:

static BOOL Check_PU_Pushed ( const char *  caller_name) [static]

Definition at line 705 of file w2f_driver.cxx.

References fprintf(), NULL, and PUinfo_current_func.

Referenced by W2F_Pop_PU(), W2F_Translate_Wn(), and W2F_Translate_Wn_Str().

Here is the call graph for this function:

static void Close_File ( const char *  filename,
FILE *  afile 
) [static]

Definition at line 384 of file w2f_driver.cxx.

References EC_Src_Close, ErrMsg(), errno, ERROR_LINE_UNKNOWN, NULL, Same_File(), and Set_Error_Line().

Referenced by Close_W2f_Output_File(), and Move_Locations_To_Anl_File().

Here is the call graph for this function:

static void Close_W2f_Output_File ( W2F_FILE_KIND  kind) [static]

Definition at line 416 of file w2f_driver.cxx.

References Close_File(), kind, NULL, W2F_File, and W2F_File_Name.

Referenced by End_Locations_File(), W2F_Cleanup(), and W2F_Outfile_Fini().

Here is the call graph for this function:

static void Continue_Locations_File ( void  ) [static]

Definition at line 496 of file w2f_driver.cxx.

References NULL, Open_W2f_Output_File(), W2F_File_Name, and W2F_LOC_FILE.

Referenced by W2F_Outfile_Translate_Pu().

Here is the call graph for this function:

static void End_Locations_File ( void  ) [static]

Definition at line 467 of file w2f_driver.cxx.

References Close_W2f_Output_File(), NULL, Open_W2f_Output_File(), Terminate_Token_Buffer(), W2F_File, W2F_File_Name, W2F_LOC_FILE, W2F_Prompf_Emission, and Write_String().

Referenced by W2F_Fini().

Here is the call graph for this function:

static void Move_Locations_To_Anl_File ( const char *  loc_fname) [static]

Definition at line 509 of file w2f_driver.cxx.

References Close_File(), EOF, Last_Pathname_Component(), MAX_ANL_FNAME_LENGTH, New_Extension(), Open_Append_File(), and Open_Read_File().

Referenced by W2F_Outfile_Fini().

Here is the call graph for this function:

static FILE* Open_Append_File ( const char *  filename) [static]

Definition at line 354 of file w2f_driver.cxx.

References EC_IR_Open, ErrMsg(), errno, f, and NULL.

Referenced by Move_Locations_To_Anl_File(), and Open_W2f_Output_File().

Here is the call graph for this function:

static FILE* Open_Create_File ( const char *  filename) [static]

Definition at line 369 of file w2f_driver.cxx.

References EC_IR_Open, ErrMsg(), errno, f, and NULL.

Referenced by Open_W2f_Output_File().

Here is the call graph for this function:

static FILE* Open_Read_File ( const char *  filename) [static]

Definition at line 339 of file w2f_driver.cxx.

References EC_IR_Open, ErrMsg(), errno, f, and NULL.

Referenced by Move_Locations_To_Anl_File().

Here is the call graph for this function:

static void Open_W2f_Output_File ( W2F_FILE_KIND  kind) [static]

Definition at line 398 of file w2f_driver.cxx.

References File_Is_Created, kind, NULL, Open_Append_File(), Open_Create_File(), TRUE, W2F_File, and W2F_File_Name.

Referenced by Begin_New_Locations_File(), Continue_Locations_File(), End_Locations_File(), W2F_Outfile_Init(), and W2F_Outfile_Translate_Pu().

Here is the call graph for this function:

static void Process_Command_Line ( INT  argc,
char **  argv 
) [static]

Definition at line 189 of file w2f_driver.cxx.

References exit(), FALSE, fprintf(), NULL, Show_OPT_Warnings, TRUE, W2F_ACTIVE_TYPE_LEN, W2F_activeType, and W2F_OpenAD.

Here is the call graph for this function:

static void Process_Filename_Options ( const char *  src_filename,
const char *  irb_filename 
) [static]

Definition at line 273 of file w2f_driver.cxx.

References fprintf(), Last_Pathname_Component(), List_Cite, MAX_FNAME_LENGTH, New_Extension(), NULL, strcpy, W2F_Extension, W2F_File_Name, W2F_FTN_FILE, W2F_LOC_FILE, W2F_ORIG_FILE, and W2F_Prompf_Emission.

Referenced by W2F_Process_Command_Line().

Here is the call graph for this function:

void W2F_Cleanup ( void  )

Definition at line 1473 of file w2f_driver.cxx.

References Close_W2f_Output_File(), NULL, unlink, W2F_File_Name, W2F_FTN_FILE, and W2F_LOC_FILE.

Referenced by Cleanup_Files().

Here is the call graph for this function:

void W2F_def_ST ( FILE *  outfile,
ST *  st 
)

Definition at line 944 of file w2f_driver.cxx.

References Check_Initialized(), New_Token_Buffer(), ST2F_decl_translate(), W2F_File, W2F_LOC_FILE, W2F_Undo_Whirl_Side_Effects(), and Write_And_Reclaim_Tokens().

Here is the call graph for this function:

static void W2F_Enter_Global_Symbols ( void  ) [static]

Definition at line 644 of file w2f_driver.cxx.

References For_all(), GLOBAL_SYMTAB, St_Table, Ty_Table, and W2CF_Symtab_Nameof_St().

Referenced by W2F_Init().

Here is the call graph for this function:

void W2F_Fini ( void  )

Definition at line 1110 of file w2f_driver.cxx.

References Check_Initialized(), Diag_Exit(), End_Locations_File(), F77_ANSI_FORMAT, FALSE, File_Is_Created, MEM_POOL_Delete(), MEM_POOL_Pop, NULL, PUinfo_finalize(), reset_WN2F_CONTEXT, ST2F_finalize(), Stab_finalize_flags(), Terminate_Token_Buffer(), TRUE, W2CF_Symtab_Terminate(), W2F_Ansi_Format, W2F_Emit_All_Regions, W2F_Emit_Frequency, W2F_Emit_Linedirs, W2F_Emit_Nested_PUs, W2F_Emit_Prefetch, W2F_Enabled, W2F_File, W2F_File_Name, W2F_Format_Kind, W2F_Initialized, W2F_Line_Length, W2F_LOC_FILE, W2F_No_Pragmas, W2F_NUM_FILES, W2F_Old_F77, W2F_Only_Mark_Loads, W2F_Outfile_Initialized, W2F_Progname, W2F_Verbose, and WN2F_finalize().

Referenced by Local_Terminate(), and W2F_Outfile_Fini().

Here is the call graph for this function:

const char* W2F_Get_Transformed_Src_Path ( void  )

Definition at line 923 of file w2f_driver.cxx.

References W2F_File_Name, and W2F_FTN_FILE.

Referenced by Anl_Init().

void W2F_Init ( void  )

Definition at line 774 of file w2f_driver.cxx.

References Diag_Init(), Diag_Set_Max_Diags(), Diag_Set_Phase(), FALSE, Get_Error_Phase(), Initialize_Token_Buffer(), MEM_POOL_Initialize, MEM_POOL_Push, NULL, PUinfo_initialize(), reset_WN2F_CONTEXT, Set_Maximum_Linelength(), ST2F_initialize(), Stab_initialize_flags(), TRUE, W2CF_Symtab_Push(), W2F_Enter_Global_Symbols(), W2F_Format_Kind, W2F_Initialized, W2F_Line_Length, W2F_Progname, W2F_Prompf_Emission, and WN2F_initialize().

Referenced by W2F_Outfile_Init(), and Whirl2F_Init().

Here is the call graph for this function:

void W2F_Mark_Loads ( void  )

Definition at line 894 of file w2f_driver.cxx.

References TRUE, and W2F_Only_Mark_Loads.

void W2F_Nomark_Loads ( void  )

Definition at line 901 of file w2f_driver.cxx.

References FALSE, and W2F_Only_Mark_Loads.

const char* W2F_Object_Name ( ST *  func_st)

Definition at line 959 of file w2f_driver.cxx.

References W2CF_Symtab_Nameof_St().

Referenced by W2CF_TRANSLATOR::Transformed_Symname_To_String(), WN2F_Append_Purple_Funcinfo(), WN2F_Append_Purple_Xsym(), and WN2F_Exit_PU_Block().

Here is the call graph for this function:

void W2F_Outfile_Fini ( void  )

Definition at line 1430 of file w2f_driver.cxx.

References Check_Outfile_Initialized(), Clear_w2fc_flags(), Close_W2f_Output_File(), FALSE, Move_Locations_To_Anl_File(), New_Token_Buffer(), NULL, W2F_File, W2F_File_Name, W2F_Fini(), W2F_FTN_FILE, W2F_LOC_FILE, W2F_Outfile_Initialized, W2F_Prompf_Emission, WN2F_Append_Block_Data(), WN2F_Emit_End_Stmt(), and Write_And_Reclaim_Tokens().

Referenced by main(), and Phase_Fini().

Here is the call graph for this function:

void W2F_Outfile_Init ( void  )

Definition at line 1192 of file w2f_driver.cxx.

References Begin_New_Locations_File(), fprintf(), Irb_File_Name, NULL, Open_W2f_Output_File(), TRUE, W2F_File, W2F_File_Name, W2F_FTN_FILE, W2F_Init(), W2F_Initialized, W2F_LOC_FILE, W2F_Old_F77, W2F_OpenAD, W2F_ORIG_FILE, W2F_Outfile_Initialized, W2F_Progname, W2F_Prompf_Emission, W2F_Verbose, and Write_String().

Referenced by main(), and Phase_Init().

Here is the call graph for this function:

void W2F_Outfile_Translate_Pu ( WN *  pu)

Definition at line 1315 of file w2f_driver.cxx.

References Append_F77_Directive_Newline(), Append_ST_String(), Append_Token_Special(), Check_Outfile_Initialized(), Continue_Locations_File(), Decrement_Indentation(), Diag_Set_Phase(), FALSE, filePragma, Get_Error_Phase(), Increment_Indentation(), Is_True, KIND_STRUCT, LOWER_MP, LOWER_NULL, New_Token_Buffer(), NULL, OPC_FUNC_ENTRY, Open_W2f_Output_File(), OPR_PRAGMA, PU_f90_lang(), PU_is_nested_func(), Pu_Table, PUinfo_current_func, PUINFO_FUNC_ST, Set_TY_is_translated_to_c(), ST_pu(), Start_Timer(), Stop_Timer(), T_W2F_CU, Targ_Print(), TRUE, TY_kind(), TY_Table_Size(), W2F_Emit_Nested_PUs, W2F_File, W2F_FTN_FILE, W2F_LOC_FILE, W2F_OpenAD, W2F_Pop_PU(), W2F_Progname, W2F_Push_PU(), W2F_Undo_Whirl_Side_Effects(), WN2F_Emit_End_Stmt(), WN2F_F90_pu, WN2F_translate(), WN_func_body, WN_has_sym, WN_Lower(), WN_opcode(), WN_operator(), WN_pragma(), WN_PRAGMA_OPENAD_XXX, WN_val(), and Write_And_Reclaim_Tokens().

Referenced by main(), Post_LNO_Processing(), and Prompf_Emit_Whirl_to_Source().

Here is the call graph for this function:

void W2F_Pop_PU ( void  )

Definition at line 867 of file w2f_driver.cxx.

References Check_Initialized(), Check_PU_Pushed(), FALSE, MEM_POOL_Pop, Next_Skip_Item, PUinfo_exit_pu(), Restore_Skips(), Stab_finalize(), W2CF_Parent_Map, W2F_Frequency_Map, WN_MAP_Delete, and WN_MAP_UNDEFINED.

Referenced by W2CF_TRANSLATOR::_Istore_Lhs_To_String(), W2CF_TRANSLATOR::Expr_To_File(), W2CF_TRANSLATOR::Expr_To_String(), W2CF_TRANSLATOR::Stid_Lhs_To_String(), W2CF_TRANSLATOR::Transformed_Symname_To_String(), W2F_Outfile_Translate_Pu(), W2F_Translate_Purple_Main(), Whirl2F_Emit(), Whirl2Src_Translate_Iload_Str(), and Whirl2Src_Translate_Istore_Str().

Here is the call graph for this function:

void W2F_Process_Command_Line ( INT  phase_argc,
char *  phase_argv[],
INT  argc,
char *  argv[] 
)

Definition at line 732 of file w2f_driver.cxx.

References F77_ANSI_FORMAT, FLIST_ansi_format, FLIST_emit_all_regions, FLIST_emit_cgtag, FLIST_emit_frequency, FLIST_emit_linedirs, FLIST_emit_omp, FLIST_emit_pcf, FLIST_emit_prefetch, FLIST_enabled, FLIST_ftn_filename, FLIST_line_length, FLIST_loc_filename, FLIST_no_pragmas, FLIST_old_f77, FLIST_orig_filename, FLIST_verbose, Irb_File_Name, NULL, Process_Command_Line(), Process_Filename_Options(), Src_File_Name, TRUE, W2F_Ansi_Format, W2F_Emit_All_Regions, W2F_Emit_Cgtag, W2F_Emit_Frequency, W2F_Emit_Linedirs, W2F_Emit_Nested_PUs, W2F_Emit_Omp, W2F_Emit_Pcf, W2F_Emit_Prefetch, W2F_Enabled, W2F_File_Name, W2F_Format_Kind, W2F_FTN_FILE, W2F_Line_Length, W2F_LOC_FILE, W2F_No_Pragmas, W2F_Old_F77, W2F_ORIG_FILE, W2F_Progname, and W2F_Verbose.

Referenced by load_components(), main(), and Whirl2F_Init().

Here is the call graph for this function:

void W2F_Push_PU ( WN *  pu,
WN *  body_part_of_interest 
)

Definition at line 830 of file w2f_driver.cxx.

References Check_Initialized(), Clear_w2fc_flags(), FALSE, Is_True, MEM_POOL_Push, Next_Skip_Item, OPC_FUNC_ENTRY, OPR_BLOCK, PUinfo_init_pu(), Remove_Skips(), Stab_initialize(), W2CF_Parent_Map, W2CF_Parentize(), W2F_MAX_SKIP_ITEMS, WN_MAP_Create, WN_opc_operator, and WN_opcode().

Referenced by W2CF_TRANSLATOR::_Istore_Lhs_To_String(), W2CF_TRANSLATOR::Expr_To_File(), W2CF_TRANSLATOR::Expr_To_String(), W2CF_TRANSLATOR::Stid_Lhs_To_String(), W2CF_TRANSLATOR::Transformed_Symname_To_String(), W2F_Outfile_Translate_Pu(), W2F_Translate_Purple_Main(), Whirl2F_Emit(), Whirl2Src_Translate_Iload_Str(), and Whirl2Src_Translate_Istore_Str().

Here is the call graph for this function:

void W2F_Reset_Purple_Emission ( void  )

Definition at line 937 of file w2f_driver.cxx.

References FALSE, and W2F_Purple_Emission.

void W2F_Set_Frequency_Map ( WN_MAP  frequency_map)

Definition at line 916 of file w2f_driver.cxx.

References W2F_Frequency_Map.

Referenced by Post_LNO_Processing().

void W2F_Set_Prompf_Emission ( WN_MAP *  construct_map)

Definition at line 908 of file w2f_driver.cxx.

References TRUE, W2F_Construct_Map, and W2F_Prompf_Emission.

Referenced by load_components().

void W2F_Set_Purple_Emission ( void  )

Definition at line 930 of file w2f_driver.cxx.

References TRUE, and W2F_Purple_Emission.

BOOL W2F_Should_Emit_Nested_PUs ( void  )

Definition at line 725 of file w2f_driver.cxx.

References W2F_Emit_Nested_PUs.

Referenced by Post_LNO_Processing(), and Prompf_Emit_Whirl_to_Source().

void W2F_Translate_Istore_Lhs ( char *  strbuf,
UINT  bufsize,
WN *  lhs,
STAB_OFFSET  istore_ofst,
TY_IDX  istore_addr_ty,
TYPE_ID  istore_mtype 
)

Definition at line 996 of file w2f_driver.cxx.

References INIT_WN2F_CONTEXT, New_Token_Buffer(), Str_Write_And_Reclaim_Tokens(), TY_Is_Pointer(), TY_pointed(), W2F_Undo_Whirl_Side_Effects(), WN2F_Offset_Memref(), and WN_Tree_Type().

Referenced by W2CF_TRANSLATOR::_Istore_Lhs_To_String(), dummy(), and Whirl2Src_Translate_Istore_Str().

Here is the call graph for this function:

void W2F_Translate_Purple_Main ( FILE *  outfile,
WN *  pu,
const char *  region_name 
)

Definition at line 1080 of file w2f_driver.cxx.

References Check_Initialized(), Get_Error_Phase(), INIT_WN2F_CONTEXT, Is_True, New_Token_Buffer(), OPC_FUNC_ENTRY, Set_Error_Phase(), Start_Timer(), Stop_Timer(), T_W2F_CU, W2F_File, W2F_LOC_FILE, W2F_Pop_PU(), W2F_Push_PU(), W2F_Undo_Whirl_Side_Effects(), WN2F_translate_purple_main(), WN_func_body, WN_opcode(), and Write_And_Reclaim_Tokens().

Here is the call graph for this function:

void W2F_Translate_Stid_Lhs ( char *  strbuf,
UINT  bufsize,
ST *  stid_st,
STAB_OFFSET  stid_ofst,
TY_IDX  stid_ty,
TYPE_ID  stid_mtype 
)

Definition at line 966 of file w2f_driver.cxx.

References CLASS_PREG, INIT_WN2F_CONTEXT, New_Token_Buffer(), ST2F_Use_Preg(), ST_class(), ST_type(), Stab_Pointer_To(), Str_Write_And_Reclaim_Tokens(), W2F_Undo_Whirl_Side_Effects(), and WN2F_Offset_Symref().

Referenced by W2CF_TRANSLATOR::Stid_Lhs_To_String().

Here is the call graph for this function:

void W2F_Translate_Wn ( FILE *  outfile,
WN *  wn 
)

Definition at line 1026 of file w2f_driver.cxx.

References Check_Initialized(), Check_PU_Pushed(), Diag_Set_Phase(), Get_Error_Phase(), INIT_WN2F_CONTEXT, New_Token_Buffer(), NULL, Start_Timer(), Stop_Timer(), T_W2F_CU, W2F_File, W2F_LOC_FILE, W2F_Progname, W2F_Undo_Whirl_Side_Effects(), WN2F_translate(), and Write_And_Reclaim_Tokens().

Referenced by W2CF_TRANSLATOR::Expr_To_File(), and Whirl2F_Emit().

Here is the call graph for this function:

void W2F_Translate_Wn_Str ( char *  strbuf,
UINT  bufsize,
WN *  wn 
)

Definition at line 1053 of file w2f_driver.cxx.

References Check_Initialized(), Check_PU_Pushed(), Diag_Set_Phase(), Get_Error_Phase(), INIT_WN2F_CONTEXT, New_Token_Buffer(), NULL, Start_Timer(), Stop_Timer(), Str_Write_And_Reclaim_Tokens(), T_W2F_CU, W2F_Progname, W2F_Undo_Whirl_Side_Effects(), and WN2F_translate().

Referenced by dummy(), W2CF_TRANSLATOR::Expr_To_String(), and Whirl2Src_Translate_Iload_Str().

Here is the call graph for this function:

static void W2F_Undo_Whirl_Side_Effects ( void  ) [static]

Definition at line 558 of file w2f_driver.cxx.

References Stab_Free_Namebufs(), and Stab_Free_Tmpvars().

Referenced by W2F_def_ST(), W2F_Outfile_Translate_Pu(), W2F_Translate_Istore_Lhs(), W2F_Translate_Purple_Main(), W2F_Translate_Stid_Lhs(), W2F_Translate_Wn(), and W2F_Translate_Wn_Str().

Here is the call graph for this function:

Variable Documentation

BOOL File_Is_Created[W2F_NUM_FILES] = {FALSE, FALSE, FALSE} [static]

Definition at line 143 of file w2f_driver.cxx.

Referenced by Open_W2f_Output_File(), and W2F_Fini().

WN2F_CONTEXT Global_Context = INIT_WN2F_CONTEXT [static]

Definition at line 140 of file w2f_driver.cxx.

INT Next_Skip_Item = 0 [static]

Definition at line 133 of file w2f_driver.cxx.

Referenced by W2F_Pop_PU(), and W2F_Push_PU().

W2CF_SKIP_ITEM Skip[W2F_MAX_SKIP_ITEMS+1] [static]

Definition at line 132 of file w2f_driver.cxx.

TyIdxToStIdxMap tyidx_modidx

Definition at line 176 of file w2f_driver.cxx.

Referenced by build_type_mod_map::operator()(), and WN2F_interface_blk().

char W2F_activeType[W2F_ACTIVE_TYPE_LEN]

Definition at line 165 of file w2f_driver.cxx.

Referenced by Process_Command_Line(), and TY2F_scalar().

BOOL W2F_Ansi_Format = TRUE

Definition at line 151 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Process_Command_Line(), WN2F_ashr(), WN2F_ceil(), and WN2F_floor().

char* W2F_Cite_Extension[W2F_NUM_FILES] [static]
Initial value:
 
{
   ".c",                
   "-after-lno.f",      
   ".loc"               
}

Definition at line 108 of file w2f_driver.cxx.

WN_MAP* W2F_Construct_Map = NULL

Definition at line 172 of file w2f_driver.cxx.

Referenced by W2F_Set_Prompf_Emission(), WN2F_End_Prompf_Construct(), WN2F_func_entry(), WN2F_Prompf_Construct_End(), WN2F_Prompf_Construct_Start(), and WN2F_Start_Prompf_Construct().

BOOL W2F_Emit_All_Regions = FALSE

Definition at line 154 of file w2f_driver.cxx.

Referenced by W2F_Fini(), and W2F_Process_Command_Line().

BOOL W2F_Emit_Cgtag = FALSE

Definition at line 159 of file w2f_driver.cxx.

Referenced by W2F_Process_Command_Line(), and WN2F_do_loop().

BOOL W2F_Emit_Frequency = FALSE

Definition at line 158 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Process_Command_Line(), and WN2F_block().

BOOL W2F_Emit_Linedirs = FALSE

Definition at line 155 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Process_Command_Line(), and WN2F_Stmt_Newline().

BOOL W2F_Emit_Nested_PUs = TRUE

Definition at line 157 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Outfile_Translate_Pu(), W2F_Process_Command_Line(), and W2F_Should_Emit_Nested_PUs().

BOOL W2F_Emit_Omp = FALSE

Definition at line 161 of file w2f_driver.cxx.

Referenced by W2F_Process_Command_Line(), and WN2F_is_omp().

BOOL W2F_Emit_Pcf = FALSE

Definition at line 160 of file w2f_driver.cxx.

Referenced by W2F_Process_Command_Line().

BOOL W2F_Emit_Prefetch = FALSE

Definition at line 153 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Process_Command_Line(), WN2F_iload(), WN2F_istore(), WN2F_pstore(), and WN2F_Skip_Stmt().

BOOL W2F_Enabled = TRUE

Definition at line 148 of file w2f_driver.cxx.

Referenced by W2F_Fini(), and W2F_Process_Command_Line().

FILE* W2F_File[W2F_NUM_FILES] = {NULL, NULL, NULL}

Definition at line 147 of file w2f_driver.cxx.

Referenced by Begin_New_Locations_File(), Close_W2f_Output_File(), End_Locations_File(), Open_W2f_Output_File(), write_st::operator()(), W2F_def_ST(), W2F_Fini(), W2F_Outfile_Fini(), W2F_Outfile_Init(), W2F_Outfile_Translate_Pu(), W2F_Translate_Purple_Main(), W2F_Translate_Wn(), WN2F_Append_Symtab_Consts(), WN2F_Directive_Newline(), and WN2F_Stmt_Newline().

char* W2F_File_Extension[W2F_NUM_FILES] [static]
Initial value:
 
{
   ".f",       
   ".w2f.f",   
   ".w2f.loc"  
}

Definition at line 100 of file w2f_driver.cxx.

const char* W2F_File_Name[W2F_NUM_FILES] = {NULL, NULL, NULL} [static]

Definition at line 142 of file w2f_driver.cxx.

Referenced by Begin_New_Locations_File(), Close_W2f_Output_File(), Continue_Locations_File(), End_Locations_File(), Open_W2f_Output_File(), Process_Filename_Options(), W2F_Cleanup(), W2F_Fini(), W2F_Get_Transformed_Src_Path(), W2F_Outfile_Fini(), W2F_Outfile_Init(), and W2F_Process_Command_Line().

FORMAT_KIND W2F_Format_Kind = F77_ANSI_FORMAT [static]

Definition at line 139 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Init(), and W2F_Process_Command_Line().

WN_MAP W2F_Frequency_Map = WN_MAP_UNDEFINED

Definition at line 173 of file w2f_driver.cxx.

Referenced by W2F_Pop_PU(), W2F_Set_Frequency_Map(), and WN2F_block().

BOOL W2F_Initialized = FALSE [static]

Definition at line 137 of file w2f_driver.cxx.

Referenced by Check_Initialized(), W2F_Fini(), W2F_Init(), and W2F_Outfile_Init().

INT32 W2F_Line_Length = 0

Definition at line 162 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Init(), and W2F_Process_Command_Line().

BOOL W2F_No_Pragmas = FALSE

Definition at line 152 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Process_Command_Line(), WN2F_func_entry(), and WN2F_Skip_Stmt().

BOOL W2F_Old_F77 = FALSE

Definition at line 150 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Outfile_Init(), and W2F_Process_Command_Line().

BOOL W2F_Only_Mark_Loads = FALSE

Definition at line 168 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Mark_Loads(), W2F_Nomark_Loads(), WN2F_iload(), WN2F_ldid(), and WN2F_mload().

BOOL W2F_OpenAD

Definition at line 164 of file w2f_driver.cxx.

Referenced by Process_Command_Line(), TY2F_scalar(), W2F_Outfile_Init(), W2F_Outfile_Translate_Pu(), WN2F_cvt(), WN2F_return(), and WN2F_stid().

BOOL W2F_Outfile_Initialized = FALSE [static]

Definition at line 138 of file w2f_driver.cxx.

Referenced by Check_Outfile_Initialized(), W2F_Fini(), W2F_Outfile_Fini(), and W2F_Outfile_Init().

MEM_POOL W2F_Parent_Pool [static]

Definition at line 144 of file w2f_driver.cxx.

char* W2F_Progname = "" [static]

Definition at line 141 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Init(), W2F_Outfile_Init(), W2F_Outfile_Translate_Pu(), W2F_Process_Command_Line(), W2F_Translate_Wn(), and W2F_Translate_Wn_Str().

BOOL W2F_Prompf_Emission = FALSE

Definition at line 171 of file w2f_driver.cxx.

Referenced by Begin_New_Locations_File(), End_Locations_File(), Process_Filename_Options(), Put_Pragma_Start_With_Caveats(), W2F_Init(), W2F_Outfile_Fini(), W2F_Outfile_Init(), W2F_Set_Prompf_Emission(), WN2F_do_loop(), WN2F_do_while(), WN2F_Emit_End_Stmt(), WN2F_End_Routine_Strings(), WN2F_func_entry(), WN2F_process_pragma(), and WN2F_while_do().

char* W2F_Prompf_Extension[W2F_NUM_FILES] [static]
Initial value:
 
{
   ".c",         
   ".m",         
   ".anl_srcpos" 
}

Definition at line 116 of file w2f_driver.cxx.

BOOL W2F_Purple_Emission = FALSE

Definition at line 170 of file w2f_driver.cxx.

Referenced by W2F_Reset_Purple_Emission(), W2F_Set_Purple_Emission(), WN2F_Exit_PU_Block(), and WN2F_pragma().

BOOL W2F_Verbose = TRUE

Definition at line 149 of file w2f_driver.cxx.

Referenced by W2F_Fini(), W2F_Outfile_Init(), and W2F_Process_Command_Line().

Unparse_Target* W2X_Unparse_Target = NULL

Definition at line 174 of file w2f_driver.cxx.

Referenced by Append_CallSite(), Enter_Local_Syms_Into_Symtab(), ST2C_basic_decl(), ST2C_func_header(), ST2F_decl_func(), ST2F_func_header(), Stab_Compare_Types(), Stab_Reserved_St(), Stab_Reserved_Ty(), Stab_Reset_Referenced_Flag(), TY2C_function(), W2CF_Avoid_Suffix(), W2CF_Get_Basename(), W2CF_Symtab_Nameof_Fld(), W2CF_Symtab_Nameof_Preg(), W2CF_Symtab_Nameof_St(), W2CF_Symtab_Nameof_Ty(), W2CF_Symtab_Unique_Name(), WN2C_call(), WN2F_call(), WN2F_interface_blk(), WN2F_translate_purple_main(), WN_intrinsic_name(), and WN_Tree_Type().

BOOL WN2F_F90_pu = FALSE

Definition at line 169 of file w2f_driver.cxx.

Referenced by INIT2F_Get_Array_Segment(), INITVKIND_const(), Unparse_Target_FTN::Make_Valid_Name(), ST2F_use_var(), TY2F_Fld_Separator(), TY2F_pointer(), TY2F_scalar(), TY2F_struct(), TY2F_Translate_Structure(), W2CF_Get_Ftn_St_Name(), W2F_Outfile_Translate_Pu(), WN2F_array(), WN2F_arrsection(), WN2F_End_Routine_Strings(), and WN2F_Load_Return_Reg().

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines