Open64: osprey/crayf90/sgi/cwh

00001 /*
00002  *  Copyright (C) 2006. QLogic Corporation. 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_types.h
00044  * $Revision$
00045  * $Date$
00046  * $Author$
00047  * $Source$
00048  *
00049  * Revision history:
00050  *  dd-mmm-95 - Original Version
00051  *
00052  * Description: prototypes for entry points into cwh_types.c
00053  *
00054  * ====================================================================
00055  * ====================================================================
00056  */
00057 
00058 #ifndef CWH_TYPES_INCLUDED
00059 #define CWH_TYPES_INCLUDED
00060 
00061 #ifdef KEY /* Bug 6845 */
00062 /* Replacements for literal integers which the original code used to index
00063  * into arrays dope_name, dope_bofst, dope_bsize, dope_btype in
00064  * sgi/cwh_types.h. It seems perverse to define these constants in this
00065  * file rather than in sgi/cwh_types.h, but the latter leads to a morass of
00066  * C compilations choking on C++ declarations, C++ files choking because the
00067  * sgi/*.h files do not themselves include all the .h files they depend on,
00068  * etc. So we do it here. */
00069 typedef enum {
00070   DV_BASE_IDX   = 0,  
00071   DV_EL_LEN_IDX   = 1,
00072   DV_ASSOC_IDX    = 2,
00073   DV_PTR_ALLOC_IDX  = 3,
00074   DV_P_OR_A_IDX   = 4,
00075   DV_A_CONTIG_IDX = 5,
00076   DV_ALLOCCPNT_IDX  = 6,
00077   DV_UNUSED_1_IDX = 7,
00078   DV_NUM_DIMS_IDX = 8,
00079   DV_TYPE_CODE_IDX  = 9,
00080   DV_ORIG_BASE_IDX  = 10,
00081   DV_ORIG_SIZE_IDX  = 11
00082   } dv_idx_type;
00083 # ifdef __cplusplus
00084 extern "C" {
00085 # endif
00086 void fei_set_dv_hdr_fld(dv_idx_type);
00087 void fei_get_dv_hdr_fld(dv_idx_type);
00088 # ifdef __cplusplus
00089 }
00090 # endif
00091 #endif /* KEY Bug 6845 */
00092 
00093 
00094 /* Bug 6845: fe90/i_cvrt.c wants only a few declarations from this file */
00095 #ifndef FOR_I_CVRT
00096 
00097 #ifdef _KEEP_RCS_ID
00098 static char *rcs_id = "$Source$ $Revision$";
00099 #endif /* _KEEP_RCS_ID */
00100 
00101 enum ty_bound_enum {
00102   LOW,
00103   UPPER,
00104   STRIDE
00105 };
00106 
00107 extern TY_IDX  cwh_types_mk_procedure_TY (TY_IDX ret_typ,INT32 nparms, BOOL global, BOOL host) ;
00108 
00109 extern TY_IDX  cwh_types_scalar_TY(TY_IDX ty) ;
00110 extern TY_IDX  cwh_types_array_TY(TY_IDX ty) ;
00111 extern TY_IDX  cwh_types_WN_TY(WN * wn, BOOL addr) ;
00112 extern TY_IDX  cwh_types_dope_TY(INT32 num_dims,TY_IDX base, BOOL host, BOOL ptr,
00113 #ifdef KEY /* Bug 6845 */
00114   INT32 num_allocatable_cpnt
00115 #endif /* KEY Bug 6845 */
00116 );
00117 
00118 extern TY_IDX  cwh_types_ch_parm_TY(WN *ln) ;
00119 extern ST *  cwh_types_character_extra(ST *dummy) ;
00120 extern BOOL  cwh_types_is_character(TY_IDX ty) ;
00121 extern BOOL  cwh_types_is_logical(TY_IDX ty) ;
00122 extern BOOL  cwh_types_is_character_function(TY_IDX ty) ;
00123 
00124 extern TY_IDX  cwh_types_mk_common_TY(INT64 size, mUINT16 al);
00125 extern void  cwh_types_mk_element(ST *c, ST * st);
00126 extern TY_IDX  cwh_types_mk_namelist_TY(INT32 nitems) ;
00127 
00128 extern FLD_HANDLE cwh_types_fld_dummy(INT64  off,TY_IDX ty) ;
00129 extern void  cwh_types_get_dope_info(
00130 #ifdef KEY /* Bug6845 */
00131   dv_idx_type crayfield,
00132 #else /* KEY Bug6845 */
00133   INT32 crayfield,
00134 #endif /* KEY Bug6845 */
00135   INT32 *offset, INT32 *rshift, INT64 *mask, TYPE_ID *ty);
00136 extern INT32 cwh_types_dope_rank(TY_IDX ty);
00137 extern TY_IDX  cwh_types_dope_basic_TY(TY_IDX ty);
00138 
00139 extern WN *  cwh_types_size_WN(TY_IDX, WN *e_sz) ;
00140 extern TY_IDX  cwh_types_array_temp_TY(WN *ar, TY_IDX sc) ;
00141 extern WN *  cwh_types_bound_WN(TY_IDX ty, INT16 i, enum ty_bound_enum  b) ;
00142 
00143 extern INT64 cwh_cray_type_from_TY(TY_IDX ty);
00144 extern INT64 cwh_cray_type_from_MTYPE(TYPE_ID ty);
00145 extern BOOL  cwh_types_is_dope(TY_IDX ty) ;
00146 extern FLD_HANDLE cwh_types_dope_dims_FLD(TY_IDX ty);
00147 
00148 extern char * cwh_types_mk_anon_name (const char * p) ;
00149 extern TY_IDX cwh_types_array_util(INT16 rank, TY_IDX ta, INT32 align, INT64 size, const char *name, 
00150            BOOL alloc_arbs);
00151 
00152 extern void  cwh_types_init_target(void);
00153 extern TY_IDX  cwh_types_mk_pointer_TY(TY_IDX ty, BOOL host) ;
00154 extern TY_IDX  cwh_types_mk_f90_pointer_ty (TY_IDX ty);
00155 extern TY_IDX  cwh_types_mk_logical_TY(INT32 sz, mUINT16 align) ;
00156 extern TY_IDX  cwh_types_form_misaligned_TY(TY_IDX ty,mUINT16 align) ;
00157 extern TY_IDX  cwh_types_make_pointer_type(TY_IDX ty, BOOL f90_pointer);
00158 extern TY_IDX  cwh_types_enter_TY(TY_IDX can) ;
00159 extern TY_IDX  cwh_types_mk_equiv_TY(INT64 size);
00160 extern TY_IDX  cwh_types_mk_character_TY (WN * sz, ST *st, BOOL is_wn);
00161 extern TY_IDX  cwh_types_unique_TY(TY_IDX ty_idx); 
00162 extern void    cwh_types_enter_common_element(ST *c, ST * st);
00163 extern TY_IDX  cwh_types_mk_result_temp_TY(void) ;
00164 extern   void  cwh_types_copyin_pragma(ST *st) ; 
00165 extern bool    cwh_types_contains_dope(TY_IDX ty) ;
00166 
00167 
00168 /* access to TY idx */
00169 
00170 #define t_TY(x) (x.table_index)  
00171 
00172 
00173 /* dope vector size definitions */
00174 extern INT32 DOPE_bound_sz;
00175 extern INT32 DOPE_dim_offset;
00176 extern INT32 DOPE_sz;
00177 
00178 #ifdef KEY /* Bug 6845 */
00179 #define DOPE_NM  12
00180 #else /* KEY Bug 6845 */
00181 #define DOPE_NM  11
00182 #endif /* KEY Bug 6845 */
00183 #define DOPE_USED  DOPE_NM-1
00184 #define BOUND_NM 3
00185 #define DIM_SZ BOUND_NM*DOPE_bound_sz
00186 #define ADDR_OFFSET 0
00187 #define ADDR_TYPEID Pointer_Mtype
00188 
00189 #define IS_TYLIST
00190 
00191 extern TY_IDX DOPE_bound_ty ;
00192 
00193   /* decl_distribute_pragmas - set to a list of distribute pragmas generated */
00194 extern WN   *decl_distribute_pragmas;
00195 
00196 /* Type for LOGICAL(4), (predefined) */
00197 extern TY_IDX logical4_ty;
00198 
00199 #ifdef __cplusplus
00200 extern "C" {
00201 #endif
00202 
00203 typedef struct dope_header1 {
00204     unsigned int        assoc     :1;   /* associated flag */
00205     unsigned int        ptr_alloc :1;   /* set if allocated by pointer */
00206     unsigned int        p_or_a    :2;   /* pointer or allocatable array. Use */
00207                                         /* enum ptrarray values.  */
00208     unsigned int        a_contig  :1;   /* array storage contiguous flag */
00209 #ifdef KEY /* Bug6845 */
00210     unsigned int        alloc_cpnt:1; /* each element of allocatable array
00211                                          * is a derived type having one or more
00212            * allocatable components */
00213     unsigned int        unused    :26;  /* pad for first 32 bits        */
00214 #else /* KEY Bug6845 */
00215     unsigned int        unused    :27;  /* pad for first 32 bits        */
00216 #endif /* KEY Bug6845 */
00217 } dope_header1_type;
00218 
00219 typedef struct dope_header2 {
00220     unsigned int        unused    :29;  /* pad for second 32-bits       */
00221     unsigned int        n_dim     :3;   /* number of dimensions */
00222 } dope_header2_type;
00223 
00224 typedef struct f90_type {
00225 
00226     unsigned int                :32;     /* used for future development */
00227     unsigned int        type    :8;     /* type code */
00228     unsigned int        dpflag  :1;     /* set if declared double precision
00229                                          * or double complex */
00230     unsigned int kind_or_star   :3;     /* Set if KIND= or *n appears in the
00231                                          * variable declaration.  Values
00232                                          * are from enum dec_codes */
00233     unsigned int        int_len :12;    /* internal length in bits of iolist
00234                                          * entity. 8 for character data to
00235                                          * indicate size of each character */
00236     unsigned int        dec_len :8;     /* declared length in bytes for *n
00237                                          * or KIND value. Ignored if
00238                                          * kind_or_star==DVD_DEFAULT */
00239 } f90_type_t;
00240 
00241 #ifdef __cplusplus
00242 }
00243 #endif
00244 
00245 #endif /* FOR_I_CVRT */
00246 
00247 #endif /* CWH_TYPES_INCLUDED */
00248
osprey/crayf90/sgi/cwh_types.h
