fp_log.c
Upload User: jlfgdled
Upload Date: 2013-04-10
Package Size: 33168k
Code Size: 2k
Development Platform:

Unix_Linux

  1. /*
  2.   fp_trig.c: floating-point math routines for the Linux-m68k
  3.   floating point emulator.
  4.   Copyright (c) 1998-1999 David Huggins-Daines / Roman Zippel.
  5.   I hereby give permission, free of charge, to copy, modify, and
  6.   redistribute this software, in source or binary form, provided that
  7.   the above copyright notice and the following disclaimer are included
  8.   in all such copies.
  9.   THIS SOFTWARE IS PROVIDED "AS IS", WITH ABSOLUTELY NO WARRANTY, REAL
  10.   OR IMPLIED.
  11. */
  12. #include "fp_emu.h"
  13. struct fp_ext *
  14. fp_fsqrt(struct fp_ext *dest, struct fp_ext *src)
  15. {
  16. uprint("fsqrtn");
  17. fp_monadic_check(dest, src);
  18. if (IS_ZERO(dest))
  19. return dest;
  20. if (dest->sign) {
  21. fp_set_nan(dest);
  22. return dest;
  23. }
  24. if (IS_INF(dest))
  25. return dest;
  26. return dest;
  27. }
  28. struct fp_ext *
  29. fp_fetoxm1(struct fp_ext *dest, struct fp_ext *src)
  30. {
  31. uprint("fetoxm1n");
  32. fp_monadic_check(dest, src);
  33. if (IS_ZERO(dest))
  34. return dest;
  35. return dest;
  36. }
  37. struct fp_ext *
  38. fp_fetox(struct fp_ext *dest, struct fp_ext *src)
  39. {
  40. uprint("fetoxn");
  41. fp_monadic_check(dest, src);
  42. return dest;
  43. }
  44. struct fp_ext *
  45. fp_ftwotox(struct fp_ext *dest, struct fp_ext *src)
  46. {
  47. uprint("ftwotoxn");
  48. fp_monadic_check(dest, src);
  49. return dest;
  50. }
  51. struct fp_ext *
  52. fp_ftentox(struct fp_ext *dest, struct fp_ext *src)
  53. {
  54. uprint("ftentoxn");
  55. fp_monadic_check(dest, src);
  56. return dest;
  57. }
  58. struct fp_ext *
  59. fp_flogn(struct fp_ext *dest, struct fp_ext *src)
  60. {
  61. uprint("flognn");
  62. fp_monadic_check(dest, src);
  63. return dest;
  64. }
  65. struct fp_ext *
  66. fp_flognp1(struct fp_ext *dest, struct fp_ext *src)
  67. {
  68. uprint("flognp1n");
  69. fp_monadic_check(dest, src);
  70. return dest;
  71. }
  72. struct fp_ext *
  73. fp_flog10(struct fp_ext *dest, struct fp_ext *src)
  74. {
  75. uprint("flog10n");
  76. fp_monadic_check(dest, src);
  77. return dest;
  78. }
  79. struct fp_ext *
  80. fp_flog2(struct fp_ext *dest, struct fp_ext *src)
  81. {
  82. uprint("flog2n");
  83. fp_monadic_check(dest, src);
  84. return dest;
  85. }
  86. struct fp_ext *
  87. fp_fgetexp(struct fp_ext *dest, struct fp_ext *src)
  88. {
  89. uprint("fgetexpn");
  90. fp_monadic_check(dest, src);
  91. return dest;
  92. }
  93. struct fp_ext *
  94. fp_fgetman(struct fp_ext *dest, struct fp_ext *src)
  95. {
  96. uprint("fgetmann");
  97. fp_monadic_check(dest, src);
  98. return dest;
  99. }