diff -Nrc3pad gcc-3.3.3/gcc/f/ansify.c gcc-3.4.0/gcc/f/ansify.c *** gcc-3.3.3/gcc/f/ansify.c 2000-08-29 21:39:48.000000000 +0000 --- gcc-3.4.0/gcc/f/ansify.c 2003-05-03 11:24:55.000000000 +0000 *************** *** 1,5 **** /* ansify.c ! Copyright (C) 1997 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. --- 1,5 ---- /* ansify.c ! Copyright (C) 1997, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. *************** along with GNU Fortran; see the file COP *** 19,26 **** the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ ! #include "hconfig.h" #include "system.h" #define die_unless(c) \ do if (!(c)) \ --- 19,28 ---- the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ ! #include "bconfig.h" #include "system.h" + #include "coretypes.h" + #include "tm.h" #define die_unless(c) \ do if (!(c)) \ diff -Nrc3pad gcc-3.3.3/gcc/f/bad.c gcc-3.4.0/gcc/f/bad.c *** gcc-3.3.3/gcc/f/bad.c 2002-06-11 23:11:34.000000000 +0000 --- gcc-3.4.0/gcc/f/bad.c 2003-07-06 20:32:16.000000000 +0000 *************** *** 1,5 **** /* bad.c -- Implementation File (module.c template V1.0) ! Copyright (C) 1995, 2002 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. --- 1,5 ---- /* bad.c -- Implementation File (module.c template V1.0) ! Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. *************** ffebad_bufputs_ (char buf[], int bufi, c *** 132,138 **** ffebad_init_0(); */ void ! ffebad_init_0 () { assert (FFEBAD == ARRAY_SIZE (ffebad_messages_)); } --- 132,138 ---- ffebad_init_0(); */ void ! ffebad_init_0 (void) { assert (FFEBAD == ARRAY_SIZE (ffebad_messages_)); } *************** ffebad_start_ (bool lex_override, ffebad *** 203,213 **** if ((ffebad_severity_ != FFEBAD_severityPEDANTIC) || !flag_pedantic_errors) { ! if (!diagnostic_count_diagnostic (global_dc, DK_WARNING)) { /* User wants no warnings. */ ffebad_is_temp_inhibited_ = TRUE; return FALSE; } break; } /* Fall through (PEDANTIC && flag_pedantic_errors). */ --- 203,214 ---- if ((ffebad_severity_ != FFEBAD_severityPEDANTIC) || !flag_pedantic_errors) { ! if (!diagnostic_report_warnings_p ()) { /* User wants no warnings. */ ffebad_is_temp_inhibited_ = TRUE; return FALSE; } + diagnostic_kind_count (global_dc, DK_WARNING)++; break; } /* Fall through (PEDANTIC && flag_pedantic_errors). */ *************** ffebad_start_ (bool lex_override, ffebad *** 215,221 **** case FFEBAD_severityWEIRD: case FFEBAD_severitySEVERE: case FFEBAD_severityDISASTER: ! diagnostic_count_diagnostic (global_dc, DK_ERROR); break; default: --- 216,222 ---- case FFEBAD_severityWEIRD: case FFEBAD_severitySEVERE: case FFEBAD_severityDISASTER: ! diagnostic_kind_count (global_dc, DK_ERROR)++; break; default: *************** ffebad_string (const char *string) *** 347,353 **** to actually get it to print (to stderr). */ void ! ffebad_finish () { #define MAX_SPACES 132 static const char *const spaces --- 348,354 ---- to actually get it to print (to stderr). */ void ! ffebad_finish (void) { #define MAX_SPACES 132 static const char *const spaces diff -Nrc3pad gcc-3.3.3/gcc/f/bld.c gcc-3.4.0/gcc/f/bld.c *** gcc-3.3.3/gcc/f/bld.c 2002-05-28 17:32:58.000000000 +0000 --- gcc-3.4.0/gcc/f/bld.c 2003-07-06 20:32:16.000000000 +0000 *************** *** 1,5 **** /* bld.c -- Implementation File (module.c template V1.0) ! Copyright (C) 1995, 1996 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. --- 1,5 ---- /* bld.c -- Implementation File (module.c template V1.0) ! Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. *************** struct _ffebld_pool_stack_ ffebld_pool_s *** 70,109 **** /* 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 --- 70,78 ---- *************** static ffebldConstant ffebld_constant_co *** 113,133 **** #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 --- 82,87 ---- *************** static ffebldConstant ffebld_constant_in *** 140,157 **** #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 --- 94,99 ---- *************** static ffebldConstant ffebld_constant_lo *** 164,181 **** #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 --- 106,111 ---- *************** static ffebldConstant ffebld_constant_re *** 185,205 **** #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]; --- 115,120 ---- *************** ffebld_constant_cmp (ffebldConstant c1, *** 265,294 **** 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), --- 180,185 ---- *************** ffebld_constant_cmp (ffebldConstant c1, *** 313,342 **** 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), --- 204,209 ---- *************** ffebld_constant_cmp (ffebldConstant c1, *** 355,438 **** 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; --- 222,233 ---- *************** ffebld_constant_is_zero (ffebldConstant *** 488,513 **** 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; --- 283,288 ---- *************** ffebld_constant_is_zero (ffebldConstant *** 528,553 **** 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)); --- 303,308 ---- *************** ffebld_constant_is_zero (ffebldConstant *** 563,593 **** 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) --- 318,323 ---- *************** ffebld_constant_is_zero (ffebldConstant *** 606,650 **** && 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)); --- 336,346 ---- *************** ffebld_constant_new_character1_val (ffet *** 715,723 **** nc->next = c->next; nc->consttype = FFEBLD_constCHARACTER1; nc->u.character1 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 411,417 ---- *************** ffebld_constant_new_complex1_val (ffetar *** 773,781 **** nc->next = c->next; nc->consttype = FFEBLD_constCOMPLEX1; nc->u.complex1 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 467,473 ---- *************** ffebld_constant_new_complex2_val (ffetar *** 831,839 **** nc->next = c->next; nc->consttype = FFEBLD_constCOMPLEX2; nc->u.complex2 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 523,529 ---- *************** ffebld_constant_new_hollerith_val (ffeta *** 881,889 **** nc->next = c->next; nc->consttype = FFEBLD_constHOLLERITH; nc->u.hollerith = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 571,577 ---- *************** ffebld_constant_new_integer1_val (ffetar *** 938,946 **** nc->next = c->next; nc->consttype = FFEBLD_constINTEGER1; nc->u.integer1 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 626,632 ---- *************** ffebld_constant_new_integer2_val (ffetar *** 976,984 **** nc->next = c->next; nc->consttype = FFEBLD_constINTEGER2; nc->u.integer2 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 662,668 ---- *************** ffebld_constant_new_integer3_val (ffetar *** 1014,1022 **** nc->next = c->next; nc->consttype = FFEBLD_constINTEGER3; nc->u.integer3 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 698,704 ---- *************** ffebld_constant_new_integer4_val (ffetar *** 1052,1060 **** nc->next = c->next; nc->consttype = FFEBLD_constINTEGER4; nc->u.integer4 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 734,740 ---- *************** ffebld_constant_new_logical1_val (ffetar *** 1165,1173 **** nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL1; nc->u.logical1 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 845,851 ---- *************** ffebld_constant_new_logical2_val (ffetar *** 1203,1211 **** nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL2; nc->u.logical2 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 881,887 ---- *************** ffebld_constant_new_logical3_val (ffetar *** 1241,1249 **** nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL3; nc->u.logical3 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 917,923 ---- *************** ffebld_constant_new_logical4_val (ffetar *** 1279,1287 **** nc->next = c->next; nc->consttype = FFEBLD_constLOGICAL4; nc->u.logical4 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 953,959 ---- *************** ffebld_constant_new_real1_val (ffetarget *** 1335,1343 **** nc->next = c->next; nc->consttype = FFEBLD_constREAL1; nc->u.real1 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 1007,1013 ---- *************** ffebld_constant_new_real2_val (ffetarget *** 1391,1399 **** nc->next = c->next; nc->consttype = FFEBLD_constREAL2; nc->u.real2 = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 1061,1067 ---- *************** ffebld_constant_new_typeless_val (ffebld *** 1557,1565 **** nc->next = c->next; nc->consttype = type; nc->u.typeless = val; - #ifdef FFECOM_constantHOOK nc->hook = FFECOM_constantNULL; - #endif c->next = nc; return nc; --- 1225,1231 ---- *************** ffebld_constantarray_get (ffebldConstant *** 1604,1633 **** 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; --- 1270,1275 ---- *************** ffebld_constantarray_get (ffebldConstant *** 1661,1690 **** 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; --- 1303,1308 ---- *************** ffebld_constantarray_get (ffebldConstant *** 1712,1747 **** 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; --- 1330,1335 ---- *************** ffebld_constantarray_get (ffebldConstant *** 1769,1804 **** 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; --- 1357,1362 ---- *************** ffebld_constantarray_get (ffebldConstant *** 1815,1869 **** 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; --- 1373,1378 ---- *************** ffebld_constantarray_new (ffeinfoBasicty *** 1929,1970 **** 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; --- 1438,1443 ---- *************** ffebld_constantarray_new (ffeinfoBasicty *** 2010,2051 **** 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; --- 1483,1488 ---- *************** ffebld_constantarray_new (ffeinfoBasicty *** 2082,2132 **** 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; --- 1519,1524 ---- *************** ffebld_constantarray_new (ffeinfoBasicty *** 2163,2213 **** 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; --- 1555,1560 ---- *************** ffebld_constantarray_new (ffeinfoBasicty *** 2227,2302 **** 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; --- 1574,1579 ---- *************** ffebld_constantarray_preparray (void **a *** 2353,2382 **** 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; --- 1630,1635 ---- *************** ffebld_constantarray_preparray (void **a *** 2410,2439 **** 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; --- 1663,1668 ---- *************** ffebld_constantarray_preparray (void **a *** 2461,2496 **** 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; --- 1690,1695 ---- *************** ffebld_constantarray_preparray (void **a *** 2518,2553 **** 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; --- 1717,1722 ---- *************** ffebld_constantarray_preparray (void **a *** 2563,2610 **** 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; --- 1732,1737 ---- *************** ffebld_constantarray_preparray (void **a *** 2649,2682 **** 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; --- 1776,1781 ---- *************** ffebld_constantarray_preparray (void **a *** 2714,2747 **** 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; --- 1813,1818 ---- *************** ffebld_constantarray_preparray (void **a *** 2772,2812 **** 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; --- 1843,1848 ---- *************** ffebld_constantarray_preparray (void **a *** 2837,2877 **** 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; --- 1873,1878 ---- *************** ffebld_constantarray_preparray (void **a *** 2888,2942 **** 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; --- 1889,1894 ---- *************** ffebld_constantarray_prepare (void **apt *** 2999,3028 **** 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; --- 1951,1956 ---- *************** ffebld_constantarray_prepare (void **apt *** 3056,3085 **** 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; --- 1984,1989 ---- *************** ffebld_constantarray_prepare (void **apt *** 3107,3142 **** 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; --- 2011,2016 ---- *************** ffebld_constantarray_prepare (void **apt *** 3164,3199 **** 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; --- 2038,2043 ---- *************** ffebld_constantarray_prepare (void **apt *** 3209,3256 **** 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; --- 2053,2058 ---- *************** ffebld_constantarray_prepare (void **apt *** 3295,3328 **** 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; --- 2097,2102 ---- *************** ffebld_constantarray_prepare (void **apt *** 3360,3393 **** 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; --- 2134,2139 ---- *************** ffebld_constantarray_prepare (void **apt *** 3418,3458 **** 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; --- 2164,2169 ---- *************** ffebld_constantarray_prepare (void **apt *** 3483,3523 **** 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; --- 2194,2199 ---- *************** ffebld_constantarray_prepare (void **apt *** 3534,3588 **** 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; --- 2210,2215 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3632,3661 **** 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; --- 2259,2264 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3689,3718 **** 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; --- 2292,2297 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3740,3775 **** 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; --- 2319,2324 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3797,3832 **** 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; --- 2346,2351 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3844,3905 **** 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; --- 2363,2368 ---- *************** ffebld_constantarray_put (ffebldConstant *** 3917,3923 **** ffebld_init_0(); */ void ! ffebld_init_0 () { assert (FFEBLD_op == ARRAY_SIZE (ffebld_op_string_)); assert (FFEBLD_op == ARRAY_SIZE (ffebld_arity_op_)); --- 2380,2386 ---- ffebld_init_0(); */ void ! ffebld_init_0 (void) { assert (FFEBLD_op == ARRAY_SIZE (ffebld_op_string_)); assert (FFEBLD_op == ARRAY_SIZE (ffebld_arity_op_)); *************** ffebld_init_0 () *** 3928,3934 **** ffebld_init_1(); */ void ! ffebld_init_1 () { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstFILE_ int i; --- 2391,2397 ---- ffebld_init_1(); */ void ! ffebld_init_1 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstFILE_ int i; *************** ffebld_init_1 () *** 3936,3962 **** #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 --- 2399,2404 ---- *************** ffebld_init_1 () *** 3966,3986 **** #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 --- 2408,2413 ---- *************** ffebld_init_1 () *** 3993,4010 **** #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 --- 2420,2425 ---- *************** ffebld_init_1 () *** 4017,4034 **** #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 --- 2432,2437 ---- *************** ffebld_init_1 () *** 4038,4058 **** #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; --- 2441,2446 ---- *************** ffebld_init_1 () *** 4064,4070 **** ffebld_init_2(); */ void ! ffebld_init_2 () { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstPROGUNIT_ int i; --- 2452,2458 ---- ffebld_init_2(); */ void ! ffebld_init_2 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstPROGUNIT_ int i; *************** ffebld_init_2 () *** 4076,4102 **** #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 --- 2464,2469 ---- *************** ffebld_init_2 () *** 4106,4126 **** #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 --- 2473,2478 ---- *************** ffebld_init_2 () *** 4133,4150 **** #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 --- 2485,2490 ---- *************** ffebld_init_2 () *** 4157,4174 **** #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 --- 2497,2502 ---- *************** ffebld_init_2 () *** 4178,4198 **** #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; --- 2506,2511 ---- *************** ffebld_new_accter (ffebldConstantArray a *** 4231,4239 **** 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; --- 2544,2549 ---- *************** ffebld_new_arrter (ffebldConstantArray a *** 4254,4262 **** 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; --- 2564,2569 ---- *************** ffebld_new_conter_with_orig (ffebldConst *** 4276,4284 **** 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; --- 2583,2588 ---- *************** ffebld_new_item (ffebld head, ffebld tra *** 4297,4311 **** 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; } --- 2601,2609 ---- *************** ffebld_new_labter (ffelab l) *** 4321,4329 **** ffebld x; x = ffebld_new (); - #if FFEBLD_BLANK_ - *x = ffebld_blank_; - #endif x->op = FFEBLD_opLABTER; x->u.labter = l; return x; --- 2619,2624 ---- *************** ffebld_new_labtok (ffelexToken t) *** 4346,4354 **** ffebld x; x = ffebld_new (); - #if FFEBLD_BLANK_ - *x = ffebld_blank_; - #endif x->op = FFEBLD_opLABTOK; x->u.labtok = t; return x; --- 2641,2646 ---- *************** ffebld_new_none (ffebldOp o) *** 4365,4373 **** ffebld x; x = ffebld_new (); - #if FFEBLD_BLANK_ - *x = ffebld_blank_; - #endif x->op = o; return x; } --- 2657,2662 ---- *************** ffebld_new_one (ffebldOp o, ffebld left) *** 4383,4396 **** 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; } --- 2672,2680 ---- *************** ffebld_new_symter (ffesymbol s, ffeintri *** 4410,4418 **** 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; --- 2694,2699 ---- *************** ffebld_new_two (ffebldOp o, ffebld left, *** 4433,4447 **** 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; } --- 2714,2723 ---- *************** ffebld_new_two (ffebldOp o, ffebld left, *** 4450,4456 **** ffebld_pool_pop(); */ void ! ffebld_pool_pop () { ffebldPoolstack_ ps; --- 2726,2732 ---- ffebld_pool_pop(); */ void ! ffebld_pool_pop (void) { ffebldPoolstack_ ps; diff -Nrc3pad gcc-3.3.3/gcc/f/bld.h gcc-3.4.0/gcc/f/bld.h *** gcc-3.3.3/gcc/f/bld.h 2001-12-23 04:59:08.000000000 +0000 --- gcc-3.4.0/gcc/f/bld.h 2003-06-08 12:22:24.000000000 +0000 *************** *** 1,5 **** /* bld.h -- Public #include File (module.h template V1.0) ! Copyright (C) 1995, 1996 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. --- 1,5 ---- /* bld.h -- Public #include File (module.h template V1.0) ! Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. *************** union _ffebld_constant_union_ *** 154,171 **** #if FFETARGET_okINTEGER4 ffetargetInteger4 integer4; #endif - #if FFETARGET_okINTEGER5 - ffetargetInteger5 integer5; - #endif - #if FFETARGET_okINTEGER6 - ffetargetInteger6 integer6; - #endif - #if FFETARGET_okINTEGER7 - ffetargetInteger7 integer7; - #endif - #if FFETARGET_okINTEGER8 - ffetargetInteger8 integer8; - #endif #if FFETARGET_okLOGICAL1 ffetargetLogical1 logical1; #endif --- 154,159 ---- *************** union _ffebld_constant_union_ *** 178,195 **** #if FFETARGET_okLOGICAL4 ffetargetLogical4 logical4; #endif - #if FFETARGET_okLOGICAL5 - ffetargetLogical5 logical5; - #endif - #if FFETARGET_okLOGICAL6 - ffetargetLogical6 logical6; - #endif - #if FFETARGET_okLOGICAL7 - ffetargetLogical7 logical7; - #endif - #if FFETARGET_okLOGICAL8 - ffetargetLogical8 logical8; - #endif #if FFETARGET_okREAL1 ffetargetReal1 real1; #endif --- 166,171 ---- *************** union _ffebld_constant_union_ *** 199,219 **** #if FFETARGET_okREAL3 ffetargetReal3 real3; #endif - #if FFETARGET_okREAL4 - ffetargetReal4 real4; - #endif - #if FFETARGET_okREAL5 - ffetargetReal5 real5; - #endif - #if FFETARGET_okREAL6 - ffetargetReal6 real6; - #endif - #if FFETARGET_okREAL7 - ffetargetReal7 real7; - #endif - #if FFETARGET_okREAL8 - ffetargetReal8 real8; - #endif #if FFETARGET_okCOMPLEX1 ffetargetComplex1 complex1; #endif --- 175,180 ---- *************** union _ffebld_constant_union_ *** 223,267 **** #if FFETARGET_okCOMPLEX3 ffetargetComplex3 complex3; #endif - #if FFETARGET_okCOMPLEX4 - ffetargetComplex4 complex4; - #endif - #if FFETARGET_okCOMPLEX5 - ffetargetComplex5 complex5; - #endif - #if FFETARGET_okCOMPLEX6 - ffetargetComplex6 complex6; - #endif - #if FFETARGET_okCOMPLEX7 - ffetargetComplex7 complex7; - #endif - #if FFETARGET_okCOMPLEX8 - ffetargetComplex8 complex8; - #endif #if FFETARGET_okCHARACTER1 ffetargetCharacter1 character1; #endif - #if FFETARGET_okCHARACTER2 - ffetargetCharacter2 character2; - #endif - #if FFETARGET_okCHARACTER3 - ffetargetCharacter3 character3; - #endif - #if FFETARGET_okCHARACTER4 - ffetargetCharacter4 character4; - #endif - #if FFETARGET_okCHARACTER5 - ffetargetCharacter5 character5; - #endif - #if FFETARGET_okCHARACTER6 - ffetargetCharacter6 character6; - #endif - #if FFETARGET_okCHARACTER7 - ffetargetCharacter7 character7; - #endif - #if FFETARGET_okCHARACTER8 - ffetargetCharacter8 character8; - #endif }; union _ffebld_constant_array_ --- 184,192 ---- *************** union _ffebld_constant_array_ *** 278,295 **** #if FFETARGET_okINTEGER4 ffetargetInteger4 *integer4; #endif - #if FFETARGET_okINTEGER5 - ffetargetInteger5 *integer5; - #endif - #if FFETARGET_okINTEGER6 - ffetargetInteger6 *integer6; - #endif - #if FFETARGET_okINTEGER7 - ffetargetInteger7 *integer7; - #endif - #if FFETARGET_okINTEGER8 - ffetargetInteger8 *integer8; - #endif #if FFETARGET_okLOGICAL1 ffetargetLogical1 *logical1; #endif --- 203,208 ---- *************** union _ffebld_constant_array_ *** 302,319 **** #if FFETARGET_okLOGICAL4 ffetargetLogical4 *logical4; #endif - #if FFETARGET_okLOGICAL5 - ffetargetLogical5 *logical5; - #endif - #if FFETARGET_okLOGICAL6 - ffetargetLogical6 *logical6; - #endif - #if FFETARGET_okLOGICAL7 - ffetargetLogical7 *logical7; - #endif - #if FFETARGET_okLOGICAL8 - ffetargetLogical8 *logical8; - #endif #if FFETARGET_okREAL1 ffetargetReal1 *real1; #endif --- 215,220 ---- *************** union _ffebld_constant_array_ *** 323,343 **** #if FFETARGET_okREAL3 ffetargetReal3 *real3; #endif - #if FFETARGET_okREAL4 - ffetargetReal4 *real4; - #endif - #if FFETARGET_okREAL5 - ffetargetReal5 *real5; - #endif - #if FFETARGET_okREAL6 - ffetargetReal6 *real6; - #endif - #if FFETARGET_okREAL7 - ffetargetReal7 *real7; - #endif - #if FFETARGET_okREAL8 - ffetargetReal8 *real8; - #endif #if FFETARGET_okCOMPLEX1 ffetargetComplex1 *complex1; #endif --- 224,229 ---- *************** union _ffebld_constant_array_ *** 347,391 **** #if FFETARGET_okCOMPLEX3 ffetargetComplex3 *complex3; #endif - #if FFETARGET_okCOMPLEX4 - ffetargetComplex4 *complex4; - #endif - #if FFETARGET_okCOMPLEX5 - ffetargetComplex5 *complex5; - #endif - #if FFETARGET_okCOMPLEX6 - ffetargetComplex6 *complex6; - #endif - #if FFETARGET_okCOMPLEX7 - ffetargetComplex7 *complex7; - #endif - #if FFETARGET_okCOMPLEX8 - ffetargetComplex8 *complex8; - #endif #if FFETARGET_okCHARACTER1 ffetargetCharacterUnit1 *character1; #endif - #if FFETARGET_okCHARACTER2 - ffetargetCharacterUnit2 *character2; - #endif - #if FFETARGET_okCHARACTER3 - ffetargetCharacterUnit3 *character3; - #endif - #if FFETARGET_okCHARACTER4 - ffetargetCharacterUnit4 *character4; - #endif - #if FFETARGET_okCHARACTER5 - ffetargetCharacterUnit5 *character5; - #endif - #if FFETARGET_okCHARACTER6 - ffetargetCharacterUnit6 *character6; - #endif - #if FFETARGET_okCHARACTER7 - ffetargetCharacterUnit7 *character7; - #endif - #if FFETARGET_okCHARACTER8 - ffetargetCharacterUnit8 *character8; - #endif }; struct _ffebld_ --- 233,241 ---- *************** struct _ffebld_ *** 400,417 **** { ffebld left; ffebld right; - #ifdef FFECOM_nonterHOOK ffecomNonter hook; /* Whatever the compiler/backend wants! */ - #endif } nonter; struct { ffebld head; ffebld trail; - #ifdef FFECOM_itemHOOK - ffecomItem hook; /* Whatever the compiler/backend wants! */ - #endif } item; struct --- 250,262 ---- *************** struct _ffebld_constant_ *** 459,467 **** real. */ ffebldConstant negated; /* We point to each other through here. */ ffebldConst consttype; - #ifdef FFECOM_constantHOOK ffecomConstant hook; /* Whatever the compiler/backend wants! */ - #endif bool numeric; /* A numeric kind of constant. */ ffebldConstantUnion u; }; --- 304,310 ---- *************** bool ffebld_constant_is_zero (ffebldCons *** 486,519 **** ffebldConstant ffebld_constant_new_character1 (ffelexToken t); ffebldConstant ffebld_constant_new_character1_val (ffetargetCharacter1 val); #endif - #if FFETARGET_okCHARACTER2 - ffebldConstant ffebld_constant_new_character2 (ffelexToken t); - ffebldConstant ffebld_constant_new_character2_val (ffetargetCharacter2 val); - #endif - #if FFETARGET_okCHARACTER3 - ffebldConstant ffebld_constant_new_character3 (ffelexToken t); - ffebldConstant ffebld_constant_new_character3_val (ffetargetCharacter3 val); - #endif - #if FFETARGET_okCHARACTER4 - ffebldConstant ffebld_constant_new_character4 (ffelexToken t); - ffebldConstant ffebld_constant_new_character4_val (ffetargetCharacter4 val); - #endif - #if FFETARGET_okCHARACTER5 - ffebldConstant ffebld_constant_new_character5 (ffelexToken t); - ffebldConstant ffebld_constant_new_character5_val (ffetargetCharacter5 val); - #endif - #if FFETARGET_okCHARACTER6 - ffebldConstant ffebld_constant_new_character6 (ffelexToken t); - ffebldConstant ffebld_constant_new_character6_val (ffetargetCharacter6 val); - #endif - #if FFETARGET_okCHARACTER7 - ffebldConstant ffebld_constant_new_character7 (ffelexToken t); - ffebldConstant ffebld_constant_new_character7_val (ffetargetCharacter7 val); - #endif - #if FFETARGET_okCHARACTER8 - ffebldConstant ffebld_constant_new_character8 (ffelexToken t); - ffebldConstant ffebld_constant_new_character8_val (ffetargetCharacter8 val); - #endif #if FFETARGET_okCOMPLEX1 ffebldConstant ffebld_constant_new_complex1 (ffebldConstant real, ffebldConstant imaginary); --- 329,334 ---- *************** ffebldConstant ffebld_constant_new_compl *** 529,559 **** ffebldConstant imaginary); ffebldConstant ffebld_constant_new_complex3_val (ffetargetComplex3 val); #endif - #if FFETARGET_okCOMPLEX4 - ffebldConstant ffebld_constant_new_complex4 (ffebldConstant real, - ffebldConstant imaginary); - ffebldConstant ffebld_constant_new_complex4_val (ffetargetComplex4 val); - #endif - #if FFETARGET_okCOMPLEX5 - ffebldConstant ffebld_constant_new_complex5 (ffebldConstant real, - ffebldConstant imaginary); - ffebldConstant ffebld_constant_new_complex5_val (ffetargetComplex5 val); - #endif - #if FFETARGET_okCOMPLEX6 - ffebldConstant ffebld_constant_new_complex6 (ffebldConstant real, - ffebldConstant imaginary); - ffebldConstant ffebld_constant_new_complex6_val (ffetargetComplex6 val); - #endif - #if FFETARGET_okCOMPLEX7 - ffebldConstant ffebld_constant_new_complex7 (ffebldConstant real, - ffebldConstant imaginary); - ffebldConstant ffebld_constant_new_complex7_val (ffetargetComplex7 val); - #endif - #if FFETARGET_okCOMPLEX8 - ffebldConstant ffebld_constant_new_complex8 (ffebldConstant real, - ffebldConstant imaginary); - ffebldConstant ffebld_constant_new_complex8_val (ffetargetComplex8 val); - #endif ffebldConstant ffebld_constant_new_hollerith (ffelexToken t); ffebldConstant ffebld_constant_new_hollerith_val (ffetargetHollerith val); #if FFETARGET_okINTEGER1 --- 344,349 ---- *************** ffebldConstant ffebld_constant_new_integ *** 572,593 **** ffebldConstant ffebld_constant_new_integer4 (ffelexToken t); ffebldConstant ffebld_constant_new_integer4_val (ffetargetInteger4 val); #endif - #if FFETARGET_okINTEGER5 - ffebldConstant ffebld_constant_new_integer5 (ffelexToken t); - ffebldConstant ffebld_constant_new_integer5_val (ffetargetInteger5 val); - #endif - #if FFETARGET_okINTEGER6 - ffebldConstant ffebld_constant_new_integer6 (ffelexToken t); - ffebldConstant ffebld_constant_new_integer6_val (ffetargetInteger6 val); - #endif - #if FFETARGET_okINTEGER7 - ffebldConstant ffebld_constant_new_integer7 (ffelexToken t); - ffebldConstant ffebld_constant_new_integer7_val (ffetargetInteger7 val); - #endif - #if FFETARGET_okINTEGER8 - ffebldConstant ffebld_constant_new_integer8 (ffelexToken t); - ffebldConstant ffebld_constant_new_integer8_val (ffetargetInteger8 val); - #endif ffebldConstant ffebld_constant_new_integerbinary (ffelexToken t); ffebldConstant ffebld_constant_new_integerhex (ffelexToken t); ffebldConstant ffebld_constant_new_integeroctal (ffelexToken t); --- 362,367 ---- *************** ffebldConstant ffebld_constant_new_logic *** 607,628 **** ffebldConstant ffebld_constant_new_logical4 (bool truth); ffebldConstant ffebld_constant_new_logical4_val (ffetargetLogical4 val); #endif - #if FFETARGET_okLOGICAL5 - ffebldConstant ffebld_constant_new_logical5 (bool truth); - ffebldConstant ffebld_constant_new_logical5_val (ffetargetLogical5 val); - #endif - #if FFETARGET_okLOGICAL6 - ffebldConstant ffebld_constant_new_logical6 (bool truth); - ffebldConstant ffebld_constant_new_logical6_val (ffetargetLogical6 val); - #endif - #if FFETARGET_okLOGICAL7 - ffebldConstant ffebld_constant_new_logical7 (bool truth); - ffebldConstant ffebld_constant_new_logical7_val (ffetargetLogical7 val); - #endif - #if FFETARGET_okLOGICAL8 - ffebldConstant ffebld_constant_new_logical8 (bool truth); - ffebldConstant ffebld_constant_new_logical8_val (ffetargetLogical8 val); - #endif #if FFETARGET_okREAL1 ffebldConstant ffebld_constant_new_real1 (ffelexToken integer, ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, --- 381,386 ---- *************** ffebldConstant ffebld_constant_new_real3 *** 641,676 **** ffelexToken exponent_sign, ffelexToken exponent_digits); ffebldConstant ffebld_constant_new_real3_val (ffetargetReal3 val); #endif - #if FFETARGET_okREAL4 - ffebldConstant ffebld_constant_new_real4 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); - ffebldConstant ffebld_constant_new_real4_val (ffetargetReal4 val); - #endif - #if FFETARGET_okREAL5 - ffebldConstant ffebld_constant_new_real5 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); - ffebldConstant ffebld_constant_new_real5_val (ffetargetReal5 val); - #endif - #if FFETARGET_okREAL6 - ffebldConstant ffebld_constant_new_real6 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); - ffebldConstant ffebld_constant_new_real6_val (ffetargetReal6 val); - #endif - #if FFETARGET_okREAL7 - ffebldConstant ffebld_constant_new_real7 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); - ffebldConstant ffebld_constant_new_real7_val (ffetargetReal7 val); - #endif - #if FFETARGET_okREAL8 - ffebldConstant ffebld_constant_new_real8 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); - ffebldConstant ffebld_constant_new_real8_val (ffetargetReal8 val); - #endif ffebldConstant ffebld_constant_new_typeless_bm (ffelexToken t); ffebldConstant ffebld_constant_new_typeless_bv (ffelexToken t); ffebldConstant ffebld_constant_new_typeless_hxm (ffelexToken t); --- 399,404 ---- diff -Nrc3pad gcc-3.3.3/gcc/f/BUGS gcc-3.4.0/gcc/f/BUGS *** gcc-3.3.3/gcc/f/BUGS 2004-02-14 21:25:14.000000000 +0000 --- gcc-3.4.0/gcc/f/BUGS 2004-04-19 02:26:21.000000000 +0000 *************** _Note:_ This file is automatically gener *** 2,8 **** `bugs0.texi' and `bugs.texi'. `BUGS' is _not_ a source file, although it is normally included within source distributions. ! This file lists known bugs in the GCC-3.3.3 version of the GNU Fortran compiler. Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software Foundation, Inc. You may copy, distribute, and modify it freely as long as you preserve --- 2,8 ---- `bugs0.texi' and `bugs.texi'. `BUGS' is _not_ a source file, although it is normally included within source distributions. ! This file lists known bugs in the GCC-3.4.0 version of the GNU Fortran compiler. Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software Foundation, Inc. You may copy, distribute, and modify it freely as long as you preserve *************** Known Bugs In GNU Fortran *** 12,18 **** ************************* This section identifies bugs that `g77' _users_ might run into in ! the GCC-3.3.3 version of `g77'. This includes bugs that are actually in the `gcc' back end (GBE) or in `libf2c', because those sets of code are at least somewhat under the control of (and necessarily intertwined with) `g77', so it isn't worth separating them out. --- 12,18 ---- ************************* This section identifies bugs that `g77' _users_ might run into in ! the GCC-3.4.0 version of `g77'. This includes bugs that are actually in the `gcc' back end (GBE) or in `libf2c', because those sets of code are at least somewhat under the control of (and necessarily intertwined with) `g77', so it isn't worth separating them out. diff -Nrc3pad gcc-3.3.3/gcc/f/ChangeLog gcc-3.4.0/gcc/f/ChangeLog *** gcc-3.3.3/gcc/f/ChangeLog 2004-02-14 20:18:25.000000000 +0000 --- gcc-3.4.0/gcc/f/ChangeLog 2004-04-19 01:58:44.000000000 +0000 *************** *** 1,12 **** ! 2004-02-14 Release Manager ! * GCC 3.3.3 Released. ! 2004-01-14 Ian Lance Taylor * README: Remove. ! 2003-12-31 Roger Sayle PR fortran/12632 * com.c (ffecom_subscript_check_): Take as an extra argument the --- 1,98 ---- ! 2004-04-18 Release Manager ! * GCC 3.4.0 released. ! 2004-03-21 Joseph S. Myers ! ! * g77.texi: Update link to "G++ and GCC". ! ! 2004-03-14 Gerald Pfeifer ! ! * g77.texi (Aligned Data): Remove obsolete paragraph including a ! broken link. ! (Floating-point Errors): Remove links to http://www.validgh.com/ ! which was "hijacked". ! (Language): Fix link to Fortran books. ! (Projects): Remove obsolete paragraph including a broken link to ! ftp://alpha.gnu.org/gnu/g77/projects/. ! (Trouble): Remove obsolete paragraph including a broken link to ! ftp://alpha.gnu.org/g77.plan. ! ! * invoke.texi (Overall Options): Remove broken reference to ! rat7.uue (which was of dubious copyright status anyways). ! ! * root.texi (www-burley): Fix URL. ! ! 2004-03-06 Roger Sayle ! ! * parse.c (ffe_parse_file): Handle the case that main_input_filename ! is NULL. ! ! 2004-02-24 Michael Matz ! ! * Make-lang.in (sta.o-warn): Delete. ! * sta.c (ffesta_save_): Don't break aliasing rules. ! ! 2004-02-20 Kazu Hirata ! ! * Make-lang.in (g77spec.o): Depend on intl.h. ! * g77spec.c: Include intl.h. ! (lang_specific_driver): Allow translation of the copyright ! symbol but not the rest of the copyright message. Allow ! translation of the message about warranty. ! ! 2004-02-15 Roger Sayle ! ! PR fortran/14129 ! * lex.c (ffelex_cfelex_): Avoid calling xrealloc on a local stack ! allocated array. ! ! 2004-01-30 Kelley Cook ! ! * Make-lang.in (doc/g77.dvi): Use $(abs_docdir). ! ! 2004-01-20 Kelley Cook ! ! * Make-lang.in: Replace $(docdir) with doc. ! (TEXI_G77_FILES): Define. ! (f77.rebuilt): Delete. ! (f77.srcextra): Add dependencies on f/BUGS and f/NEWS. ! (f77.srcman, f77.srcinfo, f77.man, f77.info): New rules. ! (doc/g77.info, doc/g77.dvi): Depend on TEXI_G77_FILES. Always build in ! doc directory. Use $(MAKEINFOFLAGS). ! (info, dvi, generated_manpages): Update to look in doc directory. ! (f/BUGS, f/NEWS): Generate in build directory. ! (f77.mostlyclean): Delete BUGS and NEWS from build directory. ! (f77.maintainer-clean): Adjust to delete from source directory. ! (f77.install-man): Revamp rule. ! ! 2004-01-19 Kelley Cook ! ! * Make-lang.in (G77_INSTALL_NAME): Define via a immediate $(shell) ! instead of deferred backquote. ! ! 2004-01-15 Kelley Cook ! ! * Make-lang.in (f77.srcextra): Dummy entry. ! ! 2004-01-13 Ian Lance Taylor ! ! PR fortran/6491 ! * expr.c (ffeexpr_reduce_): When handling AND, OR, and XOR, and ! when using -fugly-logint, if both operands are logical, convert ! the result back to logical. ! (ffeexpr_reduced_ugly2log_): Add bothlogical parameter. Change ! all callers. Convert logical operands to integer. ! ! 2004-01-12 Ian Lance Taylor * README: Remove. ! 2004-01-07 Joseph S. Myers ! ! * com.h (ffecom_gfrt_basictype): Correct return type. ! ! 2003-12-29 Roger Sayle PR fortran/12632 * com.c (ffecom_subscript_check_): Take as an extra argument the *************** *** 17,41 **** (ffecom_array_ref_): Update calls to ffecom_subscript_check_. (ffecom_char_args_x_): Likewise. ! 2003-12-05 Toon Moene PR fortran/12633 ! Revert 2002-05-09 Hassan Aurag ! * expr.c (ffeexpr_reduced_ugly2log_): Allow logicals-as-integers ! under -fugly-logint as arguments of .and., .or., .xor. ! 2003-10-16 Release Manager ! * GCC 3.3.2 Released. ! 2003-08-04 Release Manager ! * GCC 3.3.1 Released. ! 2003-08-04 Release Manager ! * GCC 3.3.1 Released. 2003-07-09 Toon Moene --- 103,257 ---- (ffecom_array_ref_): Update calls to ffecom_subscript_check_. (ffecom_char_args_x_): Likewise. ! 2003-12-06 Kelley Cook ! ! * Make-lang.in (G77_CROSS_NAME): Delete. ! (g77.install_common, g77.install-man, g77.uninstall): Adjust for above. ! ! 2003-11-30 Andreas Jaeger ! ! * Make-lang.in (f77.rebuilt): Fix dependency on g77.info. ! ! 2003-11-24 Toon Moene PR fortran/12633 ! * expr.c (ffeexpr_reduced_ugly2log_): Revert ! change allowing logical .and. logical to be ! integer in expressions when -fugly-logint. ! 2003-11-21 Kelley Cook ! * .cvsignore: Delete. ! 2003-11-20 Joseph S. Myers ! * Make-lang.in (f77.extraclean): Delete. ! 2003-11-20 Joseph S. Myers ! * Make-lang.in (check-f77, lang_checks): Add. ! 2003-11-16 Jason Merrill ! ! * Make-lang.in (f77.tags): Create TAGS.sub files in each directory ! and TAGS files that include them for each front end. ! ! 2003-11-12 Andreas Jaeger ! ! * intdoc.in (Signal Intrinsic (subroutine)): Fix texinfo warning ! using @code. ! * intdoc.texi: Regenerated. ! ! 2003-11-03 Kelley Cook ! ! * Make-lang.in (dvi): Move targets to $(docobjdir). ! (g77.dvi): Simplify rule. ! (g77.info): Sinplify rule. ! (g77.1): Delete. ! (g77.pod): New intermediate rule. ! ! 2003-10-31 Jakub Jelinek ! ! * com.c (ffecom_sym_transform_): Set tree type of offset ! to ssizetype. ! ! 2003-10-21 Kelley Cook ! ! * Make-lang.in (f/g77.1): Honor $(docobjdir). ! ($(docobjdir)/g77.info): Replace $(srcdir)/doc with $(docdir). ! (f/g77.dvi): Likewise. ! ! 2003-10-21 Jan Hubicka ! ! * lex.c (ffelex_cfelex_): Initialize d. ! ! Mon Oct 20 23:15:46 2003 Mark Mitchell ! ! * Make-lang.in ($(docobjdir)/g77.info): Add dependency on ! stmp-docobjdir. ! ! Mon Oct 20 13:49:43 2003 Mark Mitchell ! ! * Make-lang.in (.PHONY): Remove f77.info, f77.install-info. ! (info): Update dependencies. ! ($(srcdir)/f/g77.info): Replace with ... ! ($(docobjdir)/g77.info): ... this. ! (f77.install-info): Remove. ! (install-info): New target. ! ! 2003-10-06 Mark Mitchell ! ! * Make-lang.in (f77.info): Replace with ... ! (info): ... this. ! (f77.dvi): Replace with ... ! (dvi): ... this. ! (f77.generated-manpages): Replace with ... ! (generated-manpages): ... this. ! ! 2003-09-29 Zack Weinberg ! ! * target.c (FFETARGET_ATOF_): Delete. ! (ffetarget_real1, ffetarget_real2): Use real_from_string directly. ! * target.h (FFETARGET_REAL_VALUE_FROM_INT_, ! FFETARGET_REAL_VALUE_FROM_LONGLONG_): Use mode_for_size, ! don't refer to SFmode or DFmode directly. ! ! 2003-09-28 Richard Henderson ! ! * com.c (duplicate_decls): Copy DECL_SOURCE_LOCATION, not ! file and line separately. ! ! 2003-09-21 Richard Henderson ! ! * com.c, ste.c: Revert. ! ! 2003-09-21 Richard Henderson ! ! * com.c, ste.c: Update for DECL_SOURCE_LOCATION rename and ! change to const. ! ! 2003-09-21 Toon Moene ! ! * news.texi: Update with fixed PR's. ! ! 2003-09-21 George Helffrich ! ! * g77.texi: Remove ancient part about debugging COMMON ! and EQUIVALENCE not correctly. ! ! 2003-09-18 Roger Sayle ! ! * com.c (ffecom_overlap_): Remove FFS_EXPR case. ! (ffecom_tree_canonize_ref_): Likewise. ! (ffe_truthvalue_conversion): Likewise. ! ! 2003-09-01 Josef Zlomek ! ! * com.c (ffecom_overlap_): Kill BIT_ANDTC_EXPR. ! (ffecom_tree_canonize_ref_): Kill BIT_ANDTC_EXPR. ! ! Thu Jul 31 01:47:27 2003 Kaveh R. Ghazi ! ! * com.c (ffecom_init_0): Use `dconsthalf'. ! ! Sat Jul 19 12:03:03 2003 Kaveh R. Ghazi ! ! * com.c data.c expr.c fini.c g77spec.c global.c lab.c lex.c name.c ! sta.c stc.c std.c storag.c stt.c stw.c symbol.c target.c type.c: ! Remove unnecessary casts. ! ! Thu Jul 17 06:34:41 2003 Neil Booth ! ! * lang-options.h: Remove. ! * lang.opt: Document most options. ! ! 2003-07-14 Geoffrey Keating ! ! * lang-specs.h (f77-cpp-input): Use -o to specify the CPP output file. ! ! 2003-07-10 Toon Moene ! ! * ffe.texi: Correctly use @var{srcdir}. 2003-07-09 Toon Moene *************** *** 43,51 **** * com.c (ffecom_sym_transform_): finish_decl should have the same last argument as start_decl. ! Tue Jul 8 15:18:14 2003 Andreas Schwab ! * Make-lang.in (f/g77.dvi): Replace PWD with PWD_COMMAND. 2003-07-05 Toon Moene --- 259,314 ---- * com.c (ffecom_sym_transform_): finish_decl should have the same last argument as start_decl. ! 2003-07-08 Rainer Orth ! * Make-lang.in (f/g77.dvi): Use PWD_COMMAND. ! ! 2003-07-08 Zack Weinberg ! ! * lex.c: Remove error block #ifdef MAP_CHARACTER. ! ! Mon Jul 7 18:13:22 2003 Nathan Sidwell ! ! * com.c (bison_rule_pushlevel_, bison_rule_compstmt_): Adjust ! emit_line_note calls. ! * ste.c (ffeste_emit_line_note_): Likewise. ! ! 2003-07-06 Andreas Jaeger ! ! * bad.c: Convert () to (void) in function definitions. ! * bld.c: Likewise. ! * data.c: Likewise. ! * equiv.c: Likewise. ! * expr.c: Likewise. ! * global.c: Likewise. ! * implic.c: Likewise. ! * info.c: Likewise. ! * intdoc.c: Likewise. ! * intrin.c: Likewise. ! * lab.c: Likewise. ! * lex.c: Likewise. ! * malloc.c: Likewise. ! * src.c: Likewise. ! * st.c: Likewise. ! * sta.c: Likewise. ! * stb.c: Likewise. ! * stc.c: Likewise. ! * std.c: Likewise. ! * ste.c: Likewise. ! * storag.c: Likewise. ! * stt.c: Likewise. ! * stw.c: Likewise. ! * symbol.c: Likewise. ! * top.c: Likewise. ! * where.c: Likewise. ! ! * com.c: Convert prototypes to ISO C90. ! * com.h: Likewise. ! * g77spec.c: Likewise. ! ! Sun Jul 6 20:01:29 2003 Neil Booth ! ! * top.c (ffe_handle_option): Don't handle filenames. 2003-07-05 Toon Moene *************** Tue Jul 8 15:18:14 2003 Andreas Schwab *** 54,92 **** FFEINFO_whereGLOBAL symbols in the global binding level if not -fno-globals. 2003-06-13 Richard Henderson ! PR debug/9864 ! * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL ! symbols in the global binding level. 2003-05-18 Toon Moene - PR fortran/10726 * intdoc.in: Fix documentation of IDATE. * intdoc.texi: Regenerate. ! * news.texi: Update due to the above. 2003-05-16 Wolfgang Bangerth ! * g77.texi: Remove most of the preface of the bugs section. 2003-05-15 Wolfgang Bangerth * g77.texi: Remove most of the bug reporting instructions and merge them into bugs.html. ! 2003-05-13 Release Manager ! * GCC 3.3 Released. ! 2003-05-13 Release Manager ! * GCC 3.3 Released. ! 2003-05-13 Release Manager ! * GCC 3.3 Released. 2003-04-11 Bud Davis --- 317,660 ---- FFEINFO_whereGLOBAL symbols in the global binding level if not -fno-globals. + Wed Jul 2 21:16:02 2003 Neil Booth + + * top.c (ffe_init_options): Update prototype. + * top.h (ffe_init_options): Update prototype. + + 2003-06-27 Zack Weinberg + + * com.c (input_file_stack_tick): Delete redundant declaration. + + Thu Jun 26 07:06:29 2003 Neil Booth + + * top.c (ffe_handle_option): Don't check for missing arguments. + + Wed Jun 25 06:52:12 2003 Neil Booth + + * top.c (ffe_handle_option): Add missing break;. + + 2003-06-24 Scott Snyder + + PR fortran/11299 + * com.c (ffe_init): Call push_srcloc() to ensure that + input_file_stack is initialized. + + Sat Jun 21 21:29:38 2003 Neil Booth + + * lang.opt: Add -fpreprocessed. + * top.c (ffe_handle_option): Handle it. + + Fri Jun 20 10:00:31 2003 Nathan Sidwell + + * com.c (finish_function): Adjust expand_function_end call. + + 2003-06-17 Nathanael Nerode + + * Make-lang.in: Replace BUILD_CC references with CC_FOR_BUILD. + + Sun Jun 15 15:56:51 2003 Neil Booth + + * lang.opt: Declare F77. + + Sat Jun 14 18:13:00 2003 Nathan Sidwell + + * com.c (stor_parm_decls): Adjust init_function_start call. + + Sat Jun 14 13:25:00 2003 Neil Booth + + * Make-lang.in: Update to use options.c and options.h. + * top.c: Include options.h not f-options.h. + (ffe_init_options): From com.c. Request F77 options. + (ffe_handle_options): Abort on unrecognized switch. + * com.c (ffe_init_options): Move to top.c. + * top.h (fee_init_options): New. + 2003-06-13 Richard Henderson ! PR debug/9864 ! * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL ! symbols in the global binding level. ! ! Sun Jun 8 15:42:09 2003 Neil Booth ! ! * Make-lang.in (F77_OBJS, f77.mostlyclean, f/com.o): Update. ! (f/f-options.c, f/f-options.h): New. ! * com.c: Include opts.h and f-options.h. ! (ffecom_decode_include_option_): Remove. ! (LANG_HOOKS_HANDLE_OPTION): New. ! (LANG_HOOKS_DECODE_OPTION): Drop. ! (struct file_name_list, ffecom_decode_include_option, ! ffecom_open_include_): Constify. ! * com.h (ffecom_decode_include_option): Update. ! * lang.opt: New. ! * top.c: Include f-options.h, opts.h. ! (ffe_is_digit_string_): Constify. ! (ffe_decode_option): Transform to ffe_handle_option. ! * top.h (ffe_decode_option): Replace with ffe_handle_option. ! ! 2003-06-08 Andreas Jaeger ! ! * std.c: Remove #if 0'ed functions. ! ! * sta.c: Remove usage of HARD_F90, FFESTR_F90 and FFESTR_VXT. ! * stb.c: Likewise. ! * stb.h: Likewise. ! * stc.c: Likewise. ! * stc.h: Likewise. ! * std.c: Likewise. ! * std.h: Likewise. ! * ste.c: Likewise. ! * ste.h: Likewise. ! ! * str.h (FFESTR_F90): Remove macro. ! (FFESTR_VXT): Remove macro. ! ! * bld.c: Remove usage of FFETARGET_okCHARACTER2, ! FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4, ! FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6, ! FFETARGET_okCHARACTER7, FFETARGET_okCHARACTER8, ! FFETARGET_okCOMPLEX4, FFETARGET_okCOMPLEX5, FFETARGET_okCOMPLEX6, ! FFETARGET_okCOMPLEX7, FFETARGET_okCOMPLEX8, FFETARGET_okINTEGER5, ! FFETARGET_okINTEGER6, FFETARGET_okINTEGER7, FFETARGET_okINTEGER8, ! FFETARGET_okLOGICAL5, FFETARGET_okLOGICAL6, FFETARGET_okLOGICAL7, ! FFETARGET_okLOGICAL8, FFETARGET_okREAL4, FFETARGET_okREAL5, ! FFETARGET_okREAL6, FFETARGET_okREAL7 and FFETARGET_okREAL8. ! * bld.h: Likewise. ! * expr.c: Likewise. ! * target.h: Likewise. ! * com.c: Likewise. ! ! Sun Jun 8 12:28:14 2003 Neil Booth ! ! * Make-lang.in: Update. ! * top.c: Include opts.h. Define cl_options_count and cl_options. ! ! 2003-06-07 Andreas Jaeger ! ! * symbol.c (ffesymbol_new_): Remove tests for macro ! FFECOM_symbolHOOK. ! * symbol.h: Likewise. ! ! * storag.c (ffestorag_new): Remove tests for macro ! FFECOM_storageHOOK. ! * storag.h: Likewise. ! ! * lab.c (ffelab_new): Remove tests for macro FFECOM_labelHOOK. ! * lab.h: Likewise. ! ! * global.c: Remove tests for macro FFECOM_globalHOOK. ! * global.h (struct _ffeglobal_): Likewise. ! ! * bld.h: Remove tests for macros FFECOM_constantHOOK, ! FFECOM_nonterHOOK, FFECOM_globalHOOK, FFECOM_labelHOOK, ! FFECOM_storageHOOK, FFECOM_symbolHOOK. ! Remove code dependend on FFECOM_itemHOOK. ! * bld.c: Likewise. ! ! * com.h (FFECOM_constantHOOK): Remove define. ! (FFECOM_nonterHOOK): Remove. ! (FFECOM_globalHOOK): Remove. ! (FFECOM_labelHOOK): Remove. ! (FFECOM_storageHOOK): Remove. ! (FFECOM_symbolHOOK): Remove. ! ! * com.c (ffecom_get_external_identifier_): Remove usage of ! FFETARGET_isENFORCED_MAIN_NAME. ! ! * bld.c: Remove code dependend on FFEBLD_BLANK_, FFECOM_itemHOOK. ! (ffebld_new_accter): Likewise. ! (ffebld_new_arrter): Likewise. ! (ffebld_new_conter_with_orig): Likewise. ! (ffebld_new_item): Likewise. ! (ffebld_new_labter): Likewise. ! (ffebld_new_labtok): Likewise. ! (ffebld_new_none): Likewise. ! (ffebld_new_one): Likewise. ! (ffebld_new_symter): Likewise. ! (ffebld_new_two): Likewise. ! ! Sat Jun 7 12:10:41 2003 Neil Booth ! ! * com.c (ffe_init_options): Update. ! ! Thu Jun 5 18:33:40 CEST 2003 Jan Hubicka ! ! * Make-lang.in: Add support for stageprofile and stagefeedback ! ! 2003-06-04 Andreas Jaeger ! ! * g77spec.c (lang_specific_driver): Remove ALT_LIBM usage. ! ! 2003-06-01 Bud Davis ! ! * ste.c (ffeste_R838): Handle ERROR_MARK. ! (ffeste_R839): Ditto. ! ! 2003-06-01 Andreas Jaeger ! ! * lex.c (ffelex_file_fixed): Remove usage of ! REDUCE_CARD_SIZE_AFTER_BIGGY. ! ! * expr.c (ffeexpr_exprstack_push_operand_): Remove code depenend ! on WEIRD_NONFORTRAN_RULES. ! ! * com.c (ffecom_arg_ptr_to_expr): Remove ! PASS_HOLLERITH_BY_DESCRIPTOR dependend code. ! (ffecom_const_expr): Remove usage of NEWCOMMON. ! (ffecom_expand_let_stmt): Remove MOVE_EXPR. ! ! 2003-05-31 Bud Davis ! ! PR fortran/10843 ! * sta.c (ffesta_second_): Parse GO TO correctly, ! even in free source format. ! ! 2003-05-31 Andreas Jaeger ! ! * lex.c (ffelex_hash_): Remove HANDLE_PRAGMA and ! HANDLE_GENERIC_PRAGMA dependend code, remove #if 0 code. ! (pragma_getc): Removed. ! (pragma_ungetc): Removed. ! ! 2003-05-30 Roger Sayle ! ! * com.c (ffecom_init_0): Define built-in functions for tan and atan. ! * com-rt.def: Use then to implement g77's tan and atan intrinsics. ! ! 2003-05-22 Bud Davis ! ! * com.c (ffecom_sym_transform_): Error out on unallocatable ! storage after type is set. 2003-05-18 Toon Moene * intdoc.in: Fix documentation of IDATE. * intdoc.texi: Regenerate. ! * news.texi: Update due to also fixing it in 3.3.1. 2003-05-16 Wolfgang Bangerth ! * g77.texi: Remove most of the of the preface of the ! bugs section. 2003-05-15 Wolfgang Bangerth * g77.texi: Remove most of the bug reporting instructions and merge them into bugs.html. ! 2003-05-13 Zack Weinberg ! * com.c: Replace all calls to fatal_io_error with calls to ! fatal_error; add ": %m" to the end of all the affected error ! messages. ! 2003-05-12 Zack Weinberg ! * bad.c: Don't call diagnostic_count_diagnostic. ! 2003-05-12 Roger Sayle ! * com.c (ffecom_init_0): Define built-in functions for atan2, ! exp, floor, fmod, log and pow. ! (duplicate_decls): Preserve assembler name when redeclaring a ! built-in. ! * com-rt.def: Implement using the built-in forms of the above ! functions rather than calling the standard C library directly. ! Correct some of the run-time prototype "codes". ! ! 2003-05-11 Toon Moene ! ! PR fortran/10726 ! * intdoc.in: Fix documentation of IDATE. ! * intdoc.texi: Regenerate. ! * g77.texi: Document completion of INTEGER*n support. ! * news.texi: Update due to the above. ! ! 2003-05-08 Roger Sayle ! ! PR fortran/8485 ! * target.h (FFETARGET_REAL_VALUE_FROM_INT_): Cast to ! HOST_WIDE_INT instead of long. ! (FFETARGET_REAL_VALUE_FROM_LONGLONG_): New macro. ! (FFETARGET_LONGLONG_FROM_INTS_): New macro. ! (ffetarget_convert_complex1_integer4): Implement. ! (ffetarget_convert_complex2_integer4): Implement. ! (ffetarget_convert_integer4_complex1): Implement. ! (ffetarget_convert_integer4_complex2): Implement. ! (ffetarget_convert_integer4_real1): Implement. ! (ffetarget_convert_integer4_real2): Implement. ! (ffetarget_convert_real1_integer4): Implement. ! (ffetarget_convert_real2_integer4): Implement. ! * com.c (ffecom_constantunion): Handle INTEGER*8. ! (ffecom_constantunion_with_type): Likewise. ! ! 2003-05-03 Nathan Sidwell ! ! * com.c (ffecom_do_entry_): Use location_t and input_location ! directly. ! (ffecom_gen_sfuncdef_): Likewise. ! (ffecom_start_progunit_): Likewise. ! (ffecom_sym_transform_): Likewise. ! (ffecom_sym_transform_assign_): Likewise. ! * lex.c (ffelex_hash_): Likewise. ! (ffelex_include_): Likewise. ! * std.c (ffestd_exec_begin): Likewise. ! (ffestd_exec_end): Likewise. ! * ste.c (struct gbe_block): Likewise. ! (ffeste_start_block_): Likewise. ! (ffeste_start_stmt_): Likewise. ! ! 2003-05-03 Nathan Sidwell ! ! * ansify.c (die_unless): Revert lineno change here. ! ! 2003-05-02 Nathan Sidwell ! ! * lex.c (ffelex_file_pop_): Adjust file_stack member use. ! (ffelex_file_push_): Likewise. ! (ffelex_hash_): Likewise. ! ! 2003-05-01 Nathan Sidwell ! ! * ansify.c (die_unless): Rename lineno to input_line. ! * com.c (ffecom_subscript_check_, ffecom_do_entry_, ! ffecom_gen_sfuncdef_, ffecom_start_progunit_, ! ffecom_sym_transform_, ffecom_sym_transform_assign_, ! bison_rule_pushlevel_, bison_rule_compstmt_, finish_function, ! store_parm_decls): Likewise. ! * intrin.c (ffeintrin_fulfill_generic): Likewise. ! * lex.c (ffelex_hash_, ffelex_include_, ffelex_next_line_, ! ffelex_file_fixed, ffelex_file_free): Likewise. ! * std.c (ffestd_exec_end): Likewise. ! * ste.c (ffeste_emit_line_note_, ffeste_start_block_, ! ffeste_start_stmt_): Likewise. ! * ste.h (ffeste_filelinenum, ffeste_set_line): Likewise. ! ! * lex.c (ffelex_file_pop_): Rename parameter from input_filename. ! (ffelex_file_push_): Likewise. ! ! * ste.c (struct gbe_block): Rename field from input_filename. ! (ffeste_start_block_, ffeste_start_stmt_): Likewise. ! ! 2003-04-17 Roger Sayle ! ! PR c/10375 ! * com.c (duplicate_decls): Preserve "const" and "noreturn" ! function attributes. ! ! 2003-04-13 Roger Sayle ! ! * com.c (duplicate_decls): Preserve pure and malloc attributes. ! ! 2003-04-12 Zack Weinberg ! ! * com.c (ffecom_build_complex_constant_, ffecom_expr_) ! (ffecom_init_zero_, ffecom_transform_namelist_, ffecom_vardesc_) ! (ffecom_vardesc_array_, ffecom_vardesc_dims_, ffecom_2) ! * ste.c (ffeste_io_ialist_, ffeste_io_cilist_, ffeste_io_cllist_) ! (ffeste_io_icilist_, ffeste_io_inlist_, ffeste_io_olist_): ! Use build_constructor. 2003-04-11 Bud Davis *************** Tue Jul 8 15:18:14 2003 Andreas Schwab *** 95,100 **** --- 663,672 ---- increment values for INTEGER typeness. * gcc/f/news.texi: Document these fixes. + 2003-03-27 Steven Bosscher + + * ffe.texi: Don't mention dead file proj.c. + 2003-03-26 Roger Sayle PR fortran/9793 *************** Sun Mar 23 23:43:45 2003 Mark Mitchell *** 126,137 **** * ste.c (ffeste_R810): Use ffecom_constantunion_with_type to discern SELECT CASE variables. 2003-03-15 Andreas Jaeger * g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove. (DEFAULT_WORD_SWITCH_TAKES_ARG): Remove. ! 2003-02-21 Toon Moene * news.texi: Document fixing PR fortran/9038. --- 698,739 ---- * ste.c (ffeste_R810): Use ffecom_constantunion_with_type to discern SELECT CASE variables. + 2003-03-15 Roger Sayle + + * stb.c (ffestb_R100110_): Allow the number before the X format + to be optional when not -fpedantic. + * std.c (ffestd_R1001dump_1010_3_): Delete unused static function. + (ffestd_R1001dump_): For the FFESTP_formattypeX case, call + ffestd_R1001dump_1010_2_ instead of ffestd_R1001dump_1010_3_. + + 2003-03-15 Roger Sayle + + * f/ste.c (ffeste_R810): Fix whitespace. + 2003-03-15 Andreas Jaeger * g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove. (DEFAULT_WORD_SWITCH_TAKES_ARG): Remove. ! 2003-03-12 Nathanael Nerode ! ! * g77.texi, invoke.texi, g77spec.c, lang-specs.h: GCC, not ! GNU CC. Especially here. ! ! 2003-03-10 Roger Sayle ! ! * com.c (duplicate_decls): Synchronize with C's duplicate_decls. ! ! Sat Mar 8 21:11:40 2003 Neil Booth ! ! * com.c (ffe_init): Update prototype; move code to ffe_post_options. ! (ffe_post_options): New. ! ! 2003-03-04 Tom Tromey ! ! * Make-lang.in (f77.tags): New target. ! ! 2003-02-20 Toon Moene * news.texi: Document fixing PR fortran/9038. *************** Sun Mar 23 23:43:45 2003 Mark Mitchell *** 139,166 **** * g77.texi, invoke.texi: Update to GFDL 1.2. ! 2003-01-30 Toon Moene * news.texi: Document fixing PR fortran/7681 ! and PR optimization/9258. 2003-01-26 Toon Moene ! * lang-specs.h: Revert change to solve 9038. * news.texi: Document this. ! 2003-01-26 Christian Cornelssen ! * Make-lang.in (f77.install-common, f77.install-info) ! (f77.install-man, f77.uninstall): Prepend $(DESTDIR) to destination paths in all (un)installation commands. ! 2003-01-05 Steven Bosscher PR Fortran/9038 ! * lang-specs.h: Prevent -f