bld.c

gcc-2.95.3 Linux下最常用的C编译器

      break;
#endif

#if FFETARGET_okLOGICAL2
    case FFEBLD_constLOGICAL2:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL2);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL2);
      break;
#endif

#if FFETARGET_okLOGICAL3
    case FFEBLD_constLOGICAL3:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL3);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL3);
      break;
#endif

#if FFETARGET_okLOGICAL4
    case FFEBLD_constLOGICAL4:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL4);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL4);
      break;
#endif

#if FFETARGET_okLOGICAL5
    case FFEBLD_constLOGICAL5:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL5);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL5);
      break;
#endif

#if FFETARGET_okLOGICAL6
    case FFEBLD_constLOGICAL6:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL6);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL6);
      break;
#endif

#if FFETARGET_okLOGICAL7
    case FFEBLD_constLOGICAL7:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL7);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL7);
      break;
#endif

#if FFETARGET_okLOGICAL8
    case FFEBLD_constLOGICAL8:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeLOGICAL,
			  FFEINFO_kindtypeLOGICAL8);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICAL8);
      break;
#endif

#if FFETARGET_okREAL1
    case FFEBLD_constREAL1:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL1);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL1);
      break;
#endif

#if FFETARGET_okREAL2
    case FFEBLD_constREAL2:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL2);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL2);
      break;
#endif

#if FFETARGET_okREAL3
    case FFEBLD_constREAL3:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL3);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL3);
      break;
#endif

#if FFETARGET_okREAL4
    case FFEBLD_constREAL4:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL4);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL4);
      break;
#endif

#if FFETARGET_okREAL5
    case FFEBLD_constREAL5:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL5);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL5);
      break;
#endif

#if FFETARGET_okREAL6
    case FFEBLD_constREAL6:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL6);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL6);
      break;
#endif

#if FFETARGET_okREAL7
    case FFEBLD_constREAL7:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL7);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL7);
      break;
#endif

#if FFETARGET_okREAL8
    case FFEBLD_constREAL8:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeREAL,
			  FFEINFO_kindtypeREAL8);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			      FFEINFO_basictypeREAL, FFEINFO_kindtypeREAL8);
      break;
#endif

#if FFETARGET_okCOMPLEX1
    case FFEBLD_constCOMPLEX1:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL1);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL1);
      break;
#endif

#if FFETARGET_okCOMPLEX2
    case FFEBLD_constCOMPLEX2:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL2);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL2);
      break;
#endif

#if FFETARGET_okCOMPLEX3
    case FFEBLD_constCOMPLEX3:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL3);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL3);
      break;
#endif

#if FFETARGET_okCOMPLEX4
    case FFEBLD_constCOMPLEX4:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL4);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL4);
      break;
#endif

#if FFETARGET_okCOMPLEX5
    case FFEBLD_constCOMPLEX5:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL5);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL5);
      break;
#endif

#if FFETARGET_okCOMPLEX6
    case FFEBLD_constCOMPLEX6:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL6);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL6);
      break;
#endif

#if FFETARGET_okCOMPLEX7
    case FFEBLD_constCOMPLEX7:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL7);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL7);
      break;
#endif

#if FFETARGET_okCOMPLEX8
    case FFEBLD_constCOMPLEX8:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCOMPLEX,
			  FFEINFO_kindtypeREAL8);
      ffebld_constantunion_dump (ffebld_constant_union (c),
			   FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREAL8);
      break;
#endif

#if FFETARGET_okCHARACTER1
    case FFEBLD_constCHARACTER1:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER1);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER1);
      break;
#endif

#if FFETARGET_okCHARACTER2
    case FFEBLD_constCHARACTER2:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER2);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER2);
      break;
#endif

#if FFETARGET_okCHARACTER3
    case FFEBLD_constCHARACTER3:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER3);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER3);
      break;
#endif

#if FFETARGET_okCHARACTER4
    case FFEBLD_constCHARACTER4:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER4);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER4);
      break;
#endif

#if FFETARGET_okCHARACTER5
    case FFEBLD_constCHARACTER5:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER5);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER5);
      break;
#endif

#if FFETARGET_okCHARACTER6
    case FFEBLD_constCHARACTER6:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER6);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER6);
      break;
#endif

#if FFETARGET_okCHARACTER7
    case FFEBLD_constCHARACTER7:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER7);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER7);
      break;
#endif

#if FFETARGET_okCHARACTER8
    case FFEBLD_constCHARACTER8:
      ffebld_dump_prefix (dmpout, FFEINFO_basictypeCHARACTER,
			  FFEINFO_kindtypeCHARACTER8);
      ffebld_constantunion_dump (ffebld_constant_union (c),
		    FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTER8);
      break;
#endif

    case FFEBLD_constHOLLERITH:
      fprintf (dmpout, "H%" ffetargetHollerithSize_f "u/",
	       ffebld_constant_hollerith (c).length);
      ffetarget_print_hollerith (dmpout, ffebld_constant_hollerith (c));
      break;

    case FFEBLD_constBINARY_MIL:
      fprintf (dmpout, "BM/");
      ffetarget_print_binarymil (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constBINARY_VXT:
      fprintf (dmpout, "BV/");
      ffetarget_print_binaryvxt (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constOCTAL_MIL:
      fprintf (dmpout, "OM/");
      ffetarget_print_octalmil (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constOCTAL_VXT:
      fprintf (dmpout, "OV/");
      ffetarget_print_octalvxt (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constHEX_X_MIL:
      fprintf (dmpout, "XM/");
      ffetarget_print_hexxmil (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constHEX_X_VXT:
      fprintf (dmpout, "XV/");
      ffetarget_print_hexxvxt (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constHEX_Z_MIL:
      fprintf (dmpout, "ZM/");
      ffetarget_print_hexzmil (dmpout, ffebld_constant_typeless (c));
      break;

    case FFEBLD_constHEX_Z_VXT:
      fprintf (dmpout, "ZV/");
      ffetarget_print_hexzvxt (dmpout, ffebld_constant_typeless (c));
      break;

    default:
      assert ("bad constant type" == NULL);
      fprintf (dmpout, "?/?");
      break;
    }
}
#endif

/* ffebld_constant_is_magical -- Determine if integer is "magical"

   ffebldConstant c;
   if (ffebld_constant_is_magical(c))
       // it is 2**(n-1), where n is # bits in ffetargetIntegerDefault type
       // (this test is important for 2's-complement machines only).  */

bool
ffebld_constant_is_magical (ffebldConstant c)
{
  switch (ffebld_constant_type (c))
    {
    case FFEBLD_constINTEGERDEFAULT:
      return ffetarget_integerdefault_is_magical (ffebld_constant_integer1 (c));

    default:
      return FALSE;
    }
}

/* Determine if constant is zero.  Used to ensure step count
   for DO loops isn't zero, also to determine if values will
   be binary zeros, so not entirely portable at this point.  */

bool
ffebld_constant_is_zero (ffebldConstant c)
{
  switch (ffebld_constant_type (c))
    {
#if FFETARGET_okINTEGER1
    case FFEBLD_constINTEGER1:
      return ffebld_constant_integer1 (c) == 0;
#endif

#if FFETARGET_okINTEGER2
    case FFEBLD_constINTEGER2:
      return ffebld_constant_integer2 (c) == 0;
#endif

#if FFETARGET_okINTEGER3
    case FFEBLD_constINTEGER3:
      return ffebld_constant_integer3 (c) == 0;
#endif

#if FFETARGET_okINTEGER4
    case FFEBLD_constINTEGER4:
      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;
#endif

#if FFETARGET_okLOGICAL2
    case FFEBLD_constLOGICAL2:
      return ffebld_constant_logical2 (c) == 0;
#endif

#if FFETARGET_okLOGICAL3
    case FFEBLD_constLOGICAL3:
      return ffebld_constant_logical3 (c) == 0;
#endif

#if FFETARGET_okLOGICAL4
    case FFEBLD_constLOGICAL4:
      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));
#endif

#if FFETARGET_okREAL2
    case FFEBLD_constREAL2:
      return ffetarget_iszero_real2 (ffebld_constant_real2 (c));
#endif

#if FFETARGET_okREAL3
    case FFEBLD_constREAL3:
      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)
     && ffetarget_iszero_real1 (ffebld_constant_complex1 (c).imaginary);
#endif

#if FFETARGET_okCOMPLEX2
    case FFEBLD_constCOMPLEX2:
      return ffetarget_iszero_real2 (ffebld_constant_complex2 (c).real)
     && ffetarget_iszero_real2 (ffebld_constant_complex2 (c).imaginary);
#endif

#if FFETARGET_okCOMPLEX3
    case FFEBLD_constCOMPLEX3:
      return ffetarget_iszero_real3 (ffebld_constant_complex3 (c).real)
     && 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);