Parent Directory | Revision Log | Patch
revision 1.3 by camm, Tue Aug 6 22:41:30 2002 UTC | revision 1.4 by camm, Tue Jan 7 06:20:49 2003 UTC | |
---|---|---|
# | Line 19 Foundation, 675 Mass Ave, Cambridge, MA | Line 19 Foundation, 675 Mass Ave, Cambridge, MA |
19 | ||
20 | */ | */ |
21 | ||
22 | #define IN_NUM_CO | |
23 | ||
24 | #include "include.h" | #include "include.h" |
25 | #include "num_include.h" | #include "num_include.h" |
26 | ||
# | Line 127 number_expt(object x, object y) | Line 129 number_expt(object x, object y) |
129 | vs_push(z); | vs_push(z); |
130 | z = number_expt(x, z); | z = number_expt(x, z); |
131 | vs_push(z); | vs_push(z); |
132 | if ((type_of(z)==t_shortfloat && !ISNORMAL(z->SF.SFVAL)) || | |
133 | (type_of(z)==t_longfloat && !ISNORMAL(z->LF.LFVAL))) { | |
134 | z = number_nlog(x); | |
135 | vs_push(z); | |
136 | z = number_times(z, y); | |
137 | vs_push(z); | |
138 | z = number_exp(z); | |
139 | vs_reset; | |
140 | return(z); | |
141 | } | |
142 | z = number_divide(small_fixnum(1), z); | z = number_divide(small_fixnum(1), z); |
143 | vs_reset; | vs_reset; |
144 | return(z); | return(z); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |