home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / diverses / leda / src / basic / _fix.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-15  |  1.2 KB  |  59 lines
  1. /*******************************************************************************
  2. +
  3. +  LEDA  2.1.1                                                 11-15-1991
  4. +
  5. +
  6. +  _fix.c
  7. +
  8. +
  9. +  Copyright (c) 1991  by  Max-Planck-Institut fuer Informatik
  10. +  Im Stadtwald, 6600 Saarbruecken, FRG     
  11. +  All rights reserved.
  12. + 
  13. *******************************************************************************/
  14.  
  15.  
  16.  
  17. /* For compatibility with gcc */
  18.  
  19. #ifndef __GNUG__
  20.  
  21. #define BITS_PER_WORD 32
  22. #define HIGH_BIT_INT_COEFF  (1 << (BITS_PER_WORD - 1))
  23. #define HIGH_BIT_COEFF  (2 * (double) (1 << (BITS_PER_WORD - 2)))
  24.  
  25. long __fixunsdfsi (a)
  26. double a;
  27. {
  28.   if (a < HIGH_BIT_COEFF)
  29.     return (long)a;
  30.   /* Convert large positive numbers to smaller ones,
  31.      then increase again after you have a fixed point number.  */
  32.   else
  33.     return ((long) (a - HIGH_BIT_COEFF)) + HIGH_BIT_INT_COEFF;
  34. }
  35.  
  36.  
  37. #ifdef sparc 
  38.  
  39. asm (".global _save_registers");
  40. asm ("_save_registers:");
  41. asm ("st %i0,[%fp+68]");
  42. asm ("st %i1,[%fp+72]");
  43. asm ("st %i2,[%fp+76]");
  44. asm ("st %i3,[%fp+80]");
  45. asm ("st %i4,[%fp+84]");
  46. asm ("retl");
  47. asm ("st %i5,[%fp+88]");
  48.  
  49. #else
  50. void save_registers() {};
  51.  
  52. #endif
  53.  
  54. #else
  55. void save_registers() {};
  56.  
  57. #endif
  58.  
  59.