/[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.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;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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