Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <unistd.h>
#include <elf.h>
#include "whirl2f_common.h"
#include "glob.h"
#include "flags.h"
#include "pu_info.h"
#include "err_host.tab"
#include "w2f_driver.h"
#include "file_util.h"
#include "ir_bread.h"
Go to the source code of this file.
Defines | |
#define | FTN_FILE_EXTENSION ".f" /* Fortran file */ |
#define | IRB_FILE_EXTENSION ".B" /* WHIRL file */ |
#define | MAX_FNAME_LENGTH 256-7 /* allow for suffix ".W2F.c\0" */ |
Functions | |
static void | Usage (char *progname) |
static void | Process_Common_Options (INT argc, char *argv[], char *envp[]) |
void | Local_Terminate (void) |
static INT32 | Get_Irb_File_Name (INT argc, char *argv[]) |
INT | main (INT argc, char *argv[], char *envp[]) |
Variables | |
static char * | source_file = __FILE__ |
#define FTN_FILE_EXTENSION ".f" /* Fortran file */ |
Definition at line 98 of file whirl2f.cxx.
#define IRB_FILE_EXTENSION ".B" /* WHIRL file */ |
Definition at line 99 of file whirl2f.cxx.
#define MAX_FNAME_LENGTH 256-7 /* allow for suffix ".W2F.c\0" */ |
static INT32 Get_Irb_File_Name | ( | INT | argc, |
char * | argv[] | ||
) | [static] |
Definition at line 233 of file whirl2f.cxx.
References fprintf(), Irb_File_Name, MAX_FNAME_LENGTH, and strcpy.
Referenced by main().
void Local_Terminate | ( | void | ) |
Definition at line 213 of file whirl2f.cxx.
References W2F_Fini().
Definition at line 283 of file whirl2f.cxx.
References Cleanup_Files(), Configure(), ecount, ERROR_LINE_UNKNOWN, exit(), FALSE, fprintf(), Free_Local_Info(), Get_Error_Count(), Get_Irb_File_Name(), Init_Error_Handler(), Init_Operator_To_Opcode_Table(), Irb_File_Name, Local_Terminate(), MEM_Initialize(), MEM_POOL_Pop, MEM_POOL_Push, MEM_pu_nz_pool_ptr, NULL, Open_Input_Info(), Preconfigure(), Process_Common_Options(), PU_Info_child, PU_Info_next, PU_Info_proc_sym, PU_Info_tree_ptr, PU_need_unparsed(), Read_Global_Info(), Read_Local_Info(), Set_Error_File(), Set_Error_Line(), Set_Error_Phase(), ST_name(), Terminate(), TRUE, Usage(), W2F_Outfile_Fini(), W2F_Outfile_Init(), W2F_Outfile_Translate_Pu(), and W2F_Process_Command_Line().
static void Process_Common_Options | ( | INT | argc, |
char * | argv[], | ||
char * | envp[] | ||
) | [static] |
Definition at line 183 of file whirl2f.cxx.
References Common_Option_Groups, NULL, and Process_Command_Line_Group().
Referenced by main().
static void Usage | ( | char * | progname | ) | [static] |
Definition at line 113 of file whirl2f.cxx.
References fprintf().
Referenced by main().
char* source_file = __FILE__ [static] |
Definition at line 74 of file whirl2f.cxx.