/[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.11 by camm, Fri Jun 10 15:36:33 2005 UTC revision 1.12 by camm, Wed Jun 15 15:37:57 2005 UTC
# Line 43  fixnum_expt(int x, int y) Line 43  fixnum_expt(int x, int y)
43          return(z);          return(z);
44  }  }
45    
46    static object number_sin(object);
47    static object number_cos(object);
48    static object number_exp(object);
49    static object number_nlog(object);
50    static object number_atan2(object,object);
51    
52    
53  static object  static object
54  number_exp(object x)  number_exp(object x)
55  {  {
# Line 64  number_exp(object x) Line 71  number_exp(object x)
71          case t_complex:          case t_complex:
72          {          {
73                  object y, y1;                  object y, y1;
                 static object number_sin(object x), number_cos(object x);  
74                  vs_mark;                  vs_mark;
75                    
76                  y = x->cmp.cmp_imag;                  y = x->cmp.cmp_imag;
# Line 93  number_expt(object x, object y) Line 99  number_expt(object x, object y)
99  {  {
100          enum type tx, ty;          enum type tx, ty;
101          object z;          object z;
         static object number_nlog(object x);  
102          vs_mark;          vs_mark;
103    
104          tx = type_of(x);          tx = type_of(x);
# Line 187  number_nlog(object x) Line 192  number_nlog(object x)
192  {  {
193          double log(double);          double log(double);
194          object r=Cnil, i=Cnil, a, p;          object r=Cnil, i=Cnil, a, p;
         static object number_sqrt(object x), number_atan2(object y, object x);  
195          vs_mark;          vs_mark;
196    
197          if (type_of(x) == t_complex) {          if (type_of(x) == t_complex) {

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

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