stage3/fill_candidate_datatypes.cc
changeset 610 50b708dff319
parent 609 9ab033d2bb55
child 612 c062ff18d04f
equal deleted inserted replaced
609:9ab033d2bb55 610:50b708dff319
   146   }
   146   }
   147     
   147     
   148   {/* Remove floating point data types */
   148   {/* Remove floating point data types */
   149     real64_t value = 0;
   149     real64_t value = 0;
   150     if (VALID_CVALUE( real64, symbol)) value = GET_CVALUE(real64, symbol);
   150     if (VALID_CVALUE( real64, symbol)) value = GET_CVALUE(real64, symbol);
       
   151     if (IS_OVERFLOW ( real64, symbol)) value = (real64_t)REAL32_MAX + (real64_t)1;
   151     if (value >  REAL32_MAX )         {__REMOVE__( real_type_name);}
   152     if (value >  REAL32_MAX )         {__REMOVE__( real_type_name);}
   152     if (value < -REAL32_MAX )         {__REMOVE__( real_type_name);}
   153     if (value < -REAL32_MAX )         {__REMOVE__( real_type_name);}
   153     if (IS_OVERFLOW( real64, symbol)) {__REMOVE__(lreal_type_name);}
   154     if (IS_OVERFLOW( real64, symbol)) {__REMOVE__(lreal_type_name);}
   154   }
   155   }
   155   #undef __REMOVE__
   156   #undef __REMOVE__