Open64: osprey/crayf90/sgi/cwh

00001 /*
00002 
00003   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00004 
00005   This program is free software; you can redistribute it and/or modify it
00006   under the terms of version 2 of the GNU General Public License as
00007   published by the Free Software Foundation.
00008 
00009   This program is distributed in the hope that it would be useful, but
00010   WITHOUT ANY WARRANTY; without even the implied warranty of
00011   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00012 
00013   Further, this software is distributed without any warranty that it is
00014   free of the rightful claim of any third person regarding infringement 
00015   or the like.  Any license provided herein, whether implied or 
00016   otherwise, applies only to this software file.  Patent licenses, if 
00017   any, provided herein do not apply to combinations of this program with 
00018   other software, or any other product whatsoever.  
00019 
00020   You should have received a copy of the GNU General Public License along
00021   with this program; if not, write the Free Software Foundation, Inc., 59
00022   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00023 
00024   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00025   Mountain View, CA 94043, or:
00026 
00027   http://www.sgi.com
00028 
00029   For further information regarding this notice, see:
00030 
00031   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00032 
00033 */
00034 
00035 
00036 /* ====================================================================
00037  * ====================================================================
00038  *
00039  * Module: cwh_stab.h
00040  * $Revision$
00041  * $Date$
00042  * $Author$
00043  * $Source$
00044  *
00045  * Revision history:
00046  *  dd-mmm-95 - Original Version
00047  *
00048  * Description: Exports interfaces from cwh_stab.c (symbol tables).
00049  *              Most descriptions are in cwh_stab.{c,i}
00050  *
00051  * ====================================================================
00052  * ====================================================================
00053  */
00054 
00055 #ifndef CWH_STAB_INCLUDED
00056 #define CWH_STAB_INCLUDED
00057 
00058 #ifdef _KEEP_RCS_ID
00059 static char *rcs_id = "$Source$ $Revision$";
00060 #endif /* _KEEP_RCS_ID */
00061 
00062 
00063 /* --------------------------------------------------------
00064    TAGs for handing back items from fei_object and fei_seg 
00065    to PGDCS. PDGCS stores them and gives them back later.
00066    We need to know what we're given.
00067 */
00068 
00069 enum is_form  {
00070   is_UNDEF=0,
00071   is_ST,  
00072   is_WN,
00073   is_CONST,
00074   is_SCLASS,
00075   is_PCONST,   /* Pattern constant */
00076   is_SCONST,   /* Pattern constant for a string */
00077   is_LIST      /* LIST from fei_name            */
00078 } ;
00079 
00080 typedef struct al {
00081   void * item  ;
00082   TY_IDX ty    ;       /* TY of item, restricted, see fn below*/
00083   enum is_form form ;
00084   struct al * next ;
00085 }  STB_pkt;
00086 
00087 #define cast_to_SCLASS(x) ((ST_SCLASS) (INTPS)(x)) 
00088 #define cast_to_LIST(x) ((LIST *) (void *)(x)) 
00089 
00090 extern STB_pkt * cwh_stab_packet(void * thing, enum is_form fm) ;
00091 extern STB_pkt * cwh_stab_packet_typed(void * thing, enum is_form fm, TY_IDX  ty) ;
00092 
00093 #define IS_FORMAL(s) (((ST_sclass(s) == SCLASS_FORMAL) ||         \
00094            (ST_sclass(s) == SCLASS_FORMAL_REF)) &&    \
00095           (!Has_Base_Block(st)))
00096 
00097 #define IS_COMMON(s) ((ST_sclass(s) == SCLASS_COMMON) ||  \
00098           (ST_sclass(s) == SCLASS_DGLOBAL)) 
00099 
00100 #define IS_AUTO_OR_FORMAL(s) ((ST_sclass(s) == SCLASS_FORMAL) ||         \
00101                   (ST_sclass(s) == SCLASS_FORMAL_REF) ||     \
00102                   (ST_sclass(s) == SCLASS_AUTO))  
00103             
00104 /*------------------------------------------------------ 
00105 
00106  globals set in   cwh_stab.c , see   cwh_stab.i for details 
00107 
00108 */
00109 
00110 extern ST * Procedure_ST ; 
00111 extern ST * Altaddress_ST ; 
00112 extern PREG_det preg_for_distribute;
00113 extern BOOL  cwh_stab_pu_has_globals; /* Were any global symbols seen in the PU */
00114 extern INT32 cwh_assign_label_id;
00115 
00116 
00117 /*------------------------------------------------------
00118 
00119   general function definitions 
00120 
00121 */
00122 
00123 extern WN *     cwh_stab_const(ST *st) ;
00124 extern void     cwh_stab_end_procs(void);
00125 extern void     cwh_stab_add_pragma(ST *st, WN_PRAGMA_ACCESSED_FLAGS flag );
00126 extern void     cwh_stab_set_symtab(ST *st) ;
00127 extern ST *     cwh_stab_const_ST(WN *wn) ;
00128 extern ST *     cwh_stab_address_temp_ST(const char * name, TY_IDX  ty , BOOL uniq);
00129 extern ST *     cwh_stab_temp_ST(TY_IDX ty, const char * name) ;
00130 extern WN *     cwh_load_distribute_temp(void);
00131 extern ST *     cwh_stab_main_ST(void) ;
00132 extern TY_IDX   cwh_stab_altentry_TY(ST *st, BOOL expr);
00133 
00134 
00135 extern void   New_Auxst (SYMTAB_IDX level, ST_IDX idx);
00136 extern ST *   F90_New_ST (SYMTAB_IDX level);
00137 extern void   cwh_stab_init_auxst_tab_size(void);
00138 extern void   cwh_stab_set_tylist_for_entries(ST *st);
00139 extern LABEL& F90_New_LABEL(SYMTAB_IDX scope, LABEL_IDX& label_idx);
00140 extern void   cwh_stab_emit_commons_and_equivalences(SYMTAB_IDX level);
00141 extern ST *   cwh_stab_mk_fn_0args(const char *name, ST_EXPORT eclass,SYMTAB_IDX level,TY_IDX rty) ;
00142 
00143 #endif /* CWH_STAB_INCLUDED */
00144 
00145
osprey/crayf90/sgi/cwh_stab.h
