osprey/kgccfe/gnu/f/target.h File Reference

#include "tree.h"
#include "bad.h"
#include "info.h"
#include "lex.h"
#include "malloc.h"

Include dependency graph for target.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Types
type	_ffetarget_complex_1_
type	_ffetarget_complex_2_
type	_ffetarget_char_1_
type	_ffetarget_hollerith_
Defines
#define	FFETARGET_charactersizeNONE   (-1)
#define	FFETARGET_charactersizeMAXIMUM   2147483647
#define	FFETARGET_defaultIS_90   0
#define	FFETARGET_defaultIS_AUTOMATIC   1
#define	FFETARGET_defaultIS_BACKSLASH   1
#define	FFETARGET_defaultIS_INIT_LOCAL_ZERO   0
#define	FFETARGET_defaultIS_DOLLAR_OK   0
#define	FFETARGET_defaultIS_F2C   1
#define	FFETARGET_defaultIS_F2C_LIBRARY   1
#define	FFETARGET_defaultIS_FREE_FORM   0
#define	FFETARGET_defaultIS_PEDANTIC   0
#define	FFETARGET_defaultCASE_INTRIN   FFE_caseLOWER
#define	FFETARGET_defaultCASE_MATCH   FFE_caseLOWER
#define	FFETARGET_defaultCASE_SOURCE   FFE_caseLOWER
#define	FFETARGET_defaultCASE_SYMBOL   FFE_caseNONE
#define	FFETARGET_defaultFIXED_LINE_LENGTH   72
#define	FFETARGET_defaultEXTERNAL_UNDERSCORED   1
#define	FFETARGET_defaultUNDERSCORED_EXTERNAL_UNDERSCORED   1
#define	FFETARGET_isENFORCED_MAIN   1
#define	FFETARGET_nameENFORCED_MAIN_NAME   "MAIN__"
#define	FFETARGET_nameUNNAMED_MAIN   "MAIN__"
#define	FFETARGET_nameUNNAMED_BLOCK_DATA   "_BLOCK_DATA__"
#define	FFETARGET_nameBLANK_COMMON   "_BLNK__"
#define	FFETARGET_integerSMALLEST_POSITIVE   0
#define	FFETARGET_integerLARGEST_POSITIVE   2147483647
#define	FFETARGET_integerBIG_MAGICAL   020000000000
#define	FFETARGET_integerALMOST_BIG_MAGICAL   214748364
#define	FFETARGET_integerALMOST_BIG_OVERFLOW_BINARY   0x80000000
#define	FFETARGET_integerALMOST_BIG_OVERFLOW_HEX   0x10000000
#define	FFETARGET_integerALMOST_BIG_OVERFLOW_OCTAL   0x20000000
#define	FFETARGET_integerFINISH_BIG_MAGICAL   8
#define	FFETARGET_integerFINISH_BIG_OVERFLOW_BINARY   0
#define	FFETARGET_integerFINISH_BIG_OVERFLOW_HEX   0
#define	FFETARGET_integerFINISH_BIG_OVERFLOW_OCTAL   0
#define	FFETARGET_offsetNONE   0
#define	FFETARGET_okINTEGER1   1
#define	FFETARGET_okINTEGER2   1
#define	FFETARGET_okINTEGER3   1
#define	FFETARGET_okINTEGER4   1
#define	FFETARGET_okLOGICAL1   1
#define	FFETARGET_okLOGICAL2   1
#define	FFETARGET_okLOGICAL3   1
#define	FFETARGET_okLOGICAL4   1
#define	FFETARGET_okREAL1   1
#define	FFETARGET_okREAL2   1
#define	FFETARGET_okREAL3   0
#define	FFETARGET_okREALQUAD   FFETARGET_okREAL3
#define	FFETARGET_okCOMPLEX1   1
#define	FFETARGET_okCOMPLEX2   1
#define	FFETARGET_okCOMPLEX3   0
#define	FFETARGET_okCOMPLEXDOUBLE   FFETARGET_okCOMPLEX2
#define	FFETARGET_okCOMPLEXQUAD   FFETARGET_okCOMPLEX3
#define	FFETARGET_okCHARACTER1   1
#define	FFETARGET_f2cTYUNKNOWN   0
#define	FFETARGET_f2cTYADDR   1
#define	FFETARGET_f2cTYSHORT   2
#define	FFETARGET_f2cTYLONG   3
#define	FFETARGET_f2cTYREAL   4
#define	FFETARGET_f2cTYDREAL   5
#define	FFETARGET_f2cTYCOMPLEX   6
#define	FFETARGET_f2cTYDCOMPLEX   7
#define	FFETARGET_f2cTYLOGICAL   8
#define	FFETARGET_f2cTYCHAR   9
#define	FFETARGET_f2cTYSUBR   10
#define	FFETARGET_f2cTYINT1   11
#define	FFETARGET_f2cTYLOGICAL1   12
#define	FFETARGET_f2cTYLOGICAL2   13
#define	FFETARGET_f2cTYQUAD   14
#define	FFETARGET_32bit_longs
#define	ffetargetAlign_f   ""
#define	ffetargetCharacterSize_f   "l"
#define	ffetargetHollerithSize_f   "l"
#define	ffetargetOffset_f   "ll"
#define	ffetargetInteger1_f   "l"
#define	ffetargetInteger2_f   ""
#define	ffetargetInteger3_f   ""
#define	ffetargetInteger4_f   "ll"
#define	ffetargetLogical1_f   "l"
#define	ffetargetLogical2_f   ""
#define	ffetargetLogical3_f   ""
#define	ffetargetLogical4_f   "ll"
#define	ffetargetReal1_f   ""
#define	ffetargetReal2_f   ""
#define	ffetargetIntegerDefault_f   ffetargetInteger1_f
#define	ffetargetLogicalDefault_f   ffetargetLogical1_f
#define	ffetargetRealDefault_f   ffetargetReal1_f
#define	ffetargetRealDouble_f   ffetargetReal2_f
#define	FFETARGET_REAL_VALUE_FROM_INT_(resr, lf, kt)
#define	ffetarget_add_complex1(res, l, r)
#define	ffetarget_add_complex2(res, l, r)
#define	ffetarget_add_integer1(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_add_integer2(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_add_integer3(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_add_integer4(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_add_real1(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_add_real2(res, l, r)   (*(res) = (l) + (r), FFEBAD)
#define	ffetarget_aggregate_ptr_memcpy(dbt, dkt, sbt, skt)   ((ffetargetCopyfunc) ffetarget_memcpy_)
#define	ffetarget_and_integer1(res, l, r)   (*(res) = (l) & (r), FFEBAD)
#define	ffetarget_and_integer2(res, l, r)   (*(res) = (l) & (r), FFEBAD)
#define	ffetarget_and_integer3(res, l, r)   (*(res) = (l) & (r), FFEBAD)
#define	ffetarget_and_integer4(res, l, r)   (*(res) = (l) & (r), FFEBAD)
#define	ffetarget_and_logical1(res, l, r)   (*(res) = (l) && (r), FFEBAD)
#define	ffetarget_and_logical2(res, l, r)   (*(res) = (l) && (r), FFEBAD)
#define	ffetarget_and_logical3(res, l, r)   (*(res) = (l) && (r), FFEBAD)
#define	ffetarget_and_logical4(res, l, r)   (*(res) = (l) && (r), FFEBAD)
#define	ffetarget_binarymil(v, t)   ffetarget_typeless_binary (v, t)
#define	ffetarget_binaryvxt(v, t)   ffetarget_typeless_binary (v, t)
#define	ffetarget_cmp_integer1(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_integer2(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_integer3(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_integer4(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_logical1(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_logical2(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_logical3(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_logical4(l, r)   ((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))
#define	ffetarget_cmp_real1(l, r)   memcmp (&(l), &(r), sizeof(l))
#define	ffetarget_cmp_real2(l, r)   memcmp (&(l), &(r), sizeof(l))
#define	ffetarget_cmp_real3(l, r)   memcmp (&(l), &(r), sizeof(l))
#define	ffetarget_cmp_typeless(l, r)   memcmp (&(l), &(r), sizeof ((l)))
#define	ffetarget_convert_character1_integer1(res, res_size, l, pool)   ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
#define	ffetarget_convert_character1_integer2(res, res_size, l, pool)   ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
#define	ffetarget_convert_character1_integer3(res, res_size, l, pool)   ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
#define	ffetarget_convert_character1_logical1(res, res_size, l, pool)   ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
#define	ffetarget_convert_character1_logical2(res, res_size, l, pool)   ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
#define	ffetarget_convert_character1_logical3(res, res_size, l, pool)   ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
#define	ffetarget_convert_complex1_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex1_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex1_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex1_complex2(res, l)   ((res)->real = (l).real, (res)->imaginary = (l).imaginary, FFEBAD)
#define	ffetarget_convert_complex1_integer(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_complex1_integer1   ffetarget_convert_complex1_integer
#define	ffetarget_convert_complex1_integer2   ffetarget_convert_complex1_integer
#define	ffetarget_convert_complex1_integer3   ffetarget_convert_complex1_integer
#define	ffetarget_convert_complex1_integer4   ffetarget_convert_complex1_integer
#define	ffetarget_convert_complex1_real1(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_complex1_real2(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_complex2_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex2_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex2_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_complex2_complex1(res, l)   ((res)->real = (l).real, (res)->imaginary = (l).imaginary, FFEBAD)
#define	ffetarget_convert_complex2_integer(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_complex2_integer1   ffetarget_convert_complex2_integer
#define	ffetarget_convert_complex2_integer2   ffetarget_convert_complex2_integer
#define	ffetarget_convert_complex2_integer3   ffetarget_convert_complex2_integer
#define	ffetarget_convert_complex2_integer4   ffetarget_convert_complex2_integer
#define	ffetarget_convert_complex2_real1(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_complex2_real2(res, l)   ((res)->real = (l), (res)->imaginary = 0, FFEBAD)
#define	ffetarget_convert_integer2_character1(res, l)   ffetarget_convert_integer1_character1(res,l)
#define	ffetarget_convert_integer2_complex1(res, l)   ffetarget_convert_integer1_complex1(res,l)
#define	ffetarget_convert_integer2_complex2(res, l)   ffetarget_convert_integer1_complex2(res,l)
#define	ffetarget_convert_integer2_hollerith(res, l)   ffetarget_convert_integer1_hollerith(res,l)
#define	ffetarget_convert_integer2_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer2_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer2_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer2_logical1(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer2_logical2(res, l)   ffetarget_convert_integer2_logical1(res,l)
#define	ffetarget_convert_integer2_logical3(res, l)   ffetarget_convert_integer2_logical1(res,l)
#define	ffetarget_convert_integer2_logical4(res, l)   ffetarget_convert_integer2_logical1(res,l)
#define	ffetarget_convert_integer2_real1(res, l)   ffetarget_convert_integer1_real1(res,l)
#define	ffetarget_convert_integer2_real2(res, l)   ffetarget_convert_integer1_real2(res,l)
#define	ffetarget_convert_integer2_typeless(res, l)   ffetarget_convert_integer1_typeless(res,l)
#define	ffetarget_convert_integer3_character1(res, l)   ffetarget_convert_integer1_character1(res,l)
#define	ffetarget_convert_integer3_complex1(res, l)   ffetarget_convert_integer1_complex1(res,l)
#define	ffetarget_convert_integer3_complex2(res, l)   ffetarget_convert_integer1_complex2(res,l)
#define	ffetarget_convert_integer3_hollerith(res, l)   ffetarget_convert_integer1_hollerith(res,l)
#define	ffetarget_convert_integer3_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer3_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer3_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer3_logical1(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer3_logical2(res, l)   ffetarget_convert_integer3_logical1(res,l)
#define	ffetarget_convert_integer3_logical3(res, l)   ffetarget_convert_integer3_logical1(res,l)
#define	ffetarget_convert_integer3_logical4(res, l)   ffetarget_convert_integer3_logical1(res,l)
#define	ffetarget_convert_integer3_real1(res, l)   ffetarget_convert_integer1_real1(res,l)
#define	ffetarget_convert_integer3_real2(res, l)   ffetarget_convert_integer1_real2(res,l)
#define	ffetarget_convert_integer3_typeless(res, l)   ffetarget_convert_integer1_typeless(res,l)
#define	ffetarget_convert_integer4_character1(res, l)   ffetarget_convert_integer1_character1(res,l)
#define	ffetarget_convert_integer4_complex1(res, l)   ffetarget_convert_integer1_complex1(res,l)
#define	ffetarget_convert_integer4_complex2(res, l)   ffetarget_convert_integer1_complex2(res,l)
#define	ffetarget_convert_integer4_hollerith(res, l)   ffetarget_convert_integer1_hollerith(res,l)
#define	ffetarget_convert_integer4_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer4_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer4_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer4_logical1(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer4_logical2(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer4_logical3(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer4_logical4(res, l)   ffetarget_convert_integer1_logical1(res,l)
#define	ffetarget_convert_integer4_real1(res, l)   ffetarget_convert_integer1_real1(res,l)
#define	ffetarget_convert_integer4_real2(res, l)   ffetarget_convert_integer1_real2(res,l)
#define	ffetarget_convert_integer4_typeless(res, l)   ffetarget_convert_integer1_typeless(res,l)
#define	ffetarget_convert_logical1_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical1_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical1_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical1_logical2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_logical3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_logical4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical1_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical2_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical2_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical2_logical1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_logical3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_logical4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical2_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical3_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical3_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical3_logical1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_logical2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_logical4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical3_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical4_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical4_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_logical4_logical1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_logical2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_logical3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_logical4_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_integer1_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_integer1_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_integer1_integer2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_integer3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_integer4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_logical1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_logical2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_logical3(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_logical4(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_real1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_real2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_integer1_complex1(res, l)   (*(res) = (l).real, FFEBAD)
#define	ffetarget_convert_integer1_complex2(res, l)   (*(res) = (l).real, FFEBAD)
#define	ffetarget_convert_real1_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real1_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real1_integer2(res, l)   ffetarget_convert_real1_integer1(res,l)
#define	ffetarget_convert_real1_integer3(res, l)   ffetarget_convert_real1_integer1(res,l)
#define	ffetarget_convert_real1_integer4(res, l)   ffetarget_convert_real1_integer1(res,l)
#define	ffetarget_convert_real1_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real1_complex1(res, l)   (*(res) = (l).real, FFEBAD)
#define	ffetarget_convert_real1_complex2(res, l)   ffetarget_convert_real1_real2 ((res), (l).real)
#define	ffetarget_convert_real1_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_real1_real2(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_real2_character1(res, l)   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real2_hollerith(res, l)   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real2_integer2(res, l)   ffetarget_convert_real2_integer1(res,l)
#define	ffetarget_convert_real2_integer3(res, l)   ffetarget_convert_real2_integer1(res,l)
#define	ffetarget_convert_real2_integer4(res, l)   ffetarget_convert_real2_integer1(res,l)
#define	ffetarget_convert_real2_typeless(res, l)   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
#define	ffetarget_convert_real2_complex1(res, l)   ffetarget_convert_real2_real1 ((res), (l).real)
#define	ffetarget_convert_real2_complex2(res, l)   (*(res) = (l).real, FFEBAD)
#define	ffetarget_convert_real2_integer1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_convert_real2_real1(res, l)   (*(res) = (l), FFEBAD)
#define	ffetarget_divide_integer1(res, l, r)
#define	ffetarget_divide_integer2(res, l, r)   ffetarget_divide_integer1(res,l,r)
#define	ffetarget_divide_integer3(res, l, r)   ffetarget_divide_integer1(res,l,r)
#define	ffetarget_divide_integer4(res, l, r)   ffetarget_divide_integer1(res,l,r)
#define	ffetarget_divide_real1(res, l, r)
#define	ffetarget_divide_real2(res, l, r)
#define	ffetarget_eq_complex1(res, l, r)
#define	ffetarget_eq_complex2(res, l, r)
#define	ffetarget_eq_integer1(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eq_integer2(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eq_integer3(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eq_integer4(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eq_real1(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eq_real2(res, l, r)   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_eqv_integer1(res, l, r)   (*(res) = (l) ^ ~(r), FFEBAD)
#define	ffetarget_eqv_integer2(res, l, r)   (*(res) = (l) ^ ~(r), FFEBAD)
#define	ffetarget_eqv_integer3(res, l, r)   (*(res) = (l) ^ ~(r), FFEBAD)
#define	ffetarget_eqv_integer4(res, l, r)   (*(res) = (l) ^ ~(r), FFEBAD)
#define	ffetarget_eqv_logical1(res, l, r)   (*(res) = (l) == (r), FFEBAD)
#define	ffetarget_eqv_logical2(res, l, r)   (*(res) = (l) == (r), FFEBAD)
#define	ffetarget_eqv_logical3(res, l, r)   (*(res) = (l) == (r), FFEBAD)
#define	ffetarget_eqv_logical4(res, l, r)   (*(res) = (l) == (r), FFEBAD)
#define	ffetarget_ge_integer1(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ge_integer2(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ge_integer3(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ge_integer4(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ge_real1(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ge_real2(res, l, r)   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_integer1(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_integer2(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_integer3(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_integer4(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_real1(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_gt_real2(res, l, r)   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_hexxmil(v, t)   ffetarget_typeless_hex (v, t)
#define	ffetarget_hexxvxt(v, t)   ffetarget_typeless_hex (v, t)
#define	ffetarget_hexzmil(v, t)   ffetarget_typeless_hex (v, t)
#define	ffetarget_hexzvxt(v, t)   ffetarget_typeless_hex (v, t)
#define	ffetarget_init_0()
#define	ffetarget_init_1()
#define	ffetarget_init_2()
#define	ffetarget_init_3()
#define	ffetarget_init_4()
#define	ffetarget_integerdefault_is_magical(i)   (((unsigned long int) i) == FFETARGET_integerBIG_MAGICAL)
#define	ffetarget_iszero_real1(l)   ((l) == 0.)
#define	ffetarget_iszero_real2(l)   ((l) == 0.)
#define	ffetarget_iszero_typeless(l)   ((l) == 0)
#define	ffetarget_logical1(v, truth)   (*(v) = truth ? 1 : 0)
#define	ffetarget_le_integer1(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_le_integer2(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_le_integer3(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_le_integer4(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_le_real1(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_le_real2(res, l, r)   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_integer1(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_integer2(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_integer3(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_integer4(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_real1(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_lt_real2(res, l, r)   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_length_character1(c)   ((c).length)
#define	ffetarget_length_characterdefault   ffetarget_length_character1
#define	ffetarget_make_real1(res, lr)   (*(res) = (lr))
#define	ffetarget_make_real2(res, lr)   (*(res) = (lr))
#define	ffetarget_multiply_integer1(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_multiply_integer2(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_multiply_integer3(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_multiply_integer4(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_multiply_real1(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_multiply_real2(res, l, r)   (*(res) = (l) * (r), FFEBAD)
#define	ffetarget_ne_complex1(res, l, r)
#define	ffetarget_ne_complex2(res, l, r)
#define	ffetarget_ne_integer1(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ne_integer2(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ne_integer3(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ne_integer4(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ne_real1(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_ne_real2(res, l, r)   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
#define	ffetarget_neqv_integer1(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_neqv_integer2(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_neqv_integer3(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_neqv_integer4(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_neqv_logical1(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_neqv_logical2(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_neqv_logical3(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_neqv_logical4(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_not_integer1(res, l)   (*(res) = ~(l), FFEBAD)
#define	ffetarget_not_integer2(res, l)   (*(res) = ~(l), FFEBAD)
#define	ffetarget_not_integer3(res, l)   (*(res) = ~(l), FFEBAD)
#define	ffetarget_not_integer4(res, l)   (*(res) = ~(l), FFEBAD)
#define	ffetarget_not_logical1(res, l)   (*(res) = !(l), FFEBAD)
#define	ffetarget_not_logical2(res, l)   (*(res) = !(l), FFEBAD)
#define	ffetarget_not_logical3(res, l)   (*(res) = !(l), FFEBAD)
#define	ffetarget_not_logical4(res, l)   (*(res) = !(l), FFEBAD)
#define	ffetarget_octalmil(v, t)   ffetarget_typeless_octal (v, t)
#define	ffetarget_octalvxt(v, t)   ffetarget_typeless_octal (v, t)
#define	ffetarget_offset(res, l)   (*(res) = (l), TRUE)
#define	ffetarget_offset_add(res, l, r)   (*(res) = (l) + (r), TRUE)
#define	ffetarget_offset_charsize(res, l, u)   (*(res) = (l) * (u), TRUE)
#define	ffetarget_offset_multiply(res, l, r)   (*(res) = (l) * (r), TRUE)
#define	ffetarget_offset_overflow(text)   ((void) 0)
#define	ffetarget_or_integer1(res, l, r)   (*(res) = (l) | (r), FFEBAD)
#define	ffetarget_or_integer2(res, l, r)   (*(res) = (l) | (r), FFEBAD)
#define	ffetarget_or_integer3(res, l, r)   (*(res) = (l) | (r), FFEBAD)
#define	ffetarget_or_integer4(res, l, r)   (*(res) = (l) | (r), FFEBAD)
#define	ffetarget_or_logical1(res, l, r)   (*(res) = (l) || (r), FFEBAD)
#define	ffetarget_or_logical2(res, l, r)   (*(res) = (l) || (r), FFEBAD)
#define	ffetarget_or_logical3(res, l, r)   (*(res) = (l) || (r), FFEBAD)
#define	ffetarget_or_logical4(res, l, r)   (*(res) = (l) || (r), FFEBAD)
#define	ffetarget_print_binarymil(f, v)   ffetarget_print_binary (f, v)
#define	ffetarget_print_binaryvxt(f, v)   ffetarget_print_binary (f, v)
#define	ffetarget_print_hexxmil(f, v)   ffetarget_print_hex (f, v)
#define	ffetarget_print_hexxvxt(f, v)   ffetarget_print_hex (f, v)
#define	ffetarget_print_hexzmil(f, v)   ffetarget_print_hex (f, v)
#define	ffetarget_print_hexzvxt(f, v)   ffetarget_print_hex (f, v)
#define	ffetarget_print_integer1(f, v)   fprintf ((f), "%" ffetargetInteger1_f "d", (v))
#define	ffetarget_print_integer2(f, v)   fprintf ((f), "%" ffetargetInteger2_f "d", (v))
#define	ffetarget_print_integer3(f, v)   fprintf ((f), "%" ffetargetInteger3_f "d", (v))
#define	ffetarget_print_integer4(f, v)   fprintf ((f), "%" ffetargetInteger4_f "d", (v))
#define	ffetarget_print_logical1(f, v)   fprintf ((f), "%" ffetargetLogical1_f "d", (v))
#define	ffetarget_print_logical2(f, v)   fprintf ((f), "%" ffetargetLogical2_f "d", (v))
#define	ffetarget_print_logical3(f, v)   fprintf ((f), "%" ffetargetLogical3_f "d", (v))
#define	ffetarget_print_logical4(f, v)   fprintf ((f), "%" ffetargetLogical4_f "d", (v))
#define	ffetarget_print_octalmil(f, v)   ffetarget_print_octal(f,v)
#define	ffetarget_print_octalvxt(f, v)   ffetarget_print_octal(f,v)
#define	ffetarget_print_real1(f, v)   fprintf ((f), "%" ffetargetReal1_f "g", (v))
#define	ffetarget_print_real2(f, v)   fprintf ((f), "%" ffetargetReal2_f "g", (v))
#define	ffetarget_real1_one(res)   (*(res) = (float) 1.)
#define	ffetarget_real2_one(res)   (*(res) = 1.)
#define	ffetarget_real1_two(res)   (*(res) = (float) 2.)
#define	ffetarget_real2_two(res)   (*(res) = 2.)
#define	ffetarget_real1_zero(res)   (*(res) = (float) 0.)
#define	ffetarget_real2_zero(res)   (*(res) = 0.)
#define	ffetarget_size_typeless_binary(t)   ((ffetarget_num_digits_(t) + 7) / 8)
#define	ffetarget_size_typeless_octal(t)   ((ffetarget_num_digits_(t) * 3 + 7) / 8)
#define	ffetarget_size_typeless_hex(t)   ((ffetarget_num_digits_(t) + 1) / 2)
#define	ffetarget_subtract_complex1(res, l, r)
#define	ffetarget_subtract_complex2(res, l, r)
#define	ffetarget_subtract_integer1(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_subtract_integer2(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_subtract_integer3(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_subtract_integer4(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_subtract_real1(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_subtract_real2(res, l, r)   (*(res) = (l) - (r), FFEBAD)
#define	ffetarget_terminate_0()
#define	ffetarget_terminate_1()
#define	ffetarget_terminate_2()
#define	ffetarget_terminate_3()
#define	ffetarget_terminate_4()
#define	ffetarget_text_character1(c)   ((c).text)
#define	ffetarget_text_characterdefault   ffetarget_text_character1
#define	ffetarget_uminus_complex1(res, l)   ((res)->real = -(l).real, (res)->imaginary = -(l).imaginary, FFEBAD)
#define	ffetarget_uminus_complex2(res, l)   ((res)->real = -(l).real, (res)->imaginary = -(l).imaginary, FFEBAD)
#define	ffetarget_uminus_integer1(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_uminus_integer2(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_uminus_integer3(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_uminus_integer4(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_uminus_real1(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_uminus_real2(res, l)   (*(res) = -(l), FFEBAD)
#define	ffetarget_value_real1
#define	ffetarget_value_real2
#define	ffetarget_xor_integer1(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_xor_integer2(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_xor_integer3(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_xor_integer4(res, l, r)   (*(res) = (l) ^ (r), FFEBAD)
#define	ffetarget_xor_logical1(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_xor_logical2(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_xor_logical3(res, l, r)   (*(res) = (l) != (r), FFEBAD)
#define	ffetarget_xor_logical4(res, l, r)   (*(res) = (l) != (r), FFEBAD)
Typedefs
typedef unsigned char	ffetargetAlign
typedef long	ffetargetCharacterSize
typedef void(*	ffetargetCopyfunc )(void *, void *, size_t)
typedef ffetargetCharacterSize	ffetargetHollerithSize
typedef long long	ffetargetOffset
typedef long int	ffetargetInteger1
typedef signed char	ffetargetInteger2
typedef short int	ffetargetInteger3
typedef long long int	ffetargetInteger4
typedef long int	ffetargetLogical1
typedef signed char	ffetargetLogical2
typedef short int	ffetargetLogical3
typedef long long int	ffetargetLogical4
typedef float	ffetargetReal1
typedef double	ffetargetReal2
typedef struct _ffetarget_complex_1_	ffetargetComplex1
typedef struct _ffetarget_complex_2_	ffetargetComplex2
typedef struct _ffetarget_char_1_	ffetargetCharacter1
typedef unsigned char	ffetargetCharacterUnit1
typedef unsigned long long int	ffetargetTypeless
typedef struct _ffetarget_hollerith_	ffetargetHollerith
typedef ffetargetCharacter1	ffetargetCharacterDefault
typedef ffetargetComplex1	ffetargetComplexDefault
typedef ffetargetComplex2	ffetargetComplexDouble
typedef ffetargetInteger1	ffetargetIntegerDefault
typedef ffetargetLogical1	ffetargetLogicalDefault
typedef ffetargetReal1	ffetargetRealDefault
typedef ffetargetReal2	ffetargetRealDouble
Functions/Subroutines
void	ffetarget_aggregate_info (ffeinfoBasictype *ebt, ffeinfoKindtype *ekt, ffetargetAlign *units, ffeinfoBasictype abt, ffeinfoKindtype akt)
ffetargetAlign	ffetarget_align (ffetargetAlign *updated_alignment, ffetargetAlign *updated_modulo, ffetargetOffset offset, ffetargetAlign alignment, ffetargetAlign modulo)
bool	ffetarget_character1 (ffetargetCharacter1 *val, ffelexToken character, mallocPool pool)
int	ffetarget_cmp_character1 (ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_concatenate_character1 (ffetargetCharacter1 *res, ffetargetCharacter1 l, ffetargetCharacter1 r, mallocPool pool, ffetargetCharacterSize *len)
ffebad	ffetarget_convert_character1_character1 (ffetargetCharacter1 *res, ffetargetCharacterSize res_size, ffetargetCharacter1 l, mallocPool pool)
ffebad	ffetarget_convert_character1_hollerith (ffetargetCharacter1 *res, ffetargetCharacterSize res_size, ffetargetHollerith l, mallocPool pool)
ffebad	ffetarget_convert_character1_integer4 (ffetargetCharacter1 *res, ffetargetCharacterSize res_size, ffetargetInteger4 l, mallocPool pool)
ffebad	ffetarget_convert_character1_logical4 (ffetargetCharacter1 *res, ffetargetCharacterSize res_size, ffetargetLogical4 l, mallocPool pool)
ffebad	ffetarget_convert_character1_typeless (ffetargetCharacter1 *res, ffetargetCharacterSize res_size, ffetargetTypeless l, mallocPool pool)
ffebad	ffetarget_eq_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_le_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_ge_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_gt_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_lt_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_ne_character1 (bool *res, ffetargetCharacter1 l, ffetargetCharacter1 r)
ffebad	ffetarget_substr_character1 (ffetargetCharacter1 *res, ffetargetCharacter1 l, ffetargetCharacterSize first, ffetargetCharacterSize last, mallocPool pool, ffetargetCharacterSize *len)
int	ffetarget_cmp_hollerith (ffetargetHollerith l, ffetargetHollerith r)
bool	ffetarget_hollerith (ffetargetHollerith *val, ffelexToken hollerith, mallocPool pool)
int	ffetarget_cmp_typeless (ffetargetTypeless l, ffetargetTypeless r)
ffebad	ffetarget_convert_any_character1_ (char *res, size_t size, ffetargetCharacter1 l)
ffebad	ffetarget_convert_any_hollerith_ (char *res, size_t size, ffetargetHollerith l)
ffebad	ffetarget_convert_any_typeless_ (char *res, size_t size, ffetargetTypeless l)
ffebad	ffetarget_divide_complex1 (ffetargetComplex1 *res, ffetargetComplex1 l, ffetargetComplex1 r)
ffebad	ffetarget_divide_complex2 (ffetargetComplex2 *res, ffetargetComplex2 l, ffetargetComplex2 r)
bool	ffetarget_integer1 (ffetargetInteger1 *val, ffelexToken integer)
bool	ffetarget_integer2 (ffetargetInteger2 *val, ffelexToken integer)
bool	ffetarget_integer3 (ffetargetInteger3 *val, ffelexToken integer)
bool	ffetarget_integer4 (ffetargetInteger4 *val, ffelexToken integer)
bool	ffetarget_integerbinary (ffetargetIntegerDefault *val, ffelexToken integer)
bool	ffetarget_integerhex (ffetargetIntegerDefault *val, ffelexToken integer)
bool	ffetarget_integeroctal (ffetargetIntegerDefault *val, ffelexToken integer)
void	ffetarget_integer_bad_magical (ffelexToken t)
void	ffetarget_integer_bad_magical_binary (ffelexToken integer, ffelexToken minus)
void	ffetarget_integer_bad_magical_precedence (ffelexToken integer, ffelexToken uminus, ffelexToken higher_op)
void	ffetarget_integer_bad_magical_precedence_binary (ffelexToken integer, ffelexToken minus, ffelexToken higher_op)
bool	ffetarget_iszero_character1 (ffetargetCharacter1 constant)
bool	ffetarget_iszero_hollerith (ffetargetHollerith constant)
void	ffetarget_layout (const char *error_text, ffetargetAlign *alignment, ffetargetAlign *modulo, ffetargetOffset *size, ffeinfoBasictype bt, ffeinfoKindtype kt, ffetargetCharacterSize charsize, ffetargetIntegerDefault num_elements)
ffebad	ffetarget_multiply_complex1 (ffetargetComplex1 *res, ffetargetComplex1 l, ffetargetComplex1 r)
ffebad	ffetarget_multiply_complex2 (ffetargetComplex2 *res, ffetargetComplex2 l, ffetargetComplex2 r)
ffebad	ffetarget_power_complexdefault_integerdefault (ffetargetComplexDefault *res, ffetargetComplexDefault l, ffetargetIntegerDefault r)
ffebad	ffetarget_power_complexdouble_integerdefault (ffetargetComplexDouble *res, ffetargetComplexDouble l, ffetargetIntegerDefault r)
ffebad	ffetarget_power_integerdefault_integerdefault (ffetargetIntegerDefault *res, ffetargetIntegerDefault l, ffetargetIntegerDefault r)
ffebad	ffetarget_power_realdefault_integerdefault (ffetargetRealDefault *res, ffetargetRealDefault l, ffetargetIntegerDefault r)
ffebad	ffetarget_power_realdouble_integerdefault (ffetargetRealDouble *res, ffetargetRealDouble l, ffetargetIntegerDefault r)
void	ffetarget_print_binary (FILE *f, ffetargetTypeless val)
void	ffetarget_print_character1 (FILE *f, ffetargetCharacter1 val)
void	ffetarget_print_hollerith (FILE *f, ffetargetHollerith val)
void	ffetarget_print_octal (FILE *f, ffetargetTypeless val)
void	ffetarget_print_hex (FILE *f, ffetargetTypeless val)
bool	ffetarget_real1 (ffetargetReal1 *value, ffelexToken integer, ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, ffelexToken exponent_sign, ffelexToken exponent_digits)
bool	ffetarget_real2 (ffetargetReal2 *value, ffelexToken integer, ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, ffelexToken exponent_sign, ffelexToken exponent_digits)
bool	ffetarget_typeless_binary (ffetargetTypeless *value, ffelexToken token)
bool	ffetarget_typeless_octal (ffetargetTypeless *value, ffelexToken token)
bool	ffetarget_typeless_hex (ffetargetTypeless *value, ffelexToken token)
void	ffetarget_verify_character1 (mallocPool pool, ffetargetCharacter1 val)
int	ffetarget_num_digits_ (ffelexToken t)
void *	ffetarget_memcpy_ (void *dst, void *src, size_t len)
Variables
char	ffetarget_string_ [40]
HOST_WIDE_INT	ffetarget_long_val_
HOST_WIDE_INT	ffetarget_long_junk_

---

Define Documentation

#define FFETARGET_32bit_longs

Definition at line 246 of file target.h.

#define ffetarget_add_complex1	(	res,
		l,
		r		)

Value:

((res)->real = (l).real + (r).real, \
   (res)->imaginary = (l).imaginary + (r).imaginary, FFEBAD)

Definition at line 899 of file target.h.

Referenced by ffeexpr_collapse_add().

#define ffetarget_add_complex2	(	res,
		l,
		r		)

Value:

((res)->real = (l).real + (r).real, \
   (res)->imaginary = (l).imaginary + (r).imaginary, FFEBAD)

Definition at line 902 of file target.h.

Referenced by ffeexpr_collapse_add().

#define ffetarget_add_integer1	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 906 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_add().

#define ffetarget_add_integer2	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 907 of file target.h.

Referenced by ffeexpr_collapse_add().

#define ffetarget_add_integer3	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 908 of file target.h.

Referenced by ffeexpr_collapse_add().

#define ffetarget_add_integer4	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 909 of file target.h.

Referenced by ffeexpr_collapse_add().

#define ffetarget_add_real1	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 926 of file target.h.

Referenced by ffeexpr_collapse_add(), ffetarget_divide_complex1(), ffetarget_multiply_complex1(), and ffetarget_power_complexdefault_integerdefault().

#define ffetarget_add_real2	(	res,
		l,
		r		)	(*(res) = (l) + (r), FFEBAD)

Definition at line 927 of file target.h.

Referenced by ffeexpr_collapse_add(), ffetarget_divide_complex2(), ffetarget_multiply_complex2(), and ffetarget_power_complexdouble_integerdefault().

#define ffetarget_aggregate_ptr_memcpy	(	dbt,
		dkt,
		sbt,
		skt		)	((ffetargetCopyfunc) ffetarget_memcpy_)

Definition at line 929 of file target.h.

Referenced by ffedata_gather_(), and ffedata_value_().

#define ffetarget_and_integer1	(	res,
		l,
		r		)	(*(res) = (l) & (r), FFEBAD)

Definition at line 931 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_and().

#define ffetarget_and_integer2	(	res,
		l,
		r		)	(*(res) = (l) & (r), FFEBAD)

Definition at line 932 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_integer3	(	res,
		l,
		r		)	(*(res) = (l) & (r), FFEBAD)

Definition at line 933 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_integer4	(	res,
		l,
		r		)	(*(res) = (l) & (r), FFEBAD)

Definition at line 934 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_logical1	(	res,
		l,
		r		)	(*(res) = (l) && (r), FFEBAD)

Definition at line 935 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_logical2	(	res,
		l,
		r		)	(*(res) = (l) && (r), FFEBAD)

Definition at line 936 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_logical3	(	res,
		l,
		r		)	(*(res) = (l) && (r), FFEBAD)

Definition at line 937 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_and_logical4	(	res,
		l,
		r		)	(*(res) = (l) && (r), FFEBAD)

Definition at line 938 of file target.h.

Referenced by ffeexpr_collapse_and().

#define ffetarget_binarymil	(	v,
		t		)	ffetarget_typeless_binary (v, t)

Definition at line 939 of file target.h.

Referenced by ffebld_constant_new_typeless_bm().

#define ffetarget_binaryvxt	(	v,
		t		)	ffetarget_typeless_binary (v, t)

Definition at line 940 of file target.h.

Referenced by ffebld_constant_new_typeless_bv().

#define FFETARGET_charactersizeMAXIMUM   2147483647

Definition at line 55 of file target.h.

#define FFETARGET_charactersizeNONE   (-1)

Definition at line 53 of file target.h.

Referenced by ffebld_size_max(), ffecom_arg_ptr_to_const_expr(), ffecom_arg_ptr_to_expr(), ffecom_call_(), ffecom_char_args_x_(), ffecom_char_enhance_arg_(), ffecom_concat_list_gather_(), ffecom_expand_let_stmt(), ffecom_expr_(), ffecom_expr_power_integer_(), ffecom_intrinsic_len_(), ffecom_let_char_(), ffecom_make_tempvar(), ffecom_prepare_expr_(), ffecom_prepare_let_char_(), ffecom_push_dummy_decls_(), ffedata_gather_(), ffedata_value_(), ffeequiv_offset_(), ffeexpr_cb_comma_c_(), ffeexpr_cb_comma_i_1_(), ffeexpr_cb_end_loc_(), ffeexpr_collapse_add(), ffeexpr_collapse_and(), ffeexpr_collapse_convert(), ffeexpr_collapse_divide(), ffeexpr_collapse_eq(), ffeexpr_collapse_eqv(), ffeexpr_collapse_ge(), ffeexpr_collapse_gt(), ffeexpr_collapse_le(), ffeexpr_collapse_lt(), ffeexpr_collapse_multiply(), ffeexpr_collapse_ne(), ffeexpr_collapse_neqv(), ffeexpr_collapse_not(), ffeexpr_collapse_or(), ffeexpr_collapse_power(), ffeexpr_collapse_subtract(), ffeexpr_collapse_uminus(), ffeexpr_collapse_xor(), ffeexpr_convert(), ffeexpr_finished_(), ffeexpr_finished_ambig_(), ffeexpr_make_float_const_(), ffeexpr_reduced_bool1_(), ffeexpr_reduced_bool2_(), ffeexpr_reduced_concatenate_(), ffeexpr_reduced_eqop2_(), ffeexpr_reduced_math1_(), ffeexpr_reduced_math2_(), ffeexpr_reduced_power_(), ffeexpr_reduced_relop2_(), ffeexpr_reduced_ugly1_(), ffeexpr_reduced_ugly1log_(), ffeexpr_reduced_ugly2_(), ffeexpr_reduced_ugly2log_(), ffeexpr_sym_impdoitem_(), ffeexpr_sym_lhs_call_(), ffeexpr_token_elements_(), ffeexpr_token_end_period_(), ffeexpr_token_first_rhs_3_(), ffeexpr_token_name_apos_name_(), ffeexpr_token_name_rhs_(), ffeexpr_token_number_exponent_(), ffeexpr_token_number_period_(), ffeexpr_token_quote_(), ffeexpr_token_substring_(), ffeexpr_token_substring_1_(), ffeglobal_new_progunit_(), ffeglobal_ref_progunit_(), ffeimplic_init_2(), ffeimplic_none(), ffeintrin_check_(), ffeintrin_fulfill_generic(), ffeintrin_fulfill_specific(), ffestb_R5282_(), ffestc_establish_declinfo_(), ffestc_establish_declstmt_(), ffestc_promote_dummy_(), ffestc_promote_sfdummy_(), ffestc_R1102(), ffestc_R1111(), ffestc_R1219(), ffestc_R1223(), ffestc_R1226(), ffestc_R1229_start(), ffestc_R501_item(), ffestc_R537_item(), ffestc_R542_item_nitem(), ffestc_R542_item_nlist(), ffestc_R547_item_object(), ffestc_R803(), ffestc_R809(), ffestc_R819A(), ffestc_R819B(), ffestc_R820A(), ffestc_R820B(), ffestc_shriek_begin_program_(), ffeste_begin_iterdo_(), ffeste_io_impdo_(), ffeste_R803(), ffeste_R804(), ffeste_R807(), ffeste_R819B(), ffeste_R904(), ffeste_R907(), ffeste_R909_start(), ffeste_R910_start(), ffeste_R923A(), ffeste_subr_beru_(), ffestt_dimlist_as_expr(), and ffestu_sym_exec_transition().

#define ffetarget_cmp_integer1	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 941 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_integer1_val().

#define ffetarget_cmp_integer2	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 942 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_integer2_val().

#define ffetarget_cmp_integer3	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 943 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_integer3_val().

#define ffetarget_cmp_integer4	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 944 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_integer4_val().

#define ffetarget_cmp_logical1	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 945 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_logical1_val().

#define ffetarget_cmp_logical2	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 946 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_logical2_val().

#define ffetarget_cmp_logical3	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 947 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_logical3_val().

#define ffetarget_cmp_logical4	(	l,
		r		)	((l) == (r) ? 0 : ((l) < (r) ? -1 : 1))

Definition at line 948 of file target.h.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_logical4_val().

#define ffetarget_cmp_real1	(	l,
		r		)	memcmp (&(l), &(r), sizeof(l))

Definition at line 949 of file target.h.

Referenced by ffebld_constant_cmp(), ffebld_constant_new_complex1_val(), and ffebld_constant_new_real1_val().

#define ffetarget_cmp_real2	(	l,
		r		)	memcmp (&(l), &(r), sizeof(l))

Definition at line 950 of file target.h.

Referenced by ffebld_constant_cmp(), ffebld_constant_new_complex2_val(), and ffebld_constant_new_real2_val().

#define ffetarget_cmp_real3	(	l,
		r		)	memcmp (&(l), &(r), sizeof(l))

Definition at line 951 of file target.h.

Referenced by ffebld_constant_cmp().

#define ffetarget_cmp_typeless	(	l,
		r		)	memcmp (&(l), &(r), sizeof ((l)))

Definition at line 952 of file target.h.

Referenced by ffebld_constant_new_typeless_val().

#define ffetarget_convert_character1_integer1	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)

Definition at line 954 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_character1_integer2	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)

Definition at line 956 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_character1_integer3	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)

Definition at line 958 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_character1_logical1	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)

Definition at line 960 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_character1_logical2	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)

Definition at line 962 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_character1_logical3	(	res,
		res_size,
		l,
		pool		)	ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)

Definition at line 964 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 966 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_complex2	(	res,
		l		)	((res)->real = (l).real, (res)->imaginary = (l).imaginary, FFEBAD)

Definition at line 981 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 968 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_integer	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 994 of file target.h.

#define ffetarget_convert_complex1_integer1   ffetarget_convert_complex1_integer

Definition at line 997 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_integer2   ffetarget_convert_complex1_integer

Definition at line 998 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_integer3   ffetarget_convert_complex1_integer

Definition at line 999 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_integer4   ffetarget_convert_complex1_integer

Definition at line 1003 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_real1	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 1017 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_real2	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 1019 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex1_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 970 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1022 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_complex1	(	res,
		l		)	((res)->real = (l).real, (res)->imaginary = (l).imaginary, FFEBAD)

Definition at line 1037 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1024 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_integer	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 1050 of file target.h.

#define ffetarget_convert_complex2_integer1   ffetarget_convert_complex2_integer

Definition at line 1053 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_integer2   ffetarget_convert_complex2_integer

Definition at line 1054 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_integer3   ffetarget_convert_complex2_integer

Definition at line 1055 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_integer4   ffetarget_convert_complex2_integer

Definition at line 1059 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_real1	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 1073 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_real2	(	res,
		l		)	((res)->real = (l), (res)->imaginary = 0, FFEBAD)

Definition at line 1075 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_complex2_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1026 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1215 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_complex1	(	res,
		l		)	(*(res) = (l).real, FFEBAD)

Definition at line 1256 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_complex2	(	res,
		l		)	(*(res) = (l).real, FFEBAD)

Definition at line 1257 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1217 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1221 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1222 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1223 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_logical1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1224 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_logical2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1225 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_logical3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1226 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_logical4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1227 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_real1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1254 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_real2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1255 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer1_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1219 of file target.h.

Referenced by ffecom_constantunion(), and ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_character1	(	res,
		l		)	ffetarget_convert_integer1_character1(res,l)

Definition at line 1078 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_complex1	(	res,
		l		)	ffetarget_convert_integer1_complex1(res,l)

Definition at line 1080 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_complex2	(	res,
		l		)	ffetarget_convert_integer1_complex2(res,l)

Definition at line 1082 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_hollerith	(	res,
		l		)	ffetarget_convert_integer1_hollerith(res,l)

Definition at line 1084 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1086 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1087 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1088 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_logical1	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1089 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_logical2	(	res,
		l		)	ffetarget_convert_integer2_logical1(res,l)

Definition at line 1091 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_logical3	(	res,
		l		)	ffetarget_convert_integer2_logical1(res,l)

Definition at line 1093 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_logical4	(	res,
		l		)	ffetarget_convert_integer2_logical1(res,l)

Definition at line 1095 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_real1	(	res,
		l		)	ffetarget_convert_integer1_real1(res,l)

Definition at line 1097 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_real2	(	res,
		l		)	ffetarget_convert_integer1_real2(res,l)

Definition at line 1099 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer2_typeless	(	res,
		l		)	ffetarget_convert_integer1_typeless(res,l)

Definition at line 1101 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_character1	(	res,
		l		)	ffetarget_convert_integer1_character1(res,l)

Definition at line 1103 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_complex1	(	res,
		l		)	ffetarget_convert_integer1_complex1(res,l)

Definition at line 1105 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_complex2	(	res,
		l		)	ffetarget_convert_integer1_complex2(res,l)

Definition at line 1107 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_hollerith	(	res,
		l		)	ffetarget_convert_integer1_hollerith(res,l)

Definition at line 1109 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1111 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1112 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1113 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_logical1	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1114 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_logical2	(	res,
		l		)	ffetarget_convert_integer3_logical1(res,l)

Definition at line 1116 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_logical3	(	res,
		l		)	ffetarget_convert_integer3_logical1(res,l)

Definition at line 1118 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_logical4	(	res,
		l		)	ffetarget_convert_integer3_logical1(res,l)

Definition at line 1120 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_real1	(	res,
		l		)	ffetarget_convert_integer1_real1(res,l)

Definition at line 1122 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_real2	(	res,
		l		)	ffetarget_convert_integer1_real2(res,l)

Definition at line 1124 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer3_typeless	(	res,
		l		)	ffetarget_convert_integer1_typeless(res,l)

Definition at line 1126 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_character1	(	res,
		l		)	ffetarget_convert_integer1_character1(res,l)

Definition at line 1128 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_complex1	(	res,
		l		)	ffetarget_convert_integer1_complex1(res,l)

Definition at line 1134 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_complex2	(	res,
		l		)	ffetarget_convert_integer1_complex2(res,l)

Definition at line 1136 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_hollerith	(	res,
		l		)	ffetarget_convert_integer1_hollerith(res,l)

Definition at line 1139 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1141 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1142 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1143 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_logical1	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1144 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_logical2	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1146 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_logical3	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1148 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_logical4	(	res,
		l		)	ffetarget_convert_integer1_logical1(res,l)

Definition at line 1150 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_real1	(	res,
		l		)	ffetarget_convert_integer1_real1(res,l)

Definition at line 1156 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_real2	(	res,
		l		)	ffetarget_convert_integer1_real2(res,l)

Definition at line 1158 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_integer4_typeless	(	res,
		l		)	ffetarget_convert_integer1_typeless(res,l)

Definition at line 1161 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1163 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1165 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1172 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1173 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1174 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1175 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_logical2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1169 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_logical3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1170 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_logical4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1171 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical1_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1167 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1176 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1178 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1185 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1186 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1187 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1188 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_logical1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1182 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_logical3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1183 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_logical4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1184 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical2_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1180 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1189 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1191 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1198 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1199 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1200 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1201 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_logical1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1195 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_logical2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1196 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_logical4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1197 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical3_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1193 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1202 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1204 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1211 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_integer2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1212 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_integer3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1213 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_integer4	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1214 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_logical1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1208 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_logical2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1209 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_logical3	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1210 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_logical4_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1206 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1259 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_complex1	(	res,
		l		)	(*(res) = (l).real, FFEBAD)

Definition at line 1275 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_complex2	(	res,
		l		)	ffetarget_convert_real1_real2 ((res), (l).real)

Definition at line 1276 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1261 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1286 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_integer2	(	res,
		l		)	ffetarget_convert_real1_integer1(res,l)

Definition at line 1263 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_integer3	(	res,
		l		)	ffetarget_convert_real1_integer1(res,l)

Definition at line 1265 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_integer4	(	res,
		l		)	ffetarget_convert_real1_integer1(res,l)

Definition at line 1270 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_real2	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1295 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real1_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1273 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_character1	(	res,
		l		)	ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1297 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_complex1	(	res,
		l		)	ffetarget_convert_real2_real1 ((res), (l).real)

Definition at line 1313 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_complex2	(	res,
		l		)	(*(res) = (l).real, FFEBAD)

Definition at line 1315 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_hollerith	(	res,
		l		)	ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1299 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_integer1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1325 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_integer2	(	res,
		l		)	ffetarget_convert_real2_integer1(res,l)

Definition at line 1301 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_integer3	(	res,
		l		)	ffetarget_convert_real2_integer1(res,l)

Definition at line 1303 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_integer4	(	res,
		l		)	ffetarget_convert_real2_integer1(res,l)

Definition at line 1308 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_real1	(	res,
		l		)	(*(res) = (l), FFEBAD)

Definition at line 1334 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define ffetarget_convert_real2_typeless	(	res,
		l		)	ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)

Definition at line 1311 of file target.h.

Referenced by ffeexpr_collapse_convert().

#define FFETARGET_defaultCASE_INTRIN   FFE_caseLOWER

Definition at line 86 of file target.h.

#define FFETARGET_defaultCASE_MATCH   FFE_caseLOWER

Definition at line 89 of file target.h.

#define FFETARGET_defaultCASE_SOURCE   FFE_caseLOWER

Definition at line 92 of file target.h.

#define FFETARGET_defaultCASE_SYMBOL   FFE_caseNONE

Definition at line 95 of file target.h.

#define FFETARGET_defaultEXTERNAL_UNDERSCORED   1

Definition at line 109 of file target.h.

#define FFETARGET_defaultFIXED_LINE_LENGTH   72

Definition at line 99 of file target.h.

#define FFETARGET_defaultIS_90   0

Definition at line 59 of file target.h.

#define FFETARGET_defaultIS_AUTOMATIC   1

Definition at line 62 of file target.h.

#define FFETARGET_defaultIS_BACKSLASH   1

Definition at line 65 of file target.h.

#define FFETARGET_defaultIS_DOLLAR_OK   0

Definition at line 71 of file target.h.

#define FFETARGET_defaultIS_F2C   1

Definition at line 74 of file target.h.

#define FFETARGET_defaultIS_F2C_LIBRARY   1

Definition at line 77 of file target.h.

#define FFETARGET_defaultIS_FREE_FORM   0

Definition at line 80 of file target.h.

#define FFETARGET_defaultIS_INIT_LOCAL_ZERO   0

Definition at line 68 of file target.h.

#define FFETARGET_defaultIS_PEDANTIC   0

Definition at line 83 of file target.h.

#define FFETARGET_defaultUNDERSCORED_EXTERNAL_UNDERSCORED   1

Definition at line 117 of file target.h.

#define ffetarget_divide_integer1	(	res,
		l,
		r		)

Value:

(((r) == 0) ? (*(res) = 0, FFEBAD_DIV_BY_ZERO)  \
   : (*(res) = (l) / (r), FFEBAD))

Definition at line 1336 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_divide().

#define ffetarget_divide_integer2	(	res,
		l,
		r		)	ffetarget_divide_integer1(res,l,r)

Definition at line 1339 of file target.h.

Referenced by ffeexpr_collapse_divide().

#define ffetarget_divide_integer3	(	res,
		l,
		r		)	ffetarget_divide_integer1(res,l,r)

Definition at line 1341 of file target.h.

Referenced by ffeexpr_collapse_divide().

#define ffetarget_divide_integer4	(	res,
		l,
		r		)	ffetarget_divide_integer1(res,l,r)

Definition at line 1343 of file target.h.

Referenced by ffeexpr_collapse_divide().

#define ffetarget_divide_real1	(	res,
		l,
		r		)

Value:

(((r) == 0) ? (*(res) = 0, FFEBAD_DIV_BY_ZERO)  \
   : (*(res) = (l) / (r), FFEBAD))

Definition at line 1373 of file target.h.

Referenced by ffeexpr_collapse_divide(), ffetarget_divide_complex1(), ffetarget_power_complexdefault_integerdefault(), and ffetarget_power_realdefault_integerdefault().

#define ffetarget_divide_real2	(	res,
		l,
		r		)

Value:

(((r) == 0) ? (*(res) = 0, FFEBAD_DIV_BY_ZERO)  \
   : (*(res) = (l) / (r), FFEBAD))

Definition at line 1376 of file target.h.

Referenced by ffeexpr_collapse_divide(), ffetarget_divide_complex2(), ffetarget_power_complexdouble_integerdefault(), and ffetarget_power_realdouble_integerdefault().

#define ffetarget_eq_complex1	(	res,
		l,
		r		)

Value:

(*(res) = (((l).real == (r).real) && ((l).imaginary == (r).imaginary))  \
   ? TRUE : FALSE, FFEBAD)

Definition at line 1400 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_complex2	(	res,
		l,
		r		)

Value:

(*(res) = (((l).real == (r).real) && ((l).imaginary == (r).imaginary))  \
   ? TRUE : FALSE, FFEBAD)

Definition at line 1403 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_integer1	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1407 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_integer2	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1409 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_integer3	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1411 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_integer4	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1413 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_real1	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1429 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eq_real2	(	res,
		l,
		r		)	(*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1431 of file target.h.

Referenced by ffeexpr_collapse_eq().

#define ffetarget_eqv_integer1	(	res,
		l,
		r		)	(*(res) = (l) ^ ~(r), FFEBAD)

Definition at line 1434 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_eqv().

#define ffetarget_eqv_integer2	(	res,
		l,
		r		)	(*(res) = (l) ^ ~(r), FFEBAD)

Definition at line 1435 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_integer3	(	res,
		l,
		r		)	(*(res) = (l) ^ ~(r), FFEBAD)

Definition at line 1436 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_integer4	(	res,
		l,
		r		)	(*(res) = (l) ^ ~(r), FFEBAD)

Definition at line 1437 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_logical1	(	res,
		l,
		r		)	(*(res) = (l) == (r), FFEBAD)

Definition at line 1438 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_logical2	(	res,
		l,
		r		)	(*(res) = (l) == (r), FFEBAD)

Definition at line 1439 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_logical3	(	res,
		l,
		r		)	(*(res) = (l) == (r), FFEBAD)

Definition at line 1440 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define ffetarget_eqv_logical4	(	res,
		l,
		r		)	(*(res) = (l) == (r), FFEBAD)

Definition at line 1441 of file target.h.

Referenced by ffeexpr_collapse_eqv().

#define FFETARGET_f2cTYADDR   1

Definition at line 222 of file target.h.

#define FFETARGET_f2cTYCHAR   9

Definition at line 230 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYCOMPLEX   6

Definition at line 227 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYDCOMPLEX   7

Definition at line 228 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYDREAL   5

Definition at line 226 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYINT1   11

Definition at line 232 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYLOGICAL   8

Definition at line 229 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYLOGICAL1   12

Definition at line 233 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYLOGICAL2   13

Definition at line 234 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYLONG   3

Definition at line 224 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYQUAD   14

Definition at line 235 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYREAL   4

Definition at line 225 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYSHORT   2

Definition at line 223 of file target.h.

Referenced by ffecom_init_0().

#define FFETARGET_f2cTYSUBR   10

Definition at line 231 of file target.h.

#define FFETARGET_f2cTYUNKNOWN   0

Definition at line 221 of file target.h.

#define ffetarget_ge_integer1	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1442 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_ge_integer2	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1444 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_ge_integer3	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1446 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_ge_integer4	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1448 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_ge_real1	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1464 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_ge_real2	(	res,
		l,
		r		)	(*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1466 of file target.h.

Referenced by ffeexpr_collapse_ge().

#define ffetarget_gt_integer1	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1469 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_gt_integer2	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1471 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_gt_integer3	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1473 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_gt_integer4	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1475 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_gt_real1	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1493 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_gt_real2	(	res,
		l,
		r		)	(*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1495 of file target.h.

Referenced by ffeexpr_collapse_gt().

#define ffetarget_hexxmil	(	v,
		t		)	ffetarget_typeless_hex (v, t)

Definition at line 1498 of file target.h.

Referenced by ffebld_constant_new_typeless_hxm().

#define ffetarget_hexxvxt	(	v,
		t		)	ffetarget_typeless_hex (v, t)

Definition at line 1499 of file target.h.

Referenced by ffebld_constant_new_typeless_hxv().

#define ffetarget_hexzmil	(	v,
		t		)	ffetarget_typeless_hex (v, t)

Definition at line 1500 of file target.h.

Referenced by ffebld_constant_new_typeless_hzm().

#define ffetarget_hexzvxt	(	v,
		t		)	ffetarget_typeless_hex (v, t)

Definition at line 1501 of file target.h.

Referenced by ffebld_constant_new_typeless_hzv().

 

#define ffetarget_init_0

(

)

Definition at line 1502 of file target.h.

Referenced by ffe_init_0().

 

#define ffetarget_init_1

(

)

Definition at line 1503 of file target.h.

Referenced by ffe_init_1().

 

#define ffetarget_init_2

(

)

Definition at line 1504 of file target.h.

Referenced by ffe_init_2().

 

#define ffetarget_init_3

(

)

Definition at line 1505 of file target.h.

Referenced by ffe_init_3().

 

#define ffetarget_init_4

(

)

Definition at line 1506 of file target.h.

Referenced by ffe_init_4().

#define FFETARGET_integerALMOST_BIG_MAGICAL   214748364

Definition at line 174 of file target.h.

Referenced by ffetarget_integer1().

#define FFETARGET_integerALMOST_BIG_OVERFLOW_BINARY   0x80000000

Definition at line 177 of file target.h.

Referenced by ffetarget_integerbinary().

#define FFETARGET_integerALMOST_BIG_OVERFLOW_HEX   0x10000000

Definition at line 180 of file target.h.

Referenced by ffetarget_integerhex().

#define FFETARGET_integerALMOST_BIG_OVERFLOW_OCTAL   0x20000000

Definition at line 183 of file target.h.

Referenced by ffetarget_integeroctal().

#define FFETARGET_integerBIG_MAGICAL   020000000000

Definition at line 171 of file target.h.

Referenced by ffetarget_integer1().

#define ffetarget_integerdefault_is_magical

(

i

)

(((unsigned long int) i) == FFETARGET_integerBIG_MAGICAL)

Definition at line 1508 of file target.h.

Referenced by ffebld_constant_is_magical().

#define FFETARGET_integerFINISH_BIG_MAGICAL   8

Definition at line 186 of file target.h.

Referenced by ffetarget_integer1().

#define FFETARGET_integerFINISH_BIG_OVERFLOW_BINARY   0

Definition at line 189 of file target.h.

Referenced by ffetarget_integerbinary().

#define FFETARGET_integerFINISH_BIG_OVERFLOW_HEX   0

Definition at line 192 of file target.h.

Referenced by ffetarget_integerhex().

#define FFETARGET_integerFINISH_BIG_OVERFLOW_OCTAL   0

Definition at line 195 of file target.h.

Referenced by ffetarget_integeroctal().

#define FFETARGET_integerLARGEST_POSITIVE   2147483647

Definition at line 168 of file target.h.

#define FFETARGET_integerSMALLEST_POSITIVE   0

Definition at line 165 of file target.h.

#define FFETARGET_isENFORCED_MAIN   1

Definition at line 137 of file target.h.

#define ffetarget_iszero_real1

(

l

)

((l) == 0.)

Definition at line 1526 of file target.h.

Referenced by ffebld_constant_is_zero(), ffetarget_divide_complex1(), ffetarget_power_complexdefault_integerdefault(), and ffetarget_power_realdefault_integerdefault().

#define ffetarget_iszero_real2

(

l

)

((l) == 0.)

Definition at line 1527 of file target.h.

Referenced by ffebld_constant_is_zero(), ffetarget_divide_complex2(), ffetarget_power_complexdouble_integerdefault(), and ffetarget_power_realdouble_integerdefault().

#define ffetarget_iszero_typeless

(

l

)

((l) == 0)

Definition at line 1529 of file target.h.

Referenced by ffebld_constant_is_zero().

#define ffetarget_le_integer1	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1531 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_le_integer2	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1533 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_le_integer3	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1535 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_le_integer4	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1537 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_le_real1	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1555 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_le_real2	(	res,
		l,
		r		)	(*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1557 of file target.h.

Referenced by ffeexpr_collapse_le().

#define ffetarget_length_character1

(

c

)

((c).length)

Definition at line 1587 of file target.h.

Referenced by ffebld_constantarray_prepare(), ffebld_constantarray_put(), ffecom_char_args_x_(), ffecom_constantunion(), ffecom_intrinsic_ichar_(), ffecom_intrinsic_len_(), and ffeexpr_collapse_convert().

#define ffetarget_length_characterdefault   ffetarget_length_character1

Definition at line 1588 of file target.h.

Referenced by ffestd_S3P4().

#define ffetarget_logical1	(	v,
		truth		)	(*(v) = truth ? 1 : 0)

Definition at line 1530 of file target.h.

Referenced by ffebld_constant_new_logical1(), and ffecom_expr_intrinsic_().

#define ffetarget_lt_integer1	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1560 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_lt_integer2	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1562 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_lt_integer3	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1564 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_lt_integer4	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1566 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_lt_real1	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1582 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_lt_real2	(	res,
		l,
		r		)	(*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1584 of file target.h.

Referenced by ffeexpr_collapse_lt().

#define ffetarget_make_real1	(	res,
		lr		)	(*(res) = (lr))

Definition at line 1595 of file target.h.

Referenced by ffetarget_real1().

#define ffetarget_make_real2	(	res,
		lr		)	(*(res) = (lr))

Definition at line 1596 of file target.h.

Referenced by ffetarget_real2().

#define ffetarget_multiply_integer1	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1598 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_multiply().

#define ffetarget_multiply_integer2	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1599 of file target.h.

Referenced by ffeexpr_collapse_multiply().

#define ffetarget_multiply_integer3	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1600 of file target.h.

Referenced by ffeexpr_collapse_multiply().

#define ffetarget_multiply_integer4	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1601 of file target.h.

Referenced by ffeexpr_collapse_multiply().

#define ffetarget_multiply_real1	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1618 of file target.h.

Referenced by ffeexpr_collapse_multiply(), ffetarget_divide_complex1(), ffetarget_multiply_complex1(), ffetarget_power_complexdefault_integerdefault(), and ffetarget_power_realdefault_integerdefault().

#define ffetarget_multiply_real2	(	res,
		l,
		r		)	(*(res) = (l) * (r), FFEBAD)

Definition at line 1619 of file target.h.

Referenced by ffeexpr_collapse_multiply(), ffetarget_divide_complex2(), ffetarget_multiply_complex2(), ffetarget_power_complexdouble_integerdefault(), and ffetarget_power_realdouble_integerdefault().

#define FFETARGET_nameBLANK_COMMON   "_BLNK__"

Definition at line 161 of file target.h.

Referenced by ffecom_get_external_identifier_(), and ffesymbol_declare_cblock().

#define FFETARGET_nameENFORCED_MAIN_NAME   "MAIN__"

Definition at line 143 of file target.h.

Referenced by ffecom_start_progunit_().

#define FFETARGET_nameUNNAMED_BLOCK_DATA   "_BLOCK_DATA__"

Definition at line 155 of file target.h.

Referenced by ffecom_get_external_identifier_(), and ffesymbol_declare_blockdataunit().

#define FFETARGET_nameUNNAMED_MAIN   "MAIN__"

Definition at line 149 of file target.h.

Referenced by ffecom_get_external_identifier_(), and ffesymbol_declare_programunit().

#define ffetarget_ne_complex1	(	res,
		l,
		r		)

Value:

(*(res) = (((l).real != (r).real) || ((l).imaginary != (r).imaginary))  \
   ? TRUE : FALSE, FFEBAD)

Definition at line 1641 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_complex2	(	res,
		l,
		r		)

Value:

(*(res) = (((l).real != (r).real) || ((l).imaginary != (r).imaginary))  \
   ? TRUE : FALSE, FFEBAD)

Definition at line 1644 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_integer1	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1648 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_integer2	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1650 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_integer3	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1652 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_integer4	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1654 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_real1	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1670 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_ne_real2	(	res,
		l,
		r		)	(*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)

Definition at line 1672 of file target.h.

Referenced by ffeexpr_collapse_ne().

#define ffetarget_neqv_integer1	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1675 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_neqv().

#define ffetarget_neqv_integer2	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1676 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_integer3	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1677 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_integer4	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1678 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_logical1	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1679 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_logical2	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1680 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_logical3	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1681 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_neqv_logical4	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1682 of file target.h.

Referenced by ffeexpr_collapse_neqv().

#define ffetarget_not_integer1	(	res,
		l		)	(*(res) = ~(l), FFEBAD)

Definition at line 1683 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_not().

#define ffetarget_not_integer2	(	res,
		l		)	(*(res) = ~(l), FFEBAD)

Definition at line 1684 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_integer3	(	res,
		l		)	(*(res) = ~(l), FFEBAD)

Definition at line 1685 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_integer4	(	res,
		l		)	(*(res) = ~(l), FFEBAD)

Definition at line 1686 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_logical1	(	res,
		l		)	(*(res) = !(l), FFEBAD)

Definition at line 1687 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_logical2	(	res,
		l		)	(*(res) = !(l), FFEBAD)

Definition at line 1688 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_logical3	(	res,
		l		)	(*(res) = !(l), FFEBAD)

Definition at line 1689 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_not_logical4	(	res,
		l		)	(*(res) = !(l), FFEBAD)

Definition at line 1690 of file target.h.

Referenced by ffeexpr_collapse_not().

#define ffetarget_octalmil	(	v,
		t		)	ffetarget_typeless_octal (v, t)

Definition at line 1691 of file target.h.

Referenced by ffebld_constant_new_typeless_om().

#define ffetarget_octalvxt	(	v,
		t		)	ffetarget_typeless_octal (v, t)

Definition at line 1692 of file target.h.

Referenced by ffebld_constant_new_typeless_ov().

#define ffetarget_offset	(	res,
		l		)	(*(res) = (l), TRUE)

Definition at line 1693 of file target.h.

Referenced by ffedata_eval_offset_(), ffeequiv_offset_(), and ffetarget_layout().

#define ffetarget_offset_add	(	res,
		l,
		r		)	(*(res) = (l) + (r), TRUE)

Definition at line 1694 of file target.h.

Referenced by ffeequiv_layout_cblock(), ffeequiv_layout_local_(), ffeequiv_offset_(), and ffestorag_exec_layout().

#define ffetarget_offset_charsize	(	res,
		l,
		u		)	(*(res) = (l) * (u), TRUE)

Definition at line 1695 of file target.h.

Referenced by ffetarget_layout().

#define ffetarget_offset_multiply	(	res,
		l,
		r		)	(*(res) = (l) * (r), TRUE)

Definition at line 1696 of file target.h.

Referenced by ffeequiv_offset_(), and ffetarget_layout().

#define ffetarget_offset_overflow

(

text

)

((void) 0)

Definition at line 1697 of file target.h.

Referenced by ffeequiv_layout_cblock(), ffeequiv_layout_local_(), ffestorag_exec_layout(), and ffetarget_layout().

#define FFETARGET_offsetNONE   0

Definition at line 199 of file target.h.

#define FFETARGET_okCHARACTER1   1

Definition at line 219 of file target.h.

#define FFETARGET_okCOMPLEX1   1

Definition at line 214 of file target.h.

#define FFETARGET_okCOMPLEX2   1

Definition at line 215 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okCOMPLEX3   0

Definition at line 216 of file target.h.

#define FFETARGET_okCOMPLEXDOUBLE   FFETARGET_okCOMPLEX2

Definition at line 217 of file target.h.

#define FFETARGET_okCOMPLEXQUAD   FFETARGET_okCOMPLEX3

Definition at line 218 of file target.h.

#define FFETARGET_okINTEGER1   1

Definition at line 202 of file target.h.

#define FFETARGET_okINTEGER2   1

Definition at line 203 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okINTEGER3   1

Definition at line 204 of file target.h.

#define FFETARGET_okINTEGER4   1

Definition at line 205 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okLOGICAL1   1

Definition at line 206 of file target.h.

#define FFETARGET_okLOGICAL2   1

Definition at line 207 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okLOGICAL3   1

Definition at line 208 of file target.h.

#define FFETARGET_okLOGICAL4   1

Definition at line 209 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okREAL1   1

Definition at line 210 of file target.h.

#define FFETARGET_okREAL2   1

Definition at line 211 of file target.h.

Referenced by ffebld_constantarray_put().

#define FFETARGET_okREAL3   0

Definition at line 212 of file target.h.

#define FFETARGET_okREALQUAD   FFETARGET_okREAL3

Definition at line 213 of file target.h.

#define ffetarget_or_integer1	(	res,
		l,
		r		)	(*(res) = (l) | (r), FFEBAD)

Definition at line 1698 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_or().

#define ffetarget_or_integer2	(	res,
		l,
		r		)	(*(res) = (l) | (r), FFEBAD)

Definition at line 1699 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_integer3	(	res,
		l,
		r		)	(*(res) = (l) | (r), FFEBAD)

Definition at line 1700 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_integer4	(	res,
		l,
		r		)	(*(res) = (l) | (r), FFEBAD)

Definition at line 1701 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_logical1	(	res,
		l,
		r		)	(*(res) = (l) || (r), FFEBAD)

Definition at line 1702 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_logical2	(	res,
		l,
		r		)	(*(res) = (l) || (r), FFEBAD)

Definition at line 1703 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_logical3	(	res,
		l,
		r		)	(*(res) = (l) || (r), FFEBAD)

Definition at line 1704 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_or_logical4	(	res,
		l,
		r		)	(*(res) = (l) || (r), FFEBAD)

Definition at line 1705 of file target.h.

Referenced by ffeexpr_collapse_or().

#define ffetarget_print_binarymil	(	f,
		v		)	ffetarget_print_binary (f, v)

Definition at line 1706 of file target.h.

#define ffetarget_print_binaryvxt	(	f,
		v		)	ffetarget_print_binary (f, v)

Definition at line 1707 of file target.h.

#define ffetarget_print_hexxmil	(	f,
		v		)	ffetarget_print_hex (f, v)

Definition at line 1708 of file target.h.

#define ffetarget_print_hexxvxt	(	f,
		v		)	ffetarget_print_hex (f, v)

Definition at line 1709 of file target.h.

#define ffetarget_print_hexzmil	(	f,
		v		)	ffetarget_print_hex (f, v)

Definition at line 1710 of file target.h.

#define ffetarget_print_hexzvxt	(	f,
		v		)	ffetarget_print_hex (f, v)

Definition at line 1711 of file target.h.

#define ffetarget_print_integer1	(	f,
		v		)	fprintf ((f), "%" ffetargetInteger1_f "d", (v))

Definition at line 1712 of file target.h.

#define ffetarget_print_integer2	(	f,
		v		)	fprintf ((f), "%" ffetargetInteger2_f "d", (v))

Definition at line 1714 of file target.h.

#define ffetarget_print_integer3	(	f,
		v		)	fprintf ((f), "%" ffetargetInteger3_f "d", (v))

Definition at line 1716 of file target.h.

#define ffetarget_print_integer4	(	f,
		v		)	fprintf ((f), "%" ffetargetInteger4_f "d", (v))

Definition at line 1718 of file target.h.

#define ffetarget_print_logical1	(	f,
		v		)	fprintf ((f), "%" ffetargetLogical1_f "d", (v))

Definition at line 1720 of file target.h.

#define ffetarget_print_logical2	(	f,
		v		)	fprintf ((f), "%" ffetargetLogical2_f "d", (v))

Definition at line 1722 of file target.h.

#define ffetarget_print_logical3	(	f,
		v		)	fprintf ((f), "%" ffetargetLogical3_f "d", (v))

Definition at line 1724 of file target.h.

#define ffetarget_print_logical4	(	f,
		v		)	fprintf ((f), "%" ffetargetLogical4_f "d", (v))

Definition at line 1726 of file target.h.

#define ffetarget_print_octalmil	(	f,
		v		)	ffetarget_print_octal(f,v)

Definition at line 1728 of file target.h.

#define ffetarget_print_octalvxt	(	f,
		v		)	ffetarget_print_octal(f,v)

Definition at line 1729 of file target.h.

#define ffetarget_print_real1	(	f,
		v		)	fprintf ((f), "%" ffetargetReal1_f "g", (v))

Definition at line 1744 of file target.h.

#define ffetarget_print_real2	(	f,
		v		)	fprintf ((f), "%" ffetargetReal2_f "g", (v))

Definition at line 1746 of file target.h.

#define ffetarget_real1_one

(

res

)

(*(res) = (float) 1.)

Definition at line 1753 of file target.h.

Referenced by ffetarget_power_complexdefault_integerdefault(), and ffetarget_power_realdefault_integerdefault().

#define ffetarget_real1_two

(

res

)

(*(res) = (float) 2.)

Definition at line 1760 of file target.h.

Referenced by ffetarget_power_complexdefault_integerdefault().

#define ffetarget_real1_zero

(

res

)

(*(res) = (float) 0.)

Definition at line 1767 of file target.h.

Referenced by ffetarget_divide_complex1(), ffetarget_power_complexdefault_integerdefault(), and ffetarget_power_realdefault_integerdefault().

#define ffetarget_real2_one

(

res

)

(*(res) = 1.)

Definition at line 1754 of file target.h.

Referenced by ffetarget_power_complexdouble_integerdefault(), and ffetarget_power_realdouble_integerdefault().

#define ffetarget_real2_two

(

res

)

(*(res) = 2.)

Definition at line 1761 of file target.h.

Referenced by ffetarget_power_complexdouble_integerdefault().

#define ffetarget_real2_zero

(

res

)

(*(res) = 0.)

Definition at line 1768 of file target.h.

Referenced by ffetarget_divide_complex2(), ffetarget_power_complexdouble_integerdefault(), and ffetarget_power_realdouble_integerdefault().

#define FFETARGET_REAL_VALUE_FROM_INT_	(	resr,
		lf,
		kt		)

Value:

REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0), \
           ((kt == 1) ? SFmode : DFmode))

Definition at line 871 of file target.h.

#define ffetarget_size_typeless_binary

(

t

)

((ffetarget_num_digits_(t) + 7) / 8)

Definition at line 1770 of file target.h.

Referenced by ffeexpr_token_apos_char_(), and ffeexpr_token_name_apos_name_().

#define ffetarget_size_typeless_hex

(

t

)

((ffetarget_num_digits_(t) + 1) / 2)

Definition at line 1773 of file target.h.

Referenced by ffeexpr_token_apos_char_(), and ffeexpr_token_name_apos_name_().

#define ffetarget_size_typeless_octal

(

t

)

((ffetarget_num_digits_(t) * 3 + 7) / 8)

Definition at line 1771 of file target.h.

Referenced by ffeexpr_token_apos_char_(), and ffeexpr_token_name_apos_name_().

#define ffetarget_subtract_complex1	(	res,
		l,
		r		)

Value:

((res)->real = (l).real - (r).real, \
   (res)->imaginary = (l).imaginary - (r).imaginary, FFEBAD)

Definition at line 1798 of file target.h.

Referenced by ffeexpr_collapse_subtract().

#define ffetarget_subtract_complex2	(	res,
		l,
		r		)

Value:

((res)->real = (l).real - (r).real, \
   (res)->imaginary = (l).imaginary - (r).imaginary, FFEBAD)

Definition at line 1801 of file target.h.

Referenced by ffeexpr_collapse_subtract().

#define ffetarget_subtract_integer1	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1805 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_subtract().

#define ffetarget_subtract_integer2	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1806 of file target.h.

Referenced by ffeexpr_collapse_subtract().

#define ffetarget_subtract_integer3	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1807 of file target.h.

Referenced by ffeexpr_collapse_subtract().

#define ffetarget_subtract_integer4	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1808 of file target.h.

Referenced by ffeexpr_collapse_subtract().

#define ffetarget_subtract_real1	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1825 of file target.h.

Referenced by ffeexpr_collapse_subtract(), ffetarget_divide_complex1(), ffetarget_multiply_complex1(), and ffetarget_power_complexdefault_integerdefault().

#define ffetarget_subtract_real2	(	res,
		l,
		r		)	(*(res) = (l) - (r), FFEBAD)

Definition at line 1826 of file target.h.

Referenced by ffeexpr_collapse_subtract(), ffetarget_divide_complex2(), ffetarget_multiply_complex2(), and ffetarget_power_complexdouble_integerdefault().

 

#define ffetarget_terminate_0

(

)

Definition at line 1828 of file target.h.

Referenced by ffe_terminate_0().

 

#define ffetarget_terminate_1

(

)

Definition at line 1829 of file target.h.

Referenced by ffe_terminate_1().

 

#define ffetarget_terminate_2

(

)

Definition at line 1830 of file target.h.

Referenced by ffe_terminate_2().

 

#define ffetarget_terminate_3

(

)

Definition at line 1831 of file target.h.

Referenced by ffe_terminate_3().

 

#define ffetarget_terminate_4

(

)

Definition at line 1832 of file target.h.

Referenced by ffe_terminate_4().

#define ffetarget_text_character1

(

c

)

((c).text)

Definition at line 1833 of file target.h.

Referenced by ffebld_constantarray_prepare(), ffebld_constantarray_put(), ffecom_char_args_x_(), ffecom_constantunion(), and ffecom_intrinsic_ichar_().

#define ffetarget_text_characterdefault   ffetarget_text_character1

Definition at line 1834 of file target.h.

Referenced by ffestd_S3P4().

#define ffetarget_uminus_complex1	(	res,
		l		)	((res)->real = -(l).real, (res)->imaginary = -(l).imaginary, FFEBAD)

Definition at line 1855 of file target.h.

Referenced by ffeexpr_collapse_uminus().

#define ffetarget_uminus_complex2	(	res,
		l		)	((res)->real = -(l).real, (res)->imaginary = -(l).imaginary, FFEBAD)

Definition at line 1857 of file target.h.

Referenced by ffeexpr_collapse_uminus().

#define ffetarget_uminus_integer1	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1860 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_uminus().

#define ffetarget_uminus_integer2	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1861 of file target.h.

Referenced by ffeexpr_collapse_uminus().

#define ffetarget_uminus_integer3	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1862 of file target.h.

Referenced by ffeexpr_collapse_uminus().

#define ffetarget_uminus_integer4	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1863 of file target.h.

Referenced by ffeexpr_collapse_uminus().

#define ffetarget_uminus_real1	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1878 of file target.h.

Referenced by ffeexpr_collapse_uminus(), and ffetarget_power_complexdefault_integerdefault().

#define ffetarget_uminus_real2	(	res,
		l		)	(*(res) = -(l), FFEBAD)

Definition at line 1879 of file target.h.

Referenced by ffeexpr_collapse_uminus(), and ffetarget_power_complexdouble_integerdefault().

#define ffetarget_value_real1

Definition at line 1885 of file target.h.

Referenced by ffecom_constantunion().

#define ffetarget_value_real2

Definition at line 1886 of file target.h.

Referenced by ffecom_constantunion().

#define ffetarget_xor_integer1	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1888 of file target.h.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_xor().

#define ffetarget_xor_integer2	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1889 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_integer3	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1890 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_integer4	(	res,
		l,
		r		)	(*(res) = (l) ^ (r), FFEBAD)

Definition at line 1891 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_logical1	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1892 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_logical2	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1893 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_logical3	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1894 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetarget_xor_logical4	(	res,
		l,
		r		)	(*(res) = (l) != (r), FFEBAD)

Definition at line 1895 of file target.h.

Referenced by ffeexpr_collapse_xor().

#define ffetargetAlign_f   ""

Definition at line 252 of file target.h.

Referenced by ffeglobal_pad_common(), ffestorag_dump(), and ffestorag_exec_layout().

#define ffetargetCharacterSize_f   "l"

Definition at line 254 of file target.h.

#define ffetargetHollerithSize_f   "l"

Definition at line 257 of file target.h.

#define ffetargetInteger1_f   "l"

Definition at line 264 of file target.h.

#define ffetargetInteger2_f   ""

Definition at line 272 of file target.h.

#define ffetargetInteger3_f   ""

Definition at line 276 of file target.h.

#define ffetargetInteger4_f   "ll"

Definition at line 280 of file target.h.

#define ffetargetIntegerDefault_f   ffetargetInteger1_f

Definition at line 577 of file target.h.

Referenced by ffeste_R842(), and ffeste_R843().

#define ffetargetLogical1_f   "l"

Definition at line 305 of file target.h.

#define ffetargetLogical2_f   ""

Definition at line 313 of file target.h.

#define ffetargetLogical3_f   ""

Definition at line 317 of file target.h.

#define ffetargetLogical4_f   "ll"

Definition at line 321 of file target.h.

#define ffetargetLogicalDefault_f   ffetargetLogical1_f

Definition at line 579 of file target.h.

#define ffetargetOffset_f   "ll"

Definition at line 259 of file target.h.

Referenced by ffeequiv_layout_cblock(), ffeequiv_layout_local_(), ffeglobal_size_common(), and ffestorag_dump().

#define ffetargetReal1_f   ""

Definition at line 364 of file target.h.

#define ffetargetReal2_f   ""

Definition at line 400 of file target.h.

#define ffetargetRealDefault_f   ffetargetReal1_f

Definition at line 581 of file target.h.

#define ffetargetRealDouble_f   ffetargetReal2_f

Definition at line 583 of file target.h.

---

Typedef Documentation

typedef unsigned char ffetargetAlign

Definition at line 251 of file target.h.

typedef struct _ffetarget_char_1_ ffetargetCharacter1

Definition at line 527 of file target.h.

typedef ffetargetCharacter1 ffetargetCharacterDefault

Definition at line 568 of file target.h.

typedef long ffetargetCharacterSize

Definition at line 253 of file target.h.

typedef unsigned char ffetargetCharacterUnit1

Definition at line 528 of file target.h.

typedef struct _ffetarget_complex_1_ ffetargetComplex1

Definition at line 463 of file target.h.

typedef struct _ffetarget_complex_2_ ffetargetComplex2

Definition at line 471 of file target.h.

typedef ffetargetComplex1 ffetargetComplexDefault

Definition at line 569 of file target.h.

typedef ffetargetComplex2 ffetargetComplexDouble

Definition at line 571 of file target.h.

typedef void(* ffetargetCopyfunc)(void *, void *, size_t)

Definition at line 255 of file target.h.

typedef struct _ffetarget_hollerith_ ffetargetHollerith

Definition at line 566 of file target.h.

typedef ffetargetCharacterSize ffetargetHollerithSize

Definition at line 256 of file target.h.

typedef long int ffetargetInteger1

Definition at line 263 of file target.h.

typedef signed char ffetargetInteger2

Definition at line 271 of file target.h.

typedef short int ffetargetInteger3

Definition at line 275 of file target.h.

typedef long long int ffetargetInteger4

Definition at line 279 of file target.h.

typedef ffetargetInteger1 ffetargetIntegerDefault

Definition at line 576 of file target.h.

typedef long int ffetargetLogical1

Definition at line 304 of file target.h.

typedef signed char ffetargetLogical2

Definition at line 312 of file target.h.

typedef short int ffetargetLogical3

Definition at line 316 of file target.h.

typedef long long int ffetargetLogical4

Definition at line 320 of file target.h.

typedef ffetargetLogical1 ffetargetLogicalDefault

Definition at line 578 of file target.h.

typedef long long ffetargetOffset

Definition at line 258 of file target.h.

typedef float ffetargetReal1

Definition at line 363 of file target.h.

typedef double ffetargetReal2

Definition at line 399 of file target.h.

typedef ffetargetReal1 ffetargetRealDefault

Definition at line 580 of file target.h.

typedef ffetargetReal2 ffetargetRealDouble

Definition at line 582 of file target.h.

typedef unsigned long long int ffetargetTypeless

Definition at line 559 of file target.h.

---

Function Documentation

void ffetarget_aggregate_info	(	ffeinfoBasictype *	ebt,
		ffeinfoKindtype *	ekt,
		ffetargetAlign *	units,
		ffeinfoBasictype	abt,
		ffeinfoKindtype	akt
	)

Definition at line 167 of file target.c.

References assert, FFEINFO_kindtypeCHARACTERDEFAULT, FFEINFO_kindtypeNONE, ffeinfo_type(), ffetype_size, and NULL.

Referenced by ffedata_advance_(), ffedata_gather(), ffedata_gather_(), and ffedata_value_().

ffetargetAlign ffetarget_align	(	ffetargetAlign *	updated_alignment,
		ffetargetAlign *	updated_modulo,
		ffetargetOffset	offset,
		ffetargetAlign	alignment,
		ffetargetAlign	modulo
	)

Definition at line 203 of file target.c.

References assert, and i.

Referenced by ffeequiv_layout_cblock(), ffeequiv_layout_local_(), and ffestorag_exec_layout().

bool ffetarget_character1	(	ffetargetCharacter1 *	val,
		ffelexToken	character,
		mallocPool	pool
	)

Definition at line 301 of file target.c.

References ffelex_token_length, ffelex_token_text, _ffetarget_char_1_::length, malloc_new_kp, memcpy, NULL, _ffetarget_char_1_::text, and TRUE.

Referenced by ffebld_constant_new_character1().

int ffetarget_cmp_character1	(	ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 324 of file target.c.

References _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffebld_constant_cmp(), and ffebld_constant_new_character1_val().

int ffetarget_cmp_hollerith	(	ffetargetHollerith	l,
		ffetargetHollerith	r
	)

Definition at line 565 of file target.c.

References _ffetarget_hollerith_::length, memcmp, and _ffetarget_hollerith_::text.

Referenced by ffebld_constant_new_hollerith_val().

int ffetarget_cmp_typeless	(	ffetargetTypeless	l,
		ffetargetTypeless	r
	)

ffebad ffetarget_concatenate_character1	(	ffetargetCharacter1 *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r,
		mallocPool	pool,
		ffetargetCharacterSize *	len
	)

Definition at line 347 of file target.c.

References _ffetarget_char_1_::length, malloc_new_kp, memcpy, NULL, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_concatenate().

ffebad ffetarget_convert_any_character1_	(	char *	res,
		size_t	size,
		ffetargetCharacter1	l
	)

Definition at line 575 of file target.c.

References i, _ffetarget_char_1_::length, memcpy, memset, p, and _ffetarget_char_1_::text.

ffebad ffetarget_convert_any_hollerith_	(	char *	res,
		size_t	size,
		ffetargetHollerith	l
	)

Definition at line 600 of file target.c.

References i, _ffetarget_hollerith_::length, memcpy, memset, p, and _ffetarget_hollerith_::text.

ffebad ffetarget_convert_any_typeless_	(	char *	res,
		size_t	size,
		ffetargetTypeless	l
	)

Definition at line 625 of file target.c.

References abort, assert, i, l1, l2, l4, memcpy, memset, NULL, and p.

ffebad ffetarget_convert_character1_character1	(	ffetargetCharacter1 *	res,
		ffetargetCharacterSize	res_size,
		ffetargetCharacter1	l,
		mallocPool	pool
	)

Definition at line 707 of file target.c.

References _ffetarget_char_1_::length, malloc_new_kp, memcpy, memset, NULL, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_convert().

ffebad ffetarget_convert_character1_hollerith	(	ffetargetCharacter1 *	res,
		ffetargetCharacterSize	res_size,
		ffetargetHollerith	l,
		mallocPool	pool
	)

Definition at line 742 of file target.c.

References i, _ffetarget_char_1_::length, _ffetarget_hollerith_::length, malloc_new_kp, memcpy, memset, NULL, p, _ffetarget_hollerith_::text, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_convert().

ffebad ffetarget_convert_character1_integer4	(	ffetargetCharacter1 *	res,
		ffetargetCharacterSize	res_size,
		ffetargetInteger4	l,
		mallocPool	pool
	)

Definition at line 787 of file target.c.

References abort, assert, i, l1, l2, l4, _ffetarget_char_1_::length, malloc_new_kp, memcpy, memset, NULL, p, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_convert().

ffebad ffetarget_convert_character1_logical4	(	ffetargetCharacter1 *	res,
		ffetargetCharacterSize	res_size,
		ffetargetLogical4	l,
		mallocPool	pool
	)

Definition at line 881 of file target.c.

References abort, assert, i, l1, l2, l4, _ffetarget_char_1_::length, malloc_new_kp, memcpy, memset, NULL, p, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_convert().

ffebad ffetarget_convert_character1_typeless	(	ffetargetCharacter1 *	res,
		ffetargetCharacterSize	res_size,
		ffetargetTypeless	l,
		mallocPool	pool
	)

Definition at line 975 of file target.c.

References abort, assert, i, l1, l2, l4, _ffetarget_char_1_::length, malloc_new_kp, memcpy, memset, NULL, p, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_convert().

ffebad ffetarget_divide_complex1	(	ffetargetComplex1 *	res,
		ffetargetComplex1	l,
		ffetargetComplex1	r
	)

Definition at line 1064 of file target.c.

References ffetarget_add_real1, ffetarget_divide_real1, ffetarget_iszero_real1, ffetarget_multiply_real1, ffetarget_real1_zero, ffetarget_subtract_real1, _ffetarget_complex_1_::imaginary, _ffetarget_complex_1_::real, tmp1, and tmp2.

Referenced by ffeexpr_collapse_divide().

ffebad ffetarget_divide_complex2	(	ffetargetComplex2 *	res,
		ffetargetComplex2	l,
		ffetargetComplex2	r
	)

Definition at line 1121 of file target.c.

References ffetarget_add_real2, ffetarget_divide_real2, ffetarget_iszero_real2, ffetarget_multiply_real2, ffetarget_real2_zero, ffetarget_subtract_real2, _ffetarget_complex_2_::imaginary, _ffetarget_complex_2_::real, tmp1, and tmp2.

Referenced by ffeexpr_collapse_divide().

ffebad ffetarget_eq_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 374 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_eq().

ffebad ffetarget_ge_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 419 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_ge().

ffebad ffetarget_gt_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 434 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_gt().

bool ffetarget_hollerith	(	ffetargetHollerith *	val,
		ffelexToken	hollerith,
		mallocPool	pool
	)

Definition at line 1182 of file target.c.

References ffelex_token_length, ffelex_token_text, _ffetarget_hollerith_::length, malloc_new_kp, memcpy, _ffetarget_hollerith_::text, and TRUE.

Referenced by ffebld_constant_new_hollerith().

bool ffetarget_integer1	(	ffetargetInteger1 *	val,
		ffelexToken	integer
	)

Definition at line 1268 of file target.c.

References assert, c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_type, ffelex_token_where_column, ffelex_token_where_line, FFELEX_typeNUMBER, FFETARGET_integerALMOST_BIG_MAGICAL, FFETARGET_integerBIG_MAGICAL, FFETARGET_integerFINISH_BIG_MAGICAL, p, TRUE, and x.

Referenced by ffebld_constant_new_integer1().

bool ffetarget_integer2	(	ffetargetInteger2 *	val,
		ffelexToken	integer
	)

bool ffetarget_integer3	(	ffetargetInteger3 *	val,
		ffelexToken	integer
	)

bool ffetarget_integer4	(	ffetargetInteger4 *	val,
		ffelexToken	integer
	)

void ffetarget_integer_bad_magical

(

ffelexToken

t

)

Definition at line 1198 of file target.c.

References ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_where_column, and ffelex_token_where_line.

Referenced by ffeexpr_finished_(), and ffeexpr_reduce_().

void ffetarget_integer_bad_magical_binary	(	ffelexToken	integer,
		ffelexToken	minus
	)

Definition at line 1210 of file target.c.

References ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_where_column, and ffelex_token_where_line.

Referenced by ffeexpr_reduce_().

void ffetarget_integer_bad_magical_precedence	(	ffelexToken	integer,
		ffelexToken	uminus,
		ffelexToken	higher_op
	)

Definition at line 1227 of file target.c.

References ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_where_column, and ffelex_token_where_line.

Referenced by ffeexpr_reduce_().

void ffetarget_integer_bad_magical_precedence_binary	(	ffelexToken	integer,
		ffelexToken	minus,
		ffelexToken	higher_op
	)

Definition at line 1246 of file target.c.

References ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_where_column, and ffelex_token_where_line.

Referenced by ffeexpr_reduce_().

bool ffetarget_integerbinary	(	ffetargetIntegerDefault *	val,
		ffelexToken	integer
	)

Definition at line 1335 of file target.c.

References assert, c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_type, ffelex_token_where_column, ffelex_token_where_line, FFELEX_typeNAME, FFELEX_typeNUMBER, FFETARGET_integerALMOST_BIG_OVERFLOW_BINARY, FFETARGET_integerFINISH_BIG_OVERFLOW_BINARY, p, TRUE, and x.

Referenced by ffebld_constant_new_integerbinary().

bool ffetarget_integerhex	(	ffetargetIntegerDefault *	val,
		ffelexToken	integer
	)

Definition at line 1428 of file target.c.

References assert, c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_type, ffelex_token_where_column, ffelex_token_where_line, FFELEX_typeNAME, FFELEX_typeNUMBER, FFETARGET_integerALMOST_BIG_OVERFLOW_HEX, FFETARGET_integerFINISH_BIG_OVERFLOW_HEX, hex_p, hex_value, p, TRUE, and x.

Referenced by ffebld_constant_new_integerhex().

bool ffetarget_integeroctal	(	ffetargetIntegerDefault *	val,
		ffelexToken	integer
	)

Definition at line 1521 of file target.c.

References assert, c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_type, ffelex_token_where_column, ffelex_token_where_line, FFELEX_typeNAME, FFELEX_typeNUMBER, FFETARGET_integerALMOST_BIG_OVERFLOW_OCTAL, FFETARGET_integerFINISH_BIG_OVERFLOW_OCTAL, p, TRUE, and x.

Referenced by ffebld_constant_new_integeroctal().

bool ffetarget_iszero_character1

(

ffetargetCharacter1

constant

)

Definition at line 445 of file target.c.

References FALSE, i, _ffetarget_char_1_::length, _ffetarget_char_1_::text, and TRUE.

Referenced by ffebld_constant_is_zero().

bool ffetarget_iszero_hollerith

(

ffetargetHollerith

constant

)

Definition at line 457 of file target.c.

References FALSE, i, _ffetarget_hollerith_::length, _ffetarget_hollerith_::text, and TRUE.

Referenced by ffebld_constant_is_zero().

void ffetarget_layout	(	const char *	error_text,
		ffetargetAlign *	alignment,
		ffetargetAlign *	modulo,
		ffetargetOffset *	size,
		ffeinfoBasictype	bt,
		ffeinfoKindtype	kt,
		ffetargetCharacterSize	charsize,
		ffetargetIntegerDefault	num_elements
	)

ffebad ffetarget_le_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 389 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_le().

ffebad ffetarget_lt_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 404 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_lt().

void* ffetarget_memcpy_	(	void *	dst,
		void *	src,
		size_t	len
	)

Definition at line 2521 of file target.c.

References BYTES_BIG_ENDIAN, HOST_WORDS_BIG_ENDIAN, memcpy, sorry(), and WORDS_BIG_ENDIAN.

ffebad ffetarget_multiply_complex1	(	ffetargetComplex1 *	res,
		ffetargetComplex1	l,
		ffetargetComplex1	r
	)

Definition at line 1611 of file target.c.

References ffetarget_add_real1, ffetarget_multiply_real1, ffetarget_subtract_real1, _ffetarget_complex_1_::imaginary, _ffetarget_complex_1_::real, tmp1, and tmp2.

Referenced by ffeexpr_collapse_multiply().

ffebad ffetarget_multiply_complex2	(	ffetargetComplex2 *	res,
		ffetargetComplex2	l,
		ffetargetComplex2	r
	)

Definition at line 1644 of file target.c.

References ffetarget_add_real2, ffetarget_multiply_real2, ffetarget_subtract_real2, _ffetarget_complex_2_::imaginary, _ffetarget_complex_2_::real, tmp1, and tmp2.

Referenced by ffeexpr_collapse_multiply().

ffebad ffetarget_ne_character1	(	bool *	res,
		ffetargetCharacter1	l,
		ffetargetCharacter1	r
	)

Definition at line 516 of file target.c.

References assert, _ffetarget_char_1_::length, memcmp, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_ne().

int ffetarget_num_digits_

(

ffelexToken

t

)

Definition at line 2560 of file target.c.

References assert, c, ffelex_token_length, ffelex_token_text, ffelex_token_type, FFELEX_typeCHARACTER, FFELEX_typeNAME, FFELEX_typeNUMBER, i, and NULL.

ffebad ffetarget_power_complexdefault_integerdefault	(	ffetargetComplexDefault *	res,
		ffetargetComplexDefault	l,
		ffetargetIntegerDefault	r
	)

Definition at line 1676 of file target.c.

References ffetarget_add_real1, ffetarget_divide_real1, ffetarget_iszero_real1, ffetarget_multiply_real1, ffetarget_real1_one, ffetarget_real1_two, ffetarget_real1_zero, ffetarget_subtract_real1, ffetarget_uminus_real1, _ffetarget_complex_1_::imaginary, _ffetarget_complex_1_::real, tmp, tmp1, tmp2, and two.

Referenced by ffeexpr_collapse_power().

ffebad ffetarget_power_complexdouble_integerdefault	(	ffetargetComplexDouble *	res,
		ffetargetComplexDouble	l,
		ffetargetIntegerDefault	r
	)

Definition at line 1803 of file target.c.

References ffetarget_add_real2, ffetarget_divide_real2, ffetarget_iszero_real2, ffetarget_multiply_real2, ffetarget_real2_one, ffetarget_real2_two, ffetarget_real2_zero, ffetarget_subtract_real2, ffetarget_uminus_real2, _ffetarget_complex_2_::imaginary, _ffetarget_complex_2_::real, tmp, tmp1, tmp2, and two.

Referenced by ffeexpr_collapse_power().

ffebad ffetarget_power_integerdefault_integerdefault	(	ffetargetIntegerDefault *	res,
		ffetargetIntegerDefault	l,
		ffetargetIntegerDefault	r
	)

Definition at line 1929 of file target.c.

Referenced by ffedata_eval_integer1_(), and ffeexpr_collapse_power().

ffebad ffetarget_power_realdefault_integerdefault	(	ffetargetRealDefault *	res,
		ffetargetRealDefault	l,
		ffetargetIntegerDefault	r
	)

Definition at line 1982 of file target.c.

References ffetarget_divide_real1, ffetarget_iszero_real1, ffetarget_multiply_real1, ffetarget_real1_one, ffetarget_real1_zero, and one.

Referenced by ffeexpr_collapse_power().

ffebad ffetarget_power_realdouble_integerdefault	(	ffetargetRealDouble *	res,
		ffetargetRealDouble	l,
		ffetargetIntegerDefault	r
	)

Definition at line 2043 of file target.c.

References ffetarget_divide_real2, ffetarget_iszero_real2, ffetarget_multiply_real2, ffetarget_real2_one, ffetarget_real2_zero, and one.

Referenced by ffeexpr_collapse_power().

void ffetarget_print_binary	(	FILE *	f,
		ffetargetTypeless	val
	)

Definition at line 2106 of file target.c.

References ARRAY_SIZE, CHAR_BIT, dmpout, fputs(), NULL, and p.

void ffetarget_print_character1	(	FILE *	f,
		ffetargetCharacter1	val
	)

Definition at line 2131 of file target.c.

References dmpout, ffetarget_print_char_(), fputc(), i, _ffetarget_char_1_::length, p, and _ffetarget_char_1_::text.

void ffetarget_print_hex	(	FILE *	f,
		ffetargetTypeless	val
	)

Definition at line 2190 of file target.c.

References ARRAY_SIZE, CHAR_BIT, dmpout, fputs(), NULL, and p.

void ffetarget_print_hollerith	(	FILE *	f,
		ffetargetHollerith	val
	)

Definition at line 2148 of file target.c.

References dmpout, ffetarget_print_char_(), fputc(), i, _ffetarget_hollerith_::length, p, and _ffetarget_hollerith_::text.

void ffetarget_print_octal	(	FILE *	f,
		ffetargetTypeless	val
	)

Definition at line 2165 of file target.c.

References ARRAY_SIZE, CHAR_BIT, dmpout, fputs(), NULL, and p.

bool ffetarget_real1	(	ffetargetReal1 *	value,
		ffelexToken	integer,
		ffelexToken	decimal,
		ffelexToken	fraction,
		ffelexToken	exponent,
		ffelexToken	exponent_sign,
		ffelexToken	exponent_digits
	)

Definition at line 2222 of file target.c.

References ARRAY_SIZE, assert, dotok, dotoktxt, ffelex_token_type, FFELEX_typeMINUS, FFELEX_typePLUS, FFETARGET_ATOF_, ffetarget_make_real1, ffetarget_string_, malloc_kill_ks, malloc_new_ks, malloc_pool_image, NULL, p, ptr, q, sz(), and TRUE.

Referenced by ffebld_constant_new_real1().

bool ffetarget_real2	(	ffetargetReal2 *	value,
		ffelexToken	integer,
		ffelexToken	decimal,
		ffelexToken	fraction,
		ffelexToken	exponent,
		ffelexToken	exponent_sign,
		ffelexToken	exponent_digits
	)

Definition at line 2303 of file target.c.

References ARRAY_SIZE, assert, dotok, dotoktxt, dotoktxtexp, ffelex_token_type, FFELEX_typeMINUS, FFELEX_typePLUS, FFETARGET_ATOF_, ffetarget_make_real2, ffetarget_string_, malloc_kill_ks, malloc_new_ks, malloc_pool_image, NULL, p, ptr, q, sz(), and TRUE.

Referenced by ffebld_constant_new_real2().

ffebad ffetarget_substr_character1	(	ffetargetCharacter1 *	res,
		ffetargetCharacter1	l,
		ffetargetCharacterSize	first,
		ffetargetCharacterSize	last,
		mallocPool	pool,
		ffetargetCharacterSize *	len
	)

Definition at line 536 of file target.c.

References _ffetarget_char_1_::length, malloc_new_kp, memcpy, NULL, and _ffetarget_char_1_::text.

Referenced by ffeexpr_collapse_substr().

bool ffetarget_typeless_binary	(	ffetargetTypeless *	value,
		ffelexToken	token
	)

Definition at line 2378 of file target.c.

References c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_where_column, ffelex_token_where_line, ISDIGIT, new_value, overflow, p, and TRUE.

bool ffetarget_typeless_hex	(	ffetargetTypeless *	value,
		ffelexToken	token
	)

Definition at line 2466 of file target.c.

References c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_where_column, ffelex_token_where_line, hex_p, hex_value, new_value, overflow, p, and TRUE.

bool ffetarget_typeless_octal	(	ffetargetTypeless *	value,
		ffelexToken	token
	)

Definition at line 2422 of file target.c.

References c, FALSE, ffebad_finish(), ffebad_here(), ffebad_start, ffelex_token_text, ffelex_token_where_column, ffelex_token_where_line, ISDIGIT, new_value, overflow, p, and TRUE.

void ffetarget_verify_character1	(	mallocPool	pool,
		ffetargetCharacter1	val
	)

Definition at line 2510 of file target.c.

References _ffetarget_char_1_::length, malloc_verify_kp, and _ffetarget_char_1_::text.

Referenced by ffebld_constant_new_character1_val().

---

Variable Documentation

HOST_WIDE_INT ffetarget_long_junk_

Definition at line 84 of file target.c.

HOST_WIDE_INT ffetarget_long_val_

Definition at line 83 of file target.c.

char ffetarget_string_[40]

Definition at line 82 of file target.c.

Referenced by ffetarget_real1(), and ffetarget_real2().