data4  0x00007A45data4  0x000079D1data4  0x0000795Ddata4  0x000078EBLOCAL_OBJECT_END(Constants_Z_2)// G2 and H2 - IEEE single and h2 - IEEE doubleLOCAL_OBJECT_START(Constants_G_H_h2)data4  0x3F800000,0x00000000data8  0x0000000000000000data4  0x3F7F00F8,0x3B7F875Ddata8  0x3DB5A11622C42273data4  0x3F7E03F8,0x3BFF015Bdata8  0x3DE620CF21F86ED3data4  0x3F7D08E0,0x3C3EE393data8  0xBDAFA07E484F34EDdata4  0x3F7C0FC0,0x3C7E0586data8  0xBDFE07F03860BCF6data4  0x3F7B1880,0x3C9E75D2data8  0x3DEA370FA78093D6data4  0x3F7A2328,0x3CBDC97Adata8  0x3DFF579172A753D0data4  0x3F792FB0,0x3CDCFE47data8  0x3DFEBE6CA7EF896Bdata4  0x3F783E08,0x3CFC15D0data8  0x3E0CF156409ECB43data4  0x3F774E38,0x3D0D874Ddata8  0xBE0B6F97FFEF71DFdata4  0x3F766038,0x3D1CF49Bdata8  0xBE0804835D59EEE8data4  0x3F757400,0x3D2C531Ddata8  0x3E1F91E9A9192A74data4  0x3F748988,0x3D3BA322data8  0xBE139A06BF72A8CDdata4  0x3F73A0D0,0x3D4AE46Fdata8  0x3E1D9202F8FBA6CFdata4  0x3F72B9D0,0x3D5A1756data8  0xBE1DCCC4BA796223data4  0x3F71D488,0x3D693B9Ddata8  0xBE049391B6B7C239LOCAL_OBJECT_END(Constants_G_H_h2)// G3 and H3 - IEEE single and h3 - IEEE double LOCAL_OBJECT_START(Constants_G_H_h3)data4  0x3F7FFC00,0x38800100data8  0x3D355595562224CDdata4  0x3F7FF400,0x39400480data8  0x3D8200A206136FF6data4  0x3F7FEC00,0x39A00640data8  0x3DA4D68DE8DE9AF0data4  0x3F7FE400,0x39E00C41data8  0xBD8B4291B10238DCdata4  0x3F7FDC00,0x3A100A21data8  0xBD89CCB83B1952CAdata4  0x3F7FD400,0x3A300F22data8  0xBDB107071DC46826data4  0x3F7FCC08,0x3A4FF51Cdata8  0x3DB6FCB9F43307DBdata4  0x3F7FC408,0x3A6FFC1Ddata8  0xBD9B7C4762DC7872data4  0x3F7FBC10,0x3A87F20Bdata8  0xBDC3725E3F89154Adata4  0x3F7FB410,0x3A97F68Bdata8  0xBD93519D62B9D392data4  0x3F7FAC18,0x3AA7EB86data8  0x3DC184410F21BD9Ddata4  0x3F7FA420,0x3AB7E101data8  0xBDA64B952245E0A6data4  0x3F7F9C20,0x3AC7E701data8  0x3DB4B0ECAABB34B8data4  0x3F7F9428,0x3AD7DD7Bdata8  0x3D9923376DC40A7Edata4  0x3F7F8C30,0x3AE7D474data8  0x3DC6E17B4F2083D3data4  0x3F7F8438,0x3AF7CBEDdata8  0x3DAE314B811D4394data4  0x3F7F7C40,0x3B03E1F3data8  0xBDD46F21B08F2DB1data4  0x3F7F7448,0x3B0BDE2Fdata8  0xBDDC30A46D34522Bdata4  0x3F7F6C50,0x3B13DAAAdata8  0x3DCB0070B1F473DBdata4  0x3F7F6458,0x3B1BD766data8  0xBDD65DDC6AD282FDdata4  0x3F7F5C68,0x3B23CC5Cdata8  0xBDCDAB83F153761Adata4  0x3F7F5470,0x3B2BC997data8  0xBDDADA40341D0F8Fdata4  0x3F7F4C78,0x3B33C711data8  0x3DCD1BD7EBC394E8data4  0x3F7F4488,0x3B3BBCC6data8  0xBDC3532B52E3E695data4  0x3F7F3C90,0x3B43BAC0data8  0xBDA3961EE846B3DEdata4  0x3F7F34A0,0x3B4BB0F4data8  0xBDDADF06785778D4data4  0x3F7F2CA8,0x3B53AF6Ddata8  0x3DCC3ED1E55CE212data4  0x3F7F24B8,0x3B5BA620data8  0xBDBA31039E382C15data4  0x3F7F1CC8,0x3B639D12data8  0x3D635A0B5C5AF197data4  0x3F7F14D8,0x3B6B9444data8  0xBDDCCB1971D34EFCdata4  0x3F7F0CE0,0x3B7393BCdata8  0x3DC7450252CD7ADAdata4  0x3F7F04F0,0x3B7B8B6Ddata8  0xBDB68F177D7F2A42LOCAL_OBJECT_END(Constants_G_H_h3)// Floating Point RegistersFR_Input_X      = f8 FR_Y_hi         = f34  FR_Y_lo         = f35FR_Scale        = f36FR_X_Prime      = f37 FR_S_hi         = f38  FR_W            = f39FR_G            = f40FR_H            = f41FR_wsq          = f42 FR_w4           = f43FR_h            = f44FR_w6           = f45  FR_G2           = f46FR_H2           = f47FR_poly_lo      = f48FR_P8           = f49  FR_poly_hi      = f50FR_P7           = f51  FR_h2           = f52 FR_rsq          = f53  FR_P6           = f54FR_r            = f55  FR_log2_hi      = f56  FR_log2_lo      = f57  FR_p87          = f58  FR_p876         = f58  FR_p8765        = f58  FR_float_N      = f59 FR_Q4           = f60 FR_p43          = f61  FR_p432         = f61  FR_p4321        = f61  FR_P4           = f62  FR_G3           = f63  FR_H3           = f64  FR_h3           = f65  FR_Q3           = f66  FR_P3           = f67  FR_Q2           = f68 FR_P2           = f69  FR_1LN10_hi     = f70 FR_Q1           = f71 FR_P1           = f72 FR_1LN10_lo     = f73 FR_P5           = f74 FR_rcub         = f75 FR_Output_X_tmp = f76 FR_X                = f8FR_Y                = f0FR_RESULT           = f76// General Purpose RegistersGR_ad_p         = r33GR_Index1       = r34 GR_Index2       = r35 GR_signif       = r36 GR_X_0          = r37 GR_X_1          = r38 GR_X_2          = r39 GR_Z_1          = r40 GR_Z_2          = r41 GR_N            = r42 GR_Bias         = r43 GR_M            = r44 GR_Index3       = r45 GR_ad_p2        = r46GR_exp_mask     = r47 GR_exp_2tom7    = r48 GR_ad_ln10      = r49 GR_ad_tbl_1     = r50GR_ad_tbl_2     = r51GR_ad_tbl_3     = r52GR_ad_q         = r53GR_ad_z_1       = r54GR_ad_z_2       = r55GR_ad_z_3       = r56//// Added for unwind support//GR_SAVE_PFS         = r50GR_SAVE_B0          = r51GR_SAVE_GP          = r52GR_Parameter_X      = r53GR_Parameter_Y      = r54GR_Parameter_RESULT = r55GR_Parameter_TAG    = r56.section .textGLOBAL_IEEE754_ENTRY(logl){ .mfi      alloc r32 = ar.pfs,0,21,4,0      fclass.m p6, p0 =  FR_Input_X, 0x1E3  // Test for natval, nan, inf      cmp.eq  p7, p14 = r0, r0              // Set p7 if logl}{ .mfb      addl GR_ad_z_1 = @ltoff(Constants_Z_1#),gp      fnorm.s1 FR_X_Prime = FR_Input_X      // Normalize x      br.cond.sptk LOGL_BEGIN};;GLOBAL_IEEE754_END(logl)GLOBAL_IEEE754_ENTRY(log10l){ .mfi      alloc r32 = ar.pfs,0,21,4,0      fclass.m p6, p0 =  FR_Input_X, 0x1E3  // Test for natval, nan, inf      cmp.ne  p7, p14 = r0, r0              // Set p14 if log10l}{ .mfb      addl GR_ad_z_1 = @ltoff(Constants_Z_1#),gp      fnorm.s1 FR_X_Prime = FR_Input_X      // Normalize x      nop.b 999};;// Common code for logl and log10LOGL_BEGIN: { .mfi      ld8    GR_ad_z_1 = [GR_ad_z_1]          // Get pointer to Constants_Z_1      fclass.m p10, p0 =  FR_Input_X, 0x0b    // Test for denormal      mov GR_exp_2tom7 = 0x0fff8              // Exponent of 2^-7};;{ .mfb      getf.sig GR_signif = FR_Input_X         // Get significand of x      fcmp.eq.s1 p9, p0 =  FR_Input_X, f1     // Test for x=1.0(p6)  br.cond.spnt LOGL_64_special            // Branch for nan, inf, natval};;{ .mfi      add   GR_ad_tbl_1 = 0x040, GR_ad_z_1    // Point to Constants_G_H_h1      fcmp.lt.s1 p13, p0 =  FR_Input_X, f0    // Test for x<0      add   GR_ad_p = -0x100, GR_ad_z_1       // Point to Constants_P}{ .mib      add   GR_ad_z_2 = 0x140, GR_ad_z_1      // Point to Constants_Z_2      add   GR_ad_tbl_2 = 0x180, GR_ad_z_1    // Point to Constants_G_H_h2(p10) br.cond.spnt LOGL_64_denormal           // Branch for denormal};;LOGL_64_COMMON:{ .mfi      add   GR_ad_q = 0x080, GR_ad_p          // Point to Constants_Q      fcmp.eq.s1 p8, p0 =  FR_Input_X, f0     // Test for x=0      extr.u GR_Index1 = GR_signif, 59, 4     // Get high 4 bits of signif}{ .mfb      add   GR_ad_tbl_3 = 0x280, GR_ad_z_1    // Point to Constants_G_H_h3(p9)  fma.s0  f8 = FR_Input_X, f0, f0         // If x=1, return +0.0(p9)  br.ret.spnt  b0                         // Exit if x=1};;{ .mfi      shladd GR_ad_z_1 = GR_Index1, 2, GR_ad_z_1  // Point to Z_1      fclass.nm p10, p0 =  FR_Input_X, 0x1FF  // Test for unsupported      extr.u GR_X_0 = GR_signif, 49, 15       // Get high 15 bits of significand}{ .mfi      ldfe FR_P8 = [GR_ad_p],16               // Load P_8 for near1 path      fsub.s1 FR_W = FR_X_Prime, f1           // W = x - 1      add   GR_ad_ln10 = 0x060, GR_ad_q       // Point to Constants_1_by_LN10};;{ .mfi      ld4 GR_Z_1 = [GR_ad_z_1]                // Load Z_1      nop.f 999      mov GR_exp_mask = 0x1FFFF               // Create exponent mask}{ .mib      shladd GR_ad_tbl_1 = GR_Index1, 4, GR_ad_tbl_1  // Point to G_1      mov GR_Bias = 0x0FFFF                   // Create exponent bias(p13) br.cond.spnt LOGL_64_negative           // Branch if x<0};;{ .mfb      ldfps  FR_G, FR_H = [GR_ad_tbl_1],8     // Load G_1, H_1      fmerge.se FR_S_hi =  f1,FR_X_Prime      // Form |x|(p8)  br.cond.spnt LOGL_64_zero               // Branch if x=0};;{ .mmb      getf.exp GR_N =  FR_X_Prime             // Get N = exponent of x      ldfd  FR_h = [GR_ad_tbl_1]              // Load h_1(p10) br.cond.spnt LOGL_64_unsupported        // Branch for unsupported type};;{ .mfi      ldfe FR_log2_hi = [GR_ad_q],16          // Load log2_hi      fcmp.eq.s0 p8, p0 =  FR_Input_X, f0     // Dummy op to flag denormals      pmpyshr2.u GR_X_1 = GR_X_0,GR_Z_1,15    // Get bits 30-15 of X_0 * Z_1};;////    For performance, don't use result of pmpyshr2.u for 4 cycles.//{ .mmi      ldfe FR_log2_lo = [GR_ad_q],16          // Load log2_lo(p14) ldfe FR_1LN10_hi = [GR_ad_ln10],16      // If log10l, load 1/ln10_hi      sub GR_N = GR_N, GR_Bias };;{ .mmi      ldfe FR_Q4 = [GR_ad_q],16               // Load Q4(p14) ldfe FR_1LN10_lo = [GR_ad_ln10]         // If log10l, load 1/ln10_lo      nop.i 999};;{ .mmi      ldfe FR_Q3 = [GR_ad_q],16               // Load Q3      setf.sig FR_float_N = GR_N   // Put integer N into rightmost significand      nop.i 999};;{ .mmi      getf.exp GR_M = FR_W                    // Get signexp of w = x - 1      ldfe FR_Q2 = [GR_ad_q],16               // Load Q2      extr.u GR_Index2 = GR_X_1, 6, 4         // Extract bits 6-9 of X_1 };;{ .mmi      ldfe FR_Q1 = [GR_ad_q]                  // Load Q1      shladd GR_ad_z_2 = GR_Index2, 2, GR_ad_z_2  // Point to Z_2      add GR_ad_p2  = 0x30,GR_ad_p            // Point to P_4};;{ .mmi      ld4 GR_Z_2 = [GR_ad_z_2]                // Load Z_2      shladd GR_ad_tbl_2 = GR_Index2, 4, GR_ad_tbl_2  // Point to G_2      and GR_M = GR_exp_mask, GR_M            // Get exponent of w = x - 1};;{ .mmi      ldfps  FR_G2, FR_H2 = [GR_ad_tbl_2],8   // Load G_2, H_2      cmp.lt  p8, p9 =  GR_M, GR_exp_2tom7    // Test |x-1| < 2^-7      nop.i 999};;// Paths are merged.//  p8 is for the near1 path: |x-1| < 2^-7//  p9 is for regular path:   |x-1| >= 2^-7{ .mmi      ldfd  FR_h2 = [GR_ad_tbl_2]             // Load h_2      nop.m 999      nop.i 999};;{ .mmi(p8)  ldfe FR_P7 = [GR_ad_p],16               // Load P_7 for near1 path