head 1.2; access; symbols perseant-exfatfs-base-20250801:1.2 perseant-exfatfs-base-20240630:1.2 perseant-exfatfs:1.2.0.8 perseant-exfatfs-base:1.2 netbsd-8-3-RELEASE:1.1.1.1 cjep_sun2x:1.2.0.6 cjep_sun2x-base:1.2 cjep_staticlib_x-base1:1.2 cjep_staticlib_x:1.2.0.4 cjep_staticlib_x-base:1.2 phil-wifi-20200421:1.2 phil-wifi-20200411:1.2 phil-wifi-20200406:1.2 netbsd-8-2-RELEASE:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 pgoyette-compat-merge-20190127:1.2 pgoyette-compat-20190127:1.2 pgoyette-compat-20190118:1.2 pgoyette-compat-1226:1.2 pgoyette-compat-1126:1.2 pgoyette-compat-1020:1.2 pgoyette-compat-0930:1.2 pgoyette-compat-0906:1.2 netbsd-7-2-RELEASE:1.1.1.1 pgoyette-compat-0728:1.2 netbsd-8-0-RELEASE:1.1.1.1 pgoyette-compat-0625:1.2 netbsd-8-0-RC2:1.1.1.1 pgoyette-compat-0521:1.2 pgoyette-compat-0502:1.2 pgoyette-compat-0422:1.2 netbsd-8-0-RC1:1.1.1.1 pgoyette-compat-0415:1.2 pgoyette-compat-0407:1.2 pgoyette-compat-0330:1.2 pgoyette-compat-0322:1.2 pgoyette-compat-0315:1.2 netbsd-7-1-2-RELEASE:1.1.1.1 pgoyette-compat:1.2.0.2 pgoyette-compat-base:1.2 netbsd-7-1-1-RELEASE:1.1.1.1 matt-nb8-mediatek:1.1.1.1.0.26 matt-nb8-mediatek-base:1.1.1.1 perseant-stdc-iso10646:1.1.1.1.0.24 perseant-stdc-iso10646-base:1.1.1.1 netbsd-8:1.1.1.1.0.22 netbsd-8-base:1.1.1.1 prg-localcount2-base3:1.1.1.1 prg-localcount2-base2:1.1.1.1 prg-localcount2-base1:1.1.1.1 prg-localcount2:1.1.1.1.0.20 prg-localcount2-base:1.1.1.1 pgoyette-localcount-20170426:1.1.1.1 bouyer-socketcan-base1:1.1.1.1 pgoyette-localcount-20170320:1.1.1.1 netbsd-7-1:1.1.1.1.0.18 netbsd-7-1-RELEASE:1.1.1.1 netbsd-7-1-RC2:1.1.1.1 netbsd-7-nhusb-base-20170116:1.1.1.1 bouyer-socketcan:1.1.1.1.0.16 bouyer-socketcan-base:1.1.1.1 pgoyette-localcount-20170107:1.1.1.1 netbsd-7-1-RC1:1.1.1.1 pgoyette-localcount-20161104:1.1.1.1 netbsd-7-0-2-RELEASE:1.1.1.1 localcount-20160914:1.1.1.1 netbsd-7-nhusb:1.1.1.1.0.14 netbsd-7-nhusb-base:1.1.1.1 pgoyette-localcount-20160806:1.1.1.1 pgoyette-localcount-20160726:1.1.1.1 pgoyette-localcount:1.1.1.1.0.12 pgoyette-localcount-base:1.1.1.1 netbsd-7-0-1-RELEASE:1.1.1.1 netbsd-7-0:1.1.1.1.0.10 netbsd-7-0-RELEASE:1.1.1.1 netbsd-7-0-RC3:1.1.1.1 netbsd-7-0-RC2:1.1.1.1 netbsd-7-0-RC1:1.1.1.1 tls-maxphys-base:1.1.1.1 tls-maxphys:1.1.1.1.0.8 netbsd-7:1.1.1.1.0.6 netbsd-7-base:1.1.1.1 yamt-pagecache:1.1.1.1.0.4 yamt-pagecache-base9:1.1.1.1 tls-earlyentropy:1.1.1.1.0.2 tls-earlyentropy-base:1.1.1.1 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.1.1.1 riastradh-drm2-base3:1.1.1.1 gmp-5-1-3:1.1.1.1 gmp:1.1.1; locks; strict; comment @;; @; 1.2 date 2017.08.22.09.55.45; author mrg; state dead; branches; next 1.1; commitid DVNRZh45aSIRZb4A; 1.1 date 2013.11.29.07.49.48; author mrg; state Exp; branches 1.1.1.1; next ; commitid L2Av4PuGmdoL39fx; 1.1.1.1 date 2013.11.29.07.49.48; author mrg; state Exp; branches 1.1.1.1.4.1 1.1.1.1.8.1; next ; commitid L2Av4PuGmdoL39fx; 1.1.1.1.4.1 date 2013.11.29.07.49.48; author yamt; state dead; branches; next 1.1.1.1.4.2; commitid nx2BSsHy0NPeAxBx; 1.1.1.1.4.2 date 2014.05.22.14.09.01; author yamt; state Exp; branches; next ; commitid nx2BSsHy0NPeAxBx; 1.1.1.1.8.1 date 2013.11.29.07.49.48; author tls; state dead; branches; next 1.1.1.1.8.2; commitid jTnpym9Qu0o4R1Nx; 1.1.1.1.8.2 date 2014.08.19.23.59.50; author tls; state Exp; branches; next ; commitid jTnpym9Qu0o4R1Nx; desc @@ 1.2 log @merge GMP 6.1.2. @ text @dnl IA-64 mpn_addlsh1_n/mpn_sublsh1_n -- rp[] = up[] +- (vp[] << 1). dnl Contributed to the GNU project by Torbjorn Granlund. dnl Copyright 2003, 2004, 2005, 2010 Free Software Foundation, Inc. dnl This file is part of the GNU MP Library. dnl The GNU MP Library is free software; you can redistribute it and/or modify dnl it under the terms of the GNU Lesser General Public License as published dnl by the Free Software Foundation; either version 3 of the License, or (at dnl your option) any later version. dnl The GNU MP Library is distributed in the hope that it will be useful, but dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public dnl License for more details. dnl You should have received a copy of the GNU Lesser General Public License dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. C cycles/limb C Itanium: ? C Itanium 2: 1.5 C TODO C * Use shladd in feed-in code (for mpn_addlshC_n). C INPUT PARAMETERS define(`rp', `r32') define(`up', `r33') define(`vp', `r34') define(`n', `r35') define(cmpeqor, `cmp.eq.or') define(PFDIST, 500) define(`u0',`r14') define(`u1',`r15') define(`u2',`r16') define(`u3',`r17') define(`v0',`r18') define(`v1',`r19') define(`v2',`r20') define(`v3',`r21') define(`w0',`r22') define(`w1',`r23') define(`w2',`r24') define(`w3',`r25') define(`s0',`r26') define(`s1',`r27') define(`s2',`r28') define(`s3',`r29') define(`x0',`r30') define(`x1',`r31') define(`x2',`r30') define(`x3',`r31') ASM_START() PROLOGUE(func) .prologue .save ar.lc, r2 .body ifdef(`HAVE_ABI_32',` addp4 rp = 0, rp C M I addp4 up = 0, up C M I addp4 vp = 0, vp C M I zxt4 n = n C I ;; ') {.mmi; ld8 r11 = [vp], 8 C M01 ld8 r10 = [up], 8 C M01 mov.i r2 = ar.lc C I0 }{.mmi; and r14 = 3, n C M I cmp.lt p15, p0 = 4, n C M I add n = -5, n C M I ;; }{.mmi; cmp.eq p6, p0 = 1, r14 C M I cmp.eq p7, p0 = 2, r14 C M I cmp.eq p8, p0 = 3, r14 C M I }{.bbb (p6) br.dptk .Lb01 C B (p7) br.dptk .Lb10 C B (p8) br.dptk .Lb11 C B } .Lb00: ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x3 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, r11, RSH C I0 .mmb; ADDSUB w3 = r10, x3 C M I nop 0 (p15) br.dpnt .grt4 C B ;; .mii; cmp.CND p7, p0 = w3, r10 C M I shrp x1 = v1, v0, RSH C I0 ADDSUB w0 = u0, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, u0 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I .mmb; nop 0 nop 0 br .Lcj4 C B ALIGN(32) .grt4: ld8 v3 = [vp], 8 C M01 shrp x0 = v0, r11, RSH C I0 cmp.CND p8, p0 = w3, r10 C M I ;; .mmi; ld8 u3 = [up], 8 C M01 add r11 = PFDIST, vp shrp x1 = v1, v0, RSH C I0 .mmi; ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I nop 0 ;; .mmi; cmp.CND p6, p0 = w0, u0 C M I add r10 = PFDIST, up mov.i ar.lc = n C I0 .mmb; ADDSUB w1 = u1, x1 C M I ld8 u0 = [up], 8 C M01 br .LL00 C B ALIGN(32) .Lb01: ifdef(`ADDP', ` shladd w2 = r11, LSH, r10 C M I shr.u r8 = r11, RSH C retval I0 (p15) br.dpnt .grt1 C B ;; ',` shl x2 = r11, LSH C I0 (p15) br.dpnt .grt1 C B ;; ADDSUB w2 = r10, x2 C M I shr.u r8 = r11, RSH C retval I0 ;; ') cmp.CND p6, p0 = w2, r10 C M I br .Lcj1 .grt1: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C FIXME swap with next I0 ifdef(`ADDP', `',` ADDSUB w2 = r10, x2 ') ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shrp x3 = v3, r11, RSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mmb; cmp.CND p6, p0 = w2, r10 C M I ADDSUB w3 = u3, x3 C M I br.cloop.dptk .grt5 C B ;; .mmi; cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I shrp x1 = v1, v0, RSH C I0 .mmb; nop 0 nop 0 br .Lcj5 C B .grt5: .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x0 = v0, v3, RSH C I0 .mmb; ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I br .LL01 C B ALIGN(32) .Lb10: ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shl x1 = r11, LSH C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt2 C B ;; .mmi; ADDSUB w1 = r10, x1 C M I nop 0 shrp x2 = v2, r11, RSH C I0 ;; .mmi; cmp.CND p9, p0 = w1, r10 C M I ADDSUB w2 = u2, x2 C M I shr.u r8 = v2, RSH C retval I0 ;; .mmb; cmp.CND p6, p0 = w2, u2 C M I nop 0 br .Lcj2 C B .grt2: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C I0 .mmi; ADDSUB w1 = r10, x1 C M I nop 0 nop 0 ;; .mii; ld8 v1 = [vp], 8 C M01 shrp x2 = v2, r11, RSH C I0 cmp.CND p8, p0 = w1, r10 C M I ;; .mmi; add r10 = PFDIST, up ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 .mmi; add r11 = PFDIST, vp ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; cmp.CND p6, p0 = w2, u2 C M I ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mbb; ADDSUB w3 = u3, x3 C M I br.cloop.dpnt L(top) C B br L(end) C B .Lb11: ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x0 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shr.u n = n, 2 C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt3 C B ;; .mii; nop 0 shrp x1 = v1, r11, RSH C I0 ADDSUB w0 = r10, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, r10 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I ;; .mmb; cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I br .Lcj3 C B .grt3: .mmi; ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shrp x1 = v1, r11, RSH C I0 .mmi; ADDSUB w0 = r10, x0 C M I nop 0 nop 0 ;; .mmi; ld8 v0 = [vp], 8 C M01 cmp.CND p6, p0 = w0, r10 C M I mov.i ar.lc = n C I0 .mmi; ld8 u0 = [up], 8 C M01 ADDSUB w1 = u1, x1 C M I nop 0 ;; .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x2 = v2, v1, RSH C I0 .mmb; ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I br .LL11 C B C *** MAIN LOOP START *** ALIGN(32) L(top): st8 [rp] = w1, 8 C M23 lfetch [r10], 32 (p8) cmpeqor p6, p0 = LIM, w2 C M I (p8) add w2 = INCR, w2 C M I ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I ;; .LL01: ld8 u3 = [up], 8 C M01 shrp x1 = v1, v0, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w3 C M I (p6) add w3 = INCR, w3 C M I ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I ;; st8 [rp] = w2, 8 C M23 cmp.CND p6, p0 = w0, u0 C M I nop.b 0 ld8 u0 = [up], 8 C M01 lfetch [r11], 32 ADDSUB w1 = u1, x1 C M I ;; .LL00: st8 [rp] = w3, 8 C M23 shrp x2 = v2, v1, RSH C I0 (p8) cmpeqor p6, p0 = LIM, w0 C M I (p8) add w0 = INCR, w0 C M I ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I ;; .LL11: ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w1 C M I (p6) add w1 = INCR, w1 C M I ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; st8 [rp] = w0, 8 C M23 cmp.CND p6, p0 = w2, u2 C M I shrp x0 = v0, v3, RSH C I0 ld8 u2 = [up], 8 C M01 ADDSUB w3 = u3, x3 C M I br.cloop.dptk L(top) C B ;; C *** MAIN LOOP END *** L(end): .mmi; st8 [rp] = w1, 8 C M23 (p8) cmpeqor p6, p0 = LIM, w2 C M I shrp x1 = v1, v0, RSH C I0 .mmi; (p8) add w2 = INCR, w2 C M I cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I ;; .Lcj5: .mmi; st8 [rp] = w2, 8 C M23 (p6) cmpeqor p7, p0 = LIM, w3 C M I shrp x2 = v2, v1, RSH C I0 .mmi; (p6) add w3 = INCR, w3 C M I cmp.CND p8, p0 = w0, u0 C M I ADDSUB w1 = u1, x1 C M I ;; .Lcj4: .mmi; st8 [rp] = w3, 8 C M23 (p7) cmpeqor p8, p0 = LIM, w0 C M I mov.i ar.lc = r2 C I0 .mmi; (p7) add w0 = INCR, w0 C M I cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I ;; .Lcj3: .mmi; st8 [rp] = w0, 8 C M23 (p8) cmpeqor p9, p0 = LIM, w1 C M I shr.u r8 = v2, RSH C I0 .mmi; (p8) add w1 = INCR, w1 C M I cmp.CND p6, p0 = w2, u2 C M I nop 0 ;; .Lcj2: .mmi; st8 [rp] = w1, 8 C M23 (p9) cmpeqor p6, p0 = LIM, w2 C M I (p9) add w2 = INCR, w2 C M I ;; .Lcj1: .mmb; st8 [rp] = w2 C M23 (p6) add r8 = 1, r8 C M I br.ret.sptk.many b0 C B EPILOGUE() ASM_END() @ 1.1 log @Initial revision @ text @@ 1.1.1.1 log @initial import GMP 5.1.3 sources. changes include: fixes for: - mpn_sbpi1_div_qr_sec and mpn_sbpi1_div_r_sec - mpz_powm_ui - AMD family 11h - mpz_powm_sec and mpn_powm_sec - ASSERT() fixes - gcd, gcdext, and invert function fixes - some PPC division operations @ text @@ 1.1.1.1.8.1 log @file aorslshC_n.asm was added on branch tls-maxphys on 2014-08-19 23:59:50 +0000 @ text @d1 360 @ 1.1.1.1.8.2 log @Rebase to HEAD as of a few days ago. @ text @a0 360 dnl IA-64 mpn_addlsh1_n/mpn_sublsh1_n -- rp[] = up[] +- (vp[] << 1). dnl Contributed to the GNU project by Torbjorn Granlund. dnl Copyright 2003, 2004, 2005, 2010 Free Software Foundation, Inc. dnl This file is part of the GNU MP Library. dnl The GNU MP Library is free software; you can redistribute it and/or modify dnl it under the terms of the GNU Lesser General Public License as published dnl by the Free Software Foundation; either version 3 of the License, or (at dnl your option) any later version. dnl The GNU MP Library is distributed in the hope that it will be useful, but dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public dnl License for more details. dnl You should have received a copy of the GNU Lesser General Public License dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. C cycles/limb C Itanium: ? C Itanium 2: 1.5 C TODO C * Use shladd in feed-in code (for mpn_addlshC_n). C INPUT PARAMETERS define(`rp', `r32') define(`up', `r33') define(`vp', `r34') define(`n', `r35') define(cmpeqor, `cmp.eq.or') define(PFDIST, 500) define(`u0',`r14') define(`u1',`r15') define(`u2',`r16') define(`u3',`r17') define(`v0',`r18') define(`v1',`r19') define(`v2',`r20') define(`v3',`r21') define(`w0',`r22') define(`w1',`r23') define(`w2',`r24') define(`w3',`r25') define(`s0',`r26') define(`s1',`r27') define(`s2',`r28') define(`s3',`r29') define(`x0',`r30') define(`x1',`r31') define(`x2',`r30') define(`x3',`r31') ASM_START() PROLOGUE(func) .prologue .save ar.lc, r2 .body ifdef(`HAVE_ABI_32',` addp4 rp = 0, rp C M I addp4 up = 0, up C M I addp4 vp = 0, vp C M I zxt4 n = n C I ;; ') {.mmi; ld8 r11 = [vp], 8 C M01 ld8 r10 = [up], 8 C M01 mov.i r2 = ar.lc C I0 }{.mmi; and r14 = 3, n C M I cmp.lt p15, p0 = 4, n C M I add n = -5, n C M I ;; }{.mmi; cmp.eq p6, p0 = 1, r14 C M I cmp.eq p7, p0 = 2, r14 C M I cmp.eq p8, p0 = 3, r14 C M I }{.bbb (p6) br.dptk .Lb01 C B (p7) br.dptk .Lb10 C B (p8) br.dptk .Lb11 C B } .Lb00: ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x3 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, r11, RSH C I0 .mmb; ADDSUB w3 = r10, x3 C M I nop 0 (p15) br.dpnt .grt4 C B ;; .mii; cmp.CND p7, p0 = w3, r10 C M I shrp x1 = v1, v0, RSH C I0 ADDSUB w0 = u0, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, u0 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I .mmb; nop 0 nop 0 br .Lcj4 C B ALIGN(32) .grt4: ld8 v3 = [vp], 8 C M01 shrp x0 = v0, r11, RSH C I0 cmp.CND p8, p0 = w3, r10 C M I ;; .mmi; ld8 u3 = [up], 8 C M01 add r11 = PFDIST, vp shrp x1 = v1, v0, RSH C I0 .mmi; ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I nop 0 ;; .mmi; cmp.CND p6, p0 = w0, u0 C M I add r10 = PFDIST, up mov.i ar.lc = n C I0 .mmb; ADDSUB w1 = u1, x1 C M I ld8 u0 = [up], 8 C M01 br .LL00 C B ALIGN(32) .Lb01: ifdef(`ADDP', ` shladd w2 = r11, LSH, r10 C M I shr.u r8 = r11, RSH C retval I0 (p15) br.dpnt .grt1 C B ;; ',` shl x2 = r11, LSH C I0 (p15) br.dpnt .grt1 C B ;; ADDSUB w2 = r10, x2 C M I shr.u r8 = r11, RSH C retval I0 ;; ') cmp.CND p6, p0 = w2, r10 C M I br .Lcj1 .grt1: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C FIXME swap with next I0 ifdef(`ADDP', `',` ADDSUB w2 = r10, x2 ') ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shrp x3 = v3, r11, RSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mmb; cmp.CND p6, p0 = w2, r10 C M I ADDSUB w3 = u3, x3 C M I br.cloop.dptk .grt5 C B ;; .mmi; cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I shrp x1 = v1, v0, RSH C I0 .mmb; nop 0 nop 0 br .Lcj5 C B .grt5: .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x0 = v0, v3, RSH C I0 .mmb; ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I br .LL01 C B ALIGN(32) .Lb10: ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shl x1 = r11, LSH C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt2 C B ;; .mmi; ADDSUB w1 = r10, x1 C M I nop 0 shrp x2 = v2, r11, RSH C I0 ;; .mmi; cmp.CND p9, p0 = w1, r10 C M I ADDSUB w2 = u2, x2 C M I shr.u r8 = v2, RSH C retval I0 ;; .mmb; cmp.CND p6, p0 = w2, u2 C M I nop 0 br .Lcj2 C B .grt2: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C I0 .mmi; ADDSUB w1 = r10, x1 C M I nop 0 nop 0 ;; .mii; ld8 v1 = [vp], 8 C M01 shrp x2 = v2, r11, RSH C I0 cmp.CND p8, p0 = w1, r10 C M I ;; .mmi; add r10 = PFDIST, up ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 .mmi; add r11 = PFDIST, vp ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; cmp.CND p6, p0 = w2, u2 C M I ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mbb; ADDSUB w3 = u3, x3 C M I br.cloop.dpnt L(top) C B br L(end) C B .Lb11: ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x0 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shr.u n = n, 2 C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt3 C B ;; .mii; nop 0 shrp x1 = v1, r11, RSH C I0 ADDSUB w0 = r10, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, r10 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I ;; .mmb; cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I br .Lcj3 C B .grt3: .mmi; ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shrp x1 = v1, r11, RSH C I0 .mmi; ADDSUB w0 = r10, x0 C M I nop 0 nop 0 ;; .mmi; ld8 v0 = [vp], 8 C M01 cmp.CND p6, p0 = w0, r10 C M I mov.i ar.lc = n C I0 .mmi; ld8 u0 = [up], 8 C M01 ADDSUB w1 = u1, x1 C M I nop 0 ;; .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x2 = v2, v1, RSH C I0 .mmb; ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I br .LL11 C B C *** MAIN LOOP START *** ALIGN(32) L(top): st8 [rp] = w1, 8 C M23 lfetch [r10], 32 (p8) cmpeqor p6, p0 = LIM, w2 C M I (p8) add w2 = INCR, w2 C M I ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I ;; .LL01: ld8 u3 = [up], 8 C M01 shrp x1 = v1, v0, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w3 C M I (p6) add w3 = INCR, w3 C M I ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I ;; st8 [rp] = w2, 8 C M23 cmp.CND p6, p0 = w0, u0 C M I nop.b 0 ld8 u0 = [up], 8 C M01 lfetch [r11], 32 ADDSUB w1 = u1, x1 C M I ;; .LL00: st8 [rp] = w3, 8 C M23 shrp x2 = v2, v1, RSH C I0 (p8) cmpeqor p6, p0 = LIM, w0 C M I (p8) add w0 = INCR, w0 C M I ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I ;; .LL11: ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w1 C M I (p6) add w1 = INCR, w1 C M I ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; st8 [rp] = w0, 8 C M23 cmp.CND p6, p0 = w2, u2 C M I shrp x0 = v0, v3, RSH C I0 ld8 u2 = [up], 8 C M01 ADDSUB w3 = u3, x3 C M I br.cloop.dptk L(top) C B ;; C *** MAIN LOOP END *** L(end): .mmi; st8 [rp] = w1, 8 C M23 (p8) cmpeqor p6, p0 = LIM, w2 C M I shrp x1 = v1, v0, RSH C I0 .mmi; (p8) add w2 = INCR, w2 C M I cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I ;; .Lcj5: .mmi; st8 [rp] = w2, 8 C M23 (p6) cmpeqor p7, p0 = LIM, w3 C M I shrp x2 = v2, v1, RSH C I0 .mmi; (p6) add w3 = INCR, w3 C M I cmp.CND p8, p0 = w0, u0 C M I ADDSUB w1 = u1, x1 C M I ;; .Lcj4: .mmi; st8 [rp] = w3, 8 C M23 (p7) cmpeqor p8, p0 = LIM, w0 C M I mov.i ar.lc = r2 C I0 .mmi; (p7) add w0 = INCR, w0 C M I cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I ;; .Lcj3: .mmi; st8 [rp] = w0, 8 C M23 (p8) cmpeqor p9, p0 = LIM, w1 C M I shr.u r8 = v2, RSH C I0 .mmi; (p8) add w1 = INCR, w1 C M I cmp.CND p6, p0 = w2, u2 C M I nop 0 ;; .Lcj2: .mmi; st8 [rp] = w1, 8 C M23 (p9) cmpeqor p6, p0 = LIM, w2 C M I (p9) add w2 = INCR, w2 C M I ;; .Lcj1: .mmb; st8 [rp] = w2 C M23 (p6) add r8 = 1, r8 C M I br.ret.sptk.many b0 C B EPILOGUE() ASM_END() @ 1.1.1.1.4.1 log @file aorslshC_n.asm was added on branch yamt-pagecache on 2014-05-22 14:09:01 +0000 @ text @d1 360 @ 1.1.1.1.4.2 log @sync with head. for a reference, the tree before this commit was tagged as yamt-pagecache-tag8. this commit was splitted into small chunks to avoid a limitation of cvs. ("Protocol error: too many arguments") @ text @a0 360 dnl IA-64 mpn_addlsh1_n/mpn_sublsh1_n -- rp[] = up[] +- (vp[] << 1). dnl Contributed to the GNU project by Torbjorn Granlund. dnl Copyright 2003, 2004, 2005, 2010 Free Software Foundation, Inc. dnl This file is part of the GNU MP Library. dnl The GNU MP Library is free software; you can redistribute it and/or modify dnl it under the terms of the GNU Lesser General Public License as published dnl by the Free Software Foundation; either version 3 of the License, or (at dnl your option) any later version. dnl The GNU MP Library is distributed in the hope that it will be useful, but dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public dnl License for more details. dnl You should have received a copy of the GNU Lesser General Public License dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. C cycles/limb C Itanium: ? C Itanium 2: 1.5 C TODO C * Use shladd in feed-in code (for mpn_addlshC_n). C INPUT PARAMETERS define(`rp', `r32') define(`up', `r33') define(`vp', `r34') define(`n', `r35') define(cmpeqor, `cmp.eq.or') define(PFDIST, 500) define(`u0',`r14') define(`u1',`r15') define(`u2',`r16') define(`u3',`r17') define(`v0',`r18') define(`v1',`r19') define(`v2',`r20') define(`v3',`r21') define(`w0',`r22') define(`w1',`r23') define(`w2',`r24') define(`w3',`r25') define(`s0',`r26') define(`s1',`r27') define(`s2',`r28') define(`s3',`r29') define(`x0',`r30') define(`x1',`r31') define(`x2',`r30') define(`x3',`r31') ASM_START() PROLOGUE(func) .prologue .save ar.lc, r2 .body ifdef(`HAVE_ABI_32',` addp4 rp = 0, rp C M I addp4 up = 0, up C M I addp4 vp = 0, vp C M I zxt4 n = n C I ;; ') {.mmi; ld8 r11 = [vp], 8 C M01 ld8 r10 = [up], 8 C M01 mov.i r2 = ar.lc C I0 }{.mmi; and r14 = 3, n C M I cmp.lt p15, p0 = 4, n C M I add n = -5, n C M I ;; }{.mmi; cmp.eq p6, p0 = 1, r14 C M I cmp.eq p7, p0 = 2, r14 C M I cmp.eq p8, p0 = 3, r14 C M I }{.bbb (p6) br.dptk .Lb01 C B (p7) br.dptk .Lb10 C B (p8) br.dptk .Lb11 C B } .Lb00: ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x3 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, r11, RSH C I0 .mmb; ADDSUB w3 = r10, x3 C M I nop 0 (p15) br.dpnt .grt4 C B ;; .mii; cmp.CND p7, p0 = w3, r10 C M I shrp x1 = v1, v0, RSH C I0 ADDSUB w0 = u0, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, u0 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I .mmb; nop 0 nop 0 br .Lcj4 C B ALIGN(32) .grt4: ld8 v3 = [vp], 8 C M01 shrp x0 = v0, r11, RSH C I0 cmp.CND p8, p0 = w3, r10 C M I ;; .mmi; ld8 u3 = [up], 8 C M01 add r11 = PFDIST, vp shrp x1 = v1, v0, RSH C I0 .mmi; ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I nop 0 ;; .mmi; cmp.CND p6, p0 = w0, u0 C M I add r10 = PFDIST, up mov.i ar.lc = n C I0 .mmb; ADDSUB w1 = u1, x1 C M I ld8 u0 = [up], 8 C M01 br .LL00 C B ALIGN(32) .Lb01: ifdef(`ADDP', ` shladd w2 = r11, LSH, r10 C M I shr.u r8 = r11, RSH C retval I0 (p15) br.dpnt .grt1 C B ;; ',` shl x2 = r11, LSH C I0 (p15) br.dpnt .grt1 C B ;; ADDSUB w2 = r10, x2 C M I shr.u r8 = r11, RSH C retval I0 ;; ') cmp.CND p6, p0 = w2, r10 C M I br .Lcj1 .grt1: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C FIXME swap with next I0 ifdef(`ADDP', `',` ADDSUB w2 = r10, x2 ') ;; .mmi; ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shrp x3 = v3, r11, RSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mmb; cmp.CND p6, p0 = w2, r10 C M I ADDSUB w3 = u3, x3 C M I br.cloop.dptk .grt5 C B ;; .mmi; cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I shrp x1 = v1, v0, RSH C I0 .mmb; nop 0 nop 0 br .Lcj5 C B .grt5: .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x0 = v0, v3, RSH C I0 .mmb; ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I br .LL01 C B ALIGN(32) .Lb10: ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shl x1 = r11, LSH C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt2 C B ;; .mmi; ADDSUB w1 = r10, x1 C M I nop 0 shrp x2 = v2, r11, RSH C I0 ;; .mmi; cmp.CND p9, p0 = w1, r10 C M I ADDSUB w2 = u2, x2 C M I shr.u r8 = v2, RSH C retval I0 ;; .mmb; cmp.CND p6, p0 = w2, u2 C M I nop 0 br .Lcj2 C B .grt2: ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shr.u n = n, 2 C I0 ;; .mmi; ld8 v0 = [vp], 8 C M01 ld8 u0 = [up], 8 C M01 mov.i ar.lc = n C I0 .mmi; ADDSUB w1 = r10, x1 C M I nop 0 nop 0 ;; .mii; ld8 v1 = [vp], 8 C M01 shrp x2 = v2, r11, RSH C I0 cmp.CND p8, p0 = w1, r10 C M I ;; .mmi; add r10 = PFDIST, up ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 .mmi; add r11 = PFDIST, vp ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; cmp.CND p6, p0 = w2, u2 C M I ld8 u2 = [up], 8 C M01 shrp x0 = v0, v3, RSH C I0 .mbb; ADDSUB w3 = u3, x3 C M I br.cloop.dpnt L(top) C B br L(end) C B .Lb11: ld8 v1 = [vp], 8 C M01 ld8 u1 = [up], 8 C M01 shl x0 = r11, LSH C I0 ;; .mmi; ld8 v2 = [vp], 8 C M01 ld8 u2 = [up], 8 C M01 shr.u n = n, 2 C I0 .mmb; nop 0 nop 0 (p15) br.dpnt .grt3 C B ;; .mii; nop 0 shrp x1 = v1, r11, RSH C I0 ADDSUB w0 = r10, x0 C M I ;; .mii; cmp.CND p8, p0 = w0, r10 C M I shrp x2 = v2, v1, RSH C I0 ADDSUB w1 = u1, x1 C M I ;; .mmb; cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I br .Lcj3 C B .grt3: .mmi; ld8 v3 = [vp], 8 C M01 ld8 u3 = [up], 8 C M01 shrp x1 = v1, r11, RSH C I0 .mmi; ADDSUB w0 = r10, x0 C M I nop 0 nop 0 ;; .mmi; ld8 v0 = [vp], 8 C M01 cmp.CND p6, p0 = w0, r10 C M I mov.i ar.lc = n C I0 .mmi; ld8 u0 = [up], 8 C M01 ADDSUB w1 = u1, x1 C M I nop 0 ;; .mmi; add r10 = PFDIST, up add r11 = PFDIST, vp shrp x2 = v2, v1, RSH C I0 .mmb; ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I br .LL11 C B C *** MAIN LOOP START *** ALIGN(32) L(top): st8 [rp] = w1, 8 C M23 lfetch [r10], 32 (p8) cmpeqor p6, p0 = LIM, w2 C M I (p8) add w2 = INCR, w2 C M I ld8 v3 = [vp], 8 C M01 cmp.CND p8, p0 = w3, u3 C M I ;; .LL01: ld8 u3 = [up], 8 C M01 shrp x1 = v1, v0, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w3 C M I (p6) add w3 = INCR, w3 C M I ld8 v0 = [vp], 8 C M01 ADDSUB w0 = u0, x0 C M I ;; st8 [rp] = w2, 8 C M23 cmp.CND p6, p0 = w0, u0 C M I nop.b 0 ld8 u0 = [up], 8 C M01 lfetch [r11], 32 ADDSUB w1 = u1, x1 C M I ;; .LL00: st8 [rp] = w3, 8 C M23 shrp x2 = v2, v1, RSH C I0 (p8) cmpeqor p6, p0 = LIM, w0 C M I (p8) add w0 = INCR, w0 C M I ld8 v1 = [vp], 8 C M01 cmp.CND p8, p0 = w1, u1 C M I ;; .LL11: ld8 u1 = [up], 8 C M01 shrp x3 = v3, v2, RSH C I0 (p6) cmpeqor p8, p0 = LIM, w1 C M I (p6) add w1 = INCR, w1 C M I ld8 v2 = [vp], 8 C M01 ADDSUB w2 = u2, x2 C M I ;; .mmi; st8 [rp] = w0, 8 C M23 cmp.CND p6, p0 = w2, u2 C M I shrp x0 = v0, v3, RSH C I0 ld8 u2 = [up], 8 C M01 ADDSUB w3 = u3, x3 C M I br.cloop.dptk L(top) C B ;; C *** MAIN LOOP END *** L(end): .mmi; st8 [rp] = w1, 8 C M23 (p8) cmpeqor p6, p0 = LIM, w2 C M I shrp x1 = v1, v0, RSH C I0 .mmi; (p8) add w2 = INCR, w2 C M I cmp.CND p7, p0 = w3, u3 C M I ADDSUB w0 = u0, x0 C M I ;; .Lcj5: .mmi; st8 [rp] = w2, 8 C M23 (p6) cmpeqor p7, p0 = LIM, w3 C M I shrp x2 = v2, v1, RSH C I0 .mmi; (p6) add w3 = INCR, w3 C M I cmp.CND p8, p0 = w0, u0 C M I ADDSUB w1 = u1, x1 C M I ;; .Lcj4: .mmi; st8 [rp] = w3, 8 C M23 (p7) cmpeqor p8, p0 = LIM, w0 C M I mov.i ar.lc = r2 C I0 .mmi; (p7) add w0 = INCR, w0 C M I cmp.CND p9, p0 = w1, u1 C M I ADDSUB w2 = u2, x2 C M I ;; .Lcj3: .mmi; st8 [rp] = w0, 8 C M23 (p8) cmpeqor p9, p0 = LIM, w1 C M I shr.u r8 = v2, RSH C I0 .mmi; (p8) add w1 = INCR, w1 C M I cmp.CND p6, p0 = w2, u2 C M I nop 0 ;; .Lcj2: .mmi; st8 [rp] = w1, 8 C M23 (p9) cmpeqor p6, p0 = LIM, w2 C M I (p9) add w2 = INCR, w2 C M I ;; .Lcj1: .mmb; st8 [rp] = w2 C M23 (p6) add r8 = 1, r8 C M I br.ret.sptk.many b0 C B EPILOGUE() ASM_END() @