/security/nss/lib/freebl/mpi/montmulfv9.s
http://github.com/zpao/v8monkey · Assembly · 2380 lines · 2255 code · 72 blank · 53 comment · 18 complexity · 372b9ac3da56c404731d9b3376e645f5 MD5 · raw file
Large files are truncated click here to view the full file
- !
- ! ***** BEGIN LICENSE BLOCK *****
- ! Version: MPL 1.1/GPL 2.0/LGPL 2.1
- !
- ! The contents of this file are subject to the Mozilla Public License Version
- ! 1.1 (the "License"); you may not use this file except in compliance with
- ! the License. You may obtain a copy of the License at
- ! http://www.mozilla.org/MPL/
- !
- ! Software distributed under the License is distributed on an "AS IS" basis,
- ! WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
- ! for the specific language governing rights and limitations under the
- ! License.
- !
- ! The Original Code is SPARC hand-optimized Montgomery multiply functions.
- !
- ! The Initial Developer of the Original Code is
- ! Sun Microsystems Inc.
- ! Portions created by the Initial Developer are Copyright (C) 1999-2000
- ! the Initial Developer. All Rights Reserved.
- !
- ! Contributor(s):
- !
- ! Alternatively, the contents of this file may be used under the terms of
- ! either the GNU General Public License Version 2 or later (the "GPL"), or
- ! the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
- ! in which case the provisions of the GPL or the LGPL are applicable instead
- ! of those above. If you wish to allow use of your version of this file only
- ! under the terms of either the GPL or the LGPL, and not to allow others to
- ! use your version of this file under the terms of the MPL, indicate your
- ! decision by deleting the provisions above and replace them with the notice
- ! and other provisions required by the GPL or the LGPL. If you do not delete
- ! the provisions above, a recipient may use your version of this file under
- ! the terms of any one of the MPL, the GPL or the LGPL.
- !
- ! ***** END LICENSE BLOCK *****
- .section ".text",#alloc,#execinstr
- .file "montmulf.c"
- .section ".rodata",#alloc
- .global TwoTo16
- .align 8
- !
- ! CONSTANT POOL
- !
- .global TwoTo16
- TwoTo16:
- .word 1089470464
- .word 0
- .type TwoTo16,#object
- .size TwoTo16,8
- .global TwoToMinus16
- !
- ! CONSTANT POOL
- !
- .global TwoToMinus16
- TwoToMinus16:
- .word 1055916032
- .word 0
- .type TwoToMinus16,#object
- .size TwoToMinus16,8
- .global Zero
- !
- ! CONSTANT POOL
- !
- .global Zero
- Zero:
- .word 0
- .word 0
- .type Zero,#object
- .size Zero,8
- .global TwoTo32
- !
- ! CONSTANT POOL
- !
- .global TwoTo32
- TwoTo32:
- .word 1106247680
- .word 0
- .type TwoTo32,#object
- .size TwoTo32,8
- .global TwoToMinus32
- !
- ! CONSTANT POOL
- !
- .global TwoToMinus32
- TwoToMinus32:
- .word 1039138816
- .word 0
- .type TwoToMinus32,#object
- .size TwoToMinus32,8
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .register %g3,#scratch
- /* 000000 */ .register %g2,#scratch
- /* 000000 0 */ .align 8
- !
- ! SUBROUTINE conv_d16_to_i32
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global conv_d16_to_i32
- conv_d16_to_i32:
- /* 000000 */ save %sp,-208,%sp
- ! FILE montmulf.c
- ! 1 !/*
- ! 2 ! * The contents of this file are subject to the Mozilla Public
- ! 3 ! * License Version 1.1 (the "License"); you may not use this file
- ! 4 ! * except in compliance with the License. You may obtain a copy of
- ! 5 ! * the License at http://www.mozilla.org/MPL/
- ! 6 ! *
- ! 7 ! * Software distributed under the License is distributed on an "AS
- ! 8 ! * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
- ! 9 ! * implied. See the License for the specific language governing
- ! 10 ! * rights and limitations under the License.
- ! 11 ! *
- ! 12 ! * The Original Code is SPARC optimized Montgomery multiply functions.
- ! 13 ! *
- ! 14 ! * The Initial Developer of the Original Code is Sun Microsystems Inc.
- ! 15 ! * Portions created by Sun Microsystems Inc. are
- ! 16 ! * Copyright (C) 1999-2000 Sun Microsystems Inc. All Rights Reserved.
- ! 17 ! *
- ! 18 ! * Contributor(s):
- ! 19 ! * Netscape Communications Corporation
- ! 20 ! *
- ! 21 ! * Alternatively, the contents of this file may be used under the
- ! 22 ! * terms of the GNU General Public License Version 2 or later (the
- ! 23 ! * "GPL"), in which case the provisions of the GPL are applicable
- ! 24 ! * instead of those above. If you wish to allow use of your
- ! 25 ! * version of this file only under the terms of the GPL and not to
- ! 26 ! * allow others to use your version of this file under the MPL,
- ! 27 ! * indicate your decision by deleting the provisions above and
- ! 28 ! * replace them with the notice and other provisions required by
- ! 29 ! * the GPL. If you do not delete the provisions above, a recipient
- ! 30 ! * may use your version of this file under either the MPL or the
- ! 31 ! * GPL.
- ! 32 ! *
- ! 33 ! * $Id: montmulfv9.s,v 1.5 2006/12/11 09:45:32 gerv%gerv.net Exp $
- ! 34 ! */
- ! 36 !#define RF_INLINE_MACROS
- ! 38 !static const double TwoTo16=65536.0;
- ! 39 !static const double TwoToMinus16=1.0/65536.0;
- ! 40 !static const double Zero=0.0;
- ! 41 !static const double TwoTo32=65536.0*65536.0;
- ! 42 !static const double TwoToMinus32=1.0/(65536.0*65536.0);
- ! 44 !#ifdef RF_INLINE_MACROS
- ! 46 !double upper32(double);
- ! 47 !double lower32(double, double);
- ! 48 !double mod(double, double, double);
- ! 50 !void i16_to_d16_and_d32x4(const double * /*1/(2^16)*/,
- ! 51 ! const double * /* 2^16*/,
- ! 52 ! const double * /* 0 */,
- ! 53 ! double * /*result16*/,
- ! 54 ! double * /* result32 */,
- ! 55 ! float * /*source - should be unsigned int*
- ! 56 ! converted to float* */);
- ! 58 !#else
- ! 60 !static double upper32(double x)
- ! 61 !{
- ! 62 ! return floor(x*TwoToMinus32);
- ! 63 !}
- ! 65 !static double lower32(double x, double y)
- ! 66 !{
- ! 67 ! return x-TwoTo32*floor(x*TwoToMinus32);
- ! 68 !}
- ! 70 !static double mod(double x, double oneoverm, double m)
- ! 71 !{
- ! 72 ! return x-m*floor(x*oneoverm);
- ! 73 !}
- ! 75 !#endif
- ! 78 !static void cleanup(double *dt, int from, int tlen)
- ! 79 !{
- ! 80 ! int i;
- ! 81 ! double tmp,tmp1,x,x1;
- ! 83 ! tmp=tmp1=Zero;
- ! 84 ! /* original code **
- ! 85 ! for(i=2*from;i<2*tlen-2;i++)
- ! 86 ! {
- ! 87 ! x=dt[i];
- ! 88 ! dt[i]=lower32(x,Zero)+tmp1;
- ! 89 ! tmp1=tmp;
- ! 90 ! tmp=upper32(x);
- ! 91 ! }
- ! 92 ! dt[tlen-2]+=tmp1;
- ! 93 ! dt[tlen-1]+=tmp;
- ! 94 ! **end original code ***/
- ! 95 ! /* new code ***/
- ! 96 ! for(i=2*from;i<2*tlen;i+=2)
- ! 97 ! {
- ! 98 ! x=dt[i];
- ! 99 ! x1=dt[i+1];
- ! 100 ! dt[i]=lower32(x,Zero)+tmp;
- ! 101 ! dt[i+1]=lower32(x1,Zero)+tmp1;
- ! 102 ! tmp=upper32(x);
- ! 103 ! tmp1=upper32(x1);
- ! 104 ! }
- ! 105 ! /** end new code **/
- ! 106 !}
- ! 109 !void conv_d16_to_i32(unsigned int *i32, double *d16, long long *tmp, int ilen)
- ! 110 !{
- ! 111 !int i;
- ! 112 !long long t, t1, a, b, c, d;
- ! 114 ! t1=0;
- ! 115 ! a=(long long)d16[0];
- /* 0x0004 115 */ ldd [%i1],%f2
- ! 116 ! b=(long long)d16[1];
- ! 117 ! for(i=0; i<ilen-1; i++)
- /* 0x0008 117 */ sub %i3,1,%o1
- /* 0x000c 110 */ or %g0,%i0,%g1
- /* 0x0010 116 */ ldd [%i1+8],%f4
- /* 0x0014 117 */ cmp %o1,0
- /* 0x0018 114 */ or %g0,0,%g5
- /* 0x001c 115 */ fdtox %f2,%f2
- /* 0x0020 */ std %f2,[%sp+2247]
- /* 0x0024 117 */ or %g0,0,%o0
- /* 0x0028 116 */ fdtox %f4,%f2
- /* 0x002c */ std %f2,[%sp+2239]
- /* 0x0030 110 */ sub %o1,1,%o7
- /* 0x0034 */ or %g0,%i1,%o4
- /* 0x0038 */ sethi %hi(0xfc00),%o3
- /* 0x003c */ or %g0,-1,%o1
- /* 0x0040 */ or %g0,2,%i1
- /* 0x0044 */ srl %o1,0,%g3
- /* 0x0048 */ or %g0,%o4,%g4
- /* 0x004c 116 */ ldx [%sp+2239],%i2
- /* 0x0050 */ add %o3,1023,%o5
- /* 0x0054 117 */ sub %o7,1,%o2
- /* 0x0058 115 */ ldx [%sp+2247],%i3
- /* 0x005c 117 */ ble,pt %icc,.L900000113
- /* 0x0060 */ sethi %hi(0xfc00),%g2
- /* 0x0064 */ add %o7,1,%g2
- ! 118 ! {
- ! 119 ! c=(long long)d16[2*i+2];
- ! 120 ! t1+=a&0xffffffff;
- ! 121 ! t=(a>>32);
- ! 122 ! d=(long long)d16[2*i+3];
- ! 123 ! t1+=(b&0xffff)<<16;
- /* 0x0068 123 */ and %i2,%o5,%i4
- /* 0x006c */ sllx %i4,16,%o1
- /* 0x0070 117 */ cmp %g2,6
- /* 0x0074 */ bl,pn %icc,.L77000134
- /* 0x0078 */ or %g0,3,%i0
- /* 0x007c 119 */ ldd [%o4+16],%f0
- /* 0x0080 120 */ and %i3,%g3,%o3
- ! 124 ! t+=(b>>16)+(t1>>32);
- /* 0x0084 124 */ srax %i2,16,%i5
- /* 0x0088 117 */ add %o3,%o1,%i4
- /* 0x008c 121 */ srax %i3,32,%i3
- /* 0x0090 119 */ fdtox %f0,%f0
- /* 0x0094 */ std %f0,[%sp+2231]
- ! 125 ! i32[i]=t1&0xffffffff;
- /* 0x0098 125 */ and %i4,%g3,%l0
- /* 0x009c 117 */ or %g0,72,%o3
- /* 0x00a0 122 */ ldd [%g4+24],%f0
- /* 0x00a4 117 */ or %g0,64,%o4
- /* 0x00a8 */ or %g0,4,%o1
- ! 126 ! t1=t;
- ! 127 ! a=c;
- ! 128 ! b=d;
- /* 0x00ac 128 */ or %g0,5,%i0
- /* 0x00b0 */ or %g0,4,%i1
- /* 0x00b4 119 */ ldx [%sp+2231],%g2
- /* 0x00b8 122 */ fdtox %f0,%f0
- /* 0x00bc 128 */ or %g0,4,%o0
- /* 0x00c0 122 */ std %f0,[%sp+2223]
- /* 0x00c4 */ ldd [%g4+40],%f2
- /* 0x00c8 120 */ and %g2,%g3,%i2
- /* 0x00cc 119 */ ldd [%g4+32],%f0
- /* 0x00d0 121 */ srax %g2,32,%g2
- /* 0x00d4 122 */ ldd [%g4+56],%f4
- /* 0x00d8 */ fdtox %f2,%f2
- /* 0x00dc */ ldx [%sp+2223],%g5
- /* 0x00e0 119 */ fdtox %f0,%f0
- /* 0x00e4 125 */ st %l0,[%g1]
- /* 0x00e8 124 */ srax %i4,32,%l0
- /* 0x00ec 122 */ fdtox %f4,%f4
- /* 0x00f0 */ std %f2,[%sp+2223]
- /* 0x00f4 123 */ and %g5,%o5,%i4
- /* 0x00f8 124 */ add %i5,%l0,%i5
- /* 0x00fc 119 */ std %f0,[%sp+2231]
- /* 0x0100 123 */ sllx %i4,16,%i4
- /* 0x0104 124 */ add %i3,%i5,%i3
- /* 0x0108 119 */ ldd [%g4+48],%f2
- /* 0x010c 124 */ srax %g5,16,%g5
- /* 0x0110 117 */ add %i2,%i4,%i2
- /* 0x0114 122 */ ldd [%g4+72],%f0
- /* 0x0118 117 */ add %i2,%i3,%i4
- /* 0x011c 124 */ srax %i4,32,%i5
- /* 0x0120 119 */ fdtox %f2,%f2
- /* 0x0124 125 */ and %i4,%g3,%i4
- /* 0x0128 122 */ ldx [%sp+2223],%i2
- /* 0x012c 124 */ add %g5,%i5,%g5
- /* 0x0130 119 */ ldx [%sp+2231],%i3
- /* 0x0134 124 */ add %g2,%g5,%g5
- /* 0x0138 119 */ std %f2,[%sp+2231]
- /* 0x013c 122 */ std %f4,[%sp+2223]
- /* 0x0140 119 */ ldd [%g4+64],%f2
- /* 0x0144 125 */ st %i4,[%g1+4]
- .L900000108:
- /* 0x0148 122 */ ldx [%sp+2223],%i4
- /* 0x014c 128 */ add %o0,2,%o0
- /* 0x0150 */ add %i0,4,%i0
- /* 0x0154 119 */ ldx [%sp+2231],%l0
- /* 0x0158 117 */ add %o3,16,%o3
- /* 0x015c 123 */ and %i2,%o5,%g2
- /* 0x0160 */ sllx %g2,16,%i5
- /* 0x0164 120 */ and %i3,%g3,%g2
- /* 0x0168 122 */ ldd [%g4+%o3],%f4
- /* 0x016c */ fdtox %f0,%f0
- /* 0x0170 */ std %f0,[%sp+2223]
- /* 0x0174 124 */ srax %i2,16,%i2
- /* 0x0178 117 */ add %g2,%i5,%g2
- /* 0x017c 119 */ fdtox %f2,%f0
- /* 0x0180 117 */ add %o4,16,%o4
- /* 0x0184 119 */ std %f0,[%sp+2231]
- /* 0x0188 117 */ add %g2,%g5,%g2
- /* 0x018c 119 */ ldd [%g4+%o4],%f2
- /* 0x0190 124 */ srax %g2,32,%i5
- /* 0x0194 128 */ cmp %o0,%o2
- /* 0x0198 121 */ srax %i3,32,%g5
- /* 0x019c 124 */ add %i2,%i5,%i2
- /* 0x01a0 */ add %g5,%i2,%i5
- /* 0x01a4 117 */ add %o1,4,%o1
- /* 0x01a8 125 */ and %g2,%g3,%g2
- /* 0x01ac 127 */ or %g0,%l0,%g5
- /* 0x01b0 125 */ st %g2,[%g1+%o1]
- /* 0x01b4 128 */ add %i1,4,%i1
- /* 0x01b8 122 */ ldx [%sp+2223],%i2
- /* 0x01bc 119 */ ldx [%sp+2231],%i3
- /* 0x01c0 117 */ add %o3,16,%o3
- /* 0x01c4 123 */ and %i4,%o5,%g2
- /* 0x01c8 */ sllx %g2,16,%l0
- /* 0x01cc 120 */ and %g5,%g3,%g2
- /* 0x01d0 122 */ ldd [%g4+%o3],%f0
- /* 0x01d4 */ fdtox %f4,%f4
- /* 0x01d8 */ std %f4,[%sp+2223]
- /* 0x01dc 124 */ srax %i4,16,%i4
- /* 0x01e0 117 */ add %g2,%l0,%g2
- /* 0x01e4 119 */ fdtox %f2,%f2
- /* 0x01e8 117 */ add %o4,16,%o4
- /* 0x01ec 119 */ std %f2,[%sp+2231]
- /* 0x01f0 117 */ add %g2,%i5,%g2
- /* 0x01f4 119 */ ldd [%g4+%o4],%f2
- /* 0x01f8 124 */ srax %g2,32,%i5
- /* 0x01fc 121 */ srax %g5,32,%g5
- /* 0x0200 124 */ add %i4,%i5,%i4
- /* 0x0204 */ add %g5,%i4,%g5
- /* 0x0208 117 */ add %o1,4,%o1
- /* 0x020c 125 */ and %g2,%g3,%g2
- /* 0x0210 128 */ ble,pt %icc,.L900000108
- /* 0x0214 */ st %g2,[%g1+%o1]
- .L900000111:
- /* 0x0218 122 */ ldx [%sp+2223],%o2
- /* 0x021c 123 */ and %i2,%o5,%i4
- /* 0x0220 120 */ and %i3,%g3,%g2
- /* 0x0224 123 */ sllx %i4,16,%i4
- /* 0x0228 119 */ ldx [%sp+2231],%i5
- /* 0x022c 128 */ cmp %o0,%o7
- /* 0x0230 124 */ srax %i2,16,%i2
- /* 0x0234 117 */ add %g2,%i4,%g2
- /* 0x0238 122 */ fdtox %f0,%f4
- /* 0x023c */ std %f4,[%sp+2223]
- /* 0x0240 117 */ add %g2,%g5,%g5
- /* 0x0244 123 */ and %o2,%o5,%l0
- /* 0x0248 124 */ srax %g5,32,%l1
- /* 0x024c 120 */ and %i5,%g3,%i4
- /* 0x0250 119 */ fdtox %f2,%f0
- /* 0x0254 121 */ srax %i3,32,%g2
- /* 0x0258 119 */ std %f0,[%sp+2231]
- /* 0x025c 124 */ add %i2,%l1,%i2
- /* 0x0260 123 */ sllx %l0,16,%i3
- /* 0x0264 124 */ add %g2,%i2,%i2
- /* 0x0268 */ srax %o2,16,%o2
- /* 0x026c 117 */ add %o1,4,%g2
- /* 0x0270 */ add %i4,%i3,%o1
- /* 0x0274 125 */ and %g5,%g3,%g5
- /* 0x0278 */ st %g5,[%g1+%g2]
- /* 0x027c 119 */ ldx [%sp+2231],%i3
- /* 0x0280 117 */ add %o1,%i2,%o1
- /* 0x0284 */ add %g2,4,%g2
- /* 0x0288 124 */ srax %o1,32,%i4
- /* 0x028c 122 */ ldx [%sp+2223],%i2
- /* 0x0290 125 */ and %o1,%g3,%g5
- /* 0x0294 121 */ srax %i5,32,%o1
- /* 0x0298 124 */ add %o2,%i4,%o2
- /* 0x029c 125 */ st %g5,[%g1+%g2]
- /* 0x02a0 128 */ bg,pn %icc,.L77000127
- /* 0x02a4 */ add %o1,%o2,%g5
- /* 0x02a8 */ add %i0,6,%i0
- /* 0x02ac */ add %i1,6,%i1
- .L77000134:
- /* 0x02b0 119 */ sra %i1,0,%o2
- .L900000112:
- /* 0x02b4 119 */ sllx %o2,3,%o3
- /* 0x02b8 120 */ and %i3,%g3,%o1
- /* 0x02bc 119 */ ldd [%g4+%o3],%f0
- /* 0x02c0 122 */ sra %i0,0,%o3
- /* 0x02c4 123 */ and %i2,%o5,%o2
- /* 0x02c8 122 */ sllx %o3,3,%o3
- /* 0x02cc 120 */ add %g5,%o1,%o1
- /* 0x02d0 119 */ fdtox %f0,%f0
- /* 0x02d4 */ std %f0,[%sp+2231]
- /* 0x02d8 123 */ sllx %o2,16,%o2
- /* 0x02dc */ add %o1,%o2,%o2
- /* 0x02e0 128 */ add %i1,2,%i1
- /* 0x02e4 122 */ ldd [%g4+%o3],%f0
- /* 0x02e8 124 */ srax %o2,32,%g2
- /* 0x02ec 125 */ and %o2,%g3,%o3
- /* 0x02f0 124 */ srax %i2,16,%o1
- /* 0x02f4 128 */ add %i0,2,%i0
- /* 0x02f8 122 */ fdtox %f0,%f0
- /* 0x02fc */ std %f0,[%sp+2223]
- /* 0x0300 125 */ sra %o0,0,%o2
- /* 0x0304 */ sllx %o2,2,%o2
- /* 0x0308 124 */ add %o1,%g2,%g5
- /* 0x030c 121 */ srax %i3,32,%g2
- /* 0x0310 128 */ add %o0,1,%o0
- /* 0x0314 124 */ add %g2,%g5,%g5
- /* 0x0318 128 */ cmp %o0,%o7
- /* 0x031c 119 */ ldx [%sp+2231],%o4
- /* 0x0320 122 */ ldx [%sp+2223],%i2
- /* 0x0324 125 */ st %o3,[%g1+%o2]
- /* 0x0328 127 */ or %g0,%o4,%i3
- /* 0x032c 128 */ ble,pt %icc,.L900000112
- /* 0x0330 */ sra %i1,0,%o2
- .L77000127:
- ! 129 ! }
- ! 130 ! t1+=a&0xffffffff;
- ! 131 ! t=(a>>32);
- ! 132 ! t1+=(b&0xffff)<<16;
- ! 133 ! i32[i]=t1&0xffffffff;
- /* 0x0334 133 */ sethi %hi(0xfc00),%g2
- .L900000113:
- /* 0x0338 133 */ or %g0,-1,%g3
- /* 0x033c */ add %g2,1023,%g2
- /* 0x0340 */ srl %g3,0,%g3
- /* 0x0344 */ and %i2,%g2,%g2
- /* 0x0348 */ and %i3,%g3,%g4
- /* 0x034c */ sllx %g2,16,%g2
- /* 0x0350 */ add %g5,%g4,%g4
- /* 0x0354 */ sra %o0,0,%g5
- /* 0x0358 */ add %g4,%g2,%g4
- /* 0x035c */ sllx %g5,2,%g2
- /* 0x0360 */ and %g4,%g3,%g3
- /* 0x0364 */ st %g3,[%g1+%g2]
- /* 0x0368 */ ret ! Result =
- /* 0x036c */ restore %g0,%g0,%g0
- /* 0x0370 0 */ .type conv_d16_to_i32,2
- /* 0x0370 */ .size conv_d16_to_i32,(.-conv_d16_to_i32)
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .align 8
- !
- ! CONSTANT POOL
- !
- .L_const_seg_900000201:
- /* 000000 0 */ .word 1127219200,0
- /* 0x0008 0 */ .align 8
- /* 0x0008 */ .skip 24
- !
- ! SUBROUTINE conv_i32_to_d32
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global conv_i32_to_d32
- conv_i32_to_d32:
- /* 000000 */ or %g0,%o7,%g3
- ! 135 !}
- ! 137 !void conv_i32_to_d32(double *d32, unsigned int *i32, int len)
- ! 138 !{
- ! 139 !int i;
- ! 141 !#pragma pipeloop(0)
- ! 142 ! for(i=0;i<len;i++) d32[i]=(double)(i32[i]);
- /* 0x0004 142 */ cmp %o2,0
- .L900000210:
- /* 0x0008 */ call .+8
- /* 0x000c */ sethi /*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g4
- /* 0x0010 142 */ or %g0,0,%o3
- /* 0x0014 138 */ add %g4,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g4
- /* 0x0018 142 */ sub %o2,1,%o4
- /* 0x001c 138 */ add %g4,%o7,%g1
- /* 0x0020 142 */ ble,pt %icc,.L77000140
- /* 0x0024 */ or %g0,%g3,%o7
- /* 0x0028 */ sethi %hi(.L_const_seg_900000201),%g3
- /* 0x002c */ cmp %o2,12
- /* 0x0030 */ add %g3,%lo(.L_const_seg_900000201),%g2
- /* 0x0034 */ or %g0,%o1,%g5
- /* 0x0038 */ ldx [%g1+%g2],%g4
- /* 0x003c */ or %g0,0,%g1
- /* 0x0040 */ or %g0,24,%g2
- /* 0x0044 */ bl,pn %icc,.L77000144
- /* 0x0048 */ or %g0,0,%g3
- /* 0x004c */ ld [%o1],%f13
- /* 0x0050 */ or %g0,7,%o3
- /* 0x0054 */ ldd [%g4],%f8
- /* 0x0058 */ sub %o2,5,%g3
- /* 0x005c */ or %g0,8,%g1
- /* 0x0060 */ ld [%o1+4],%f11
- /* 0x0064 */ ld [%o1+8],%f7
- /* 0x0068 */ fmovs %f8,%f12
- /* 0x006c */ ld [%o1+12],%f5
- /* 0x0070 */ fmovs %f8,%f10
- /* 0x0074 */ ld [%o1+16],%f3
- /* 0x0078 */ fmovs %f8,%f6
- /* 0x007c */ ld [%o1+20],%f1
- /* 0x0080 */ fsubd %f12,%f8,%f12
- /* 0x0084 */ std %f12,[%o0]
- /* 0x0088 */ fsubd %f10,%f8,%f10
- /* 0x008c */ std %f10,[%o0+8]
- .L900000205:
- /* 0x0090 */ ld [%o1+%g2],%f11
- /* 0x0094 */ add %g1,8,%g1
- /* 0x0098 */ add %o3,5,%o3
- /* 0x009c */ fsubd %f6,%f8,%f6
- /* 0x00a0 */ add %g2,4,%g2
- /* 0x00a4 */ std %f6,[%o0+%g1]
- /* 0x00a8 */ cmp %o3,%g3
- /* 0x00ac */ fmovs %f8,%f4
- /* 0x00b0 */ ld [%o1+%g2],%f7
- /* 0x00b4 */ fsubd %f4,%f8,%f12
- /* 0x00b8 */ add %g1,8,%g1
- /* 0x00bc */ add %g2,4,%g2
- /* 0x00c0 */ fmovs %f8,%f2
- /* 0x00c4 */ std %f12,[%o0+%g1]
- /* 0x00c8 */ ld [%o1+%g2],%f5
- /* 0x00cc */ fsubd %f2,%f8,%f12
- /* 0x00d0 */ add %g1,8,%g1
- /* 0x00d4 */ add %g2,4,%g2
- /* 0x00d8 */ fmovs %f8,%f0
- /* 0x00dc */ std %f12,[%o0+%g1]
- /* 0x00e0 */ ld [%o1+%g2],%f3
- /* 0x00e4 */ fsubd %f0,%f8,%f12
- /* 0x00e8 */ add %g1,8,%g1
- /* 0x00ec */ add %g2,4,%g2
- /* 0x00f0 */ fmovs %f8,%f10
- /* 0x00f4 */ std %f12,[%o0+%g1]
- /* 0x00f8 */ ld [%o1+%g2],%f1
- /* 0x00fc */ fsubd %f10,%f8,%f10
- /* 0x0100 */ add %g1,8,%g1
- /* 0x0104 */ add %g2,4,%g2
- /* 0x0108 */ std %f10,[%o0+%g1]
- /* 0x010c */ ble,pt %icc,.L900000205
- /* 0x0110 */ fmovs %f8,%f6
- .L900000208:
- /* 0x0114 */ fmovs %f8,%f4
- /* 0x0118 */ ld [%o1+%g2],%f11
- /* 0x011c */ add %g1,8,%g3
- /* 0x0120 */ fmovs %f8,%f2
- /* 0x0124 */ add %g1,16,%g1
- /* 0x0128 */ cmp %o3,%o4
- /* 0x012c */ fmovs %f8,%f0
- /* 0x0130 */ add %g1,8,%o1
- /* 0x0134 */ add %g1,16,%o2
- /* 0x0138 */ fmovs %f8,%f10
- /* 0x013c */ add %g1,24,%g2
- /* 0x0140 */ fsubd %f6,%f8,%f6
- /* 0x0144 */ std %f6,[%o0+%g3]
- /* 0x0148 */ fsubd %f4,%f8,%f4
- /* 0x014c */ std %f4,[%o0+%g1]
- /* 0x0150 */ sra %o3,0,%g1
- /* 0x0154 */ fsubd %f2,%f8,%f2
- /* 0x0158 */ std %f2,[%o0+%o1]
- /* 0x015c */ sllx %g1,2,%g3
- /* 0x0160 */ fsubd %f0,%f8,%f0
- /* 0x0164 */ std %f0,[%o0+%o2]
- /* 0x0168 */ fsubd %f10,%f8,%f0
- /* 0x016c */ bg,pn %icc,.L77000140
- /* 0x0170 */ std %f0,[%o0+%g2]
- .L77000144:
- /* 0x0174 */ ldd [%g4],%f8
- .L900000211:
- /* 0x0178 */ ld [%g5+%g3],%f13
- /* 0x017c */ sllx %g1,3,%g2
- /* 0x0180 */ add %o3,1,%o3
- /* 0x0184 */ sra %o3,0,%g1
- /* 0x0188 */ cmp %o3,%o4
- /* 0x018c */ fmovs %f8,%f12
- /* 0x0190 */ sllx %g1,2,%g3
- /* 0x0194 */ fsubd %f12,%f8,%f0
- /* 0x0198 */ std %f0,[%o0+%g2]
- /* 0x019c */ ble,a,pt %icc,.L900000211
- /* 0x01a0 */ ldd [%g4],%f8
- .L77000140:
- /* 0x01a4 */ retl ! Result =
- /* 0x01a8 */ nop
- /* 0x01ac 0 */ .type conv_i32_to_d32,2
- /* 0x01ac */ .size conv_i32_to_d32,(.-conv_i32_to_d32)
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .align 8
- !
- ! CONSTANT POOL
- !
- .L_const_seg_900000301:
- /* 000000 0 */ .word 1127219200,0
- /* 0x0008 0 */ .align 8
- /* 0x0008 */ .skip 24
- !
- ! SUBROUTINE conv_i32_to_d16
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global conv_i32_to_d16
- conv_i32_to_d16:
- /* 000000 */ save %sp,-192,%sp
- .L900000310:
- /* 0x0004 */ call .+8
- /* 0x0008 */ sethi /*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3
- ! 143 !}
- ! 146 !void conv_i32_to_d16(double *d16, unsigned int *i32, int len)
- ! 147 !{
- ! 148 !int i;
- ! 149 !unsigned int a;
- ! 151 !#pragma pipeloop(0)
- ! 152 ! for(i=0;i<len;i++)
- /* 0x000c 152 */ cmp %i2,0
- /* 0x0010 147 */ add %g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3
- /* 0x0014 152 */ ble,pt %icc,.L77000150
- /* 0x0018 */ add %g3,%o7,%o0
- ! 153 ! {
- ! 154 ! a=i32[i];
- ! 155 ! d16[2*i]=(double)(a&0xffff);
- ! 156 ! d16[2*i+1]=(double)(a>>16);
- /* 0x001c 156 */ sethi %hi(.L_const_seg_900000301),%g2
- /* 0x0020 147 */ or %g0,%i2,%o1
- /* 0x0024 152 */ sethi %hi(0xfc00),%g3
- /* 0x0028 156 */ add %g2,%lo(.L_const_seg_900000301),%g2
- /* 0x002c 152 */ or %g0,%o1,%g4
- /* 0x0030 156 */ ldx [%o0+%g2],%o5
- /* 0x0034 152 */ add %g3,1023,%g1
- /* 0x0038 147 */ or %g0,%i1,%o7
- /* 0x003c 152 */ or %g0,0,%i2
- /* 0x0040 */ sub %o1,1,%g5
- /* 0x0044 */ or %g0,0,%g3
- /* 0x0048 */ or %g0,1,%g2
- /* 0x004c 154 */ or %g0,0,%o2
- /* 0x0050 */ cmp %g4,6
- /* 0x0054 152 */ bl,pn %icc,.L77000154
- /* 0x0058 */ ldd [%o5],%f0
- /* 0x005c */ sub %o1,2,%o3
- /* 0x0060 */ or %g0,16,%o2
- /* 0x0064 154 */ ld [%i1],%o4
- /* 0x0068 156 */ or %g0,3,%g2
- /* 0x006c */ or %g0,2,%g3
- /* 0x0070 155 */ fmovs %f0,%f2
- /* 0x0074 156 */ or %g0,4,%i2
- /* 0x0078 155 */ and %o4,%g1,%o0
- /* 0x007c */ st %o0,[%sp+2227]
- /* 0x0080 */ fmovs %f0,%f4
- /* 0x0084 156 */ srl %o4,16,%i4
- /* 0x0088 152 */ or %g0,12,%o4
- /* 0x008c */ or %g0,24,%o0
- /* 0x0090 155 */ ld [%sp+2227],%f3
- /* 0x0094 */ fsubd %f2,%f0,%f2
- /* 0x0098 */ std %f2,[%i0]
- /* 0x009c 156 */ st %i4,[%sp+2223]
- /* 0x00a0 154 */ ld [%o7+4],%o1
- /* 0x00a4 156 */ fmovs %f0,%f2
- /* 0x00a8 155 */ and %o1,%g1,%i1
- /* 0x00ac 156 */ ld [%sp+2223],%f3
- /* 0x00b0 */ srl %o1,16,%o1
- /* 0x00b4 */ fsubd %f2,%f0,%f2
- /* 0x00b8 */ std %f2,[%i0+8]
- /* 0x00bc */ st %o1,[%sp+2223]
- /* 0x00c0 155 */ st %i1,[%sp+2227]
- /* 0x00c4 154 */ ld [%o7+8],%o1
- /* 0x00c8 156 */ fmovs %f0,%f2
- /* 0x00cc 155 */ and %o1,%g1,%g4
- /* 0x00d0 */ ld [%sp+2227],%f5
- /* 0x00d4 156 */ srl %o1,16,%o1
- /* 0x00d8 */ ld [%sp+2223],%f3
- /* 0x00dc */ st %o1,[%sp+2223]
- /* 0x00e0 155 */ fsubd %f4,%f0,%f4
- /* 0x00e4 */ st %g4,[%sp+2227]
- /* 0x00e8 156 */ fsubd %f2,%f0,%f2
- /* 0x00ec 154 */ ld [%o7+12],%o1
- /* 0x00f0 155 */ std %f4,[%i0+16]
- /* 0x00f4 156 */ std %f2,[%i0+24]
- .L900000306:
- /* 0x00f8 155 */ ld [%sp+2227],%f5
- /* 0x00fc 156 */ add %i2,2,%i2
- /* 0x0100 */ add %g2,4,%g2
- /* 0x0104 */ ld [%sp+2223],%f3
- /* 0x0108 */ cmp %i2,%o3
- /* 0x010c */ add %g3,4,%g3
- /* 0x0110 155 */ and %o1,%g1,%g4
- /* 0x0114 156 */ srl %o1,16,%o1
- /* 0x0118 155 */ st %g4,[%sp+2227]
- /* 0x011c 156 */ st %o1,[%sp+2223]
- /* 0x0120 152 */ add %o4,4,%o1
- /* 0x0124 154 */ ld [%o7+%o1],%o4
- /* 0x0128 156 */ fmovs %f0,%f2
- /* 0x012c 155 */ fmovs %f0,%f4
- /* 0x0130 */ fsubd %f4,%f0,%f4
- /* 0x0134 152 */ add %o2,16,%o2
- /* 0x0138 156 */ fsubd %f2,%f0,%f2
- /* 0x013c 155 */ std %f4,[%i0+%o2]
- /* 0x0140 152 */ add %o0,16,%o0
- /* 0x0144 156 */ std %f2,[%i0+%o0]
- /* 0x0148 155 */ ld [%sp+2227],%f5
- /* 0x014c 156 */ ld [%sp+2223],%f3
- /* 0x0150 155 */ and %o4,%g1,%g4
- /* 0x0154 156 */ srl %o4,16,%o4
- /* 0x0158 155 */ st %g4,[%sp+2227]
- /* 0x015c 156 */ st %o4,[%sp+2223]
- /* 0x0160 152 */ add %o1,4,%o4
- /* 0x0164 154 */ ld [%o7+%o4],%o1
- /* 0x0168 156 */ fmovs %f0,%f2
- /* 0x016c 155 */ fmovs %f0,%f4
- /* 0x0170 */ fsubd %f4,%f0,%f4
- /* 0x0174 152 */ add %o2,16,%o2
- /* 0x0178 156 */ fsubd %f2,%f0,%f2
- /* 0x017c 155 */ std %f4,[%i0+%o2]
- /* 0x0180 152 */ add %o0,16,%o0
- /* 0x0184 156 */ ble,pt %icc,.L900000306
- /* 0x0188 */ std %f2,[%i0+%o0]
- .L900000309:
- /* 0x018c 155 */ ld [%sp+2227],%f5
- /* 0x0190 156 */ fmovs %f0,%f2
- /* 0x0194 */ srl %o1,16,%o3
- /* 0x0198 */ ld [%sp+2223],%f3
- /* 0x019c 155 */ and %o1,%g1,%i1
- /* 0x01a0 152 */ add %o2,16,%g4
- /* 0x01a4 155 */ fmovs %f0,%f4
- /* 0x01a8 */ st %i1,[%sp+2227]
- /* 0x01ac 152 */ add %o0,16,%o2
- /* 0x01b0 156 */ st %o3,[%sp+2223]
- /* 0x01b4 154 */ sra %i2,0,%o3
- /* 0x01b8 152 */ add %g4,16,%o1
- /* 0x01bc 155 */ fsubd %f4,%f0,%f4
- /* 0x01c0 */ std %f4,[%i0+%g4]
- /* 0x01c4 152 */ add %o0,32,%o0
- /* 0x01c8 156 */ fsubd %f2,%f0,%f2
- /* 0x01cc */ std %f2,[%i0+%o2]
- /* 0x01d0 */ sllx %o3,2,%o2
- /* 0x01d4 155 */ ld [%sp+2227],%f5
- /* 0x01d8 156 */ cmp %i2,%g5
- /* 0x01dc */ add %g2,6,%g2
- /* 0x01e0 */ ld [%sp+2223],%f3
- /* 0x01e4 */ add %g3,6,%g3
- /* 0x01e8 155 */ fmovs %f0,%f4
- /* 0x01ec 156 */ fmovs %f0,%f2
- /* 0x01f0 155 */ fsubd %f4,%f0,%f4
- /* 0x01f4 */ std %f4,[%i0+%o1]
- /* 0x01f8 156 */ fsubd %f2,%f0,%f0
- /* 0x01fc */ bg,pn %icc,.L77000150
- /* 0x0200 */ std %f0,[%i0+%o0]
- .L77000154:
- /* 0x0204 155 */ ldd [%o5],%f0
- .L900000311:
- /* 0x0208 154 */ ld [%o7+%o2],%o0
- /* 0x020c 155 */ sra %g3,0,%o1
- /* 0x0210 */ fmovs %f0,%f2
- /* 0x0214 */ sllx %o1,3,%o2
- /* 0x0218 156 */ add %i2,1,%i2
- /* 0x021c 155 */ and %o0,%g1,%o1
- /* 0x0220 */ st %o1,[%sp+2227]
- /* 0x0224 156 */ add %g3,2,%g3
- /* 0x0228 */ srl %o0,16,%o1
- /* 0x022c */ cmp %i2,%g5
- /* 0x0230 */ sra %g2,0,%o0
- /* 0x0234 */ add %g2,2,%g2
- /* 0x0238 */ sllx %o0,3,%o0
- /* 0x023c 155 */ ld [%sp+2227],%f3
- /* 0x0240 154 */ sra %i2,0,%o3
- /* 0x0244 155 */ fsubd %f2,%f0,%f2
- /* 0x0248 */ std %f2,[%i0+%o2]
- /* 0x024c */ sllx %o3,2,%o2
- /* 0x0250 156 */ st %o1,[%sp+2223]
- /* 0x0254 */ fmovs %f0,%f2
- /* 0x0258 */ ld [%sp+2223],%f3
- /* 0x025c */ fsubd %f2,%f0,%f0
- /* 0x0260 */ std %f0,[%i0+%o0]
- /* 0x0264 */ ble,a,pt %icc,.L900000311
- /* 0x0268 */ ldd [%o5],%f0
- .L77000150:
- /* 0x026c */ ret ! Result =
- /* 0x0270 */ restore %g0,%g0,%g0
- /* 0x0274 0 */ .type conv_i32_to_d16,2
- /* 0x0274 */ .size conv_i32_to_d16,(.-conv_i32_to_d16)
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .align 8
- !
- ! CONSTANT POOL
- !
- .L_const_seg_900000401:
- /* 000000 0 */ .word 1127219200,0
- /* 0x0008 0 */ .align 8
- /* 0x0008 */ .skip 24
- !
- ! SUBROUTINE conv_i32_to_d32_and_d16
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global conv_i32_to_d32_and_d16
- conv_i32_to_d32_and_d16:
- /* 000000 */ save %sp,-192,%sp
- .L900000415:
- /* 0x0004 */ call .+8
- /* 0x0008 */ sethi /*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000415-.)),%g3
- ! 157 ! }
- ! 158 !}
- ! 161 !void conv_i32_to_d32_and_d16(double *d32, double *d16,
- ! 162 ! unsigned int *i32, int len)
- ! 163 !{
- ! 164 !int i = 0;
- ! 165 !unsigned int a;
- ! 167 !#pragma pipeloop(0)
- ! 168 !#ifdef RF_INLINE_MACROS
- ! 169 ! for(;i<len-3;i+=4)
- ! 170 ! {
- ! 171 ! i16_to_d16_and_d32x4(&TwoToMinus16, &TwoTo16, &Zero,
- ! 172 ! &(d16[2*i]), &(d32[i]), (float *)(&(i32[i])));
- /* 0x000c 172 */ sethi %hi(Zero),%g2
- /* 0x0010 163 */ add %g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000415-.)),%g3
- /* 0x0014 */ or %g0,%i3,%g5
- /* 0x0018 */ add %g3,%o7,%o3
- /* 0x001c 172 */ add %g2,%lo(Zero),%g2
- /* 0x0020 */ ldx [%o3+%g2],%o0
- /* 0x0024 */ sethi %hi(TwoToMinus16),%g3
- /* 0x0028 163 */ or %g0,%i0,%i3
- /* 0x002c 169 */ sub %g5,3,%o1
- /* 0x0030 172 */ sethi %hi(TwoTo16),%g4
- /* 0x0034 163 */ or %g0,%i2,%i0
- /* 0x0038 172 */ add %g3,%lo(TwoToMinus16),%g2
- /* 0x003c */ ldx [%o3+%g2],%o2
- /* 0x0040 169 */ cmp %o1,0
- /* 0x0044 164 */ or %g0,0,%i2
- /* 0x0048 169 */ ble,pt %icc,.L900000418
- /* 0x004c */ cmp %i2,%g5
- /* 0x0050 */ ldd [%o0],%f2
- /* 0x0054 172 */ add %g4,%lo(TwoTo16),%g3
- /* 0x0058 */ ldx [%o3+%g3],%o1
- /* 0x005c 169 */ sub %g5,4,%o4
- /* 0x0060 */ or %g0,0,%o5
- .L900000417:
- /* 0x0064 172 */ sra %i2,0,%g2
- /* 0x0068 */ fmovd %f2,%f14
- /* 0x006c */ ldd [%o2],%f0
- /* 0x0070 */ sllx %g2,2,%g3
- /* 0x0074 */ fmovd %f2,%f10
- /* 0x0078 */ ldd [%o1],%f16
- /* 0x007c */ ld [%g3+%i0],%f15
- /* 0x0080 */ add %i0,%g3,%g3
- /* 0x0084 */ fmovd %f2,%f6
- /* 0x0088 */ ld [%g3+4],%f11
- /* 0x008c */ sra %o5,0,%g4
- /* 0x0090 */ add %i2,4,%i2
- /* 0x0094 */ ld [%g3+8],%f7
- /* 0x0098 */ fxtod %f14,%f14
- /* 0x009c */ sllx %g2,3,%g2
- /* 0x00a0 */ ld [%g3+12],%f3
- /* 0x00a4 */ fxtod %f10,%f10
- /* 0x00a8 */ sllx %g4,3,%g3
- /* 0x00ac */ fxtod %f6,%f6
- /* 0x00b0 */ std %f14,[%g2+%i3]
- /* 0x00b4 */ add %i3,%g2,%g4
- /* 0x00b8 */ fxtod %f2,%f2
- /* 0x00bc */ fmuld %f0,%f14,%f12
- /* 0x00c0 */ std %f2,[%g4+24]
- /* 0x00c4 */ fmuld %f0,%f10,%f8
- /* 0x00c8 */ std %f10,[%g4+8]
- /* 0x00cc */ add %i1,%g3,%g2
- /* 0x00d0 */ fmuld %f0,%f6,%f4
- /* 0x00d4 */ std %f6,[%g4+16]
- /* 0x00d8 */ cmp %i2,%o4
- /* 0x00dc */ fmuld %f0,%f2,%f0
- /* 0x00e0 */ fdtox %f12,%f12
- /* 0x00e4 */ add %o5,8,%o5
- /* 0x00e8 */ fdtox %f8,%f8
- /* 0x00ec */ fdtox %f4,%f4
- /* 0x00f0 */ fdtox %f0,%f0
- /* 0x00f4 */ fxtod %f12,%f12
- /* 0x00f8 */ std %f12,[%g2+8]
- /* 0x00fc */ fxtod %f8,%f8
- /* 0x0100 */ std %f8,[%g2+24]
- /* 0x0104 */ fxtod %f4,%f4
- /* 0x0108 */ std %f4,[%g2+40]
- /* 0x010c */ fxtod %f0,%f0
- /* 0x0110 */ std %f0,[%g2+56]
- /* 0x0114 */ fmuld %f12,%f16,%f12
- /* 0x0118 */ fmuld %f8,%f16,%f8
- /* 0x011c */ fmuld %f4,%f16,%f4
- /* 0x0120 */ fsubd %f14,%f12,%f12
- /* 0x0124 */ std %f12,[%g3+%i1]
- /* 0x0128 */ fmuld %f0,%f16,%f0
- /* 0x012c */ fsubd %f10,%f8,%f8
- /* 0x0130 */ std %f8,[%g2+16]
- /* 0x0134 */ fsubd %f6,%f4,%f4
- /* 0x0138 */ std %f4,[%g2+32]
- /* 0x013c */ fsubd %f2,%f0,%f0
- /* 0x0140 */ std %f0,[%g2+48]
- /* 0x0144 */ ble,a,pt %icc,.L900000417
- /* 0x0148 */ ldd [%o0],%f2
- .L77000159:
- ! 173 ! }
- ! 174 !#endif
- ! 175 ! for(;i<len;i++)
- /* 0x014c 175 */ cmp %i2,%g5
- .L900000418:
- /* 0x0150 175 */ bge,pt %icc,.L77000164
- /* 0x0154 */ nop
- ! 176 ! {
- ! 177 ! a=i32[i];
- ! 178 ! d32[i]=(double)(i32[i]);
- ! 179 ! d16[2*i]=(double)(a&0xffff);
- ! 180 ! d16[2*i+1]=(double)(a>>16);
- /* 0x0158 180 */ sethi %hi(.L_const_seg_900000401),%g2
- /* 0x015c */ add %g2,%lo(.L_const_seg_900000401),%g2
- /* 0x0160 175 */ sethi %hi(0xfc00),%g3
- /* 0x0164 180 */ ldx [%o3+%g2],%g1
- /* 0x0168 175 */ sll %i2,1,%i4
- /* 0x016c */ sub %g5,%i2,%g4
- /* 0x0170 177 */ sra %i2,0,%o3
- /* 0x0174 175 */ add %g3,1023,%g3
- /* 0x0178 178 */ ldd [%g1],%f2
- /* 0x017c */ sllx %o3,2,%o2
- /* 0x0180 175 */ add %i4,1,%g2
- /* 0x0184 177 */ or %g0,%o3,%o1
- /* 0x0188 */ cmp %g4,6
- /* 0x018c 175 */ bl,pn %icc,.L77000161
- /* 0x0190 */ sra %i2,0,%o3
- /* 0x0194 177 */ or %g0,%o2,%o0
- /* 0x0198 178 */ ld [%i0+%o2],%f5
- /* 0x019c 179 */ fmovs %f2,%f8
- /* 0x01a0 175 */ add %o0,4,%o3
- /* 0x01a4 177 */ ld [%i0+%o0],%o7
- /* 0x01a8 180 */ fmovs %f2,%f6
- /* 0x01ac 178 */ fmovs %f2,%f4
- /* 0x01b0 */ sllx %o1,3,%o2
- /* 0x01b4 175 */ add %o3,4,%o5
- /* 0x01b8 179 */ sra %i4,0,%o0
- /* 0x01bc 175 */ add %o3,8,%o4
- /* 0x01c0 178 */ fsubd %f4,%f2,%f4
- /* 0x01c4 */ std %f4,[%i3+%o2]
- /* 0x01c8 179 */ sllx %o0,3,%i5
- /* 0x01cc */ and %o7,%g3,%o0
- /* 0x01d0 */ st %o0,[%sp+2227]
- /* 0x01d4 175 */ add %i5,16,%o1
- /* 0x01d8 180 */ srl %o7,16,%g4
- /* 0x01dc */ add %i2,1,%i2
- /* 0x01e0 */ sra %g2,0,%o0
- /* 0x01e4 175 */ add %o2,8,%o2
- /* 0x01e8 179 */ fmovs %f2,%f4
- /* 0x01ec 180 */ sllx %o0,3,%l0
- /* 0x01f0 */ add %i4,3,%g2
- /* 0x01f4 179 */ ld [%sp+2227],%f5
- /* 0x01f8 175 */ add %l0,16,%o0
- /* 0x01fc 180 */ add %i4,2,%i4
- /* 0x0200 175 */ sub %g5,1,%o7
- /* 0x0204 180 */ add %i2,3,%i2
- /* 0x0208 179 */ fsubd %f4,%f2,%f4
- /* 0x020c */ std %f4,[%i1+%i5]
- /* 0x0210 180 */ st %g4,[%sp+2223]
- /* 0x0214 177 */ ld [%i0+%o3],%i5
- /* 0x0218 180 */ fmovs %f2,%f4
- /* 0x021c */ srl %i5,16,%g4
- /* 0x0220 179 */ and %i5,%g3,%i5
- /* 0x0224 180 */ ld [%sp+2223],%f5
- /* 0x0228 */ fsubd %f4,%f2,%f4
- /* 0x022c */ std %f4,[%i1+%l0]
- /* 0x0230 */ st %g4,[%sp+2223]
- /* 0x0234 177 */ ld [%i0+%o5],%g4
- /* 0x0238 179 */ st %i5,[%sp+2227]
- /* 0x023c 178 */ fmovs %f2,%f4
- /* 0x0240 180 */ srl %g4,16,%i5
- /* 0x0244 179 */ and %g4,%g3,%g4
- /* 0x0248 180 */ ld [%sp+2223],%f7
- /* 0x024c */ st %i5,[%sp+2223]
- /* 0x0250 178 */ ld [%i0+%o3],%f5
- /* 0x0254 180 */ fsubd %f6,%f2,%f6
- /* 0x0258 177 */ ld [%i0+%o4],%o3
- /* 0x025c 178 */ fsubd %f4,%f2,%f4
- /* 0x0260 179 */ ld [%sp+2227],%f9
- /* 0x0264 180 */ ld [%sp+2223],%f1
- /* 0x0268 179 */ st %g4,[%sp+2227]
- /* 0x026c */ fsubd %f8,%f2,%f8
- /* 0x0270 */ std %f8,[%i1+%o1]
- /* 0x0274 180 */ std %f6,[%i1+%o0]
- /* 0x0278 178 */ std %f4,[%i3+%o2]
- .L900000411:
- /* 0x027c 179 */ ld [%sp+2227],%f13
- /* 0x0280 180 */ srl %o3,16,%g4
- /* 0x0284 */ add %i2,2,%i2
- /* 0x0288 */ st %g4,[%sp+2223]
- /* 0x028c */ cmp %i2,%o7
- /* 0x0290 */ add %g2,4,%g2
- /* 0x0294 178 */ ld [%i0+%o5],%f11
- /* 0x0298 180 */ add %i4,4,%i4
- /* 0x029c 175 */ add %o4,4,%o5
- /* 0x02a0 177 */ ld [%i0+%o5],%g4
- /* 0x02a4 179 */ and %o3,%g3,%o3
- /* 0x02a8 */ st %o3,[%sp+2227]
- /* 0x02ac 180 */ fmovs %f2,%f0
- /* 0x02b0 179 */ fmovs %f2,%f12
- /* 0x02b4 180 */ fsubd %f0,%f2,%f8
- /* 0x02b8 179 */ fsubd %f12,%f2,%f4
- /* 0x02bc 175 */ add %o1,16,%o1
- /* 0x02c0 180 */ ld [%sp+2223],%f7
- /* 0x02c4 178 */ fmovs %f2,%f10
- /* 0x02c8 179 */ std %f4,[%i1+%o1]
- /* 0x02cc 175 */ add %o0,16,%o0
- /* 0x02d0 178 */ fsubd %f10,%f2,%f4
- /* 0x02d4 175 */ add %o2,8,%o2
- /* 0x02d8 180 */ std %f8,[%i1+%o0]
- /* 0x02dc 178 */ std %f4,[%i3+%o2]
- /* 0x02e0 179 */ ld [%sp+2227],%f9
- /* 0x02e4 180 */ srl %g4,16,%o3
- /* 0x02e8 */ st %o3,[%sp+2223]
- /* 0x02ec 178 */ ld [%i0+%o4],%f5
- /* 0x02f0 175 */ add %o4,8,%o4
- /* 0x02f4 177 */ ld [%i0+%o4],%o3
- /* 0x02f8 179 */ and %g4,%g3,%g4
- /* 0x02fc */ st %g4,[%sp+2227]
- /* 0x0300 180 */ fmovs %f2,%f6
- /* 0x0304 179 */ fmovs %f2,%f8
- /* 0x0308 180 */ fsubd %f6,%f2,%f6
- /* 0x030c 179 */ fsubd %f8,%f2,%f8
- /* 0x0310 175 */ add %o1,16,%o1
- /* 0x0314 180 */ ld [%sp+2223],%f1
- /* 0x0318 178 */ fmovs %f2,%f4
- /* 0x031c 179 */ std %f8,[%i1+%o1]
- /* 0x0320 175 */ add %o0,16,%o0
- /* 0x0324 178 */ fsubd %f4,%f2,%f4
- /* 0x0328 175 */ add %o2,8,%o2
- /* 0x032c 180 */ std %f6,[%i1+%o0]
- /* 0x0330 */ bl,pt %icc,.L900000411
- /* 0x0334 */ std %f4,[%i3+%o2]
- .L900000414:
- /* 0x0338 180 */ srl %o3,16,%o7
- /* 0x033c */ st %o7,[%sp+2223]
- /* 0x0340 179 */ fmovs %f2,%f12
- /* 0x0344 178 */ ld [%i0+%o5],%f11
- /* 0x0348 180 */ fmovs %f2,%f0
- /* 0x034c 179 */ and %o3,%g3,%g4
- /* 0x0350 180 */ fmovs %f2,%f6
- /* 0x0354 175 */ add %o1,16,%o3
- /* 0x0358 */ add %o0,16,%o7
- /* 0x035c 178 */ fmovs %f2,%f10
- /* 0x0360 175 */ add %o2,8,%o2
- /* 0x0364 */ add %o1,32,%o5
- /* 0x0368 179 */ ld [%sp+2227],%f13
- /* 0x036c 178 */ fmovs %f2,%f4
- /* 0x0370 175 */ add %o0,32,%o1
- /* 0x0374 180 */ ld [%sp+2223],%f7
- /* 0x0378 175 */ add %o2,8,%o0
- /* 0x037c 180 */ cmp %i2,%g5
- /* 0x0380 179 */ st %g4,[%sp+2227]
- /* 0x0384 */ fsubd %f12,%f2,%f8
- /* 0x0388 180 */ add %g2,6,%g2
- /* 0x038c 179 */ std %f8,[%i1+%o3]
- /* 0x0390 180 */ fsubd %f0,%f2,%f0
- /* 0x0394 177 */ sra %i2,0,%o3
- /* 0x0398 180 */ std %f0,[%i1+%o7]
- /* 0x039c 178 */ fsubd %f10,%f2,%f0
- /* 0x03a0 180 */ add %i4,6,%i4
- /* 0x03a4 178 */ std %f0,[%i3+%o2]
- /* 0x03a8 */ sllx %o3,2,%o2
- /* 0x03ac 179 */ ld [%sp+2227],%f9
- /* 0x03b0 178 */ ld [%i0+%o4],%f5
- /* 0x03b4 179 */ fmovs %f2,%f8
- /* 0x03b8 */ fsubd %f8,%f2,%f0
- /* 0x03bc */ std %f0,[%i1+%o5]
- /* 0x03c0 180 */ fsubd %f6,%f2,%f0
- /* 0x03c4 */ std %f0,[%i1+%o1]
- /* 0x03c8 178 */ fsubd %f4,%f2,%f0
- /* 0x03cc 180 */ bge,pn %icc,.L77000164
- /* 0x03d0 */ std %f0,[%i3+%o0]
- .L77000161:
- /* 0x03d4 178 */ ldd [%g1],%f2
- .L900000416:
- /* 0x03d8 178 */ ld [%i0+%o2],%f5
- /* 0x03dc 179 */ sra %i4,0,%o0
- /* 0x03e0 180 */ add %i2,1,%i2
- /* 0x03e4 177 */ ld [%i0+%o2],%o1
- /* 0x03e8 178 */ sllx %o3,3,%o3
- /* 0x03ec 180 */ add %i4,2,%i4
- /* 0x03f0 178 */ fmovs %f2,%f4
- /* 0x03f4 179 */ sllx %o0,3,%o4
- /* 0x03f8 180 */ cmp %i2,%g5
- /* 0x03fc 179 */ and %o1,%g3,%o0
- /* 0x0400 178 */ fsubd %f4,%f2,%f0
- /* 0x0404 */ std %f0,[%i3+%o3]
- /* 0x0408 180 */ srl %o1,16,%o1
- /* 0x040c 179 */ st %o0,[%sp+2227]
- /* 0x0410 180 */ sra %g2,0,%o0
- /* 0x0414 */ add %g2,2,%g2
- /* 0x0418 177 */ sra %i2,0,%o3
- /* 0x041c 180 */ sllx %o0,3,%o0
- /* 0x0420 179 */ fmovs %f2,%f4
- /* 0x0424 */ sllx %o3,2,%o2
- /* 0x0428 */ ld [%sp+2227],%f5
- /* 0x042c */ fsubd %f4,%f2,%f0
- /* 0x0430 */ std %f0,[%i1+%o4]
- /* 0x0434 180 */ st %o1,[%sp+2223]
- /* 0x0438 */ fmovs %f2,%f4
- /* 0x043c */ ld [%sp+2223],%f5
- /* 0x0440 */ fsubd %f4,%f2,%f0
- /* 0x0444 */ std %f0,[%i1+%o0]
- /* 0x0448 */ bl,a,pt %icc,.L900000416
- /* 0x044c */ ldd [%g1],%f2
- .L77000164:
- /* 0x0450 */ ret ! Result =
- /* 0x0454 */ restore %g0,%g0,%g0
- /* 0x0458 0 */ .type conv_i32_to_d32_and_d16,2
- /* 0x0458 */ .size conv_i32_to_d32_and_d16,(.-conv_i32_to_d32_and_d16)
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .align 8
- !
- ! SUBROUTINE adjust_montf_result
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global adjust_montf_result
- adjust_montf_result:
- /* 000000 */ save %sp,-176,%sp
- /* 0x0004 */ or %g0,%i2,%o1
- /* 0x0008 */ or %g0,%i0,%i2
- ! 181 ! }
- ! 182 !}
- ! 185 !void adjust_montf_result(unsigned int *i32, unsigned int *nint, int len)
- ! 186 !{
- ! 187 !long long acc;
- ! 188 !int i;
- ! 190 ! if(i32[len]>0) i=-1;
- /* 0x000c 190 */ sra %o1,0,%g2
- /* 0x0010 */ or %g0,-1,%o2
- /* 0x0014 */ sllx %g2,2,%g2
- /* 0x0018 */ ld [%i2+%g2],%g2
- /* 0x001c */ cmp %g2,0
- /* 0x0020 */ bleu,pn %icc,.L77000175
- /* 0x0024 */ or %g0,%i1,%i0
- /* 0x0028 */ ba .L900000511
- /* 0x002c */ cmp %o2,0
- .L77000175:
- ! 191 ! else
- ! 192 ! {
- ! 193 ! for(i=len-1; i>=0; i--)
- /* 0x0030 193 */ sub %o1,1,%o2
- /* 0x0034 */ cmp %o2,0
- /* 0x0038 */ bl,pn %icc,.L77000182
- /* 0x003c */ sra %o2,0,%g2
- .L900000510:
- ! 194 ! {
- ! 195 ! if(i32[i]!=nint[i]) break;
- /* 0x0040 195 */ sllx %g2,2,%g2
- /* 0x0044 */ sub %o2,1,%o0
- /* 0x0048 */ ld [%i1+%g2],%g3
- /* 0x004c */ ld [%i2+%g2],%g2
- /* 0x0050 */ cmp %g2,%g3
- /* 0x0054 */ bne,pn %icc,.L77000182
- /* 0x0058 */ nop
- /* 0x005c 0 */ or %g0,%o0,%o2
- /* 0x0060 195 */ cmp %o0,0
- /* 0x0064 */ bge,pt %icc,.L900000510
- /* 0x0068 */ sra %o2,0,%g2
- .L77000182:
- ! 196 ! }
- ! 197 ! }
- ! 198 ! if((i<0)||(i32[i]>nint[i]))
- /* 0x006c 198 */ cmp %o2,0
- .L900000511:
- /* 0x0070 198 */ bl,pn %icc,.L77000198
- /* 0x0074 */ sra %o2,0,%g2
- /* 0x0078 */ sllx %g2,2,%g2
- /* 0x007c */ ld [%i1+%g2],%g3
- /* 0x0080 */ ld [%i2+%g2],%g2
- /* 0x0084 */ cmp %g2,%g3
- /* 0x0088 */ bleu,pt %icc,.L77000191
- /* 0x008c */ nop
- .L77000198:
- ! 199 ! {
- ! 200 ! acc=0;
- ! 201 ! for(i=0;i<len;i++)
- /* 0x0090 201 */ cmp %o1,0
- /* 0x0094 */ ble,pt %icc,.L77000191
- /* 0x0098 */ nop
- /* 0x009c 198 */ or %g0,-1,%g2
- /* 0x00a0 201 */ or %g0,%o1,%g3
- /* 0x00a4 198 */ srl %g2,0,%g2
- /* 0x00a8 */ sub %o1,1,%g4
- /* 0x00ac */ cmp %o1,9
- /* 0x00b0 201 */ or %g0,0,%i1
- /* 0x00b4 200 */ or %g0,0,%g5
- ! 202 ! {
- ! 203 ! acc=acc+(unsigned long long)(i32[i])-(unsigned long long)(nint[i]);
- /* 0x00b8 203 */ or %g0,0,%o1
- /* 0x00bc 201 */ bl,pn %icc,.L77000199
- /* 0x00c0 */ sub %g3,4,%o7
- /* 0x00c4 203 */ ld [%i2],%o1
- ! 204 ! i32[i]=acc&0xffffffff;
- ! 205 ! acc=acc>>32;
- /* 0x00c8 205 */ or %g0,5,%i1
- /* 0x00cc 203 */ ld [%i0],%o2
- /* 0x00d0 201 */ or %g0,8,%o5
- /* 0x00d4 */ or %g0,12,%o4
- /* 0x00d8 203 */ ld [%i0+4],%o3
- /* 0x00dc 201 */ or %g0,16,%g1
- /* 0x00e0 203 */ ld [%i2+4],%o0
- /* 0x00e4 201 */ sub %o1,%o2,%o1
- /* 0x00e8 203 */ ld [%i0+8],%i3
- /* 0x00ec 204 */ and %o1,%g2,%g5
- /* 0x00f0 */ st %g5,[%i2]
- /* 0x00f4 205 */ srax %o1,32,%g5
- /* 0x00f8 201 */ sub %o0,%o3,%o0
- /* 0x00fc 203 */ ld [%i0+12],%o2
- /* 0x0100 201 */ add %o0,%g5,%o0
- /* 0x0104 204 */ and %o0,%g2,%g5
- /* 0x0108 */ st %g5,[%i2+4]
- /* 0x010c 205 */ srax %o0,32,%o0
- /* 0x0110 203 */ ld [%i2+8],%o1
- /* 0x0114 */ ld [%i2+12],%o3
- /* 0x0118 201 */ sub %o1,%i3,%o1
- .L900000505:
- /* 0x011c */ add %g1,4,%g3
- /* 0x0120 203 */ ld [%g1+%i2],%g5
- /* 0x0124 201 */ add %o1,%o0,%o0
- /* 0x0128 203 */ ld [%i0+%g1],%i3
- /* 0x012c 201 */ sub %o3,%o2,%o1
- /* 0x0130 204 */ and %o0,%g2,%o2
- /* 0x0134 */ st %o2,[%o5+%i2]
- /* 0x0138 205 */ srax %o0,32,%o2
- /* 0x013c */ add %i1,4,%i1
- /* 0x0140 201 */ add %g1,8,%o5
- /* 0x0144 203 */ ld [%g3+%i2],%o0
- /* 0x0148 201 */ add %o1,%o2,%o1
- /* 0x014c 203 */ ld [%i0+%g3],%o3
- /* 0x0150 201 */ sub %g5,%i3,%o2
- /* 0x0154 204 */ and %o1,%g2,%g5
- /* 0x0158 */ st %g5,[%o4+%i2]
- /* 0x015c 205 */ srax %o1,32,%g5
- /* 0x0160 */ cmp %i1,%o7
- /* 0x0164 201 */ add %g1,12,%o4
- /* 0x0168 203 */ ld [%o5+%i2],%o1
- /* 0x016c 201 */ add %o2,%g5,%o2
- /* 0x0170 203 */ ld [%i0+%o5],%i3
- /* 0x0174 201 */ sub %o0,%o3,%o0
- /* 0x0178 204 */ and %o2,%g2,%o3
- /* 0x017c */ st %o3,[%g1+%i2]
- /* 0x0180 205 */ srax %o2,32,%g5
- /* 0x0184 203 */ ld [%o4+%i2],%o3
- /* 0x0188 201 */ add %g1,16,%g1
- /* 0x018c */ add %o0,%g5,%o0
- /* 0x0190 203 */ ld [%i0+%o4],%o2
- /* 0x0194 201 */ sub %o1,%i3,%o1
- /* 0x0198 204 */ and %o0,%g2,%g5
- /* 0x019c */ st %g5,[%g3+%i2]
- /* 0x01a0 205 */ ble,pt %icc,.L900000505
- /* 0x01a4 */ srax %o0,32,%o0
- .L900000508:
- /* 0x01a8 */ add %o1,%o0,%g3
- /* 0x01ac */ sub %o3,%o2,%o1
- /* 0x01b0 203 */ ld [%g1+%i2],%o0
- /* 0x01b4 */ ld [%i0+%g1],%o2
- /* 0x01b8 205 */ srax %g3,32,%o7
- /* 0x01bc 204 */ and %g3,%g2,%o3
- /* 0x01c0 201 */ add %o1,%o7,%o1
- /* 0x01c4 204 */ st %o3,[%o5+%i2]
- /* 0x01c8 205 */ cmp %i1,%g4
- /* 0x01cc 201 */ sub %o0,%o2,%o0
- /* 0x01d0 204 */ and %o1,%g2,%o2
- /* 0x01d4 */ st %o2,[%o4+%i2]
- /* 0x01d8 205 */ srax %o1,32,%o1
- /* 0x01dc 203 */ sra %i1,0,%o2
- /* 0x01e0 201 */ add %o0,%o1,%o0
- /* 0x01e4 205 */ srax %o0,32,%g5
- /* 0x01e8 204 */ and %o0,%g2,%o1
- /* 0x01ec */ st %o1,[%g1+%i2]
- /* 0x01f0 205 */ bg,pn %icc,.L77000191
- /* 0x01f4 */ sllx %o2,2,%o1
- .L77000199:
- /* 0x01f8 0 */ or %g0,%o1,%g1
- .L900000509:
- /* 0x01fc 203 */ ld [%o1+%i2],%o0
- /* 0x0200 205 */ add %i1,1,%i1
- /* 0x0204 203 */ ld [%i0+%o1],%o1
- /* 0x0208 */ sra %i1,0,%o2
- /* 0x020c 205 */ cmp %i1,%g4
- /* 0x0210 203 */ add %g5,%o0,%o0
- /* 0x0214 */ sub %o0,%o1,%o0
- /* 0x0218 205 */ srax %o0,32,%g5
- /* 0x021c 204 */ and %o0,%g2,%o1
- /* 0x0220 */ st %o1,[%g1+%i2]
- /* 0x0224 */ sllx %o2,2,%o1
- /* 0x0228 205 */ ble,pt %icc,.L900000509
- /* 0x022c */ or %g0,%o1,%g1
- .L77000191:
- /* 0x0230 */ ret ! Result =
- /* 0x0234 */ restore %g0,%g0,%g0
- /* 0x0238 0 */ .type adjust_montf_result,2
- /* 0x0238 */ .size adjust_montf_result,(.-adjust_montf_result)
- .section ".text",#alloc,#execinstr
- /* 000000 0 */ .align 8
- /* 000000 */ .skip 24
- !
- ! SUBROUTINE mont_mulf_noconv
- !
- ! OFFSET SOURCE LINE LABEL INSTRUCTION
- .global mont_mulf_noconv
- mont_mulf_noconv:
- /* 000000 */ save %sp,-224,%sp
- .L900000643:
- /* 0x0004 */ call .+8
- /* 0x0008 */ sethi /*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000643-.)),%g5
- /* 0x000c */ ldx [%fp+2223],%l0
- ! 206 ! }
- ! 207 ! }
- ! 208 !}
- ! 213 !/*
- ! 214 !** the lengths of the input arrays should be at least the following:
- ! 215 !** result[nlen+1], dm1[nlen], dm2[2*nlen+1], dt[4*nlen+2], dn[nlen], nint[nlen]
- ! 216 !** all of them should be different from one another
- ! 217 !**
- ! 218 !*/
- ! 219 !void mont_mulf_noconv(unsigned int *result,
- ! 220 ! double *dm1, double *dm2, double *dt,
- ! 221 ! double *dn, unsigned int *nint,
- ! 222 ! int nlen, double dn0)
- ! 223 !{
- ! 224 ! int i, j, jj;
- ! 225 ! int tmp;
- ! 226 ! double digit, m2j, nextm2j, a, b;
- ! 227 ! double *dptmp, *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
- ! 229 ! pdm1=&(dm1[0]);
- ! 230 ! pdm2=&(dm2[0]);
- ! 231 ! pdn=&(dn[0]);
- ! 232 ! pdm2[2*nlen]=Zero;
- /* 0x0010 232 */ sethi %hi(Zero),%g2
- /* 0x0014 223 */ fmovd %f14,%f30
- /* 0x0018 */ add %g5,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000643-.)),%g5
- /* 0x001c 232 */ add %g2,%lo(Zero),%g2
- /* 0x0020 */ sll %l0,1,%o3
- /* 0x0024 223 */ add %g5,%o7,%o4
- /* 0x0028 232 */ sra %o3,0,%g5
- /* 0x002c */ ldx [%o4+%g2],%o7
- ! 234 ! if (nlen!=16)
- ! 235 ! {
- ! 236 ! for(i=0;i<4*nlen+2;i++) dt[i]=Zero;
- ! 238 ! a=dt[0]=pdm1[0]*pdm2[0];
- ! 239 ! digit=mod(lower32(a,Zero)*dn0,TwoToMinus16,TwoTo16);
- /* 0x0030 239 */ sethi %hi(TwoToMinus16),%g3
- /* 0x0034 */ sethi %hi(TwoTo16),%g4
- /* 0x0038 */ add %g3,%lo(TwoToMinus16),%g2
- /* 0x003c 232 */ ldd [%o7],%f0
- /* 0x0040 239 */ add %g4,%lo(TwoTo16),%g3
- /* 0x0044 223 */ or %g0,%i4,%o0
- /* 0x0048 232 */ sllx %g5,3,%g4
- /* 0x004c 239 */ ldx [%o4+%g2],%o5
- /* 0x0050 223 */ or %g0,%i5,%l3
- /* 0x0054 */ or %g0,%i0,%l2
- /* 0x0058 239 */ ldx [%o4+%g3],%o4
- /* 0x005c 234 */ cmp %l0,16
- /* 0x0060 232 */ std %f0,[%i2+%g4]
- /* 0x0064 234 */ be,pn %icc,.L77000279
- /* 0x0068 */ or %g0,%i3,%l4
- /* 0x006c 236 */ sll %l0,2,%g2
- /* 0x0070 223 */ or %g0,%o0,%i5
- /* 0x0074 236 */ add %g2,2,%o0
- /* 0x0078 223 */ or %g0,%i1,%i4
- /* 0x007c 236 */ cmp %o0,0
- /* 0x0080 223 */ or %g0,%i2,%l1
- /* 0x0084 236 */ ble,a,pt %icc,.L900000657
- /* 0x0088 */ ldd [%i1],%f6
- ! 241 ! pdtj=&(dt[0]);
- ! 242 ! for(j=jj=0;j<2*nlen;j++,jj++,pdtj++)
- ! 243 ! {
- ! 244 ! m2j=pdm2[j];
- ! 245 ! a=pdtj[0]+pdn[0]*digit;
- ! 246 ! b=pdtj[1]+pdm1[0]*pdm2[j+1]+a*TwoToMinus16;
- ! 247 ! pdtj[1]=b;
- ! 249 !#pragma pipeloop(0)
- ! 250 ! for(i=1;i<nlen;i++)
- ! 251 ! {
- ! 252 ! pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
- ! 253 ! }
- ! 254 ! if((jj==30)) {cleanup(dt,j/2+1,2*nlen+1); jj=0;}
- ! 255 !
- ! 256 ! digit=mod(lower32(b,Zero)*dn0,TwoToMinus16,TwoTo16);
- ! 257 ! }
- ! 258 ! }
- ! 259 ! else
- ! 260 ! {
- ! 261 ! a=dt[0]=pdm1[0]*pdm2[0];
- ! 263 ! dt[65]= dt[64]= dt[63]= dt[62]= dt[61]= dt[60]=
- ! 264 ! dt[59]= dt[58]= dt[57]= dt[56]= dt[55]= dt[54]=
- ! 265 ! dt[53]= dt[52]= dt[51]= dt[50]= dt[49]= dt[48]=
- ! 266 ! dt[47]= dt[46]= dt[45]= dt[44]= dt[43]= dt[42]=
- ! 267 ! dt[41]= dt[40]= dt[39]= dt[38]= dt[37]= dt[36]=
- ! 268 ! dt[35]= dt[34]= dt[33]= dt[32]= dt[31]= dt[30]=
- ! 269 ! dt[29]= dt[28]= dt[27]= dt[26]= dt[25]= dt[24]=
- ! 270 ! dt[23]= dt[22]= dt[21]= dt[20]= dt[19]= dt[18]=
- ! 271 ! dt[17]= dt[16]= dt[15]= dt[14]= dt[13]= dt[12]=
- ! 272 ! dt[11]= dt[10]= dt[ 9]= dt[ 8]= dt[ 7]= dt[ 6]=
- ! 273 ! dt[ 5…