stage3/constant_folding.cc
changeset 576 8368ec909825
parent 575 a1b63f776535
child 577 f578f14cb97f
equal deleted inserted replaced
575:a1b63f776535 576:8368ec909825
   391 /*********************/
   391 /*********************/
   392 /******************************/
   392 /******************************/
   393 /* B 1.2.1 - Numeric Literals */
   393 /* B 1.2.1 - Numeric Literals */
   394 /******************************/
   394 /******************************/
   395 void *constant_folding_c::visit(real_c *symbol) {
   395 void *constant_folding_c::visit(real_c *symbol) {
   396 	NEW_CVALUE(real64, symbol);	SET_CVALUE(real64, symbol, extract_real_value(symbol));
   396 	bool overflow;
       
   397 	NEW_CVALUE(real64, symbol);	SET_CVALUE(real64, symbol, extract_real_value(symbol, &overflow));
       
   398 	if (overflow) SET_OVFLOW(real64, symbol);
   397 	return NULL;
   399 	return NULL;
   398 }
   400 }
   399 
   401 
   400 
   402 
   401 void *constant_folding_c::visit(integer_c *symbol) {
   403 void *constant_folding_c::visit(integer_c *symbol) {