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

Diff of /gcl/o/num_co.c

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

revision 1.9 by camm, Tue Jan 7 06:20:49 2003 UTC revision 1.10 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 94  object plus_half, minus_half; Line 94  object plus_half, minus_half;
94          LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL          LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
95  */  */
96  #endif  #endif
97  void  static void
98  integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp)  integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp)
99  {  {
100          int h, l;          int h, l;
# Line 182  integer_decode_double(double d, int *hp, Line 182  integer_decode_double(double d, int *hp,
182          SEEEEEEEMMMMMMMMMMMMMMMMMMMMMMMM          SEEEEEEEMMMMMMMMMMMMMMMMMMMMMMMM
183  */  */
184  #endif  #endif
185  void  static void
186  integer_decode_float(double d, int *mp, int *ep, int *sp)  integer_decode_float(double d, int *mp, int *ep, int *sp)
187  {  {
188          float f;          float f;
# Line 224  integer_decode_float(double d, int *mp, Line 224  integer_decode_float(double d, int *mp,
224          *sp = (f > 0.0 ? 1 : -1);          *sp = (f > 0.0 ? 1 : -1);
225  }  }
226    
227  int  static int
228  double_exponent(double d)  double_exponent(double d)
229  {  {
230          if (d == 0.0)          if (d == 0.0)
# Line 250  double_exponent(double d) Line 250  double_exponent(double d)
250  #endif  #endif
251  }  }
252    
253  double  static double
254  set_exponent(double d, int e)  set_exponent(double d, int e)
255  {  {
256          double dummy;          double dummy;
# Line 347  double_to_integer(double d) Line 347  double_to_integer(double d)
347          return(x);          return(x);
348  }  }
349    
350  object  static object
351  num_remainder(object x, object y, object q)  num_remainder(object x, object y, object q)
352  {  {
353          object z;          object z;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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