diff options
Diffstat (limited to 'contrib/gcc/f/bld.c')
| -rw-r--r-- | contrib/gcc/f/bld.c | 2540 |
1 files changed, 571 insertions, 1969 deletions
diff --git a/contrib/gcc/f/bld.c b/contrib/gcc/f/bld.c index 3460c24..ec7c5cd6 100644 --- a/contrib/gcc/f/bld.c +++ b/contrib/gcc/f/bld.c @@ -1,5 +1,5 @@ /* bld.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 2003, 2004 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -70,40 +70,9 @@ struct _ffebld_pool_stack_ ffebld_pool_stack_; /* Static objects accessed by functions in this module. */ -#if FFEBLD_BLANK_ -static struct _ffebld_ ffebld_blank_ -= -{ - 0, - {FFEINFO_basictypeNONE, FFEINFO_kindtypeNONE, 0, FFEINFO_kindNONE, - FFEINFO_whereNONE, FFETARGET_charactersizeNONE}, - {NULL, NULL} -}; -#endif #if FFETARGET_okCHARACTER1 static ffebldConstant ffebld_constant_character1_; #endif -#if FFETARGET_okCHARACTER2 -static ffebldConstant ffebld_constant_character2_; -#endif -#if FFETARGET_okCHARACTER3 -static ffebldConstant ffebld_constant_character3_; -#endif -#if FFETARGET_okCHARACTER4 -static ffebldConstant ffebld_constant_character4_; -#endif -#if FFETARGET_okCHARACTER5 -static ffebldConstant ffebld_constant_character5_; -#endif -#if FFETARGET_okCHARACTER6 -static ffebldConstant ffebld_constant_character6_; -#endif -#if FFETARGET_okCHARACTER7 -static ffebldConstant ffebld_constant_character7_; -#endif -#if FFETARGET_okCHARACTER8 -static ffebldConstant ffebld_constant_character8_; -#endif #if FFETARGET_okCOMPLEX1 static ffebldConstant ffebld_constant_complex1_; #endif @@ -113,21 +82,6 @@ static ffebldConstant ffebld_constant_complex2_; #if FFETARGET_okCOMPLEX3 static ffebldConstant ffebld_constant_complex3_; #endif -#if FFETARGET_okCOMPLEX4 -static ffebldConstant ffebld_constant_complex4_; -#endif -#if FFETARGET_okCOMPLEX5 -static ffebldConstant ffebld_constant_complex5_; -#endif -#if FFETARGET_okCOMPLEX6 -static ffebldConstant ffebld_constant_complex6_; -#endif -#if FFETARGET_okCOMPLEX7 -static ffebldConstant ffebld_constant_complex7_; -#endif -#if FFETARGET_okCOMPLEX8 -static ffebldConstant ffebld_constant_complex8_; -#endif #if FFETARGET_okINTEGER1 static ffebldConstant ffebld_constant_integer1_; #endif @@ -140,18 +94,6 @@ static ffebldConstant ffebld_constant_integer3_; #if FFETARGET_okINTEGER4 static ffebldConstant ffebld_constant_integer4_; #endif -#if FFETARGET_okINTEGER5 -static ffebldConstant ffebld_constant_integer5_; -#endif -#if FFETARGET_okINTEGER6 -static ffebldConstant ffebld_constant_integer6_; -#endif -#if FFETARGET_okINTEGER7 -static ffebldConstant ffebld_constant_integer7_; -#endif -#if FFETARGET_okINTEGER8 -static ffebldConstant ffebld_constant_integer8_; -#endif #if FFETARGET_okLOGICAL1 static ffebldConstant ffebld_constant_logical1_; #endif @@ -164,18 +106,6 @@ static ffebldConstant ffebld_constant_logical3_; #if FFETARGET_okLOGICAL4 static ffebldConstant ffebld_constant_logical4_; #endif -#if FFETARGET_okLOGICAL5 -static ffebldConstant ffebld_constant_logical5_; -#endif -#if FFETARGET_okLOGICAL6 -static ffebldConstant ffebld_constant_logical6_; -#endif -#if FFETARGET_okLOGICAL7 -static ffebldConstant ffebld_constant_logical7_; -#endif -#if FFETARGET_okLOGICAL8 -static ffebldConstant ffebld_constant_logical8_; -#endif #if FFETARGET_okREAL1 static ffebldConstant ffebld_constant_real1_; #endif @@ -185,21 +115,6 @@ static ffebldConstant ffebld_constant_real2_; #if FFETARGET_okREAL3 static ffebldConstant ffebld_constant_real3_; #endif -#if FFETARGET_okREAL4 -static ffebldConstant ffebld_constant_real4_; -#endif -#if FFETARGET_okREAL5 -static ffebldConstant ffebld_constant_real5_; -#endif -#if FFETARGET_okREAL6 -static ffebldConstant ffebld_constant_real6_; -#endif -#if FFETARGET_okREAL7 -static ffebldConstant ffebld_constant_real7_; -#endif -#if FFETARGET_okREAL8 -static ffebldConstant ffebld_constant_real8_; -#endif static ffebldConstant ffebld_constant_hollerith_; static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST - FFEBLD_constTYPELESS_FIRST + 1]; @@ -265,30 +180,6 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_integer4 (c2)); #endif -#if FFETARGET_okINTEGER5 - case FFEBLD_constINTEGER5: - return ffetarget_cmp_integer5 (ffebld_constant_integer5 (c1), - ffebld_constant_integer5 (c2)); -#endif - -#if FFETARGET_okINTEGER6 - case FFEBLD_constINTEGER6: - return ffetarget_cmp_integer6 (ffebld_constant_integer6 (c1), - ffebld_constant_integer6 (c2)); -#endif - -#if FFETARGET_okINTEGER7 - case FFEBLD_constINTEGER7: - return ffetarget_cmp_integer7 (ffebld_constant_integer7 (c1), - ffebld_constant_integer7 (c2)); -#endif - -#if FFETARGET_okINTEGER8 - case FFEBLD_constINTEGER8: - return ffetarget_cmp_integer8 (ffebld_constant_integer8 (c1), - ffebld_constant_integer8 (c2)); -#endif - #if FFETARGET_okLOGICAL1 case FFEBLD_constLOGICAL1: return ffetarget_cmp_logical1 (ffebld_constant_logical1 (c1), @@ -313,30 +204,6 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_logical4 (c2)); #endif -#if FFETARGET_okLOGICAL5 - case FFEBLD_constLOGICAL5: - return ffetarget_cmp_logical5 (ffebld_constant_logical5 (c1), - ffebld_constant_logical5 (c2)); -#endif - -#if FFETARGET_okLOGICAL6 - case FFEBLD_constLOGICAL6: - return ffetarget_cmp_logical6 (ffebld_constant_logical6 (c1), - ffebld_constant_logical6 (c2)); -#endif - -#if FFETARGET_okLOGICAL7 - case FFEBLD_constLOGICAL7: - return ffetarget_cmp_logical7 (ffebld_constant_logical7 (c1), - ffebld_constant_logical7 (c2)); -#endif - -#if FFETARGET_okLOGICAL8 - case FFEBLD_constLOGICAL8: - return ffetarget_cmp_logical8 (ffebld_constant_logical8 (c1), - ffebld_constant_logical8 (c2)); -#endif - #if FFETARGET_okREAL1 case FFEBLD_constREAL1: return ffetarget_cmp_real1 (ffebld_constant_real1 (c1), @@ -355,84 +222,12 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_real3 (c2)); #endif -#if FFETARGET_okREAL4 - case FFEBLD_constREAL4: - return ffetarget_cmp_real4 (ffebld_constant_real4 (c1), - ffebld_constant_real4 (c2)); -#endif - -#if FFETARGET_okREAL5 - case FFEBLD_constREAL5: - return ffetarget_cmp_real5 (ffebld_constant_real5 (c1), - ffebld_constant_real5 (c2)); -#endif - -#if FFETARGET_okREAL6 - case FFEBLD_constREAL6: - return ffetarget_cmp_real6 (ffebld_constant_real6 (c1), - ffebld_constant_real6 (c2)); -#endif - -#if FFETARGET_okREAL7 - case FFEBLD_constREAL7: - return ffetarget_cmp_real7 (ffebld_constant_real7 (c1), - ffebld_constant_real7 (c2)); -#endif - -#if FFETARGET_okREAL8 - case FFEBLD_constREAL8: - return ffetarget_cmp_real8 (ffebld_constant_real8 (c1), - ffebld_constant_real8 (c2)); -#endif - #if FFETARGET_okCHARACTER1 case FFEBLD_constCHARACTER1: return ffetarget_cmp_character1 (ffebld_constant_character1 (c1), ffebld_constant_character1 (c2)); #endif -#if FFETARGET_okCHARACTER2 - case FFEBLD_constCHARACTER2: - return ffetarget_cmp_character2 (ffebld_constant_character2 (c1), - ffebld_constant_character2 (c2)); -#endif - -#if FFETARGET_okCHARACTER3 - case FFEBLD_constCHARACTER3: - return ffetarget_cmp_character3 (ffebld_constant_character3 (c1), - ffebld_constant_character3 (c2)); -#endif - -#if FFETARGET_okCHARACTER4 - case FFEBLD_constCHARACTER4: - return ffetarget_cmp_character4 (ffebld_constant_character4 (c1), - ffebld_constant_character4 (c2)); -#endif - -#if FFETARGET_okCHARACTER5 - case FFEBLD_constCHARACTER5: - return ffetarget_cmp_character5 (ffebld_constant_character5 (c1), - ffebld_constant_character5 (c2)); -#endif - -#if FFETARGET_okCHARACTER6 - case FFEBLD_constCHARACTER6: - return ffetarget_cmp_character6 (ffebld_constant_character6 (c1), - ffebld_constant_character6 (c2)); -#endif - -#if FFETARGET_okCHARACTER7 - case FFEBLD_constCHARACTER7: - return ffetarget_cmp_character7 (ffebld_constant_character7 (c1), - ffebld_constant_character7 (c2)); -#endif - -#if FFETARGET_okCHARACTER8 - case FFEBLD_constCHARACTER8: - return ffetarget_cmp_character8 (ffebld_constant_character8 (c1), - ffebld_constant_character8 (c2)); -#endif - default: assert ("bad constant type" == NULL); return 0; @@ -488,26 +283,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffebld_constant_integer4 (c) == 0; #endif -#if FFETARGET_okINTEGER5 - case FFEBLD_constINTEGER5: - return ffebld_constant_integer5 (c) == 0; -#endif - -#if FFETARGET_okINTEGER6 - case FFEBLD_constINTEGER6: - return ffebld_constant_integer6 (c) == 0; -#endif - -#if FFETARGET_okINTEGER7 - case FFEBLD_constINTEGER7: - return ffebld_constant_integer7 (c) == 0; -#endif - -#if FFETARGET_okINTEGER8 - case FFEBLD_constINTEGER8: - return ffebld_constant_integer8 (c) == 0; -#endif - #if FFETARGET_okLOGICAL1 case FFEBLD_constLOGICAL1: return ffebld_constant_logical1 (c) == 0; @@ -528,26 +303,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffebld_constant_logical4 (c) == 0; #endif -#if FFETARGET_okLOGICAL5 - case FFEBLD_constLOGICAL5: - return ffebld_constant_logical5 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEBLD_constLOGICAL6: - return ffebld_constant_logical6 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEBLD_constLOGICAL7: - return ffebld_constant_logical7 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEBLD_constLOGICAL8: - return ffebld_constant_logical8 (c) == 0; -#endif - #if FFETARGET_okREAL1 case FFEBLD_constREAL1: return ffetarget_iszero_real1 (ffebld_constant_real1 (c)); @@ -563,31 +318,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffetarget_iszero_real3 (ffebld_constant_real3 (c)); #endif -#if FFETARGET_okREAL4 - case FFEBLD_constREAL4: - return ffetarget_iszero_real4 (ffebld_constant_real4 (c)); -#endif - -#if FFETARGET_okREAL5 - case FFEBLD_constREAL5: - return ffetarget_iszero_real5 (ffebld_constant_real5 (c)); -#endif - -#if FFETARGET_okREAL6 - case FFEBLD_constREAL6: - return ffetarget_iszero_real6 (ffebld_constant_real6 (c)); -#endif - -#if FFETARGET_okREAL7 - case FFEBLD_constREAL7: - return ffetarget_iszero_real7 (ffebld_constant_real7 (c)); -#endif - -#if FFETARGET_okREAL8 - case FFEBLD_constREAL8: - return ffetarget_iszero_real8 (ffebld_constant_real8 (c)); -#endif - #if FFETARGET_okCOMPLEX1 case FFEBLD_constCOMPLEX1: return ffetarget_iszero_real1 (ffebld_constant_complex1 (c).real) @@ -606,45 +336,11 @@ ffebld_constant_is_zero (ffebldConstant c) && ffetarget_iszero_real3 (ffebld_constant_complex3 (c).imaginary); #endif -#if FFETARGET_okCOMPLEX4 - case FFEBLD_constCOMPLEX4: - return ffetarget_iszero_real4 (ffebld_constant_complex4 (c).real) - && ffetarget_iszero_real4 (ffebld_constant_complex4 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEBLD_constCOMPLEX5: - return ffetarget_iszero_real5 (ffebld_constant_complex5 (c).real) - && ffetarget_iszero_real5 (ffebld_constant_complex5 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEBLD_constCOMPLEX6: - return ffetarget_iszero_real6 (ffebld_constant_complex6 (c).real) - && ffetarget_iszero_real6 (ffebld_constant_complex6 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEBLD_constCOMPLEX7: - return ffetarget_iszero_real7 (ffebld_constant_complex7 (c).real) - && ffetarget_iszero_real7 (ffebld_constant_complex7 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEBLD_constCOMPLEX8: - return ffetarget_iszero_real8 (ffebld_constant_complex8 (c).real) - && ffetarget_iszero_real8 (ffebld_constant_complex8 (c).imaginary); -#endif - #if FFETARGET_okCHARACTER1 case FFEBLD_constCHARACTER1: return ffetarget_iszero_character1 (ffebld_constant_character1 (c)); #endif -#if FFETARGET_okCHARACTER2 || FFETARGET_okCHARACTER3 /* ... */ -#error "no support for these!!" -#endif - case FFEBLD_constHOLLERITH: return ffetarget_iszero_hollerith (ffebld_constant_hollerith (c)); @@ -686,40 +382,52 @@ ffebld_constant_new_character1 (ffelexToken t) ffebldConstant ffebld_constant_new_character1_val (ffetargetCharacter1 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - ffetarget_verify_character1 (ffebld_constant_pool(), val); - - for (c = (ffebldConstant) &ffebld_constant_character1_; - c->next != NULL; - c = c->next) - { - malloc_verify_kp (ffebld_constant_pool(), - c->next, - sizeof (*(c->next))); - ffetarget_verify_character1 (ffebld_constant_pool(), - ffebld_constant_character1 (c->next)); - cmp = ffetarget_cmp_character1 (val, - ffebld_constant_character1 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_character1_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constCHARACTER1", + sizeof (*nc)); + nc->consttype = FFEBLD_constCHARACTER1; + nc->u.character1 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_character1_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_character1 (val, ffebld_constant_character1 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constCHARACTER1", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constCHARACTER1; nc->u.character1 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -749,35 +457,56 @@ ffebld_constant_new_complex1 (ffebldConstant real, ffebldConstant ffebld_constant_new_complex1_val (ffetargetComplex1 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_complex1_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_real1 (val.real, ffebld_constant_complex1 (c->next).real); - if (cmp == 0) - cmp = ffetarget_cmp_real1 (val.imaginary, - ffebld_constant_complex1 (c->next).imaginary); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_complex1_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constCOMPLEX1", + sizeof (*nc)); + nc->consttype = FFEBLD_constCOMPLEX1; + nc->u.complex1 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_complex1_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_real1 (val.real, + ffebld_constant_complex1 (P).real); + if (cmp == 0) + cmp = ffetarget_cmp_real1 (val.imaginary, + ffebld_constant_complex1 (P).imaginary); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constCOMPLEX1", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constCOMPLEX1; nc->u.complex1 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -807,35 +536,56 @@ ffebld_constant_new_complex2 (ffebldConstant real, ffebldConstant ffebld_constant_new_complex2_val (ffetargetComplex2 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_complex2_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_real2 (val.real, ffebld_constant_complex2 (c->next).real); - if (cmp == 0) - cmp = ffetarget_cmp_real2 (val.imaginary, - ffebld_constant_complex2 (c->next).imaginary); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_complex2_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constCOMPLEX2", + sizeof (*nc)); + nc->consttype = FFEBLD_constCOMPLEX2; + nc->u.complex2 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_complex2_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_real2 (val.real, + ffebld_constant_complex2 (P).real); + if (cmp == 0) + cmp = ffetarget_cmp_real2 (val.imaginary, + ffebld_constant_complex2 (P).imaginary); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constCOMPLEX2", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constCOMPLEX2; nc->u.complex2 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -860,32 +610,52 @@ ffebld_constant_new_hollerith (ffelexToken t) ffebldConstant ffebld_constant_new_hollerith_val (ffetargetHollerith val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_hollerith_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_hollerith (val, ffebld_constant_hollerith (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_hollerith_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constHOLLERITH", + sizeof (*nc)); + nc->consttype = FFEBLD_constHOLLERITH; + nc->u.hollerith = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_hollerith_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_hollerith (val, ffebld_constant_hollerith (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constHOLLERITH", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constHOLLERITH; nc->u.hollerith = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -917,32 +687,53 @@ ffebld_constant_new_integer1 (ffelexToken t) ffebldConstant ffebld_constant_new_integer1_val (ffetargetInteger1 val) { - ffebldConstant c; - ffebldConstant nc; - int cmp; - for (c = (ffebldConstant) &ffebld_constant_integer1_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_integer1 (val, ffebld_constant_integer1 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant nc; + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_integer1_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constINTEGER1", + sizeof (*nc)); + nc->consttype = FFEBLD_constINTEGER1; + nc->u.integer1 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_integer1_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_integer1 (val, ffebld_constant_integer1 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constINTEGER1", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constINTEGER1; nc->u.integer1 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -955,32 +746,52 @@ ffebld_constant_new_integer1_val (ffetargetInteger1 val) ffebldConstant ffebld_constant_new_integer2_val (ffetargetInteger2 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_integer2_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_integer2 (val, ffebld_constant_integer2 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_integer2_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constINTEGER2", + sizeof (*nc)); + nc->consttype = FFEBLD_constINTEGER2; + nc->u.integer2 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_integer2_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_integer2 (val, ffebld_constant_integer2 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constINTEGER2", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constINTEGER2; nc->u.integer2 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -993,32 +804,52 @@ ffebld_constant_new_integer2_val (ffetargetInteger2 val) ffebldConstant ffebld_constant_new_integer3_val (ffetargetInteger3 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_integer3_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_integer3 (val, ffebld_constant_integer3 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_integer3_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constINTEGER3", + sizeof (*nc)); + nc->consttype = FFEBLD_constINTEGER3; + nc->u.integer3 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_integer3_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_integer3 (val, ffebld_constant_integer3 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constINTEGER3", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constINTEGER3; nc->u.integer3 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1031,32 +862,52 @@ ffebld_constant_new_integer3_val (ffetargetInteger3 val) ffebldConstant ffebld_constant_new_integer4_val (ffetargetInteger4 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_integer4_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_integer4 (val, ffebld_constant_integer4 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_integer4_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constINTEGER4", + sizeof (*nc)); + nc->consttype = FFEBLD_constINTEGER4; + nc->u.integer4 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_integer4_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_integer4 (val, ffebld_constant_integer4 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constINTEGER4", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constINTEGER4; nc->u.integer4 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1144,32 +995,52 @@ ffebld_constant_new_logical1 (bool truth) ffebldConstant ffebld_constant_new_logical1_val (ffetargetLogical1 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_logical1_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_logical1 (val, ffebld_constant_logical1 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_logical1_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constLOGICAL1", + sizeof (*nc)); + nc->consttype = FFEBLD_constLOGICAL1; + nc->u.logical1 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_logical1_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_logical1 (val, ffebld_constant_logical1 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constLOGICAL1", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL1; nc->u.logical1 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1182,32 +1053,52 @@ ffebld_constant_new_logical1_val (ffetargetLogical1 val) ffebldConstant ffebld_constant_new_logical2_val (ffetargetLogical2 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_logical2_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_logical2 (val, ffebld_constant_logical2 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_logical2_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constLOGICAL2", + sizeof (*nc)); + nc->consttype = FFEBLD_constLOGICAL2; + nc->u.logical2 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_logical2_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_logical2 (val, ffebld_constant_logical2 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constLOGICAL2", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL2; nc->u.logical2 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1220,32 +1111,52 @@ ffebld_constant_new_logical2_val (ffetargetLogical2 val) ffebldConstant ffebld_constant_new_logical3_val (ffetargetLogical3 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_logical3_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_logical3 (val, ffebld_constant_logical3 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_logical3_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constLOGICAL3", + sizeof (*nc)); + nc->consttype = FFEBLD_constLOGICAL3; + nc->u.logical3 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_logical3_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_logical3 (val, ffebld_constant_logical3 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constLOGICAL3", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL3; nc->u.logical3 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1258,32 +1169,52 @@ ffebld_constant_new_logical3_val (ffetargetLogical3 val) ffebldConstant ffebld_constant_new_logical4_val (ffetargetLogical4 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_logical4_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_logical4 (val, ffebld_constant_logical4 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_logical4_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constLOGICAL4", + sizeof (*nc)); + nc->consttype = FFEBLD_constLOGICAL4; + nc->u.logical4 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_logical4_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_logical4 (val, ffebld_constant_logical4 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constLOGICAL4", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL4; nc->u.logical4 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1314,32 +1245,52 @@ ffebld_constant_new_real1 (ffelexToken integer, ffelexToken decimal, ffebldConstant ffebld_constant_new_real1_val (ffetargetReal1 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_real1_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_real1 (val, ffebld_constant_real1 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_real1_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constREAL1", + sizeof (*nc)); + nc->consttype = FFEBLD_constREAL1; + nc->u.real1 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_real1_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_real1 (val, ffebld_constant_real1 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constREAL1", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constREAL1; nc->u.real1 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1370,32 +1321,52 @@ ffebld_constant_new_real2 (ffelexToken integer, ffelexToken decimal, ffebldConstant ffebld_constant_new_real2_val (ffetargetReal2 val) { - ffebldConstant c; ffebldConstant nc; - int cmp; - - for (c = (ffebldConstant) &ffebld_constant_real2_; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_real2 (val, ffebld_constant_real2 (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_real2_; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constREAL2", + sizeof (*nc)); + nc->consttype = FFEBLD_constREAL1; + nc->u.real2 = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_real2_ = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_real2 (val, ffebld_constant_real2 (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constREAL2", sizeof (*nc)); - nc->next = c->next; nc->consttype = FFEBLD_constREAL2; nc->u.real2 = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1535,33 +1506,54 @@ ffebld_constant_new_typeless_ov (ffelexToken t) ffebldConstant ffebld_constant_new_typeless_val (ffebldConst type, ffetargetTypeless val) { - ffebldConstant c; - ffebldConstant nc; - int cmp; - for (c = (ffebldConstant) &ffebld_constant_typeless_[type - - FFEBLD_constTYPELESS_FIRST]; - c->next != NULL; - c = c->next) - { - cmp = ffetarget_cmp_typeless (val, ffebld_constant_typeless (c->next)); - if (cmp == 0) - return c->next; - if (cmp > 0) - break; - } + ffebldConstant nc; + ffebldConstant P; + ffebldConstant Q; + int cmp = 0; + P = ffebld_constant_typeless_[type + - FFEBLD_constTYPELESS_FIRST]; + Q = P; + if (!P) + { + /* make this node the root */ + nc = malloc_new_kp (ffebld_constant_pool(), + "FFEBLD_constTYPELESS", + sizeof (*nc)); + nc->consttype = type; + nc->u.typeless = val; + nc->hook = FFECOM_constantNULL; + nc->llink = NULL; + nc->rlink = NULL; + ffebld_constant_typeless_[type- FFEBLD_constTYPELESS_FIRST] = nc; + return nc; + } + else + while (P) + { + Q = P; + cmp = ffetarget_cmp_typeless (val, ffebld_constant_typeless (P)); + if (cmp > 0) + P = P->llink; + else if (cmp < 0) + P = P->rlink; + else + return P; + } nc = malloc_new_kp (ffebld_constant_pool(), "FFEBLD_constTYPELESS", sizeof (*nc)); - nc->next = c->next; nc->consttype = type; nc->u.typeless = val; -#ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; -#endif - c->next = nc; + nc->llink = NULL; + nc->rlink = NULL; + if (cmp < 0) + Q->llink = nc; + else + Q->rlink = nc; return nc; } @@ -1604,30 +1596,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - u.integer5 = *(array.integer5 + offset); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - u.integer6 = *(array.integer6 + offset); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - u.integer7 = *(array.integer7 + offset); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - u.integer8 = *(array.integer8 + offset); - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -1661,30 +1629,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - u.logical5 = *(array.logical5 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - u.logical6 = *(array.logical6 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - u.logical7 = *(array.logical7 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - u.logical8 = *(array.logical8 + offset); - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -1712,36 +1656,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - u.real4 = *(array.real4 + offset); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - u.real5 = *(array.real5 + offset); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - u.real6 = *(array.real6 + offset); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - u.real7 = *(array.real7 + offset); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - u.real8 = *(array.real8 + offset); - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -1769,36 +1683,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - u.complex4 = *(array.complex4 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - u.complex5 = *(array.complex5 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - u.complex6 = *(array.complex6 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - u.complex7 = *(array.complex7 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - u.complex8 = *(array.complex8 + offset); - break; -#endif - default: assert ("bad COMPLEX kindtype" == NULL); break; @@ -1815,55 +1699,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - u.character2.length = 1; - u.character2.text = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - u.character3.length = 1; - u.character3.text = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - u.character4.length = 1; - u.character4.text = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - u.character5.length = 1; - u.character5.text = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - u.character6.length = 1; - u.character6.text = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - u.character7.length = 1; - u.character7.text = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - u.character8.length = 1; - u.character8.text = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -1929,42 +1764,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - ptr.integer5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger5), - 0); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - ptr.integer6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger6), - 0); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - ptr.integer7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger7), - 0); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - ptr.integer8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger8), - 0); - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -2010,42 +1809,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - ptr.logical5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical5), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - ptr.logical6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical6), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - ptr.logical7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical7), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - ptr.logical8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical8), - 0); - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -2082,51 +1845,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - ptr.real4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal4), - 0); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - ptr.real5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal5), - 0); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - ptr.real6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal6), - 0); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - ptr.real7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal7), - 0); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - ptr.real8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal8), - 0); - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -2163,51 +1881,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - ptr.complex4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex4), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - ptr.complex5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex5), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - ptr.complex6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex6), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - ptr.complex7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex7), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - ptr.complex8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex8), - 0); - break; -#endif - default: assert ("bad COMPLEX kindtype" == NULL); break; @@ -2227,76 +1900,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - ptr.character2 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit2), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - ptr.character3 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit3), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - ptr.character4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit4), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - ptr.character5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit5), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - ptr.character6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit6), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - ptr.character7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit7), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - ptr.character8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit8), - 0); - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -2353,30 +1956,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *aptr = array.integer5 + offset; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *aptr = array.integer6 + offset; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *aptr = array.integer7 + offset; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *aptr = array.integer8 + offset; - break; -#endif - default: assert ("bad INTEGER akindtype" == NULL); break; @@ -2410,30 +1989,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *aptr = array.logical5 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *aptr = array.logical6 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *aptr = array.logical7 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *aptr = array.logical8 + offset; - break; -#endif - default: assert ("bad LOGICAL akindtype" == NULL); break; @@ -2461,36 +2016,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *aptr = array.real4 + offset; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *aptr = array.real5 + offset; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *aptr = array.real6 + offset; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *aptr = array.real7 + offset; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *aptr = array.real8 + offset; - break; -#endif - default: assert ("bad REAL akindtype" == NULL); break; @@ -2518,36 +2043,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *aptr = array.complex4 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *aptr = array.complex5 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *aptr = array.complex6 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *aptr = array.complex7 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *aptr = array.complex8 + offset; - break; -#endif - default: assert ("bad COMPLEX akindtype" == NULL); break; @@ -2563,48 +2058,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *aptr = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *aptr = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *aptr = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *aptr = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *aptr = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *aptr = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *aptr = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER akindtype" == NULL); break; @@ -2649,34 +2102,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *cptr = source_array.integer5; - *size = sizeof (*source_array.integer5); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *cptr = source_array.integer6; - *size = sizeof (*source_array.integer6); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *cptr = source_array.integer7; - *size = sizeof (*source_array.integer7); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *cptr = source_array.integer8; - *size = sizeof (*source_array.integer8); - break; -#endif - default: assert ("bad INTEGER ckindtype" == NULL); break; @@ -2714,34 +2139,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *cptr = source_array.logical5; - *size = sizeof (*source_array.logical5); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *cptr = source_array.logical6; - *size = sizeof (*source_array.logical6); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *cptr = source_array.logical7; - *size = sizeof (*source_array.logical7); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *cptr = source_array.logical8; - *size = sizeof (*source_array.logical8); - break; -#endif - default: assert ("bad LOGICAL ckindtype" == NULL); break; @@ -2772,41 +2169,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *cptr = source_array.real4; - *size = sizeof (*source_array.real4); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *cptr = source_array.real5; - *size = sizeof (*source_array.real5); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *cptr = source_array.real6; - *size = sizeof (*source_array.real6); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *cptr = source_array.real7; - *size = sizeof (*source_array.real7); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *cptr = source_array.real8; - *size = sizeof (*source_array.real8); - break; -#endif - default: assert ("bad REAL ckindtype" == NULL); break; @@ -2837,41 +2199,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *cptr = source_array.complex4; - *size = sizeof (*source_array.complex4); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *cptr = source_array.complex5; - *size = sizeof (*source_array.complex5); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *cptr = source_array.complex6; - *size = sizeof (*source_array.complex6); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *cptr = source_array.complex7; - *size = sizeof (*source_array.complex7); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *cptr = source_array.complex8; - *size = sizeof (*source_array.complex8); - break; -#endif - default: assert ("bad COMPLEX ckindtype" == NULL); break; @@ -2888,55 +2215,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *cptr = source_array.character2; - *size = sizeof (*source_array.character2); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *cptr = source_array.character3; - *size = sizeof (*source_array.character3); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *cptr = source_array.character4; - *size = sizeof (*source_array.character4); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *cptr = source_array.character5; - *size = sizeof (*source_array.character5); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *cptr = source_array.character6; - *size = sizeof (*source_array.character6); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *cptr = source_array.character7; - *size = sizeof (*source_array.character7); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *cptr = source_array.character8; - *size = sizeof (*source_array.character8); - break; -#endif - default: assert ("bad CHARACTER ckindtype" == NULL); break; @@ -2999,30 +2277,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *aptr = array.integer5 + offset; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *aptr = array.integer6 + offset; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *aptr = array.integer7 + offset; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *aptr = array.integer8 + offset; - break; -#endif - default: assert ("bad INTEGER akindtype" == NULL); break; @@ -3056,30 +2310,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *aptr = array.logical5 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *aptr = array.logical6 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *aptr = array.logical7 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *aptr = array.logical8 + offset; - break; -#endif - default: assert ("bad LOGICAL akindtype" == NULL); break; @@ -3107,36 +2337,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *aptr = array.real4 + offset; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *aptr = array.real5 + offset; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *aptr = array.real6 + offset; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *aptr = array.real7 + offset; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *aptr = array.real8 + offset; - break; -#endif - default: assert ("bad REAL akindtype" == NULL); break; @@ -3164,36 +2364,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *aptr = array.complex4 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *aptr = array.complex5 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *aptr = array.complex6 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *aptr = array.complex7 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *aptr = array.complex8 + offset; - break; -#endif - default: assert ("bad COMPLEX akindtype" == NULL); break; @@ -3209,48 +2379,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *aptr = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *aptr = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *aptr = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *aptr = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *aptr = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *aptr = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *aptr = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER akindtype" == NULL); break; @@ -3295,34 +2423,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *cptr = &constant->integer5; - *size = sizeof (constant->integer5); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *cptr = &constant->integer6; - *size = sizeof (constant->integer6); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *cptr = &constant->integer7; - *size = sizeof (constant->integer7); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *cptr = &constant->integer8; - *size = sizeof (constant->integer8); - break; -#endif - default: assert ("bad INTEGER ckindtype" == NULL); break; @@ -3360,34 +2460,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *cptr = &constant->logical5; - *size = sizeof (constant->logical5); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *cptr = &constant->logical6; - *size = sizeof (constant->logical6); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *cptr = &constant->logical7; - *size = sizeof (constant->logical7); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *cptr = &constant->logical8; - *size = sizeof (constant->logical8); - break; -#endif - default: assert ("bad LOGICAL ckindtype" == NULL); break; @@ -3418,41 +2490,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *cptr = &constant->real4; - *size = sizeof (constant->real4); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *cptr = &constant->real5; - *size = sizeof (constant->real5); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *cptr = &constant->real6; - *size = sizeof (constant->real6); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *cptr = &constant->real7; - *size = sizeof (constant->real7); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *cptr = &constant->real8; - *size = sizeof (constant->real8); - break; -#endif - default: assert ("bad REAL ckindtype" == NULL); break; @@ -3483,41 +2520,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *cptr = &constant->complex4; - *size = sizeof (constant->complex4); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *cptr = &constant->complex5; - *size = sizeof (constant->complex5); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *cptr = &constant->complex6; - *size = sizeof (constant->complex6); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *cptr = &constant->complex7; - *size = sizeof (constant->complex7); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *cptr = &constant->complex8; - *size = sizeof (constant->complex8); - break; -#endif - default: assert ("bad COMPLEX ckindtype" == NULL); break; @@ -3534,55 +2536,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *cptr = ffetarget_text_character2 (constant->character2); - *size = ffetarget_length_character2 (constant->character2); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *cptr = ffetarget_text_character3 (constant->character3); - *size = ffetarget_length_character3 (constant->character3); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *cptr = ffetarget_text_character4 (constant->character4); - *size = ffetarget_length_character4 (constant->character4); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *cptr = ffetarget_text_character5 (constant->character5); - *size = ffetarget_length_character5 (constant->character5); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *cptr = ffetarget_text_character6 (constant->character6); - *size = ffetarget_length_character6 (constant->character6); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *cptr = ffetarget_text_character7 (constant->character7); - *size = ffetarget_length_character7 (constant->character7); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *cptr = ffetarget_text_character8 (constant->character8); - *size = ffetarget_length_character8 (constant->character8); - break; -#endif - default: assert ("bad CHARACTER ckindtype" == NULL); break; @@ -3632,30 +2585,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *(array.integer5 + offset) = constant.integer5; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *(array.integer6 + offset) = constant.integer6; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *(array.integer7 + offset) = constant.integer7; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *(array.integer8 + offset) = constant.integer8; - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -3689,30 +2618,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *(array.logical5 + offset) = constant.logical5; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *(array.logical6 + offset) = constant.logical6; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *(array.logical7 + offset) = constant.logical7; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *(array.logical8 + offset) = constant.logical8; - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -3740,36 +2645,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *(array.real4 + offset) = constant.real4; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *(array.real5 + offset) = constant.real5; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *(array.real6 + offset) = constant.real6; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *(array.real7 + offset) = constant.real7; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *(array.real8 + offset) = constant.real8; - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -3797,36 +2672,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *(array.complex4 + offset) = constant.complex4; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *(array.complex5 + offset) = constant.complex5; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *(array.complex6 + offset) = constant.complex6; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *(array.complex7 + offset) = constant.complex7; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *(array.complex8 + offset) = constant.complex8; - break; -#endif - default: assert ("bad COMPLEX kindtype" == NULL); break; @@ -3844,62 +2689,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - memcpy (array.character2 + offset, - ffetarget_text_character2 (constant.character2), - ffetarget_length_character2 (constant.character2)); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - memcpy (array.character3 + offset, - ffetarget_text_character3 (constant.character3), - ffetarget_length_character3 (constant.character3)); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - memcpy (array.character4 + offset, - ffetarget_text_character4 (constant.character4), - ffetarget_length_character4 (constant.character4)); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - memcpy (array.character5 + offset, - ffetarget_text_character5 (constant.character5), - ffetarget_length_character5 (constant.character5)); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - memcpy (array.character6 + offset, - ffetarget_text_character6 (constant.character6), - ffetarget_length_character6 (constant.character6)); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - memcpy (array.character7 + offset, - ffetarget_text_character7 (constant.character7), - ffetarget_length_character7 (constant.character7)); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - memcpy (array.character8 + offset, - ffetarget_text_character8 (constant.character8), - ffetarget_length_character8 (constant.character8)); - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -3917,7 +2706,7 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, ffebld_init_0(); */ void -ffebld_init_0 () +ffebld_init_0 (void) { assert (FFEBLD_op == ARRAY_SIZE (ffebld_op_string_)); assert (FFEBLD_op == ARRAY_SIZE (ffebld_arity_op_)); @@ -3928,7 +2717,7 @@ ffebld_init_0 () ffebld_init_1(); */ void -ffebld_init_1 () +ffebld_init_1 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstFILE_ int i; @@ -3936,27 +2725,6 @@ ffebld_init_1 () #if FFETARGET_okCHARACTER1 ffebld_constant_character1_ = NULL; #endif -#if FFETARGET_okCHARACTER2 - ffebld_constant_character2_ = NULL; -#endif -#if FFETARGET_okCHARACTER3 - ffebld_constant_character3_ = NULL; -#endif -#if FFETARGET_okCHARACTER4 - ffebld_constant_character4_ = NULL; -#endif -#if FFETARGET_okCHARACTER5 - ffebld_constant_character5_ = NULL; -#endif -#if FFETARGET_okCHARACTER6 - ffebld_constant_character6_ = NULL; -#endif -#if FFETARGET_okCHARACTER7 - ffebld_constant_character7_ = NULL; -#endif -#if FFETARGET_okCHARACTER8 - ffebld_constant_character8_ = NULL; -#endif #if FFETARGET_okCOMPLEX1 ffebld_constant_complex1_ = NULL; #endif @@ -3966,21 +2734,6 @@ ffebld_init_1 () #if FFETARGET_okCOMPLEX3 ffebld_constant_complex3_ = NULL; #endif -#if FFETARGET_okCOMPLEX4 - ffebld_constant_complex4_ = NULL; -#endif -#if FFETARGET_okCOMPLEX5 - ffebld_constant_complex5_ = NULL; -#endif -#if FFETARGET_okCOMPLEX6 - ffebld_constant_complex6_ = NULL; -#endif -#if FFETARGET_okCOMPLEX7 - ffebld_constant_complex7_ = NULL; -#endif -#if FFETARGET_okCOMPLEX8 - ffebld_constant_complex8_ = NULL; -#endif #if FFETARGET_okINTEGER1 ffebld_constant_integer1_ = NULL; #endif @@ -3993,18 +2746,6 @@ ffebld_init_1 () #if FFETARGET_okINTEGER4 ffebld_constant_integer4_ = NULL; #endif -#if FFETARGET_okINTEGER5 - ffebld_constant_integer5_ = NULL; -#endif -#if FFETARGET_okINTEGER6 - ffebld_constant_integer6_ = NULL; -#endif -#if FFETARGET_okINTEGER7 - ffebld_constant_integer7_ = NULL; -#endif -#if FFETARGET_okINTEGER8 - ffebld_constant_integer8_ = NULL; -#endif #if FFETARGET_okLOGICAL1 ffebld_constant_logical1_ = NULL; #endif @@ -4017,18 +2758,6 @@ ffebld_init_1 () #if FFETARGET_okLOGICAL4 ffebld_constant_logical4_ = NULL; #endif -#if FFETARGET_okLOGICAL5 - ffebld_constant_logical5_ = NULL; -#endif -#if FFETARGET_okLOGICAL6 - ffebld_constant_logical6_ = NULL; -#endif -#if FFETARGET_okLOGICAL7 - ffebld_constant_logical7_ = NULL; -#endif -#if FFETARGET_okLOGICAL8 - ffebld_constant_logical8_ = NULL; -#endif #if FFETARGET_okREAL1 ffebld_constant_real1_ = NULL; #endif @@ -4038,21 +2767,6 @@ ffebld_init_1 () #if FFETARGET_okREAL3 ffebld_constant_real3_ = NULL; #endif -#if FFETARGET_okREAL4 - ffebld_constant_real4_ = NULL; -#endif -#if FFETARGET_okREAL5 - ffebld_constant_real5_ = NULL; -#endif -#if FFETARGET_okREAL6 - ffebld_constant_real6_ = NULL; -#endif -#if FFETARGET_okREAL7 - ffebld_constant_real7_ = NULL; -#endif -#if FFETARGET_okREAL8 - ffebld_constant_real8_ = NULL; -#endif ffebld_constant_hollerith_ = NULL; for (i = FFEBLD_constTYPELESS_FIRST; i <= FFEBLD_constTYPELESS_LAST; ++i) ffebld_constant_typeless_[i - FFEBLD_constTYPELESS_FIRST] = NULL; @@ -4064,7 +2778,7 @@ ffebld_init_1 () ffebld_init_2(); */ void -ffebld_init_2 () +ffebld_init_2 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstPROGUNIT_ int i; @@ -4076,27 +2790,6 @@ ffebld_init_2 () #if FFETARGET_okCHARACTER1 ffebld_constant_character1_ = NULL; #endif -#if FFETARGET_okCHARACTER2 - ffebld_constant_character2_ = NULL; -#endif -#if FFETARGET_okCHARACTER3 - ffebld_constant_character3_ = NULL; -#endif -#if FFETARGET_okCHARACTER4 - ffebld_constant_character4_ = NULL; -#endif -#if FFETARGET_okCHARACTER5 - ffebld_constant_character5_ = NULL; -#endif -#if FFETARGET_okCHARACTER6 - ffebld_constant_character6_ = NULL; -#endif -#if FFETARGET_okCHARACTER7 - ffebld_constant_character7_ = NULL; -#endif -#if FFETARGET_okCHARACTER8 - ffebld_constant_character8_ = NULL; -#endif #if FFETARGET_okCOMPLEX1 ffebld_constant_complex1_ = NULL; #endif @@ -4106,21 +2799,6 @@ ffebld_init_2 () #if FFETARGET_okCOMPLEX3 ffebld_constant_complex3_ = NULL; #endif -#if FFETARGET_okCOMPLEX4 - ffebld_constant_complex4_ = NULL; -#endif -#if FFETARGET_okCOMPLEX5 - ffebld_constant_complex5_ = NULL; -#endif -#if FFETARGET_okCOMPLEX6 - ffebld_constant_complex6_ = NULL; -#endif -#if FFETARGET_okCOMPLEX7 - ffebld_constant_complex7_ = NULL; -#endif -#if FFETARGET_okCOMPLEX8 - ffebld_constant_complex8_ = NULL; -#endif #if FFETARGET_okINTEGER1 ffebld_constant_integer1_ = NULL; #endif @@ -4133,18 +2811,6 @@ ffebld_init_2 () #if FFETARGET_okINTEGER4 ffebld_constant_integer4_ = NULL; #endif -#if FFETARGET_okINTEGER5 - ffebld_constant_integer5_ = NULL; -#endif -#if FFETARGET_okINTEGER6 - ffebld_constant_integer6_ = NULL; -#endif -#if FFETARGET_okINTEGER7 - ffebld_constant_integer7_ = NULL; -#endif -#if FFETARGET_okINTEGER8 - ffebld_constant_integer8_ = NULL; -#endif #if FFETARGET_okLOGICAL1 ffebld_constant_logical1_ = NULL; #endif @@ -4157,18 +2823,6 @@ ffebld_init_2 () #if FFETARGET_okLOGICAL4 ffebld_constant_logical4_ = NULL; #endif -#if FFETARGET_okLOGICAL5 - ffebld_constant_logical5_ = NULL; -#endif -#if FFETARGET_okLOGICAL6 - ffebld_constant_logical6_ = NULL; -#endif -#if FFETARGET_okLOGICAL7 - ffebld_constant_logical7_ = NULL; -#endif -#if FFETARGET_okLOGICAL8 - ffebld_constant_logical8_ = NULL; -#endif #if FFETARGET_okREAL1 ffebld_constant_real1_ = NULL; #endif @@ -4178,21 +2832,6 @@ ffebld_init_2 () #if FFETARGET_okREAL3 ffebld_constant_real3_ = NULL; #endif -#if FFETARGET_okREAL4 - ffebld_constant_real4_ = NULL; -#endif -#if FFETARGET_okREAL5 - ffebld_constant_real5_ = NULL; -#endif -#if FFETARGET_okREAL6 - ffebld_constant_real6_ = NULL; -#endif -#if FFETARGET_okREAL7 - ffebld_constant_real7_ = NULL; -#endif -#if FFETARGET_okREAL8 - ffebld_constant_real8_ = NULL; -#endif ffebld_constant_hollerith_ = NULL; for (i = FFEBLD_constTYPELESS_FIRST; i <= FFEBLD_constTYPELESS_LAST; ++i) ffebld_constant_typeless_[i - FFEBLD_constTYPELESS_FIRST] = NULL; @@ -4231,9 +2870,6 @@ ffebld_new_accter (ffebldConstantArray a, ffebit b) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opACCTER; x->u.accter.array = a; x->u.accter.bits = b; @@ -4254,9 +2890,6 @@ ffebld_new_arrter (ffebldConstantArray a, ffetargetOffset size) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opARRTER; x->u.arrter.array = a; x->u.arrter.size = size; @@ -4276,9 +2909,6 @@ ffebld_new_conter_with_orig (ffebldConstant c, ffebld o) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opCONTER; x->u.conter.expr = c; x->u.conter.orig = o; @@ -4297,15 +2927,9 @@ ffebld_new_item (ffebld head, ffebld trail) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opITEM; x->u.item.head = head; x->u.item.trail = trail; -#ifdef FFECOM_itemHOOK - x->u.item.hook = FFECOM_itemNULL; -#endif return x; } @@ -4321,9 +2945,6 @@ ffebld_new_labter (ffelab l) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opLABTER; x->u.labter = l; return x; @@ -4346,9 +2967,6 @@ ffebld_new_labtok (ffelexToken t) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opLABTOK; x->u.labtok = t; return x; @@ -4365,9 +2983,6 @@ ffebld_new_none (ffebldOp o) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = o; return x; } @@ -4383,14 +2998,9 @@ ffebld_new_one (ffebldOp o, ffebld left) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = o; x->u.nonter.left = left; -#ifdef FFECOM_nonterHOOK x->u.nonter.hook = FFECOM_nonterNULL; -#endif return x; } @@ -4410,9 +3020,6 @@ ffebld_new_symter (ffesymbol s, ffeintrinGen gen, ffeintrinSpec spec, ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = FFEBLD_opSYMTER; x->u.symter.symbol = s; x->u.symter.generic = gen; @@ -4433,15 +3040,10 @@ ffebld_new_two (ffebldOp o, ffebld left, ffebld right) ffebld x; x = ffebld_new (); -#if FFEBLD_BLANK_ - *x = ffebld_blank_; -#endif x->op = o; x->u.nonter.left = left; x->u.nonter.right = right; -#ifdef FFECOM_nonterHOOK x->u.nonter.hook = FFECOM_nonterNULL; -#endif return x; } @@ -4450,7 +3052,7 @@ ffebld_new_two (ffebldOp o, ffebld left, ffebld right) ffebld_pool_pop(); */ void -ffebld_pool_pop () +ffebld_pool_pop (void) { ffebldPoolstack_ ps; |
