Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
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 #include <stdio.h> 00037 #include <stdlib.h> 00038 #include <cmplrs/rcodes.h> 00039 00040 #include "defs.h" 00041 #include "wintrinsic.h" 00042 #include "wio.h" 00043 #include "wutil.h" 00044 #include "ir_a2b_util.h" // for b2a and a2b utilities 00045 00046 00047 // eraxxon (2005.01): Re-implement these routines to support 00048 // conversion in both directions. 00049 00050 // The type for enumeration value -> string tables 00051 struct EnumToStr_t : public ir_a2b::enum2str_tbl_entry_t { 00052 EnumToStr_t(INT val_ = 0, const char* str_ = 0) 00053 : val(val_), str(str_) { } 00054 00055 virtual ~EnumToStr_t() { } 00056 00057 virtual INT getEnumVal() const { return val; } 00058 virtual const char* getStr() const { return str; } 00059 00060 INT val; 00061 const char* str; 00062 }; 00063 00064 00065 00066 EnumToStr_t IntrinsicToNameTbl [] = { 00067 EnumToStr_t(INTRINSIC_NONE, "NONE"), 00068 EnumToStr_t(INTRN_I4EXPEXPR, "I4EXPEXPR"), 00069 EnumToStr_t(INTRN_I8EXPEXPR, "I8EXPEXPR"), 00070 EnumToStr_t(INTRN_F4EXPEXPR, "F4EXPEXPR"), 00071 EnumToStr_t(INTRN_F8EXPEXPR, "F8EXPEXPR"), 00072 EnumToStr_t(INTRN_FQEXPEXPR, "FQEXPEXPR"), 00073 EnumToStr_t(INTRN_C4EXPEXPR, "C4EXPEXPR"), 00074 EnumToStr_t(INTRN_C8EXPEXPR, "C8EXPEXPR"), 00075 EnumToStr_t(INTRN_CQEXPEXPR, "CQEXPEXPR"), 00076 EnumToStr_t(INTRN_F4I4EXPEXPR, "F4I4EXPEXPR"), 00077 EnumToStr_t(INTRN_F4I8EXPEXPR, "F4I8EXPEXPR"), 00078 EnumToStr_t(INTRN_F8I4EXPEXPR, "F8I4EXPEXPR"), 00079 EnumToStr_t(INTRN_F8I8EXPEXPR, "F8I8EXPEXPR"), 00080 EnumToStr_t(INTRN_FQI4EXPEXPR, "FQI4EXPEXPR"), 00081 EnumToStr_t(INTRN_FQI8EXPEXPR, "FQI8EXPEXPR"), 00082 EnumToStr_t(INTRN_C4I4EXPEXPR, "C4I4EXPEXPR"), 00083 EnumToStr_t(INTRN_C4I8EXPEXPR, "C4I8EXPEXPR"), 00084 EnumToStr_t(INTRN_C8I4EXPEXPR, "C8I4EXPEXPR"), 00085 EnumToStr_t(INTRN_C8I8EXPEXPR, "C8I8EXPEXPR"), 00086 EnumToStr_t(INTRN_CQI4EXPEXPR, "CQI4EXPEXPR"), 00087 EnumToStr_t(INTRN_CQI8EXPEXPR, "CQI8EXPEXPR"), 00088 EnumToStr_t(INTRN_CEQEXPR, "CEQEXPR"), 00089 EnumToStr_t(INTRN_CNEEXPR, "CNEEXPR"), 00090 EnumToStr_t(INTRN_CGEEXPR, "CGEEXPR"), 00091 EnumToStr_t(INTRN_CGTEXPR, "CGTEXPR"), 00092 EnumToStr_t(INTRN_CLEEXPR, "CLEEXPR"), 00093 EnumToStr_t(INTRN_CLTEXPR, "CLTEXPR"), 00094 EnumToStr_t(INTRN_SUBSTRINGEXPR, "SUBSTRINGEXPR"), 00095 EnumToStr_t(INTRN_CONCATEXPR, "CONCATEXPR"), 00096 EnumToStr_t(INTRN_CASSIGNSTMT, "CASSIGNSTMT"), 00097 EnumToStr_t(INTRN_I2ABSe, "I2ABSe"), 00098 EnumToStr_t(INTRN_I4ABSe, "I4ABSe"), 00099 EnumToStr_t(INTRN_I8ABSe, "I8ABSe"), 00100 EnumToStr_t(INTRN_F4ABSe, "F4ABSe"), 00101 EnumToStr_t(INTRN_F8ABSe, "F8ABSe"), 00102 EnumToStr_t(INTRN_FQABSe, "FQABSe"), 00103 EnumToStr_t(INTRN_F4C4ABS, "F4C4ABS"), 00104 EnumToStr_t(INTRN_F4C4ABSe, "F4C4ABSe"), 00105 EnumToStr_t(INTRN_F8C8ABS, "F8C8ABS"), 00106 EnumToStr_t(INTRN_F8C8ABSe, "F8C8ABSe"), 00107 EnumToStr_t(INTRN_FQCQABS, "FQCQABS"), 00108 EnumToStr_t(INTRN_FQCQABSe, "FQCQABSe"), 00109 EnumToStr_t(INTRN_I2MODe, "I2MODe"), 00110 EnumToStr_t(INTRN_I4MODe, "I4MODe"), 00111 EnumToStr_t(INTRN_I8MODe, "I8MODe"), 00112 EnumToStr_t(INTRN_F4MOD, "F4MOD"), 00113 EnumToStr_t(INTRN_F4MODe, "F4MODe"), 00114 EnumToStr_t(INTRN_F8MOD, "F8MOD"), 00115 EnumToStr_t(INTRN_F8MODe, "F8MODe"), 00116 EnumToStr_t(INTRN_FQMOD, "FQMOD"), 00117 EnumToStr_t(INTRN_FQMODe, "FQMODe"), 00118 EnumToStr_t(INTRN_F4SQRTe, "F4SQRTe"), 00119 EnumToStr_t(INTRN_F8SQRTe, "F8SQRTe"), 00120 EnumToStr_t(INTRN_FQSQRTe, "FQSQRTe"), 00121 EnumToStr_t(INTRN_C4SQRTe, "C4SQRTe"), 00122 EnumToStr_t(INTRN_C8SQRTe, "C8SQRTe"), 00123 EnumToStr_t(INTRN_CQSQRTe, "CQSQRTe"), 00124 EnumToStr_t(INTRN_C4CONJG, "C4CONJG"), 00125 EnumToStr_t(INTRN_C4CONJGe, "C4CONJGe"), 00126 EnumToStr_t(INTRN_C8CONJG, "C8CONJG"), 00127 EnumToStr_t(INTRN_C8CONJGe, "C8CONJGe"), 00128 EnumToStr_t(INTRN_CQCONJG, "CQCONJG"), 00129 EnumToStr_t(INTRN_CQCONJGe, "CQCONJGe"), 00130 EnumToStr_t(INTRN_I1DIM, "I1DIM"), 00131 EnumToStr_t(INTRN_I2DIM, "I2DIM"), 00132 EnumToStr_t(INTRN_I2DIMe, "I2DIMe"), 00133 EnumToStr_t(INTRN_I4DIM, "I4DIM"), 00134 EnumToStr_t(INTRN_I4DIMe, "I4DIMe"), 00135 EnumToStr_t(INTRN_I8DIM, "I8DIM"), 00136 EnumToStr_t(INTRN_I8DIMe, "I8DIMe"), 00137 EnumToStr_t(INTRN_F4DIM, "F4DIM"), 00138 EnumToStr_t(INTRN_F4DIMe, "F4DIMe"), 00139 EnumToStr_t(INTRN_F8DIM, "F8DIM"), 00140 EnumToStr_t(INTRN_F8DIMe, "F8DIMe"), 00141 EnumToStr_t(INTRN_FQDIM, "FQDIM"), 00142 EnumToStr_t(INTRN_FQDIMe, "FQDIMe"), 00143 EnumToStr_t(INTRN_F8F4PROD, "F8F4PROD"), 00144 EnumToStr_t(INTRN_F8F4PRODe, "F8F4PRODe"), 00145 EnumToStr_t(INTRN_FQF8PROD, "FQF8PROD"), 00146 EnumToStr_t(INTRN_FQF8PRODe, "FQF8PRODe"), 00147 EnumToStr_t(INTRN_I1SIGN, "I1SIGN"), 00148 EnumToStr_t(INTRN_I2SIGN, "I2SIGN"), 00149 EnumToStr_t(INTRN_I2SIGNe, "I2SIGNe"), 00150 EnumToStr_t(INTRN_I4SIGN, "I4SIGN"), 00151 EnumToStr_t(INTRN_I4SIGNe, "I4SIGNe"), 00152 EnumToStr_t(INTRN_I8SIGN, "I8SIGN"), 00153 EnumToStr_t(INTRN_I8SIGNe, "I8SIGNe"), 00154 EnumToStr_t(INTRN_F4SIGN, "F4SIGN"), 00155 EnumToStr_t(INTRN_F4SIGNe, "F4SIGNe"), 00156 EnumToStr_t(INTRN_F8SIGN, "F8SIGN"), 00157 EnumToStr_t(INTRN_F8SIGNe, "F8SIGNe"), 00158 EnumToStr_t(INTRN_FQSIGN, "FQSIGN"), 00159 EnumToStr_t(INTRN_FQSIGNe, "FQSIGNe"), 00160 EnumToStr_t(INTRN_F4IMAGe, "F4IMAGe"), 00161 EnumToStr_t(INTRN_F8IMAGe, "F8IMAGe"), 00162 EnumToStr_t(INTRN_FQIMAGe, "FQIMAGe"), 00163 EnumToStr_t(INTRN_F4AINT, "F4AINT"), 00164 EnumToStr_t(INTRN_F4AINTe, "F4AINTe"), 00165 EnumToStr_t(INTRN_F8AINT, "F8AINT"), 00166 EnumToStr_t(INTRN_F8AINTe, "F8AINTe"), 00167 EnumToStr_t(INTRN_FQAINT, "FQAINT"), 00168 EnumToStr_t(INTRN_FQAINTe, "FQAINTe"), 00169 EnumToStr_t(INTRN_I2F4INTe, "I2F4INTe"), 00170 EnumToStr_t(INTRN_I4F4INTe, "I4F4INTe"), 00171 EnumToStr_t(INTRN_I8F4INTe, "I8F4INTe"), 00172 EnumToStr_t(INTRN_I2F8IDINTe, "I2F8IDINTe"), 00173 EnumToStr_t(INTRN_I4F8IDINTe, "I4F8IDINTe"), 00174 EnumToStr_t(INTRN_I8F8IDINTe, "I8F8IDINTe"), 00175 EnumToStr_t(INTRN_I2FQIQINTe, "I2FQIQINTe"), 00176 EnumToStr_t(INTRN_I4FQIQINTe, "I4FQIQINTe"), 00177 EnumToStr_t(INTRN_I8FQIQINTe, "I8FQIQINTe"), 00178 EnumToStr_t(INTRN_I2F4NINT, "I2F4NINT"), 00179 EnumToStr_t(INTRN_I2F4NINTe, "I2F4NINTe"), 00180 EnumToStr_t(INTRN_I4F4NINT, "I4F4NINT"), 00181 EnumToStr_t(INTRN_I4F4NINTe, "I4F4NINTe"), 00182 EnumToStr_t(INTRN_I8F4NINT, "I8F4NINT"), 00183 EnumToStr_t(INTRN_I8F4NINTe, "I8F4NINTe"), 00184 EnumToStr_t(INTRN_I2F8IDNINT, "I2F8IDNINT"), 00185 EnumToStr_t(INTRN_I2F8IDNINTe, "I2F8IDNINTe"), 00186 EnumToStr_t(INTRN_I4F8IDNINT, "I4F8IDNINT"), 00187 EnumToStr_t(INTRN_I4F8IDNINTe, "I4F8IDNINTe"), 00188 EnumToStr_t(INTRN_I8F8IDNINT, "I8F8IDNINT"), 00189 EnumToStr_t(INTRN_I8F8IDNINTe, "I8F8IDNINTe"), 00190 EnumToStr_t(INTRN_I2FQIQNINT, "I2FQIQNINT"), 00191 EnumToStr_t(INTRN_I2FQIQNINTe, "I2FQIQNINTe"), 00192 EnumToStr_t(INTRN_I4FQIQNINT, "I4FQIQNINT"), 00193 EnumToStr_t(INTRN_I4FQIQNINTe, "I4FQIQNINTe"), 00194 EnumToStr_t(INTRN_I8FQIQNINT, "I8FQIQNINT"), 00195 EnumToStr_t(INTRN_I8FQIQNINTe, "I8FQIQNINTe"), 00196 EnumToStr_t(INTRN_F4ANINT, "F4ANINT"), 00197 EnumToStr_t(INTRN_F4ANINTe, "F4ANINTe"), 00198 EnumToStr_t(INTRN_F8ANINT, "F8ANINT"), 00199 EnumToStr_t(INTRN_F8ANINTe, "F8ANINTe"), 00200 EnumToStr_t(INTRN_FQANINT, "FQANINT"), 00201 EnumToStr_t(INTRN_FQANINTe, "FQANINTe"), 00202 EnumToStr_t(INTRN_I2BNOTe, "I2BNOTe"), 00203 EnumToStr_t(INTRN_I4BNOTe, "I4BNOTe"), 00204 EnumToStr_t(INTRN_I8BNOTe, "I8BNOTe"), 00205 EnumToStr_t(INTRN_I2BANDe, "I2BANDe"), 00206 EnumToStr_t(INTRN_I4BANDe, "I4BANDe"), 00207 EnumToStr_t(INTRN_I8BANDe, "I8BANDe"), 00208 EnumToStr_t(INTRN_I2BIORe, "I2BIORe"), 00209 EnumToStr_t(INTRN_I4BIORe, "I4BIORe"), 00210 EnumToStr_t(INTRN_I8BIORe, "I8BIORe"), 00211 EnumToStr_t(INTRN_I2BXORe, "I2BXORe"), 00212 EnumToStr_t(INTRN_I4BXORe, "I4BXORe"), 00213 EnumToStr_t(INTRN_I8BXORe, "I8BXORe"), 00214 EnumToStr_t(INTRN_I1BITS, "I1BITS"), 00215 EnumToStr_t(INTRN_I2BITS, "I2BITS"), 00216 EnumToStr_t(INTRN_I2BITSe, "I2BITSe"), 00217 EnumToStr_t(INTRN_I4BITS, "I4BITS"), 00218 EnumToStr_t(INTRN_I4BITSe, "I4BITSe"), 00219 EnumToStr_t(INTRN_I8BITS, "I8BITS"), 00220 EnumToStr_t(INTRN_I8BITSe, "I8BITSe"), 00221 EnumToStr_t(INTRN_I1BSET, "I1BSET"), 00222 EnumToStr_t(INTRN_I2BSET, "I2BSET"), 00223 EnumToStr_t(INTRN_I2BSETe, "I2BSETe"), 00224 EnumToStr_t(INTRN_I4BSET, "I4BSET"), 00225 EnumToStr_t(INTRN_I4BSETe, "I4BSETe"), 00226 EnumToStr_t(INTRN_I8BSET, "I8BSET"), 00227 EnumToStr_t(INTRN_I8BSETe, "I8BSETe"), 00228 EnumToStr_t(INTRN_I1BCLR, "I1BCLR"), 00229 EnumToStr_t(INTRN_I2BCLR, "I2BCLR"), 00230 EnumToStr_t(INTRN_I2BCLRe, "I2BCLRe"), 00231 EnumToStr_t(INTRN_I4BCLR, "I4BCLR"), 00232 EnumToStr_t(INTRN_I4BCLRe, "I4BCLRe"), 00233 EnumToStr_t(INTRN_I8BCLR, "I8BCLR"), 00234 EnumToStr_t(INTRN_I8BCLRe, "I8BCLRe"), 00235 EnumToStr_t(INTRN_I1BTEST, "I1BTEST"), 00236 EnumToStr_t(INTRN_I2BTEST, "I2BTEST"), 00237 EnumToStr_t(INTRN_I2BTESTe, "I2BTESTe"), 00238 EnumToStr_t(INTRN_I4BTEST, "I4BTEST"), 00239 EnumToStr_t(INTRN_I4BTESTe, "I4BTESTe"), 00240 EnumToStr_t(INTRN_I8BTEST, "I8BTEST"), 00241 EnumToStr_t(INTRN_I8BTESTe, "I8BTESTe"), 00242 EnumToStr_t(INTRN_I1MVBITS, "I1MVBITS"), 00243 EnumToStr_t(INTRN_I2MVBITS, "I2MVBITS"), 00244 EnumToStr_t(INTRN_I4MVBITS, "I4MVBITS"), 00245 EnumToStr_t(INTRN_I8MVBITS, "I8MVBITS"), 00246 EnumToStr_t(INTRN_I1SHL, "I1SHL"), 00247 EnumToStr_t(INTRN_I2SHL, "I2SHL"), 00248 EnumToStr_t(INTRN_I1SHR, "I1SHR"), 00249 EnumToStr_t(INTRN_I2SHR, "I2SHR"), 00250 EnumToStr_t(INTRN_I1SHFT, "I1SHFT"), 00251 EnumToStr_t(INTRN_I2SHFT, "I2SHFT"), 00252 EnumToStr_t(INTRN_I2SHFTe, "I2SHFTe"), 00253 EnumToStr_t(INTRN_I4SHFT, "I4SHFT"), 00254 EnumToStr_t(INTRN_I4SHFTe, "I4SHFTe"), 00255 EnumToStr_t(INTRN_I8SHFT, "I8SHFT"), 00256 EnumToStr_t(INTRN_I8SHFTe, "I8SHFTe"), 00257 EnumToStr_t(INTRN_I1SHFTC, "I1SHFTC"), 00258 EnumToStr_t(INTRN_I2SHFTC, "I2SHFTC"), 00259 EnumToStr_t(INTRN_I2SHFTCe, "I2SHFTCe"), 00260 EnumToStr_t(INTRN_I4SHFTC, "I4SHFTC"), 00261 EnumToStr_t(INTRN_I4SHFTCe, "I4SHFTCe"), 00262 EnumToStr_t(INTRN_I8SHFTC, "I8SHFTC"), 00263 EnumToStr_t(INTRN_I8SHFTCe, "I8SHFTCe"), 00264 EnumToStr_t(INTRN_I4CLEN, "I4CLEN"), 00265 EnumToStr_t(INTRN_I4CLENe, "I4CLENe"), 00266 EnumToStr_t(INTRN_I4CINDEX, "I4CINDEX"), 00267 EnumToStr_t(INTRN_I4CINDEXe, "I4CINDEXe"), 00268 EnumToStr_t(INTRN_CLGE, "CLGE"), 00269 EnumToStr_t(INTRN_CLGEe, "CLGEe"), 00270 EnumToStr_t(INTRN_CLGT, "CLGT"), 00271 EnumToStr_t(INTRN_CLGTe, "CLGTe"), 00272 EnumToStr_t(INTRN_CLLE, "CLLE"), 00273 EnumToStr_t(INTRN_CLLEe, "CLLEe"), 00274 EnumToStr_t(INTRN_CLLT, "CLLT"), 00275 EnumToStr_t(INTRN_CLLTe, "CLLTe"), 00276 EnumToStr_t(INTRN_F4EXP, "F4EXP"), 00277 EnumToStr_t(INTRN_F4EXPe, "F4EXPe"), 00278 EnumToStr_t(INTRN_F8EXP, "F8EXP"), 00279 EnumToStr_t(INTRN_F8EXPe, "F8EXPe"), 00280 EnumToStr_t(INTRN_FQEXP, "FQEXP"), 00281 EnumToStr_t(INTRN_FQEXPe, "FQEXPe"), 00282 EnumToStr_t(INTRN_C4EXP, "C4EXP"), 00283 EnumToStr_t(INTRN_C4EXPe, "C4EXPe"), 00284 EnumToStr_t(INTRN_C8EXP, "C8EXP"), 00285 EnumToStr_t(INTRN_C8EXPe, "C8EXPe"), 00286 EnumToStr_t(INTRN_CQEXP, "CQEXP"), 00287 EnumToStr_t(INTRN_CQEXPe, "CQEXPe"), 00288 EnumToStr_t(INTRN_F4LOG, "F4LOG"), 00289 EnumToStr_t(INTRN_F4LOGe, "F4LOGe"), 00290 EnumToStr_t(INTRN_F8LOG, "F8LOG"), 00291 EnumToStr_t(INTRN_F8LOGe, "F8LOGe"), 00292 EnumToStr_t(INTRN_FQLOG, "FQLOG"), 00293 EnumToStr_t(INTRN_FQLOGe, "FQLOGe"), 00294 EnumToStr_t(INTRN_C4LOG, "C4LOG"), 00295 EnumToStr_t(INTRN_C4LOGe, "C4LOGe"), 00296 EnumToStr_t(INTRN_C8LOG, "C8LOG"), 00297 EnumToStr_t(INTRN_C8LOGe, "C8LOGe"), 00298 EnumToStr_t(INTRN_CQLOG, "CQLOG"), 00299 EnumToStr_t(INTRN_CQLOGe, "CQLOGe"), 00300 EnumToStr_t(INTRN_F4LOG10, "F4LOG10"), 00301 EnumToStr_t(INTRN_F4LOG10e, "F4LOG10e"), 00302 EnumToStr_t(INTRN_F8LOG10, "F8LOG10"), 00303 EnumToStr_t(INTRN_F8LOG10e, "F8LOG10e"), 00304 EnumToStr_t(INTRN_FQLOG10, "FQLOG10"), 00305 EnumToStr_t(INTRN_FQLOG10e, "FQLOG10e"), 00306 EnumToStr_t(INTRN_F4COS, "F4COS"), 00307 EnumToStr_t(INTRN_F4COSe, "F4COSe"), 00308 EnumToStr_t(INTRN_F8COS, "F8COS"), 00309 EnumToStr_t(INTRN_F8COSe, "F8COSe"), 00310 EnumToStr_t(INTRN_FQCOS, "FQCOS"), 00311 EnumToStr_t(INTRN_FQCOSe, "FQCOSe"), 00312 EnumToStr_t(INTRN_C4COS, "C4COS"), 00313 EnumToStr_t(INTRN_C4COSe, "C4COSe"), 00314 EnumToStr_t(INTRN_C8COS, "C8COS"), 00315 EnumToStr_t(INTRN_C8COSe, "C8COSe"), 00316 EnumToStr_t(INTRN_CQCOS, "CQCOS"), 00317 EnumToStr_t(INTRN_CQCOSe, "CQCOSe"), 00318 EnumToStr_t(INTRN_F4SIN, "F4SIN"), 00319 EnumToStr_t(INTRN_F4SINe, "F4SINe"), 00320 EnumToStr_t(INTRN_F8SIN, "F8SIN"), 00321 EnumToStr_t(INTRN_F8SINe, "F8SINe"), 00322 EnumToStr_t(INTRN_FQSIN, "FQSIN"), 00323 EnumToStr_t(INTRN_FQSINe, "FQSINe"), 00324 EnumToStr_t(INTRN_C4SIN, "C4SIN"), 00325 EnumToStr_t(INTRN_C4SINe, "C4SINe"), 00326 EnumToStr_t(INTRN_C8SIN, "C8SIN"), 00327 EnumToStr_t(INTRN_C8SINe, "C8SINe"), 00328 EnumToStr_t(INTRN_CQSIN, "CQSIN"), 00329 EnumToStr_t(INTRN_CQSINe, "CQSINe"), 00330 EnumToStr_t(INTRN_F4CIS, "F4CIS"), 00331 EnumToStr_t(INTRN_F4CISe, "F4CISe"), 00332 EnumToStr_t(INTRN_F8CIS, "F8CIS"), 00333 EnumToStr_t(INTRN_F8CISe, "F8CISe"), 00334 EnumToStr_t(INTRN_FQCIS, "FQCIS"), 00335 EnumToStr_t(INTRN_FQCISe, "FQCISe"), 00336 EnumToStr_t(INTRN_F4TAN, "F4TAN"), 00337 EnumToStr_t(INTRN_F4TANe, "F4TANe"), 00338 EnumToStr_t(INTRN_F8TAN, "F8TAN"), 00339 EnumToStr_t(INTRN_F8TANe, "F8TANe"), 00340 EnumToStr_t(INTRN_FQTAN, "FQTAN"), 00341 EnumToStr_t(INTRN_FQTANe, "FQTANe"), 00342 EnumToStr_t(INTRN_F4COSD, "F4COSD"), 00343 EnumToStr_t(INTRN_F4COSDe, "F4COSDe"), 00344 EnumToStr_t(INTRN_F8COSD, "F8COSD"), 00345 EnumToStr_t(INTRN_F8COSDe, "F8COSDe"), 00346 EnumToStr_t(INTRN_FQCOSD, "FQCOSD"), 00347 EnumToStr_t(INTRN_FQCOSDe, "FQCOSDe"), 00348 EnumToStr_t(INTRN_F4SIND, "F4SIND"), 00349 EnumToStr_t(INTRN_F4SINDe, "F4SINDe"), 00350 EnumToStr_t(INTRN_F8SIND, "F8SIND"), 00351 EnumToStr_t(INTRN_F8SINDe, "F8SINDe"), 00352 EnumToStr_t(INTRN_FQSIND, "FQSIND"), 00353 EnumToStr_t(INTRN_FQSINDe, "FQSINDe"), 00354 EnumToStr_t(INTRN_F4TAND, "F4TAND"), 00355 EnumToStr_t(INTRN_F4TANDe, "F4TANDe"), 00356 EnumToStr_t(INTRN_F8TAND, "F8TAND"), 00357 EnumToStr_t(INTRN_F8TANDe, "F8TANDe"), 00358 EnumToStr_t(INTRN_FQTAND, "FQTAND"), 00359 EnumToStr_t(INTRN_FQTANDe, "FQTANDe"), 00360 EnumToStr_t(INTRN_F4COSH, "F4COSH"), 00361 EnumToStr_t(INTRN_F4COSHe, "F4COSHe"), 00362 EnumToStr_t(INTRN_F8COSH, "F8COSH"), 00363 EnumToStr_t(INTRN_F8COSHe, "F8COSHe"), 00364 EnumToStr_t(INTRN_FQCOSH, "FQCOSH"), 00365 EnumToStr_t(INTRN_FQCOSHe, "FQCOSHe"), 00366 EnumToStr_t(INTRN_F4SINH, "F4SINH"), 00367 EnumToStr_t(INTRN_F4SINHe, "F4SINHe"), 00368 EnumToStr_t(INTRN_F8SINH, "F8SINH"), 00369 EnumToStr_t(INTRN_F8SINHe, "F8SINHe"), 00370 EnumToStr_t(INTRN_FQSINH, "FQSINH"), 00371 EnumToStr_t(INTRN_FQSINHe, "FQSINHe"), 00372 EnumToStr_t(INTRN_F4TANH, "F4TANH"), 00373 EnumToStr_t(INTRN_F4TANHe, "F4TANHe"), 00374 EnumToStr_t(INTRN_F8TANH, "F8TANH"), 00375 EnumToStr_t(INTRN_F8TANHe, "F8TANHe"), 00376 EnumToStr_t(INTRN_FQTANH, "FQTANH"), 00377 EnumToStr_t(INTRN_FQTANHe, "FQTANHe"), 00378 EnumToStr_t(INTRN_F4ACOS, "F4ACOS"), 00379 EnumToStr_t(INTRN_F4ACOSe, "F4ACOSe"), 00380 EnumToStr_t(INTRN_F8ACOS, "F8ACOS"), 00381 EnumToStr_t(INTRN_F8ACOSe, "F8ACOSe"), 00382 EnumToStr_t(INTRN_FQACOS, "FQACOS"), 00383 EnumToStr_t(INTRN_FQACOSe, "FQACOSe"), 00384 EnumToStr_t(INTRN_F4ASIN, "F4ASIN"), 00385 EnumToStr_t(INTRN_F4ASINe, "F4ASINe"), 00386 EnumToStr_t(INTRN_F8ASIN, "F8ASIN"), 00387 EnumToStr_t(INTRN_F8ASINe, "F8ASINe"), 00388 EnumToStr_t(INTRN_FQASIN, "FQASIN"), 00389 EnumToStr_t(INTRN_FQASINe, "FQASINe"), 00390 EnumToStr_t(INTRN_F4ATAN, "F4ATAN"), 00391 EnumToStr_t(INTRN_F4ATANe, "F4ATANe"), 00392 EnumToStr_t(INTRN_F8ATAN, "F8ATAN"), 00393 EnumToStr_t(INTRN_F8ATANe, "F8ATANe"), 00394 EnumToStr_t(INTRN_FQATAN, "FQATAN"), 00395 EnumToStr_t(INTRN_FQATANe, "FQATANe"), 00396 EnumToStr_t(INTRN_F4ACOSD, "F4ACOSD"), 00397 EnumToStr_t(INTRN_F4ACOSDe, "F4ACOSDe"), 00398 EnumToStr_t(INTRN_F8ACOSD, "F8ACOSD"), 00399 EnumToStr_t(INTRN_F8ACOSDe, "F8ACOSDe"), 00400 EnumToStr_t(INTRN_FQACOSD, "FQACOSD"), 00401 EnumToStr_t(INTRN_FQACOSDe, "FQACOSDe"), 00402 EnumToStr_t(INTRN_F4ASIND, "F4ASIND"), 00403 EnumToStr_t(INTRN_F4ASINDe, "F4ASINDe"), 00404 EnumToStr_t(INTRN_F8ASIND, "F8ASIND"), 00405 EnumToStr_t(INTRN_F8ASINDe, "F8ASINDe"), 00406 EnumToStr_t(INTRN_FQASIND, "FQASIND"), 00407 EnumToStr_t(INTRN_FQASINDe, "FQASINDe"), 00408 EnumToStr_t(INTRN_F4ATAND, "F4ATAND"), 00409 EnumToStr_t(INTRN_F4ATANDe, "F4ATANDe"), 00410 EnumToStr_t(INTRN_F8ATAND, "F8ATAND"), 00411 EnumToStr_t(INTRN_F8ATANDe, "F8ATANDe"), 00412 EnumToStr_t(INTRN_FQATAND, "FQATAND"), 00413 EnumToStr_t(INTRN_FQATANDe, "FQATANDe"), 00414 EnumToStr_t(INTRN_F4ATAN2, "F4ATAN2"), 00415 EnumToStr_t(INTRN_F4ATAN2e, "F4ATAN2e"), 00416 EnumToStr_t(INTRN_F8ATAN2, "F8ATAN2"), 00417 EnumToStr_t(INTRN_F8ATAN2e, "F8ATAN2e"), 00418 EnumToStr_t(INTRN_FQATAN2, "FQATAN2"), 00419 EnumToStr_t(INTRN_FQATAN2e, "FQATAN2e"), 00420 EnumToStr_t(INTRN_F4ATAN2D, "F4ATAN2D"), 00421 EnumToStr_t(INTRN_F4ATAN2De, "F4ATAN2De"), 00422 EnumToStr_t(INTRN_F8ATAN2D, "F8ATAN2D"), 00423 EnumToStr_t(INTRN_F8ATAN2De, "F8ATAN2De"), 00424 EnumToStr_t(INTRN_FQATAN2D, "FQATAN2D"), 00425 EnumToStr_t(INTRN_FQATAN2De, "FQATAN2De"), 00426 EnumToStr_t(INTRN_U4I4ALLOCA, "U4I4ALLOCA"), 00427 EnumToStr_t(INTRN_U8I8ALLOCA, "U8I8ALLOCA"), 00428 EnumToStr_t(INTRN_U4I4MALLOC, "U4I4MALLOC"), 00429 EnumToStr_t(INTRN_U8I8MALLOC, "U8I8MALLOC"), 00430 EnumToStr_t(INTRN_U4FREE, "U4FREE"), 00431 EnumToStr_t(INTRN_U8FREE, "U8FREE"), 00432 EnumToStr_t(INTRN_MDATE, "MDATE"), 00433 EnumToStr_t(INTRN_I1DATE, "I1DATE"), 00434 EnumToStr_t(INTRN_I2DATE, "I2DATE"), 00435 EnumToStr_t(INTRN_I4DATE, "I4DATE"), 00436 EnumToStr_t(INTRN_I8DATE, "I8DATE"), 00437 EnumToStr_t(INTRN_I1ERRSNS, "I1ERRSNS"), 00438 EnumToStr_t(INTRN_I2ERRSNS, "I2ERRSNS"), 00439 EnumToStr_t(INTRN_I4ERRSNS, "I4ERRSNS"), 00440 EnumToStr_t(INTRN_I8ERRSNS, "I8ERRSNS"), 00441 EnumToStr_t(INTRN_VEXIT, "VEXIT"), 00442 EnumToStr_t(INTRN_I1EXIT, "I1EXIT"), 00443 EnumToStr_t(INTRN_I2EXIT, "I2EXIT"), 00444 EnumToStr_t(INTRN_I4EXIT, "I4EXIT"), 00445 EnumToStr_t(INTRN_I8EXIT, "I8EXIT"), 00446 EnumToStr_t(INTRN_TIME, "TIME"), 00447 EnumToStr_t(INTRN_F4SECNDS, "F4SECNDS"), 00448 EnumToStr_t(INTRN_F8SECNDS, "F8SECNDS"), 00449 EnumToStr_t(INTRN_PAUSE, "PAUSE"), 00450 EnumToStr_t(INTRN_STOP, "STOP"), 00451 EnumToStr_t(INTRN_F4I4RAN, "F4I4RAN"), 00452 EnumToStr_t(INTRN_F4I8RAN, "F4I8RAN"), 00453 EnumToStr_t(INTRN_F8I4RAN, "F8I4RAN"), 00454 EnumToStr_t(INTRN_F8I8RAN, "F8I8RAN"), 00455 EnumToStr_t(INTRN_FQI4RAN, "FQI4RAN"), 00456 EnumToStr_t(INTRN_FQI8RAN, "FQI8RAN"), 00457 EnumToStr_t(INTRN_I4DIVFLOOR, "I4DIVFLOOR"), 00458 EnumToStr_t(INTRN_I8DIVFLOOR, "I8DIVFLOOR"), 00459 EnumToStr_t(INTRN_U4DIVFLOOR, "U4DIVFLOOR"), 00460 EnumToStr_t(INTRN_U8DIVFLOOR, "U8DIVFLOOR"), 00461 EnumToStr_t(INTRN_I4DIVCEIL, "I4DIVCEIL"), 00462 EnumToStr_t(INTRN_I8DIVCEIL, "I8DIVCEIL"), 00463 EnumToStr_t(INTRN_U4DIVCEIL, "U4DIVCEIL"), 00464 EnumToStr_t(INTRN_U8DIVCEIL, "U8DIVCEIL"), 00465 EnumToStr_t(INTRN_I4MODFLOOR, "I4MODFLOOR"), 00466 EnumToStr_t(INTRN_I8MODFLOOR, "I8MODFLOOR"), 00467 EnumToStr_t(INTRN_U4MODFLOOR, "U4MODFLOOR"), 00468 EnumToStr_t(INTRN_U8MODFLOOR, "U8MODFLOOR"), 00469 EnumToStr_t(INTRN_I4MODCEIL, "I4MODCEIL"), 00470 EnumToStr_t(INTRN_I8MODCEIL, "I8MODCEIL"), 00471 EnumToStr_t(INTRN_U4MODCEIL, "U4MODCEIL"), 00472 EnumToStr_t(INTRN_U8MODCEIL, "U8MODCEIL"), 00473 EnumToStr_t(INTRN_U4I4SETSTACKPOINTER,"U4I4SETSTACKPOINTER"), 00474 EnumToStr_t(INTRN_U8I8SETSTACKPOINTER,"U8I8SETSTACKPOINTER"), 00475 EnumToStr_t(INTRN_U4READSTACKPOINTER, "U4READSTACKPOINTER"), 00476 EnumToStr_t(INTRN_U8READSTACKPOINTER, "U8READSTACKPOINTER"), 00477 EnumToStr_t(INTRN_ADD_AND_FETCH_I4, "ADD_AND_FETCH_I4"), 00478 EnumToStr_t(INTRN_SUB_AND_FETCH_I4, "SUB_AND_FETCH_I4"), 00479 EnumToStr_t(INTRN_OR_AND_FETCH_I4, "OR_AND_FETCH_I4"), 00480 EnumToStr_t(INTRN_XOR_AND_FETCH_I4, "XOR_AND_FETCH_I4"), 00481 EnumToStr_t(INTRN_AND_AND_FETCH_I4, "AND_AND_FETCH_I4"), 00482 EnumToStr_t(INTRN_NAND_AND_FETCH_I4, "NAND_AND_FETCH_I4"), 00483 EnumToStr_t(INTRN_FETCH_AND_ADD_I4, "FETCH_AND_ADD_I4"), 00484 EnumToStr_t(INTRN_FETCH_AND_SUB_I4, "FETCH_AND_SUB_I4"), 00485 EnumToStr_t(INTRN_FETCH_AND_OR_I4, "FETCH_AND_OR_I4"), 00486 EnumToStr_t(INTRN_FETCH_AND_XOR_I4, "FETCH_AND_XOR_I4"), 00487 EnumToStr_t(INTRN_FETCH_AND_AND_I4, "FETCH_AND_AND_I4"), 00488 EnumToStr_t(INTRN_FETCH_AND_NAND_I4, "FETCH_AND_NAND_I4"), 00489 EnumToStr_t(INTRN_ADD_AND_FETCH_I8, "ADD_AND_FETCH_I8"), 00490 EnumToStr_t(INTRN_SUB_AND_FETCH_I8, "SUB_AND_FETCH_I8"), 00491 EnumToStr_t(INTRN_OR_AND_FETCH_I8, "OR_AND_FETCH_I8"), 00492 EnumToStr_t(INTRN_XOR_AND_FETCH_I8, "XOR_AND_FETCH_I8"), 00493 EnumToStr_t(INTRN_AND_AND_FETCH_I8, "AND_AND_FETCH_I8"), 00494 EnumToStr_t(INTRN_NAND_AND_FETCH_I8, "NAND_AND_FETCH_I8"), 00495 EnumToStr_t(INTRN_FETCH_AND_ADD_I8, "FETCH_AND_ADD_I8"), 00496 EnumToStr_t(INTRN_FETCH_AND_SUB_I8, "FETCH_AND_SUB_I8"), 00497 EnumToStr_t(INTRN_FETCH_AND_OR_I8, "FETCH_AND_OR_I8"), 00498 EnumToStr_t(INTRN_FETCH_AND_XOR_I8, "FETCH_AND_XOR_I8"), 00499 EnumToStr_t(INTRN_FETCH_AND_AND_I8, "FETCH_AND_AND_I8"), 00500 EnumToStr_t(INTRN_FETCH_AND_NAND_I8, "FETCH_AND_NAND_I8"), 00501 EnumToStr_t(INTRN_LOCK_TEST_AND_SET_I4,"LOCK_TEST_AND_SET_I4"), 00502 EnumToStr_t(INTRN_LOCK_TEST_AND_SET_I8,"LOCK_TEST_AND_SET_I8"), 00503 EnumToStr_t(INTRN_LOCK_RELEASE_I4, "LOCK_RELEASE_I4"), 00504 EnumToStr_t(INTRN_LOCK_RELEASE_I8, "LOCK_RELEASE_I8"), 00505 EnumToStr_t(INTRN_COMPARE_AND_SWAP_I4,"COMPARE_AND_SWAP_I4"), 00506 EnumToStr_t(INTRN_COMPARE_AND_SWAP_I8,"COMPARE_AND_SWAP_I8"), 00507 EnumToStr_t(INTRN_SYNCHRONIZE, "SYNCHRONIZE"), 00508 EnumToStr_t(INTRN_RETURN_ADDRESS, "RETURN_ADDRESS"), 00509 EnumToStr_t(INTRN_U4I1ADRTMP, "U4I1ADRTMP"), 00510 EnumToStr_t(INTRN_U4I2ADRTMP, "U4I2ADRTMP"), 00511 EnumToStr_t(INTRN_U4I4ADRTMP, "U4I4ADRTMP"), 00512 EnumToStr_t(INTRN_U4I8ADRTMP, "U4I8ADRTMP"), 00513 EnumToStr_t(INTRN_U4F4ADRTMP, "U4F4ADRTMP"), 00514 EnumToStr_t(INTRN_U4F8ADRTMP, "U4F8ADRTMP"), 00515 EnumToStr_t(INTRN_U4FQADRTMP, "U4FQADRTMP"), 00516 EnumToStr_t(INTRN_U4C4ADRTMP, "U4C4ADRTMP"), 00517 EnumToStr_t(INTRN_U4C8ADRTMP, "U4C8ADRTMP"), 00518 EnumToStr_t(INTRN_U4CQADRTMP, "U4CQADRTMP"), 00519 EnumToStr_t(INTRN_U4VADRTMP, "U4VADRTMP"), 00520 EnumToStr_t(INTRN_U8I1ADRTMP, "U8I1ADRTMP"), 00521 EnumToStr_t(INTRN_U8I2ADRTMP, "U8I2ADRTMP"), 00522 EnumToStr_t(INTRN_U8I4ADRTMP, "U8I4ADRTMP"), 00523 EnumToStr_t(INTRN_U8I8ADRTMP, "U8I8ADRTMP"), 00524 EnumToStr_t(INTRN_U8F4ADRTMP, "U8F4ADRTMP"), 00525 EnumToStr_t(INTRN_U8F8ADRTMP, "U8F8ADRTMP"), 00526 EnumToStr_t(INTRN_U8FQADRTMP, "U8FQADRTMP"), 00527 EnumToStr_t(INTRN_U8C4ADRTMP, "U8C4ADRTMP"), 00528 EnumToStr_t(INTRN_U8C8ADRTMP, "U8C8ADRTMP"), 00529 EnumToStr_t(INTRN_U8CQADRTMP, "U8CQADRTMP"), 00530 EnumToStr_t(INTRN_U8VADRTMP, "U8VADRTMP"), 00531 EnumToStr_t(INTRN_I4VALTMP, "I4VALTMP"), 00532 EnumToStr_t(INTRN_I8VALTMP, "I8VALTMP"), 00533 EnumToStr_t(INTRN_U4VALTMP, "U4VALTMP"), 00534 EnumToStr_t(INTRN_U8VALTMP, "U8VALTMP"), 00535 EnumToStr_t(INTRN_F4VALTMP, "F4VALTMP"), 00536 EnumToStr_t(INTRN_F8VALTMP, "F8VALTMP"), 00537 EnumToStr_t(INTRN_FQVALTMP, "FQVALTMP"), 00538 EnumToStr_t(INTRN_C4VALTMP, "C4VALTMP"), 00539 EnumToStr_t(INTRN_C8VALTMP, "C8VALTMP"), 00540 EnumToStr_t(INTRN_CQVALTMP, "CQVALTMP"), 00541 EnumToStr_t(INTRN_BCOPY, "BCOPY"), 00542 EnumToStr_t(INTRN_BCMP, "BCMP"), 00543 EnumToStr_t(INTRN_BZERO, "BZERO"), 00544 EnumToStr_t(INTRN_MEMCCPY, "MEMCCPY"), 00545 EnumToStr_t(INTRN_MEMCHR, "MEMCHR"), 00546 EnumToStr_t(INTRN_MEMCMP, "MEMCMP"), 00547 EnumToStr_t(INTRN_MEMCPY, "MEMCPY"), 00548 EnumToStr_t(INTRN_MEMMOVE, "MEMMOVE"), 00549 EnumToStr_t(INTRN_MEMSET, "MEMSET"), 00550 EnumToStr_t(INTRN_STRCMP, "STRCMP"), 00551 EnumToStr_t(INTRN_STRNCMP, "STRNCMP"), 00552 EnumToStr_t(INTRN_STRCPY, "STRCPY"), 00553 EnumToStr_t(INTRN_STRNCPY, "STRNCPY"), 00554 EnumToStr_t(INTRN_STRLEN, "STRLEN"), 00555 EnumToStr_t(INTRN_PRINTF, "PRINTF"), 00556 EnumToStr_t(INTRN_FPRINTF, "FPRINTF"), 00557 EnumToStr_t(INTRN_SPRINTF, "SPRINTF"), 00558 EnumToStr_t(INTRN_PRINTW, "PRINTW"), 00559 EnumToStr_t(INTRN_SCANF, "SCANF"), 00560 EnumToStr_t(INTRN_FSCANF, "FSCANF"), 00561 EnumToStr_t(INTRN_SSCANF, "SSCANF"), 00562 EnumToStr_t(INTRN_FPUTC, "FPUTC"), 00563 EnumToStr_t(INTRN_FPUTS, "FPUTS"), 00564 EnumToStr_t(INTRN_FGETC, "FGETC"), 00565 EnumToStr_t(INTRN_FGETS, "FGETS"), 00566 EnumToStr_t(INTRN_F4VACOS, "F4VACOS"), 00567 EnumToStr_t(INTRN_F8VACOS, "F8VACOS"), 00568 EnumToStr_t(INTRN_F4VASIN, "F4VASIN"), 00569 EnumToStr_t(INTRN_F8VASIN, "F8VASIN"), 00570 EnumToStr_t(INTRN_F4VATAN, "F4VATAN"), 00571 EnumToStr_t(INTRN_F8VATAN, "F8VATAN"), 00572 EnumToStr_t(INTRN_F4VCOS, "F4VCOS"), 00573 EnumToStr_t(INTRN_F8VCOS, "F8VCOS"), 00574 EnumToStr_t(INTRN_F4VEXP, "F4VEXP"), 00575 EnumToStr_t(INTRN_F8VEXP, "F8VEXP"), 00576 EnumToStr_t(INTRN_F4VLOG, "F4VLOG"), 00577 EnumToStr_t(INTRN_F8VLOG, "F8VLOG"), 00578 EnumToStr_t(INTRN_F4VSIN, "F4VSIN"), 00579 EnumToStr_t(INTRN_F8VSIN, "F8VSIN"), 00580 EnumToStr_t(INTRN_F4VSQRT, "F4VSQRT"), 00581 EnumToStr_t(INTRN_F8VSQRT, "F8VSQRT"), 00582 EnumToStr_t(INTRN_F4VTAN, "F4VTAN"), 00583 EnumToStr_t(INTRN_F8VTAN, "F8VTAN"), 00584 EnumToStr_t(INTRN_NARY_ADD, "NARY_ADD"), 00585 EnumToStr_t(INTRN_NARY_MPY, "NARY_MPY"), 00586 EnumToStr_t(INTRN_U4I4TRAPUV_MALLOC, "U4I4TRAPUV_MALLOC"), 00587 EnumToStr_t(INTRN_U8I8TRAPUV_MALLOC, "U8I8TRAPUV_MALLOC"), 00588 EnumToStr_t(INTRN_F77_BOUNDS_ERR, "F77_BOUNDS_ERR"), 00589 EnumToStr_t(INTRN_DSM_NUMTHREADS, "DSM_NUMTHREADS"), 00590 EnumToStr_t(INTRN_DSM_CHUNKSIZE, "DSM_CHUNKSIZE"), 00591 EnumToStr_t(INTRN_DSM_THIS_CHUNKSIZE, "DSM_THIS_CHUNKSIZE"), 00592 EnumToStr_t(INTRN_DSM_REM_CHUNKSIZE, "DSM_REM_CHUNKSIZE"), 00593 EnumToStr_t(INTRN_DSM_NUMCHUNKS, "DSM_NUMCHUNKS"), 00594 EnumToStr_t(INTRN_DSM_THIS_THREADNUM, "DSM_THIS_THREADNUM"), 00595 EnumToStr_t(INTRN_DSM_DISTRIBUTION_BLOCK, "DSM_DISTRIBUTION_BLOCK"), 00596 EnumToStr_t(INTRN_DSM_DISTRIBUTION_STAR, "DSM_DISTRIBUTION_STAR"), 00597 EnumToStr_t(INTRN_DSM_ISRESHAPED, "DSM_ISRESHAPED"), 00598 EnumToStr_t(INTRN_DSM_ISDISTRIBUTED, "DSM_ISDISTRIBUTED"), 00599 EnumToStr_t(INTRN_DSM_THIS_STARTINDEX, "DSM_THIS_STARTINDEX"), 00600 EnumToStr_t(INTRN_DSM_DISTRIBUTION_CYCLIC, "DSM_DISTRIBUTION_CYCLIC"), 00601 EnumToStr_t(INTRN_MPY_AND_FETCH_I4, "MPY_AND_FETCH_I4"), 00602 EnumToStr_t(INTRN_MIN_AND_FETCH_I4, "MIN_AND_FETCH_I4"), 00603 EnumToStr_t(INTRN_MAX_AND_FETCH_I4, "MAX_AND_FETCH_I4"), 00604 EnumToStr_t(INTRN_FETCH_AND_MPY_I4, "FETCH_AND_MPY_I4"), 00605 EnumToStr_t(INTRN_FETCH_AND_MIN_I4, "FETCH_AND_MIN_I4"), 00606 EnumToStr_t(INTRN_FETCH_AND_MAX_I4, "FETCH_AND_MAX_I4"), 00607 EnumToStr_t(INTRN_MPY_AND_FETCH_I8, "MPY_AND_FETCH_I8"), 00608 EnumToStr_t(INTRN_MIN_AND_FETCH_I8, "MIN_AND_FETCH_I8"), 00609 EnumToStr_t(INTRN_MAX_AND_FETCH_I8, "MAX_AND_FETCH_I8"), 00610 EnumToStr_t(INTRN_FETCH_AND_MPY_I8, "FETCH_AND_MPY_I8"), 00611 EnumToStr_t(INTRN_FETCH_AND_MIN_I8, "FETCH_AND_MIN_I8"), 00612 EnumToStr_t(INTRN_FETCH_AND_MAX_I8, "FETCH_AND_MAX_I8"), 00613 EnumToStr_t(INTRN_ADD_AND_FETCH_F4, "ADD_AND_FETCH_F4"), 00614 EnumToStr_t(INTRN_SUB_AND_FETCH_F4, "SUB_AND_FETCH_F4"), 00615 EnumToStr_t(INTRN_OR_AND_FETCH_F4, "OR_AND_FETCH_F4"), 00616 EnumToStr_t(INTRN_XOR_AND_FETCH_F4, "XOR_AND_FETCH_F4"), 00617 EnumToStr_t(INTRN_AND_AND_FETCH_F4, "AND_AND_FETCH_F4"), 00618 EnumToStr_t(INTRN_NAND_AND_FETCH_F4, "NAND_AND_FETCH_F4"), 00619 EnumToStr_t(INTRN_MPY_AND_FETCH_F4, "MPY_AND_FETCH_F4"), 00620 EnumToStr_t(INTRN_MIN_AND_FETCH_F4, "MIN_AND_FETCH_F4"), 00621 EnumToStr_t(INTRN_MAX_AND_FETCH_F4, "MAX_AND_FETCH_F4"), 00622 EnumToStr_t(INTRN_FETCH_AND_ADD_F4, "FETCH_AND_ADD_F4"), 00623 EnumToStr_t(INTRN_FETCH_AND_SUB_F4, "FETCH_AND_SUB_F4"), 00624 EnumToStr_t(INTRN_FETCH_AND_OR_F4, "FETCH_AND_OR_F4"), 00625 EnumToStr_t(INTRN_FETCH_AND_XOR_F4, "FETCH_AND_XOR_F4"), 00626 EnumToStr_t(INTRN_FETCH_AND_AND_F4, "FETCH_AND_AND_F4"), 00627 EnumToStr_t(INTRN_FETCH_AND_NAND_F4, "FETCH_AND_NAND_F4"), 00628 EnumToStr_t(INTRN_FETCH_AND_MPY_F4, "FETCH_AND_MPY_F4"), 00629 EnumToStr_t(INTRN_FETCH_AND_MIN_F4, "FETCH_AND_MIN_F4"), 00630 EnumToStr_t(INTRN_FETCH_AND_MAX_F4, "FETCH_AND_MAX_F4"), 00631 EnumToStr_t(INTRN_ADD_AND_FETCH_F8, "ADD_AND_FETCH_F8"), 00632 EnumToStr_t(INTRN_SUB_AND_FETCH_F8, "SUB_AND_FETCH_F8"), 00633 EnumToStr_t(INTRN_OR_AND_FETCH_F8, "OR_AND_FETCH_F8"), 00634 EnumToStr_t(INTRN_XOR_AND_FETCH_F8, "XOR_AND_FETCH_F8"), 00635 EnumToStr_t(INTRN_AND_AND_FETCH_F8, "AND_AND_FETCH_F8"), 00636 EnumToStr_t(INTRN_NAND_AND_FETCH_F8, "NAND_AND_FETCH_F8"), 00637 EnumToStr_t(INTRN_MPY_AND_FETCH_F8, "MPY_AND_FETCH_F8"), 00638 EnumToStr_t(INTRN_MIN_AND_FETCH_F8, "MIN_AND_FETCH_F8"), 00639 EnumToStr_t(INTRN_MAX_AND_FETCH_F8, "MAX_AND_FETCH_F8"), 00640 EnumToStr_t(INTRN_FETCH_AND_ADD_F8, "FETCH_AND_ADD_F8"), 00641 EnumToStr_t(INTRN_FETCH_AND_SUB_F8, "FETCH_AND_SUB_F8"), 00642 EnumToStr_t(INTRN_FETCH_AND_OR_F8, "FETCH_AND_OR_F8"), 00643 EnumToStr_t(INTRN_FETCH_AND_XOR_F8, "FETCH_AND_XOR_F8"), 00644 EnumToStr_t(INTRN_FETCH_AND_AND_F8, "FETCH_AND_AND_F8"), 00645 EnumToStr_t(INTRN_FETCH_AND_NAND_F8, "FETCH_AND_NAND_F8"), 00646 EnumToStr_t(INTRN_FETCH_AND_MPY_F8, "FETCH_AND_MPY_F8"), 00647 EnumToStr_t(INTRN_FETCH_AND_MIN_F8, "FETCH_AND_MIN_F8"), 00648 EnumToStr_t(INTRN_FETCH_AND_MAX_F8, "FETCH_AND_MAX_F8"), 00649 EnumToStr_t(INTRN_LOCK_ACQUIRE_I4, "LOCK_ACQUIRE_I4"), 00650 EnumToStr_t(INTRN_LOCK_ACQUIRE_I8, "LOCK_ACQUIRE_I8"), 00651 EnumToStr_t(INTRN_F90_STACKTEMPALLOC, "F90_STACKTEMPALLOC"), 00652 EnumToStr_t(INTRN_F90_HEAPTEMPALLOC, "F90_HEAPTEMPALLOC"), 00653 EnumToStr_t(INTRN_F90_STACKTEMPFREE, "F90_STACKTEMPFREE"), 00654 EnumToStr_t(INTRN_F90_HEAPTEMPFREE, "F90_HEAPTEMPFREE"), 00655 00656 /* Automatically generated F90 intrinsic definitions */ 00657 00658 #include "wutil90.h" 00659 00660 EnumToStr_t(INTRN_MP_IN_PARALLEL_REGION, "MP_IN_PARALLEL_REGION"), 00661 EnumToStr_t(INTRN_RT_ERR, "RT_ERR"), 00662 EnumToStr_t(INTRN_OMP_DO_WORKSHARING, "OMP_DO_WORKSHARING"), 00663 EnumToStr_t(INTRN_OMP_TEST_LOCK, "OMP_TEST_LOCK"), 00664 EnumToStr_t(INTRN_OMP_GET_NUM_THREADS,"OMP_GET_NUM_THREADS"), 00665 EnumToStr_t(INTRN_OMP_GET_MAX_THREADS,"OMP_GET_MAX_THREADS"), 00666 EnumToStr_t(INTRN_OMP_GET_THREAD_NUM, "OMP_GET_THREAD_NUM"), 00667 EnumToStr_t(INTRN_OMP_GET_NUM_PROCS, "OMP_GET_NUM_PROCS"), 00668 EnumToStr_t(INTRN_OMP_IN_PARALLEL, "OMP_IN_PARALLEL"), 00669 EnumToStr_t(INTRN_OMP_GET_DYNAMIC, "OMP_GET_DYNAMIC"), 00670 EnumToStr_t(INTRN_OMP_GET_NESTED, "OMP_GET_NESTED"), 00671 EnumToStr_t(INTRN_I1IEEE_INT, "I1IEEE_INT"), 00672 EnumToStr_t(INTRN_I2IEEE_INT, "I2IEEE_INT"), 00673 EnumToStr_t(INTRN_I4IEEE_INT, "I4IEEE_INT"), 00674 EnumToStr_t(INTRN_I8IEEE_INT, "I8IEEE_INT"), 00675 EnumToStr_t(INTRN_F4IEEE_INT, "F4IEEE_INT"), 00676 EnumToStr_t(INTRN_F8IEEE_INT, "F8IEEE_INT"), 00677 EnumToStr_t(INTRN_FQIEEE_INT, "FQIEEE_INT"), 00678 EnumToStr_t(INTRN_F90BOUNDS_CHECK, "F90BOUNDS_CHECK"), 00679 EnumToStr_t(INTRN_F90_DYNAMICTEMPALLOC, "F90_DYNAMICTEMPALLOC"), 00680 EnumToStr_t(INTRN_F90_DYNAMICTEMPFREE, "F90_DYNAMICTEMPFREE"), 00681 EnumToStr_t(INTRN_F90CONFORM_CHECK, "F90CONFORM_CHECK"), 00682 00683 EnumToStr_t(INTRN_C_F4FLOOR, "C_F4FLOOR"), 00684 EnumToStr_t(INTRN_C_F8FLOOR, "C_F8FLOOR"), 00685 EnumToStr_t(INTRN_C_FQFLOOR, "C_FQFLOOR"), 00686 EnumToStr_t(INTRN_C_F4CEIL, "C_F4CEIL"), 00687 EnumToStr_t(INTRN_C_F8CEIL, "C_F8CEIL"), 00688 EnumToStr_t(INTRN_C_FQCEIL, "C_FQCEIL"), 00689 EnumToStr_t(INTRN_C_F4TRUNC, "C_F4TRUNC"), 00690 EnumToStr_t(INTRN_C_F8TRUNC, "C_F8TRUNC"), 00691 EnumToStr_t(INTRN_C_FQTRUNC, "C_FQTRUNC"), 00692 00693 EnumToStr_t(INTRN_I4DSHIFTL, "I4DSHIFTL"), 00694 EnumToStr_t(INTRN_I8DSHIFTL, "I8DSHIFTL"), 00695 EnumToStr_t(INTRN_I4DSHIFTR, "I4DSHIFTR"), 00696 EnumToStr_t(INTRN_I8DSHIFTR, "I8DSHIFTR"), 00697 EnumToStr_t(INTRN_I4GBIT, "I4GBIT"), 00698 EnumToStr_t(INTRN_I8GBIT, "I8GBIT"), 00699 EnumToStr_t(INTRN_I4GBITS, "I4GBITS"), 00700 EnumToStr_t(INTRN_I8GBITS, "I8GBITS"), 00701 EnumToStr_t(INTRN_I4MASK, "I4MASK"), 00702 EnumToStr_t(INTRN_I8MASK, "I8MASK"), 00703 EnumToStr_t(INTRN_I4MASKL, "I4MASKL"), 00704 EnumToStr_t(INTRN_I8MASKL, "I8MASKL"), 00705 EnumToStr_t(INTRN_I4MASKR, "I4MASKR"), 00706 EnumToStr_t(INTRN_I8MASKR, "I8MASKR"), 00707 EnumToStr_t(INTRN_I4PBIT, "I4PBIT"), 00708 EnumToStr_t(INTRN_I8PBIT, "I8PBIT"), 00709 EnumToStr_t(INTRN_I4PBITS, "I4PBITS"), 00710 EnumToStr_t(INTRN_I8PBITS, "I8PBITS"), 00711 EnumToStr_t(INTRN_I4POPPAR, "I4POPPAR"), 00712 EnumToStr_t(INTRN_I8POPPAR, "I8POPPAR"), 00713 EnumToStr_t(INTRN_I4RTC, "I4RTC"), 00714 EnumToStr_t(INTRN_I8RTC, "I8RTC"), 00715 00716 EnumToStr_t(INTRN_GETF_EXP, "GETF_EXP"), 00717 EnumToStr_t(INTRN_SETF_EXP, "SETF_EXP"), 00718 EnumToStr_t(INTRN_GETF_SIG, "GETF_SIG"), 00719 EnumToStr_t(INTRN_SETF_SIG, "SETF_SIG"), 00720 00721 EnumToStr_t(INTRN_FMERGE_NS, "FMERGE_NS"), 00722 EnumToStr_t(INTRN_FMERGE_S, "FMERGE_S"), 00723 EnumToStr_t(INTRN_FMERGE_SE, "FMERGE_SE"), 00724 EnumToStr_t(INTRN_STOP_F90, "STOP_F90"), 00725 00726 EnumToStr_t(INTRN_F4VLOG10, "F4VLOG10"), 00727 EnumToStr_t(INTRN_F8VLOG10, "F8VLOG10"), 00728 00729 EnumToStr_t(INTRN_MODSI3, "MODSI3"), 00730 EnumToStr_t(INTRN_UMODSI3, "UMODSI3"), 00731 EnumToStr_t(INTRN_DIVSI3, "DIVSI3"), 00732 EnumToStr_t(INTRN_UDIVSI3, "UDIVSI3"), 00733 EnumToStr_t(INTRN_MODDI3, "MODDI3"), 00734 EnumToStr_t(INTRN_UMODDI3, "UMODDI3"), 00735 EnumToStr_t(INTRN_DIVDI3, "DIVDI3"), 00736 EnumToStr_t(INTRN_UDIVDI3, "UDIVDI3"), 00737 EnumToStr_t(INTRN_DIVSF3, "DIVSF3"), 00738 EnumToStr_t(INTRN_DIVDF3, "DIVDF3"), 00739 00740 EnumToStr_t(INTRN_I4FFS, "I4FFS"), 00741 00742 EnumToStr_t(INTRN_SINCOSF, "SINCOSF"), 00743 EnumToStr_t(INTRN_SINCOS, "SINCOS"), 00744 EnumToStr_t(INTRN_SINCOSL, "SINCOSL"), 00745 00746 /* UPC specific */ 00747 /* UPC blocking loads */ 00748 EnumToStr_t(INTRN_SILD, "S_I1LD"), 00749 EnumToStr_t(INTRN_SF4LD, "S_F4LD"), 00750 EnumToStr_t(INTRN_SF8LD, "S_F8LD"), 00751 EnumToStr_t(INTRN_SMLD, "S_MLD"), 00752 /* UPC blocking stores */ 00753 EnumToStr_t(INTRN_SIST, "S_IST"), 00754 EnumToStr_t(INTRN_SF4ST, "S_F4ST"), 00755 EnumToStr_t(INTRN_SF8ST, "S_F8ST"), 00756 EnumToStr_t(INTRN_SMST, "S_MST"), 00757 00758 /* UPC non-blocking loads */ 00759 EnumToStr_t(INTRN_SILD_NB, "S_ILD_NB"), 00760 EnumToStr_t(INTRN_SF4LD_NB, "S_F4LD_NB"), 00761 EnumToStr_t(INTRN_SF8LD_NB, "LALA"), 00762 EnumToStr_t(INTRN_SMLD_NB, "S_MLD_NB"), 00763 00764 /* UPC non-blocking strores */ 00765 EnumToStr_t(INTRN_SIST_NB, "S_IST_NB"), 00766 EnumToStr_t(INTRN_SF4ST_NB, "S_F4ST_NB"), 00767 EnumToStr_t(INTRN_SF8ST_NB, "S_F8ST_NB"), 00768 EnumToStr_t(INTRN_SMST_NB, "S_MST_NB"), 00769 00770 /* UPC put/get syncs */ 00771 EnumToStr_t(INTRN_WAIT_SYNC_MEM, "SYNC_MEM"), 00772 EnumToStr_t(INTRN_WAIT_SYNC_REG, "SYNC_REG"), 00773 EnumToStr_t(INTRN_WAIT_SYNC_FLOAT, "SYNC_FLOAT"), 00774 EnumToStr_t(INTRN_WAIT_SYNC_DOUBLE, "SYNC_DOUBLE"), 00775 /* UPC pointer arithmetic */ 00776 EnumToStr_t(INTRN_SPTRADD, "S_PTRADD"), 00777 EnumToStr_t(INTRN_SPTRDIFF, "S_PTRDIFF"), 00778 EnumToStr_t(INTRN_SCVTADDR, "S_CVTADDR"), 00779 00780 /* UPC sync */ 00781 EnumToStr_t(INTRN_UPCBAR, "UPC_BARRIER"), 00782 EnumToStr_t(INTRN_UPCWAIT, "UPC_WAIT"), 00783 EnumToStr_t(INTRN_UPCNTFY, "UPC_NOTIFY"), 00784 EnumToStr_t(INTRN_UPCIAFFT, "UPC_INT_AFFT"), 00785 00786 EnumToStr_t(INTRN_EXIT, "UPC_EXIT"), 00787 EnumToStr_t(INTRN_MYTHREAD, "MYTHREAD"), 00788 EnumToStr_t(INTRN_THREADS, "THREADS"), 00789 EnumToStr_t(INTRN_ALL_ALLOC, "ALL_ALLOC"), 00790 EnumToStr_t(INTRN_GLOBAL_ALLOC, "GLOBAL_ALLOC"), 00791 EnumToStr_t(INTRN_LOCAL_ALLOC, "LOCAL_ALLOC"), 00792 EnumToStr_t(INTRN_FREE, "UPC_FREE"), 00793 EnumToStr_t(INTRN_THREADOF_S, "THREADOF_S"), 00794 EnumToStr_t(INTRN_THREADOF_P, "THREADOF_P"), 00795 EnumToStr_t(INTRN_PHASEOF_S, "PHASEOF_S"), 00796 EnumToStr_t(INTRN_PHASEOF_P, "PHASEOF_P"), 00797 EnumToStr_t(INTRN_ADDROF_S, "ADDROF_S"), 00798 EnumToStr_t(INTRN_ADDROF_P, "ADDROF_P"), 00799 EnumToStr_t(INTRN_G_LOCK_ALLOC, "G_LOCK_ALLOC"), 00800 EnumToStr_t(INTRN_A_LOCK_ALLOC, "A_LOCK_ALLOC"), 00801 EnumToStr_t(INTRN_LOCK_FREE, "LOCK_FREE"), 00802 EnumToStr_t(INTRN_LOCK, "UPC_LOCK"), 00803 EnumToStr_t(INTRN_LOCK_ATTEMPT, "LOCK_ATTEMPT"), 00804 EnumToStr_t(INTRN_LOCK_UNLOCK, "UPC_UNLOCK"), 00805 EnumToStr_t(INTRN_UPC_MEMCPY, "UPC_MEMCPY"), 00806 EnumToStr_t(INTRN_UPC_MEMGET, "UPC_MEMGET"), 00807 EnumToStr_t(INTRN_UPC_MEMPUT, "UPC_MEMPUT"), 00808 EnumToStr_t(INTRN_UPC_MEMSET, "UPC_MEMSET"), 00809 EnumToStr_t(INTRN_S_TO_L, "S_TO_L"), 00810 EnumToStr_t(INTRN_P_TO_L, "P_TO_L"), 00811 EnumToStr_t(INTRN_S_RESET, "S_RESET"), 00812 EnumToStr_t(INTRN_S_RESET_REF, "S_RESET_REF"), 00813 EnumToStr_t(INTRN_ISNULL_S, "ISNULL_S"), 00814 EnumToStr_t(INTRN_ISNULL_P, "ISNULL_P"), 00815 EnumToStr_t(INTRN_ADD_S, "ADD_S"), 00816 EnumToStr_t(INTRN_INC_S, "INC_S"), 00817 EnumToStr_t(INTRN_ADD_P1, "ADD_P1"), 00818 EnumToStr_t(INTRN_INC_P1, "INC_P1"), 00819 EnumToStr_t(INTRN_EQ_S_S, "EQ_S_S"), 00820 EnumToStr_t(INTRN_EQ_S_P, "EQ_S_P"), 00821 EnumToStr_t(INTRN_EQ_P_P, "EQ_P_P"), 00822 EnumToStr_t(INTRN_SUB_S, "SUB_S"), 00823 EnumToStr_t(INTRN_SUB_P1, "SUB_P1"), 00824 EnumToStr_t(INTRN_AFF_S, "AFF_S"), 00825 EnumToStr_t(INTRN_AFF_P, "AFF_P"), 00826 EnumToStr_t(INTRN_PUT_S, "PUT_S"), 00827 EnumToStr_t(INTRN_PUT_P, "PUT_P"), 00828 EnumToStr_t(INTRN_GET_S, "GET_S"), 00829 EnumToStr_t(INTRN_GET_P, "GET_P"), 00830 EnumToStr_t(INTRN_PUT_NB_S, "PUT_NB_S"), 00831 EnumToStr_t(INTRN_GET_NB_S, "GET_NB_S"), 00832 EnumToStr_t(INTRN_PUT_NB_P, "PUT_NB_P"), 00833 EnumToStr_t(INTRN_GET_NB_P, "GET_NB_P"), 00834 EnumToStr_t(INTRN_WAIT_SYN, "WAIT_SYN"), 00835 EnumToStr_t(INTRN_TRY_SYN, "TRY_SYN"), 00836 EnumToStr_t(INTRN_PUT_NBI_S, "PUT_NBI_S"), 00837 EnumToStr_t(INTRN_GET_NBI_S, "GET_NBI_S"), 00838 EnumToStr_t(INTRN_PUT_NBI_P, "PUT_NBI_P"), 00839 EnumToStr_t(INTRN_GET_NBI_P, "GET_NBI_P"), 00840 EnumToStr_t(INTRN_WAIT_SYN_GET, "WAIT_SYN_GET"), 00841 EnumToStr_t(INTRN_WAIT_SYN_PUT, "WAIT_SYN_PUT"), 00842 EnumToStr_t(INTRN_WAIT_SYN_ALL, "WAIT_SYN_ALL"), 00843 EnumToStr_t(INTRN_TRY_SYN_GET, "TRY_SYN_GET"), 00844 EnumToStr_t(INTRN_TRY_SYN_PUT, "TRY_SYN_PUT"), 00845 EnumToStr_t(INTRN_TRY_SYN_ALL, "TRY_SYN_ALL"), 00846 EnumToStr_t(INTRN_BEGIN_REGION, "BEGIN_REGION"), 00847 EnumToStr_t(INTRN_END_REGION, "END_REGION"), 00848 EnumToStr_t(INTRN_PUT_S_VAL, "PUT_S_VAL"), 00849 EnumToStr_t(INTRN_PUT_NB_S_VAL, "PUT_NB_S_VAL"), 00850 EnumToStr_t(INTRN_PUT_NBI_S_VAL, "PUT_NBI_S_VAL"), 00851 EnumToStr_t(INTRN_PUT_P_VAL, "PUT_P_VAL"), 00852 EnumToStr_t(INTRN_PUT_NB_P_VAL, "PUT_NB_P_VAL"), 00853 EnumToStr_t(INTRN_PUT_NBI_P_VAL, "PUT_NBI_P_VAL"), 00854 EnumToStr_t(INTRN_GET_S_VAL, "GET_S_VAL"), 00855 EnumToStr_t(INTRN_GET_P_VAL, "GET_P_VAL"), 00856 EnumToStr_t(INTRN_GET_NB_S_VAL,"GET_NB_S_VAL"), 00857 EnumToStr_t(INTRN_GET_NB_P_VAL, "GET_NB_P_VAL"), 00858 EnumToStr_t(INTRN_PUT_S_FVAL, "PUT_S_FVAL"), 00859 EnumToStr_t(INTRN_PUT_S_DVAL, "PUT_S_DVAL"), 00860 EnumToStr_t(INTRN_GET_S_FVAL, "GET_S_FVAL"), 00861 EnumToStr_t(INTRN_GET_S_DVAL, "GET_S_DVAL"), 00862 EnumToStr_t(INTRN_PUT_P_FVAL, "PUT_P_FVAL"), 00863 EnumToStr_t(INTRN_PUT_P_DVAL, "PUT_P_DVAL"), 00864 EnumToStr_t(INTRN_GET_P_FVAL, "GET_P_FVAL"), 00865 EnumToStr_t(INTRN_GET_P_DVAL, "GET_P_DVAL"), 00866 EnumToStr_t(INTRN_WAIT_SYN_VAL, "WAIT_SYN_VAL"), 00867 EnumToStr_t(INTRN_TLD_ADDR, "TLD_ADDR"), 00868 EnumToStr_t(INTRN_ADD_PI, "ADD_PI"), 00869 EnumToStr_t(INTRN_INC_PI, "INC_PI"), 00870 EnumToStr_t(INTRN_UPCFENCE, "UPCFENCE"), 00871 EnumToStr_t(INTRN_S_TO_P, "S_TO_P"), 00872 EnumToStr_t(INTRN_P_TO_S, "P_TO_S"), 00873 EnumToStr_t(INTRN_SETNULL_S, "SETNULL_S"), 00874 EnumToStr_t(INTRN_SETNULL_P, "SETNULL_P"), 00875 EnumToStr_t(INTRN_SETNULL_S_R, "SETNULL_S_R"), 00876 EnumToStr_t(INTRN_SETNULL_P_R, "SETNULL_P_R"), 00877 EnumToStr_t(INTRN_SUB_PI, "SUB_PI"), 00878 EnumToStr_t(INTRN_U4READFRAMEPOINTER, "U4READFRAMEPOINTER"), 00879 EnumToStr_t(INTRN_U8READFRAMEPOINTER, "U8READFRAMEPOINTER"), 00880 EnumToStr_t(INTRN_APPLY_ARGS, "APPLY_ARGS"), 00881 EnumToStr_t(INTRN_APPLY, "APPLY"), 00882 EnumToStr_t(INTRN_RETURN, "RETURN"), 00883 EnumToStr_t(INTRN_VA_START, "VA_START"), 00884 EnumToStr_t(INTRN_SAVE_XMMS, "SAVE_XMMS"), 00885 EnumToStr_t(INTRN_LANDING_PAD_ENTRY, "INTRN_LANDING_PAD_ENTRY"), 00886 EnumToStr_t(INTRN_ISGREATER, "ISGREATER"), 00887 EnumToStr_t(INTRN_ISGREATEREQUAL, "ISGREATEREQUAL"), 00888 EnumToStr_t(INTRN_ISLESS, "ISLESS"), 00889 EnumToStr_t(INTRN_ISLESSEQUAL, "ISLESSEQUAL"), 00890 EnumToStr_t(INTRN_ISLESSGREATER, "ISLESSGREATER"), 00891 EnumToStr_t(INTRN_ISUNORDERED, "INTRN_ISUNORDERED"), 00892 00893 EnumToStr_t(INTRN_SUBSU2, "INTRN_SUBSU2"), 00894 EnumToStr_t(INTRN_SUBSV16I2, "INTRN_SUBSV16I2"), 00895 }; 00896 00897 00898 EnumToStr_t IostatementToNameTbl [] = { 00899 EnumToStr_t((IOSTATEMENT)0, "IOSTATEMENT_0"), 00900 EnumToStr_t(IOS_BACKSPACE, "BACKSPACE"), 00901 EnumToStr_t(IOS_CLOSE, "CLOSE"), 00902 EnumToStr_t(IOS_DEFINEFILE, "DEFINEFILE"), 00903 EnumToStr_t(IOS_DELETE, "DELETE"), 00904 EnumToStr_t(IOS_ENDFILE, "ENDFILE"), 00905 EnumToStr_t(IOS_FIND, "FIND"), 00906 EnumToStr_t(IOS_INQUIRE, "INQUIRE"), 00907 EnumToStr_t(IOS_NAMELIST, "NAMELIST"), 00908 EnumToStr_t(IOS_OPEN, "OPEN"), 00909 EnumToStr_t(IOS_REWIND, "REWIND"), 00910 EnumToStr_t(IOS_UNLOCK, "UNLOCK"), 00911 EnumToStr_t(IOS_ACCEPT, "ACCEPT"), 00912 EnumToStr_t(IOS_DECODE, "DECODE"), 00913 EnumToStr_t(IOS_ENCODE, "ENCODE"), 00914 EnumToStr_t(IOS_PRINT, "PRINT"), 00915 EnumToStr_t(IOS_READ, "READ"), 00916 EnumToStr_t(IOS_REWRITE, "REWRITE"), 00917 EnumToStr_t(IOS_TYPE, "TYPE"), 00918 EnumToStr_t(IOS_WRITE, "WRITE"), 00919 EnumToStr_t(IOS_CR_FWU, "UNFORMATTED_WRITE"), 00920 EnumToStr_t(IOS_CR_FRU, "UNFORMATTED_READ"), 00921 EnumToStr_t(IOS_CR_FWF, "FORMATTED_WRITE"), 00922 EnumToStr_t(IOS_CR_FRF, "FORMATTED_READ"), 00923 EnumToStr_t(IOS_CR_FWN, "NAMELIST_WRITE"), 00924 EnumToStr_t(IOS_CR_FRN, "NAMELIST_READ"), 00925 EnumToStr_t(IOS_INQLENGTH, "INQUIRE_LENGTH"), 00926 EnumToStr_t(IOS_CR_OPEN, "OPEN"), 00927 EnumToStr_t(IOS_CR_CLOSE, "CLOSE"), 00928 EnumToStr_t(IOS_CR_ENDFILE, "ENDFILE"), 00929 EnumToStr_t(IOS_CR_REWIND, "REWIND"), 00930 EnumToStr_t(IOS_CR_INQUIRE, "INQUIRE"), 00931 EnumToStr_t(IOS_CR_BACKSPACE, "BACKSPACE"), 00932 EnumToStr_t(IOS_CR_BUFFERIN, "BUFFERIN"), 00933 EnumToStr_t(IOS_CR_BUFFEROUT, "BUFFEROUT") 00934 }; 00935 00936 00937 EnumToStr_t IoitemToNameTbl [] = { 00938 EnumToStr_t((IOITEM)0, "IOITEM_0"), 00939 EnumToStr_t(IOU_NONE, "NONE"), 00940 EnumToStr_t(IOU_DEFAULT, "DEFAULT"), 00941 EnumToStr_t(IOU_EXTERNAL, "EXTERNAL"), 00942 EnumToStr_t(IOU_INTERNAL, "INTERNAL"), 00943 EnumToStr_t(IOU_DOPE, "DOPE"), 00944 EnumToStr_t((IOITEM)6, "IOITEM_6"), /* spare */ 00945 EnumToStr_t((IOITEM)7, "IOITEM_7"), /* spare */ 00946 EnumToStr_t((IOITEM)8, "IOITEM_8"), /* spare */ 00947 EnumToStr_t((IOITEM)9, "IOITEM_9"), /* spare */ 00948 EnumToStr_t(IOF_NONE, "NONE"), 00949 EnumToStr_t(IOF_ASSIGNED_VAR, "ASSIGNED_VAR"), 00950 EnumToStr_t(IOF_CHAR_EXPR, "CHAR_EXPR"), 00951 EnumToStr_t(IOF_LABEL, "LABEL"), 00952 EnumToStr_t(IOF_LIST_DIRECTED, "LIST_DIRECTED"), 00953 EnumToStr_t(IOF_NAMELIST_DIRECTED, "NAMELIST_DIRECTED"), 00954 EnumToStr_t(IOF_UNFORMATTED, "UNFORMATTED"), 00955 EnumToStr_t(IOF_CR_PARSFMT, "PREPARSED_FORMAT"), 00956 EnumToStr_t(IOF_CR_FMTSRC, "FORMAT_SOURCE"), 00957 EnumToStr_t(IOF_CR_FMTSRC_DOPE, "FORMAT_SOURCE_DOPE"), 00958 EnumToStr_t((IOITEM)20, "IOITEM_20"), /* spare */ 00959 EnumToStr_t((IOITEM)21, "IOITEM_21"), /* spare */ 00960 EnumToStr_t((IOITEM)22, "IOITEM_22"), /* spare */ 00961 EnumToStr_t((IOITEM)23, "IOITEM_23"), /* spare */ 00962 EnumToStr_t((IOITEM)24, "IOITEM_24"), /* spare */ 00963 EnumToStr_t(IOC_ACCESS, "ACCESS"), 00964 EnumToStr_t(IOC_ASSOCIATEVARIABLE, "ASSOCIATEVARIABLE"), 00965 EnumToStr_t(IOC_BLANK, "BLANK"), 00966 EnumToStr_t(IOC_CARRIAGECONTROL, "CARRIAGECONTROL"), 00967 EnumToStr_t(IOC_DEFAULTFILE, "DEFAULTFILE"), 00968 EnumToStr_t(IOC_DIRECT, "DIRECT"), 00969 EnumToStr_t(IOC_DISPOSE, "DISPOSE"), 00970 EnumToStr_t(IOC_END, "END"), 00971 EnumToStr_t(IOC_ERR, "ERR"), 00972 EnumToStr_t(IOC_EXIST, "EXIST"), 00973 EnumToStr_t(IOC_FILE, "FILE"), 00974 EnumToStr_t(IOC_FORM, "FORM"), 00975 EnumToStr_t(IOC_FORMATTED, "FORMATTED"), 00976 EnumToStr_t(IOC_IOSTAT, "IOSTAT"), 00977 EnumToStr_t(IOC_KEY, "KEY"), 00978 EnumToStr_t(IOC_KEYEQ, "KEYEQ"), 00979 EnumToStr_t(IOC_KEYGE, "KEYGE"), 00980 EnumToStr_t(IOC_KEYGT, "KEYGT"), 00981 EnumToStr_t(IOC_KEY_START, "KEY_START"), 00982 EnumToStr_t(IOC_KEY_END, "KEY_END"), 00983 EnumToStr_t(IOC_KEY_CHARACTER, "KEY_CHARACTER"), 00984 EnumToStr_t(IOC_KEY_INTEGER, "KEY_INTEGER"), 00985 EnumToStr_t(IOC_KEYED, "KEYED"), 00986 EnumToStr_t(IOC_KEYID, "KEYID"), 00987 EnumToStr_t(IOC_MAXREC, "MAXREC"), 00988 EnumToStr_t(IOC_NAME, "NAME"), 00989 EnumToStr_t(IOC_NAMED, "NAMED"), 00990 EnumToStr_t(IOC_NEXTREC, "NEXTREC"), 00991 EnumToStr_t(IOC_NML, "NML"), 00992 EnumToStr_t(IOC_NUMBER, "NUMBER"), 00993 EnumToStr_t(IOC_OPENED, "OPENED"), 00994 EnumToStr_t(IOC_ORGANIZATION, "ORGANIZATION"), 00995 EnumToStr_t(IOC_READONLY, "READONLY"), 00996 EnumToStr_t(IOC_REC, "REC"), 00997 EnumToStr_t(IOC_RECCOUNT, "RECCOUNT"), 00998 EnumToStr_t(IOC_RECL, "RECL"), 00999 EnumToStr_t(IOC_RECORDTYPE, "RECORDTYPE"), 01000 EnumToStr_t(IOC_SEQUENTIAL, "SEQUENTIAL"), 01001 EnumToStr_t(IOC_SHARED, "SHARED"), 01002 EnumToStr_t(IOC_STATUS, "STATUS"), 01003 EnumToStr_t(IOC_TYPE, "TYPE"), 01004 EnumToStr_t(IOC_U, "U"), 01005 EnumToStr_t(IOC_UNFORMATTED, "UNFORMATTED"), 01006 EnumToStr_t(IOC_VARFMT, "VARFMT"), 01007 EnumToStr_t(IOC_VARFMT_ORIGFMT, "VARFMT_ORIGFMT"), 01008 EnumToStr_t(IOC_CR_EEEFLAG, "END_EOR_EOF_FLAG"), 01009 EnumToStr_t(IOC_ADVANCE, "ADVANCE"), 01010 EnumToStr_t(IOC_SIZE, "SIZE"), 01011 EnumToStr_t(IOC_CR_FLFLAG, "FIRST_LAST_FLAG"), 01012 EnumToStr_t(IOC_EOR, "EOR"), 01013 EnumToStr_t(IOC_INQLENGTH_VAR, "INQLENGTH_VAR"), 01014 EnumToStr_t(IOC_CR_EDFLAG, "ENCODE_DECODE_FLAG"), 01015 EnumToStr_t(IOC_PAD, "PAD"), 01016 EnumToStr_t(IOC_DELIM, "DELIM"), 01017 EnumToStr_t(IOC_ACTION, "ACTION"), 01018 EnumToStr_t(IOC_POSITION, "POSITION"), 01019 EnumToStr_t(IOC_READWRITE, "READWRITE"), 01020 EnumToStr_t(IOC_WRITE, "WRITE"), 01021 EnumToStr_t(IOC_READ, "READ"), 01022 EnumToStr_t(IOC_ERRFLAG, "ERRFLAG"), 01023 EnumToStr_t((IOITEM)85, "IOITEM_85"), /* spare */ 01024 EnumToStr_t((IOITEM)86, "IOITEM_86"), /* spare */ 01025 EnumToStr_t((IOITEM)87, "IOITEM_87"), /* spare */ 01026 EnumToStr_t((IOITEM)88, "IOITEM_88"), /* spare */ 01027 EnumToStr_t((IOITEM)89, "IOITEM_89"), /* spare */ 01028 EnumToStr_t((IOITEM)90, "IOITEM_90"), /* spare */ 01029 EnumToStr_t((IOITEM)91, "IOITEM_91"), /* spare */ 01030 EnumToStr_t((IOITEM)92, "IOITEM_92"), /* spare */ 01031 EnumToStr_t((IOITEM)93, "IOITEM_93"), /* spare */ 01032 EnumToStr_t((IOITEM)94, "IOITEM_94"), /* spare */ 01033 EnumToStr_t(IOL_ARRAY, "ARRAY"), 01034 EnumToStr_t(IOL_CHAR, "CHAR"), 01035 EnumToStr_t(IOL_CHAR_ARRAY, "CHAR_ARRAY"), 01036 EnumToStr_t(IOL_EXPR, "EXPR"), 01037 EnumToStr_t(IOL_IMPLIED_DO, "IMPLIED_DO"), 01038 EnumToStr_t(IOL_IMPLIED_DO_1TRIP, "IMPLIED_DO_1TRIP"), 01039 EnumToStr_t(IOL_LOGICAL, "LOGICAL"), 01040 EnumToStr_t(IOL_RECORD, "RECORD"), 01041 EnumToStr_t(IOL_VAR, "VAR"), 01042 EnumToStr_t(IOL_DOPE, "DOPE"), 01043 EnumToStr_t((IOITEM) 105, "IOITEM_105"), /* spare */ 01044 EnumToStr_t((IOITEM) 106, "IOITEM_106"), /* spare */ 01045 EnumToStr_t((IOITEM) 107, "IOITEM_107"), /* spare */ 01046 EnumToStr_t((IOITEM) 108, "IOITEM_108"), /* spare */ 01047 EnumToStr_t((IOITEM) 109, "IOITEM_109"), /* spare */ 01048 EnumToStr_t((IOITEM) 110, "IOITEM_110"), /* spare */ 01049 EnumToStr_t((IOITEM) 111, "IOITEM_111"), /* spare */ 01050 EnumToStr_t((IOITEM) 112, "IOITEM_112"), /* spare */ 01051 EnumToStr_t((IOITEM) 113, "IOITEM_113"), /* spare */ 01052 EnumToStr_t((IOITEM) 114, "IOITEM_114"), /* spare */ 01053 }; 01054 01055 01056 //---------------------------------------------------------------------- 01057 // 01058 //---------------------------------------------------------------------- 01059 01060 01061 const char * 01062 get_intrinsic_name ( INTRINSIC opcode ) 01063 { 01064 using namespace ir_a2b; 01065 return MapEnumToStr<EnumToStr_t, IntrinsicToNameTbl, 01066 INTRINSIC_LAST+1>("IntrinsicToNameTbl", (INT)opcode); 01067 } 01068 01069 01070 INTRINSIC 01071 get_intrinsic_from_name( const char* name ) 01072 { 01073 using namespace ir_a2b; 01074 return (INTRINSIC)MapStrToEnum<EnumToStr_t, IntrinsicToNameTbl, 01075 INTRINSIC_LAST+1>("IntrinsicToNameTbl", name); 01076 } 01077 01078 01079 const char * 01080 get_iostatement_name ( IOSTATEMENT opcode ) 01081 { 01082 using namespace ir_a2b; 01083 return MapEnumToStr<EnumToStr_t, IostatementToNameTbl, 01084 IOSTATEMENT_LAST+1>("IostatementToNameTbl", (INT)opcode); 01085 } 01086 01087 01088 IOSTATEMENT 01089 get_iostatement_from_name(const char* name) 01090 { 01091 using namespace ir_a2b; 01092 return (IOSTATEMENT)MapStrToEnum<EnumToStr_t, IostatementToNameTbl, 01093 IOSTATEMENT_LAST+1>("IostatementToNameTbl", 01094 name); 01095 } 01096 01097 01098 const char * 01099 get_ioitem_name ( IOITEM opcode ) 01100 { 01101 using namespace ir_a2b; 01102 return MapEnumToStr<EnumToStr_t, IoitemToNameTbl, 01103 IOITEM_LAST+1>("IoitemToNameTbl", (INT)opcode); 01104 } 01105 01106 01107 IOITEM 01108 get_ioitem_from_name(const char* name) 01109 { 01110 using namespace ir_a2b; 01111 return (IOITEM)MapStrToEnum<EnumToStr_t, IoitemToNameTbl, 01112 IOITEM_LAST+1>("IoitemToNameTbl", name); 01113 } 01114 01115 01116 const char * 01117 get_iolibrary_name( IOLIB lib) 01118 { 01119 switch (lib) { 01120 case IOLIB_UNSPECIFIED: 01121 return ("unspec"); 01122 case IOLIB_MIPS: 01123 return ("mips"); 01124 case IOLIB_CRAY: 01125 return ("cray"); 01126 default: 01127 return ("unknown"); 01128 } 01129 }