Return to capaFormula.y CVS log | Up to [LON-CAPA] / capa / capa51 / pProj |
version 1.3, 2000/06/30 21:36:16 | version 1.4, 2000/07/07 18:30:57 |
---|---|
Line 211 f_symbol_pow(ap,bp) Symbol *ap; Symbol * | Line 211 f_symbol_pow(ap,bp) Symbol *ap; Symbol * |
case S_CONSTANT: | case S_CONSTANT: |
default: error = 1; break; | default: error = 1; break; |
} | } |
if ((!(((double)((int)b)) == b)) && (a < 0.0)) { | |
error = 1; | |
} | |
if (!error) { | if (!error) { |
cp = (Symbol *)capa_malloc(sizeof(Symbol),1); | cp = (Symbol *)capa_malloc(sizeof(Symbol),1); |
cp->s_type = R_CONSTANT; | cp->s_type = R_CONSTANT; |