Parent Directory | Revision Log | Patch
revision 1.12 by camm, Wed Jun 15 15:37:57 2005 UTC | revision 1.13 by camm, Tue Nov 1 12:11:04 2005 UTC | |
---|---|---|
# | Line 178 number_expt(object x, object y) | Line 178 number_expt(object x, object y) |
178 | vs_reset; | vs_reset; |
179 | return(z); | return(z); |
180 | } | } |
181 | z = number_nlog(x); | if (!number_zerop(y)) { |
182 | vs_push(z); | z = number_nlog(x); |
183 | z = number_times(z, y); | vs_push(z); |
184 | z = number_times(z, y); | |
185 | } else | |
186 | z=(type_of(x)==t_longfloat) ? make_longfloat(0.0) : y;/*FIXME*/ | |
187 | vs_push(z); | vs_push(z); |
188 | z = number_exp(z); | z = number_exp(z); |
189 | vs_reset; | vs_reset; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |