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

Diff of /gcl/o/num_arith.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.4 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 27  Foundation, 675 Mass Ave, Cambridge, MA Line 27  Foundation, 675 Mass Ave, Cambridge, MA
27    
28  #include "num_include.h"  #include "num_include.h"
29    
30    static void
31    zero_divisor(void);
32    
33  object fixnum_add(int i, int j)  object fixnum_add(int i, int j)
34  {  {
35    
# Line 59  object fixnum_sub(int i, int j) Line 62  object fixnum_sub(int i, int j)
62     }     }
63  }  }
64    
65  object  /* static object */
66  fixnum_times(int i, int j)  /* fixnum_times(int i, int j) */
67  {  /* { */
68    
69    MPOP(return,mulss,i,j);  /*   MPOP(return,mulss,i,j); */
70  }  /* } */
71    
72  object  static object
73  number_to_complex(object x)  number_to_complex(object x)
74  {  {
75          object z;          object z;
# Line 1016  Llcm(void) Line 1019  Llcm(void)
1019          vs_top = vs_base+1;          vs_top = vs_base+1;
1020  }  }
1021    
1022  void  static void
1023  zero_divisor(void)  zero_divisor(void)
1024  {  {
1025          FEerror("Zero divisor.", 0);          FEerror("Zero divisor.", 0);

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