home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / programi / gcc_9112.lzh / include20 / inline / mathieeedoubtrans.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-15  |  5.9 KB  |  292 lines
  1. #include <inline/stub.h>
  2. #ifndef BASE_EXT_DECL
  3. #define BASE_EXT_DECL extern struct MathIeeeDoubTransBase * MathIeeeDoubTransBase;
  4. #endif
  5. #ifndef BASE_PAR_DECL
  6. #define BASE_PAR_DECL
  7. #define BASE_PAR_DECL0 void
  8. #endif
  9. #ifndef BASE_NAME
  10. #define BASE_NAME MathIeeeDoubTransBase
  11. #endif
  12. __inline static DOUBLE IEEEDPAtan(BASE_PAR_DECL DOUBLE parm)
  13. {
  14.     BASE_EXT_DECL
  15.     register DOUBLE res __asm("d0");
  16.     register void *a6 __asm ("a6");
  17.     register DOUBLE d0 __asm("d0");
  18.  
  19.     a6 = BASE_NAME;
  20.     d0 = parm;
  21.     __asm volatile ("
  22.     jsr a6@(-0x1e)"
  23.     : "=g" (res)
  24.     : "g" (a6), "g" (d0)
  25.     : "d0", "d1", "a0", "a1");
  26.     return res;
  27. }
  28. __inline static DOUBLE IEEEDPSin(BASE_PAR_DECL DOUBLE parm)
  29. {
  30.     BASE_EXT_DECL
  31.     register DOUBLE res __asm("d0");
  32.     register void *a6 __asm ("a6");
  33.     register DOUBLE d0 __asm("d0");
  34.  
  35.     a6 = BASE_NAME;
  36.     d0 = parm;
  37.     __asm volatile ("
  38.     jsr a6@(-0x24)"
  39.     : "=g" (res)
  40.     : "g" (a6), "g" (d0)
  41.     : "d0", "d1", "a0", "a1");
  42.     return res;
  43. }
  44. __inline static DOUBLE IEEEDPCos(BASE_PAR_DECL DOUBLE parm)
  45. {
  46.     BASE_EXT_DECL
  47.     register DOUBLE res __asm("d0");
  48.     register void *a6 __asm ("a6");
  49.     register DOUBLE d0 __asm("d0");
  50.  
  51.     a6 = BASE_NAME;
  52.     d0 = parm;
  53.     __asm volatile ("
  54.     jsr a6@(-0x2a)"
  55.     : "=g" (res)
  56.     : "g" (a6), "g" (d0)
  57.     : "d0", "d1", "a0", "a1");
  58.     return res;
  59. }
  60. __inline static DOUBLE IEEEDPTan(BASE_PAR_DECL DOUBLE parm)
  61. {
  62.     BASE_EXT_DECL
  63.     register DOUBLE res __asm("d0");
  64.     register void *a6 __asm ("a6");
  65.     register DOUBLE d0 __asm("d0");
  66.  
  67.     a6 = BASE_NAME;
  68.     d0 = parm;
  69.     __asm volatile ("
  70.     jsr a6@(-0x30)"
  71.     : "=g" (res)
  72.     : "g" (a6), "g" (d0)
  73.     : "d0", "d1", "a0", "a1");
  74.     return res;
  75. }
  76. __inline static DOUBLE IEEEDPSincos(BASE_PAR_DECL DOUBLE* pf2, DOUBLE parm)
  77. {
  78.     BASE_EXT_DECL
  79.     register DOUBLE res __asm("d0");
  80.     register void *a6 __asm ("a6");
  81.     register DOUBLE* a0 __asm("a0");
  82.     register DOUBLE d0 __asm("d0");
  83.  
  84.     a6 = BASE_NAME;
  85.     a0 = pf2;
  86.     d0 = parm;
  87.     __asm volatile ("
  88.     jsr a6@(-0x36)"
  89.     : "=g" (res)
  90.     : "g" (a6), "g" (a0), "g" (d0)
  91.     : "d0", "d1", "a0", "a1");
  92.     return res;
  93. }
  94. __inline static DOUBLE IEEEDPSinh(BASE_PAR_DECL DOUBLE parm)
  95. {
  96.     BASE_EXT_DECL
  97.     register DOUBLE res __asm("d0");
  98.     register void *a6 __asm ("a6");
  99.     register DOUBLE d0 __asm("d0");
  100.  
  101.     a6 = BASE_NAME;
  102.     d0 = parm;
  103.     __asm volatile ("
  104.     jsr a6@(-0x3c)"
  105.     : "=g" (res)
  106.     : "g" (a6), "g" (d0)
  107.     : "d0", "d1", "a0", "a1");
  108.     return res;
  109. }
  110. __inline static DOUBLE IEEEDPCosh(BASE_PAR_DECL DOUBLE parm)
  111. {
  112.     BASE_EXT_DECL
  113.     register DOUBLE res __asm("d0");
  114.     register void *a6 __asm ("a6");
  115.     register DOUBLE d0 __asm("d0");
  116.  
  117.     a6 = BASE_NAME;
  118.     d0 = parm;
  119.     __asm volatile ("
  120.     jsr a6@(-0x42)"
  121.     : "=g" (res)
  122.     : "g" (a6), "g" (d0)
  123.     : "d0", "d1", "a0", "a1");
  124.     return res;
  125. }
  126. __inline static DOUBLE IEEEDPTanh(BASE_PAR_DECL DOUBLE parm)
  127. {
  128.     BASE_EXT_DECL
  129.     register DOUBLE res __asm("d0");
  130.     register void *a6 __asm ("a6");
  131.     register DOUBLE d0 __asm("d0");
  132.  
  133.     a6 = BASE_NAME;
  134.     d0 = parm;
  135.     __asm volatile ("
  136.     jsr a6@(-0x48)"
  137.     : "=g" (res)
  138.     : "g" (a6), "g" (d0)
  139.     : "d0", "d1", "a0", "a1");
  140.     return res;
  141. }
  142. __inline static DOUBLE IEEEDPExp(BASE_PAR_DECL DOUBLE parm)
  143. {
  144.     BASE_EXT_DECL
  145.     register DOUBLE res __asm("d0");
  146.     register void *a6 __asm ("a6");
  147.     register DOUBLE d0 __asm("d0");
  148.  
  149.     a6 = BASE_NAME;
  150.     d0 = parm;
  151.     __asm volatile ("
  152.     jsr a6@(-0x4e)"
  153.     : "=g" (res)
  154.     : "g" (a6), "g" (d0)
  155.     : "d0", "d1", "a0", "a1");
  156.     return res;
  157. }
  158. __inline static DOUBLE IEEEDPLog(BASE_PAR_DECL DOUBLE parm)
  159. {
  160.     BASE_EXT_DECL
  161.     register DOUBLE res __asm("d0");
  162.     register void *a6 __asm ("a6");
  163.     register DOUBLE d0 __asm("d0");
  164.  
  165.     a6 = BASE_NAME;
  166.     d0 = parm;
  167.     __asm volatile ("
  168.     jsr a6@(-0x54)"
  169.     : "=g" (res)
  170.     : "g" (a6), "g" (d0)
  171.     : "d0", "d1", "a0", "a1");
  172.     return res;
  173. }
  174. __inline static DOUBLE IEEEDPPow(BASE_PAR_DECL DOUBLE exp, DOUBLE arg)
  175. {
  176.     BASE_EXT_DECL
  177.     register DOUBLE res __asm("d0");
  178.     register void *a6 __asm ("a6");
  179.     register DOUBLE d2 __asm("d2");
  180.     register DOUBLE d3 __asm("d3");
  181.  
  182.     a6 = BASE_NAME;
  183.     d2 = exp;
  184.     d3 = arg;
  185.     __asm volatile ("
  186.     jsr a6@(-0x5a)"
  187.     : "=g" (res)
  188.     : "g" (a6), "g" (d2), "g" (d3)
  189.     : "d0", "d1", "a0", "a1", "d2", "d3");
  190.     return res;
  191. }
  192. __inline static DOUBLE IEEEDPSqrt(BASE_PAR_DECL DOUBLE parm)
  193. {
  194.     BASE_EXT_DECL
  195.     register DOUBLE res __asm("d0");
  196.     register void *a6 __asm ("a6");
  197.     register DOUBLE d0 __asm("d0");
  198.  
  199.     a6 = BASE_NAME;
  200.     d0 = parm;
  201.     __asm volatile ("
  202.     jsr a6@(-0x60)"
  203.     : "=g" (res)
  204.     : "g" (a6), "g" (d0)
  205.     : "d0", "d1", "a0", "a1");
  206.     return res;
  207. }
  208. __inline static FLOAT IEEEDPTieee(BASE_PAR_DECL DOUBLE parm)
  209. {
  210.     BASE_EXT_DECL
  211.     register FLOAT res __asm("d0");
  212.     register void *a6 __asm ("a6");
  213.     register DOUBLE d0 __asm("d0");
  214.  
  215.     a6 = BASE_NAME;
  216.     d0 = parm;
  217.     __asm volatile ("
  218.     jsr a6@(-0x66)"
  219.     : "=g" (res)
  220.     : "g" (a6), "g" (d0)
  221.     : "d0", "d1", "a0", "a1");
  222.     return res;
  223. }
  224. __inline static DOUBLE IEEEDPFieee(BASE_PAR_DECL FLOAT single)
  225. {
  226.     BASE_EXT_DECL
  227.     register DOUBLE res __asm("d0");
  228.     register void *a6 __asm ("a6");
  229.     register FLOAT d0 __asm("d0");
  230.  
  231.     a6 = BASE_NAME;
  232.     d0 = single;
  233.     __asm volatile ("
  234.     jsr a6@(-0x6c)"
  235.     : "=g" (res)
  236.     : "g" (a6), "g" (d0)
  237.     : "d0", "d1", "a0", "a1");
  238.     return res;
  239. }
  240. __inline static DOUBLE IEEEDPAsin(BASE_PAR_DECL DOUBLE parm)
  241. {
  242.     BASE_EXT_DECL
  243.     register DOUBLE res __asm("d0");
  244.     register void *a6 __asm ("a6");
  245.     register DOUBLE d0 __asm("d0");
  246.  
  247.     a6 = BASE_NAME;
  248.     d0 = parm;
  249.     __asm volatile ("
  250.     jsr a6@(-0x72)"
  251.     : "=g" (res)
  252.     : "g" (a6), "g" (d0)
  253.     : "d0", "d1", "a0", "a1");
  254.     return res;
  255. }
  256. __inline static DOUBLE IEEEDPAcos(BASE_PAR_DECL DOUBLE parm)
  257. {
  258.     BASE_EXT_DECL
  259.     register DOUBLE res __asm("d0");
  260.     register void *a6 __asm ("a6");
  261.     register DOUBLE d0 __asm("d0");
  262.  
  263.     a6 = BASE_NAME;
  264.     d0 = parm;
  265.     __asm volatile ("
  266.     jsr a6@(-0x78)"
  267.     : "=g" (res)
  268.     : "g" (a6), "g" (d0)
  269.     : "d0", "d1", "a0", "a1");
  270.     return res;
  271. }
  272. __inline static DOUBLE IEEEDPLog10(BASE_PAR_DECL DOUBLE parm)
  273. {
  274.     BASE_EXT_DECL
  275.     register DOUBLE res __asm("d0");
  276.     register void *a6 __asm ("a6");
  277.     register DOUBLE d0 __asm("d0");
  278.  
  279.     a6 = BASE_NAME;
  280.     d0 = parm;
  281.     __asm volatile ("
  282.     jsr a6@(-0x7e)"
  283.     : "=g" (res)
  284.     : "g" (a6), "g" (d0)
  285.     : "d0", "d1", "a0", "a1");
  286.     return res;
  287. }
  288. #undef BASE_EXT_DECL
  289. #undef BASE_PAR_DECL
  290. #undef BASE_PAR_DECL0
  291. #undef BASE_NAME
  292.