/[gcl]/gcl/o/num_sfun.c
ViewVC logotype

Diff of /gcl/o/num_sfun.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26