Open64: osprey/crayf90/sgi/cwh

00001 /*
00002  * Copyright 2004, 2005, 2006 PathScale, Inc.  All Rights Reserved.
00003  */
00004 
00005 /*
00006 
00007   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00008 
00009   This program is free software; you can redistribute it and/or modify it
00010   under the terms of version 2 of the GNU General Public License as
00011   published by the Free Software Foundation.
00012 
00013   This program is distributed in the hope that it would be useful, but
00014   WITHOUT ANY WARRANTY; without even the implied warranty of
00015   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00016 
00017   Further, this software is distributed without any warranty that it is
00018   free of the rightful claim of any third person regarding infringement 
00019   or the like.  Any license provided herein, whether implied or 
00020   otherwise, applies only to this software file.  Patent licenses, if 
00021   any, provided herein do not apply to combinations of this program with 
00022   other software, or any other product whatsoever.  
00023 
00024   You should have received a copy of the GNU General Public License along
00025   with this program; if not, write the Free Software Foundation, Inc., 59
00026   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00027 
00028   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00029   Mountain View, CA 94043, or:
00030 
00031   http://www.sgi.com
00032 
00033   For further information regarding this notice, see:
00034 
00035   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00036 
00037 */
00038 
00039 
00040 /* ====================================================================
00041  * ====================================================================
00042  *
00043  * Module: cwh_auxst.h
00044  * $Revision: 1.5 $
00045  * $Date: 05/01/13 22:11:47-08:00 $
00046  * $Author: scorrell@soapstone.internal.keyresearch.com $
00047  * $Source: crayf90/sgi/SCCS/s.cwh_auxst.h $
00048  *
00049  * Revision history:
00050  *  dd-mmm-95 - Original Version
00051  *
00052  * Description: Exports interfaces from cwh_stab.c (symbol tables).
00053  *              Most descriptions are in cwh_stab.{c,i}
00054  *
00055  * ====================================================================
00056  * ====================================================================
00057  */
00058 
00059 #ifndef CWH_AUXST_INCLUDED
00060 #define CWH_AUXST_INCLUDED
00061 
00062 #ifdef _KEEP_RCS_ID
00063 static char *rcs_id = "$Source: crayf90/sgi/SCCS/s.cwh_auxst.h $ $Revision: 1.5 $";
00064 #endif /* _KEEP_RCS_ID */
00065 
00066 /* de/allocation */
00067 extern void   cwh_auxst_register_table(void);
00068 extern void   cwh_auxst_un_register_table(void);
00069 extern void   cwh_auxst_alloc_container_table(void);
00070 extern void   cwh_auxst_clear_per_PU(void) ;
00071 extern void   cwh_auxst_free(void) ;
00072 extern void   cwh_auxst_free_list (LIST ** lp) ;
00073 
00074 extern void   cwh_auxst_clear(ST *st);
00075 
00076 
00077 /* ----------------------------------------------------
00078    TAGS for processing lists of additional information 
00079     used as flags to AUXST lookup routine.              
00080 */
00081 
00082 enum list_name {
00083   l_COMLIST,               /* STs in a COMMON ordered by offset          */
00084   l_ALTENTRY,              /* STs of alternate entry points              */
00085   l_RETURN_TEMPS,          /* STs of alternate entry return temps        */
00086   l_NAMELIST,              /* STs of Namelist items                      */
00087   l_SPLITLIST,             /* STs of split commons, for pragmas          */
00088   l_EQVLIST,       /* STs in Equivalence                         */
00089   l_DST_COMLIST,     /* COMMON STs (Global) for DST info in PU     */
00090   l_DST_PARMLIST     /* Parameter STs (Global) for DST info in PU  */
00091 #ifdef KEY /* Bug 5271 */
00092   , l_PU_COMLIST           /* STs for vars within a COMMON for current   */
00093                            /* PU, ordered by offset                      */
00094 #endif /* KEY Bug 5271 */
00095 };
00096 
00097 
00098 /* ----------------------------------------------------
00099     enum for flags in AUXST - used as mask 
00100     cwh_auxst.i has details, macros below,
00101 */
00102 
00103 enum flags_a { 
00104   f_RSLTTMP = 0x01,     /* fn has rslt temp as 1st arg      */
00105   f_ELEM    = 0x02,     /* is elemental function            */
00106   f_ALTENT  = 0x04,     /* is alternate entry point         */
00107   f_ALTTY   = 0x08,     /* all alternate entries share a TY */
00108   f_VISITED = 0x10,     /* visited on IO walk               */
00109   f_NONCONT = 0x20,     /* is non-contiguous                */
00110   f_AUTO_OR_CPTR = 0x40,/* Auto or Cray Pointer             */
00111   f_F90_PTR = 0x80,     /* F90 Pointer                      */
00112   f_MODULE  = 0x100,    /* Common represents module data    */
00113   f_XP_COPY = 0x200,    /* Have emitted XPRAGMA COPYIN      */
00114   f_IS_TMP  = 0x400,    /* is a compiler temp               */
00115   f_ALLOC   = 0x800,    /* Allocatable                      */
00116   f_ASSUMED = 0x1000,   /* Assumed shape                    */
00117   f_A_SIZE  = 0x2000,   /* Assumed size                     */
00118   f_IS_RSLTTMP = 0x4000 /* is the fn rslt temp (1st arg)    */
00119 } ;
00120 
00121 
00122 #define Set_ST_auxst_has_rslt_tmp(st,val) cwh_auxst_set_flag(st,f_RSLTTMP,val)
00123 #define ST_auxst_has_rslt_tmp(st) cwh_auxst_read_flag(st,f_RSLTTMP)
00124 
00125 #define Set_ST_auxst_is_rslt_tmp(st,val) cwh_auxst_set_flag(st,f_IS_RSLTTMP,val)
00126 #define ST_auxst_is_rslt_tmp(st) cwh_auxst_read_flag(st,f_IS_RSLTTMP)
00127 
00128 #define Set_ST_auxst_is_elemental(st,val) cwh_auxst_set_flag(st,f_ELEM,val)
00129 #define ST_auxst_is_elemental(st) cwh_auxst_read_flag(st,f_ELEM)
00130 
00131 #define Set_ST_auxst_is_altentry(st,val) cwh_auxst_set_flag(st,f_ALTENT,val)
00132 #define ST_auxst_is_altentry(st) cwh_auxst_read_flag(st,f_ALTENT)
00133 
00134 #define Set_ST_auxst_altentry_shareTY(st,val) cwh_auxst_set_flag(st,f_ALTTY,val)
00135 #define ST_auxst_altentry_shareTY(st) cwh_auxst_read_flag(st,f_ALTTY)
00136 
00137 #define Set_ST_auxst_visited(st,val) cwh_auxst_set_flag(st,f_VISITED,val)
00138 #define ST_auxst_visited(st) cwh_auxst_read_flag(st,f_VISITED)
00139 
00140 #define Set_ST_auxst_is_non_contiguous(st,val) cwh_auxst_set_flag(st,f_NONCONT,val)
00141 #define ST_auxst_is_non_contiguous(st) cwh_auxst_read_flag(st,f_NONCONT)
00142 
00143 #define Set_ST_auxst_is_auto_or_cpointer(st,val) cwh_auxst_set_flag(st,f_AUTO_OR_CPTR,val)
00144 #define ST_auxst_is_auto_or_cpointer(st) cwh_auxst_read_flag(st,f_AUTO_OR_CPTR)
00145 
00146 #define Set_ST_auxst_is_f90_pointer(st,val) cwh_auxst_set_flag(st,f_F90_PTR,val)
00147 #define ST_auxst_is_f90_pointer(st) cwh_auxst_read_flag(st,f_F90_PTR)
00148 
00149 #define Set_ST_auxst_is_module_data(st,val) cwh_auxst_set_flag(st,f_MODULE,val)
00150 #define ST_auxst_is_module_data(st) cwh_auxst_read_flag(st,f_MODULE)
00151 
00152 #define Set_ST_auxst_xpragma_copyin(st,val) cwh_auxst_set_flag(st,f_XP_COPY,val)
00153 #define ST_auxst_xpragma_copyin(st) cwh_auxst_read_flag(st,f_XP_COPY)
00154 
00155 #define Set_ST_auxst_is_tmp(st,val) cwh_auxst_set_flag(st,f_IS_TMP,val)
00156 #define ST_auxst_is_tmp(st) cwh_auxst_read_flag(st,f_IS_TMP)
00157 
00158 #define Set_ST_auxst_is_allocatable(st,val) cwh_auxst_set_flag(st,f_ALLOC,val)
00159 #define ST_auxst_is_allocatable(st) cwh_auxst_read_flag(st,f_ALLOC)
00160 
00161 #define Set_ST_auxst_is_assumed_shape(st,val) cwh_auxst_set_flag(st,f_ASSUMED,val)
00162 #define ST_auxst_is_assumed_shape(st) cwh_auxst_read_flag(st,f_ASSUMED)
00163 
00164 #define Set_ST_auxst_is_assumed_size(st,val) cwh_auxst_set_flag(st,f_A_SIZE,val)
00165 #define ST_auxst_is_assumed_size(st) cwh_auxst_read_flag(st,f_A_SIZE)
00166 
00167 extern void   cwh_auxst_set_flag(ST * st,enum flags_a f, BOOL val) ;
00168 extern BOOL   cwh_auxst_read_flag(ST * st,enum flags_a f);
00169 
00170 /* Forward reference, defined in cwh_data.cxx */
00171 
00172 struct data_info_s;
00173 extern void   Set_ST_auxst_data_info(ST *st, data_info_s * data_info);
00174 extern data_info_s * ST_auxst_data_info(ST *st);
00175 
00176 
00177 /* individual items */
00178 
00179 extern ITEM * cwh_auxst_add_to_list(LIST ** lp, ST *st, BOOL order);
00180 extern void   cwh_auxst_add_list(ST * parent, LIST *l, enum list_name list) ;
00181 extern LIST * cwh_auxst_get_list(ST * st, enum list_name list);
00182 extern void   cwh_auxst_add_item(ST * parent, ST *st, enum list_name list);
00183 extern ITEM * cwh_auxst_next_element(ST * parent, ITEM *i, enum list_name list) ;
00184 extern BOOL   cwh_auxst_read_flag(ST * st, enum flags_a f) ;
00185 extern void   cwh_auxst_set_flag(ST * st, enum flags_a f, BOOL val);
00186 extern ST *   cwh_auxst_find_item(LIST *l, const char * name);
00187 #ifdef KEY /* Bug 5271 */
00188 extern void cwh_clear_PU_common_list(ST *st);
00189 #endif /* KEY Bug 5271 */
00190 
00191 /* procedure details */
00192 
00193 extern void   cwh_auxst_alloc_proc_entry(ST *st,INT32 num_dum_args, TY_IDX ret_type);
00194 extern void   cwh_auxst_patch_proc(TY_IDX rty_idx);
00195 extern BOOL   cwh_auxst_find_dummy(ST * arg);
00196 extern INT16  cwh_auxst_num_dummies(ST * entry);
00197 extern ST **  cwh_auxst_arglist(ST * entry);
00198 extern ST *   cwh_auxst_find_dummy_len(ST * arg);
00199 extern void   cwh_auxst_add_dummy(ST * dummy, BOOL result);
00200 extern void   cwh_auxst_set_tylist(ST *en);
00201 
00202 /* sundry utilities */
00203 
00204 extern ST *      cwh_auxst_cri_pointee(ST * ptr, ST * pointee);
00205 extern PREG_det  cwh_auxst_distr_preg(ST * st);
00206 extern USRCPOS   cwh_auxst_srcpos_val(ST * st);
00207 extern USRCPOS * cwh_auxst_srcpos_addr(ST * st) ;
00208 extern WN *      cwh_auxst_pragma(ST * ptr, WN * wn = NULL);
00209 #ifdef KEY /* Bug 4901 */
00210 extern void  cwh_auxst_clear_stem_name(ST *st);
00211 #endif /* KEY Bug 4901 */
00212 extern char *    cwh_auxst_stem_name(ST * st, char * name = NULL) ;
00213 INT32 *          cwh_auxst_assign_id(SYMTAB_IDX level, LABEL_IDX idx) ;
00214 
00215 /* dump routines */
00216 
00217 extern void cwh_auxst_dump (ST * st);
00218 extern void cwh_auxst_dump_list (LIST * l, BOOL verbose);
00219 
00220 #endif /* CWH_AUXST_INCLUDED */
osprey/crayf90/sgi/cwh_auxst.h
