.file "atanf.s"// Copyright (c) 2000 - 2003, Intel Corporation// All rights reserved.//// Contributed 2000 by the Intel Numerics Group, Intel Corporation//// Redistribution and use in source and binary forms, with or without// modification, are permitted provided that the following conditions are// met://// * Redistributions of source code must retain the above copyright// notice, this list of conditions and the following disclaimer.//// * Redistributions in binary form must reproduce the above copyright// notice, this list of conditions and the following disclaimer in the// documentation and/or other materials provided with the distribution.//// * The name of Intel Corporation may not be used to endorse or promote// products derived from this software without specific prior written// permission.// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL INTEL OR ITS// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY// OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY OR TORT (INCLUDING// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.//// Intel Corporation is the author of this code, and requests that all// problem reports or change requests be submitted to it directly at// http://www.intel.com/software/products/opensource/libraries/num.htm.// History//==============================================================// 02/20/00 Initial version// 08/17/00 Changed predicate register macro-usage to direct predicate//          names due to an assembler bug.// 02/06/02 Corrected .section statement// 05/20/02 Cleaned up namespace and sf0 syntax// 02/06/03 Reordered header: .section, .global, .proc, .align;//          added missing bundling//// Assembly macros//==============================================================// integer registers usedEXP_Addr1          = r33EXP_Addr2          = r34// floating point registers usedatanf_coeff_R4     = f32atanf_coeff_R5     = f33atanf_coeff_R1     = f34atanf_coeff_R2     = f35atanf_coeff_R3     = f36atanf_coeff_P1     = f37atanf_coeff_Q6     = f38atanf_coeff_Q7     = f39atanf_coeff_Q8     = f40atanf_coeff_Q9     = f41atanf_coeff_Q4     = f42atanf_coeff_Q5     = f43atanf_coeff_Q2     = f44atanf_coeff_Q3     = f45atanf_coeff_P5     = f46atanf_coeff_P6     = f47atanf_coeff_Q0     = f48atanf_coeff_Q1     = f49atanf_coeff_P7     = f50atanf_coeff_P8     = f51atanf_coeff_P3     = f52atanf_coeff_P4     = f53atanf_coeff_P9     = f54atanf_coeff_P10    = f55atanf_coeff_P2     = f56atanf_piby2        = f57atanf_z            = f58atanf_b            = f59atanf_zsq          = f60atanf_sgn_x        = f61atanf_sgnx_piby2   = f62atanf_abs_x        = f63atanf_t            = f64atanf_xcub         = f65atanf_tsq          = f66atanf_t4           = f67atanf_x5           = f68atanf_x6           = f69atanf_x11          = f70atanf_poly_p1      = f71atanf_poly_p2      = f72atanf_poly_p3      = f73atanf_poly_p4      = f74atanf_poly_p5      = f75atanf_poly_q1      = f76atanf_poly_q2      = f77atanf_poly_q3      = f78atanf_poly_q4      = f79atanf_poly_q5      = f80atanf_poly_q       = f81atanf_poly_r1      = f81atanf_poly_r2      = f82atanf_poly_r3      = f83atanf_bsq          = f84atanf_z4           = f85atanf_z5           = f86atanf_z8           = f87atanf_z13          = f88atanf_poly_r2      = f89atanf_poly_r1      = f90atanf_z8_bsq       = f91atanf_poly_r       = f92atanf_z21_poly_r   = f93atanf_answer       = f8// predicate registers used//atanf_pred_LE1     = p6//atanf_pred_GT1     = p7RODATA.align 16LOCAL_OBJECT_START(atanf_coeff_1_table)data8 0x40c4c241be751ff2  // r4data8 0x40e9f300c2f3070b  // r5data8 0x409babffef772075  // r3data8 0xbfd5555512191621  // p1data8 0x3fc9997e7afbff4e  // p2  = q8data8 0xbfd5555512191621  // p1  = q9data8 0x3f97105b4160f86b  // p8  = q2data8 0xbfa6e10ba401393f  // p7  = q3data8 0x3f522e5d33bc9baa  // p10 = q0data8 0xbf7deaadaa336451  // p9  = q1data8 0xbfc2473c5145ee38  // p3data8 0x3fbc4f512b1865f5  // p4data8 0x3fc9997e7afbff4e  // p2data8 0x3ff921fb54442d18  // pi/2LOCAL_OBJECT_END(atanf_coeff_1_table)LOCAL_OBJECT_START(atanf_coeff_2_table)data8 0x4035000000004284  // r1data8 0x406cdffff336a59b  // r2data8 0x3fbc4f512b1865f5  // p4 = q6data8 0xbfc2473c5145ee38  // p3 = q7data8 0x3fb142a73d7c54e3  // p6 = q4data8 0xbfb68eed6a8cfa32  // p5 = q5data8 0xbfb68eed6a8cfa32  // p5data8 0x3fb142a73d7c54e3  // p6data8 0xbfa6e10ba401393f  // p7data8 0x3f97105b4160f86b  // p8data8 0xbf7deaadaa336451  // p9data8 0x3f522e5d33bc9baa  // p10LOCAL_OBJECT_END(atanf_coeff_2_table).section .textGLOBAL_LIBM_ENTRY(atanf){     .mfi      alloc      r32                  = ar.pfs,1,2,0,0     frcpa.s1  atanf_z,p0   =    f1,f8     addl      EXP_Addr2           =    @ltoff(atanf_coeff_2_table),gp} {     .mfi      addl      EXP_Addr1 =    @ltoff(atanf_coeff_1_table),gp     fma.s1    atanf_t   =    f8,f8,f0     nop.i                 999;;} {     .mfi      nop.m                      999     fmerge.s  atanf_sgn_x    =    f8,f1     nop.i                      999;;}  {     .mfi      ld8       EXP_Addr1      =    [EXP_Addr1]     fmerge.s  atanf_abs_x    =    f1,f8     nop.i                      999} {     .mfi      ld8       EXP_Addr2 =    [EXP_Addr2]     nop.f                 999     nop.i                 999;;} {     .mfi      nop.m                      999     fclass.m  p8,p0   =    f8,0x7	// @zero     nop.i                      999;;}  {     .mfi      nop.m                      999     fcmp.eq.unc.s0 p9,p10    =    f8,f1     nop.i                      999;;}  {     .mfi      ldfpd     atanf_coeff_R4,atanf_coeff_R5 =    [EXP_Addr1],16     fnma.s1   atanf_b                       =    f8,atanf_z,f1     nop.i                                     999} {     .mfi      ldfpd     atanf_coeff_R1,atanf_coeff_R2 =    [EXP_Addr2],16     fma.s1    atanf_zsq                     =    atanf_z,atanf_z,f0     nop.i                                     999;;} {     .mfi      ldfpd     atanf_coeff_R3,atanf_coeff_P1 =    [EXP_Addr1],16     fma.s1    atanf_xcub                    =    f8,atanf_t,f0     nop.i                                     999} {     .mfi      ldfpd     atanf_coeff_Q6,atanf_coeff_Q7 =    [EXP_Addr2],16     fma.s1    atanf_tsq                     =    atanf_t,atanf_t,f0     nop.i                                     999;;} {     .mfi      ldfpd          atanf_coeff_Q8,atanf_coeff_Q9 =    [EXP_Addr1],16//     fcmp.le.s1     atanf_pred_LE1,atanf_pred_GT1 =    atanf_abs_x,f1     fcmp.le.s1     p6,p7 =    atanf_abs_x,f1     nop.i                                          999} {     .mfi      ldfpd     atanf_coeff_Q4,atanf_coeff_Q5 =    [EXP_Addr2],16     nop.f                                     999     nop.i                                     999;;} {     .mfi      ldfpd     atanf_coeff_Q2,atanf_coeff_Q3 =    [EXP_Addr1],16     fclass.m  p8,p0                  =    f8,0xe7	// @inf|@qnan|@snan|@zero     nop.i                                     999} {     .mfi      ldfpd     atanf_coeff_P5,atanf_coeff_P6 =    [EXP_Addr2],16     nop.f                                     999     nop.i                                     999;;} {     .mfi      ldfpd     atanf_coeff_Q0,atanf_coeff_Q1 =    [EXP_Addr1],16     nop.f                                     999     nop.i                                     999} {     .mfi      ldfpd     atanf_coeff_P7,atanf_coeff_P8 =    [EXP_Addr2],16     nop.f                                     999     nop.i                                     999;;} {     .mfi      ldfpd     atanf_coeff_P3,atanf_coeff_P4 =    [EXP_Addr1],16     fma.s1    atanf_bsq                     =    atanf_b,atanf_b,f0     nop.i                                     999} {     .mfi      ldfpd     atanf_coeff_P9,atanf_coeff_P10     =    [EXP_Addr2]     fma.s1    atanf_z4                           =    atanf_zsq,atanf_zsq,f0     nop.i                                          999;;} {     .mfi      ldfpd     atanf_coeff_P2,atanf_piby2    =    [EXP_Addr1]     fma.s1    atanf_x6                      =    atanf_t,atanf_tsq,f0     nop.i                                     999} {     .mfi      nop.m                 999     fma.s1    atanf_t4  =    atanf_tsq,atanf_tsq,f0     nop.i                 999;;} {     .mfb      nop.m                 999     fma.s1    atanf_x5  =    atanf_t,atanf_xcub,f0(p8)  br.cond.spnt   ATANF_X_INF_NAN_ZERO} ;; {     .mfi      nop.m                      999     fma.s1    atanf_poly_r1  =    atanf_b,atanf_coeff_R1,f1     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_r3  =    atanf_b,atanf_coeff_R5,atanf_coeff_R4     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_r2  =    atanf_b,atanf_coeff_R3,atanf_coeff_R2     nop.i                      999} {     .mfi      nop.m                 999     fma.s1    atanf_z8  =    atanf_z4,atanf_z4,f0     nop.i                 999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q2  =    atanf_t,atanf_coeff_Q5,atanf_coeff_Q4     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q3  =    atanf_t,atanf_coeff_Q7,atanf_coeff_Q6     nop.i                      999;;} {     .mfi      nop.m                 999     fma.s1    atanf_z5  =    atanf_z,atanf_z4,f0     nop.i                 999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q1  =    atanf_t,atanf_coeff_Q9,atanf_coeff_Q8     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q4  =    atanf_t,atanf_coeff_Q1,atanf_coeff_Q0     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q5  =    atanf_t,atanf_coeff_Q3,atanf_coeff_Q2     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p4  =    f8,atanf_coeff_P1,f0     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p5  =    atanf_t,atanf_coeff_P4,atanf_coeff_P3     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_r1  =    atanf_z8,atanf_poly_r1,f0     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_z8_bsq   =    atanf_z8,atanf_bsq,f0     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q2  =    atanf_tsq,atanf_poly_q3,atanf_poly_q2     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_r2  =    atanf_bsq,atanf_poly_r3,atanf_poly_r2     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p2  =    atanf_t,atanf_coeff_P8,atanf_coeff_P7     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q1  =    atanf_poly_q1,f1,atanf_tsq     nop.i                      999;;} {     .mfi      nop.m                 999     fma.s1    atanf_z13 =    atanf_z5,atanf_z8,f0     nop.i                 999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p1  =    atanf_t,atanf_coeff_P10,atanf_coeff_P9     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p4  =    atanf_t,atanf_poly_p4,f8     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q4  =    atanf_tsq,atanf_poly_q5,atanf_poly_q4     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p3  =    atanf_t,atanf_coeff_P6,atanf_coeff_P5     nop.i                      999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p5  =    atanf_t,atanf_poly_p5,atanf_coeff_P2     nop.i                      999;;} {     .mfi      nop.m                 999     fma.s1    atanf_x11 =    atanf_x5,atanf_x6,f0     nop.i                 999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_r   =    atanf_z8_bsq,atanf_poly_r2,atanf_poly_r1     nop.i                      999;;} {     .mfi      nop.m                           999     fma.s0       atanf_sgnx_piby2    =    atanf_sgn_x,atanf_piby2,f0     nop.i                           999} {     .mfi      nop.m                      999     fma.s1    atanf_poly_q2  =    atanf_t4,atanf_poly_q1,atanf_poly_q2     nop.i                      999;;} {     .mfi      nop.m                      999     fma.s1    atanf_poly_p1  =    atanf_tsq,atanf_poly_p1,atanf_poly_p2     nop.i                      999;;}  {     .mfi      nop.m                      999     fma.s1    atanf_poly_p4  =    atanf_x5,atanf_poly_p5,atanf_poly_p4     nop.i                      999;;}  {     .mfi      nop.m                           999     fma.s1    atanf_z21_poly_r    =    atanf_z13,atanf_poly_r,f0     nop.i                           999;;}  {     .mfi      nop.m                      999     fma.s1    atanf_poly_q   =    atanf_t4,atanf_poly_q2,atanf_poly_q4     nop.i                      999;;}  {     .mfi      nop.m                      999     fma.s1    atanf_poly_p1  =    atanf_tsq,atanf_poly_p1,atanf_poly_p3     nop.i                      999;;}  {     .mfi                     nop.m                      999//(atanf_pred_GT1)    fnma.s    atanf_answer   =    atanf_poly_q,atanf_z21_poly_r,atanf_sgnx_piby2(p7)    fnma.s.s0    atanf_answer   =    atanf_poly_q,atanf_z21_poly_r,atanf_sgnx_piby2                    nop.i                      999;;}  {     .mfb                     nop.m                      999//(atanf_pred_LE1)    fma.s     atanf_answer   =    atanf_x11,atanf_poly_p1,atanf_poly_p4(p6)    fma.s.s0     atanf_answer   =    atanf_x11,atanf_poly_p1,atanf_poly_p4                    br.ret.sptk b0} ATANF_X_INF_NAN_ZERO:{ .mfi      nop.m 0      fclass.m p8,p9 = f8,0x23  // @inf      nop.i 0};;{ .mfi      nop.m 0(p8)  fmerge.s f8 = f8, atanf_piby2      nop.i 0};;{ .mfb      nop.m 0      fnorm.s.s0 f8 = f8      br.ret.sptk b0};;GLOBAL_LIBM_END(atanf)