Hex Artifact Content
Not logged in

Artifact ffe8ad7759afd31ce8456cbd912fb88cab2e4639:


0000: 64 6e 6c 20 20 53 50 41 52 43 20 76 38 20 6d 70  dnl  SPARC v8 mp
0010: 6e 5f 73 75 62 6d 75 6c 5f 31 20 2d 2d 20 4d 75  n_submul_1 -- Mu
0020: 6c 74 69 70 6c 79 20 61 20 6c 69 6d 62 20 76 65  ltiply a limb ve
0030: 63 74 6f 72 20 77 69 74 68 20 61 20 6c 69 6d 62  ctor with a limb
0040: 20 61 6e 64 0a 64 6e 6c 20 20 73 75 62 74 72 61   and.dnl  subtra
0050: 63 74 20 74 68 65 20 72 65 73 75 6c 74 20 66 72  ct the result fr
0060: 6f 6d 20 61 20 73 65 63 6f 6e 64 20 6c 69 6d 62  om a second limb
0070: 20 76 65 63 74 6f 72 2e 0a 0a 64 6e 6c 20 20 43   vector...dnl  C
0080: 6f 70 79 72 69 67 68 74 20 31 39 39 32 2c 20 31  opyright 1992, 1
0090: 39 39 33 2c 20 31 39 39 34 2c 20 32 30 30 30 20  993, 1994, 2000 
00a0: 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f  Free Software Fo
00b0: 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a  undation, Inc...
00c0: 64 6e 6c 20 20 54 68 69 73 20 66 69 6c 65 20 69  dnl  This file i
00d0: 73 20 70 61 72 74 20 6f 66 20 74 68 65 20 47 4e  s part of the GN
00e0: 55 20 4d 50 20 4c 69 62 72 61 72 79 2e 0a 0a 64  U MP Library...d
00f0: 6e 6c 20 20 54 68 65 20 47 4e 55 20 4d 50 20 4c  nl  The GNU MP L
0100: 69 62 72 61 72 79 20 69 73 20 66 72 65 65 20 73  ibrary is free s
0110: 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e  oftware; you can
0120: 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74   redistribute it
0130: 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 64   and/or modify.d
0140: 6e 6c 20 20 69 74 20 75 6e 64 65 72 20 74 68 65  nl  it under the
0150: 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e   terms of the GN
0160: 55 20 4c 65 73 73 65 72 20 47 65 6e 65 72 61 6c  U Lesser General
0170: 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20   Public License 
0180: 61 73 20 70 75 62 6c 69 73 68 65 64 0a 64 6e 6c  as published.dnl
0190: 20 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f    by the Free So
01a0: 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f  ftware Foundatio
01b0: 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f  n; either versio
01c0: 6e 20 32 2e 31 20 6f 66 20 74 68 65 20 4c 69 63  n 2.1 of the Lic
01d0: 65 6e 73 65 2c 20 6f 72 20 28 61 74 0a 64 6e 6c  ense, or (at.dnl
01e0: 20 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61    your option) a
01f0: 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e  ny later version
0200: 2e 0a 0a 64 6e 6c 20 20 54 68 65 20 47 4e 55 20  ...dnl  The GNU 
0210: 4d 50 20 4c 69 62 72 61 72 79 20 69 73 20 64 69  MP Library is di
0220: 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65  stributed in the
0230: 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69   hope that it wi
0240: 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 20 62 75  ll be useful, bu
0250: 74 0a 64 6e 6c 20 20 57 49 54 48 4f 55 54 20 41  t.dnl  WITHOUT A
0260: 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74  NY WARRANTY; wit
0270: 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d  hout even the im
0280: 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f  plied warranty o
0290: 66 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54  f MERCHANTABILIT
02a0: 59 0a 64 6e 6c 20 20 6f 72 20 46 49 54 4e 45 53  Y.dnl  or FITNES
02b0: 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c  S FOR A PARTICUL
02c0: 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65  AR PURPOSE.  See
02d0: 20 74 68 65 20 47 4e 55 20 4c 65 73 73 65 72 20   the GNU Lesser 
02e0: 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 64  General Public.d
02f0: 6e 6c 20 20 4c 69 63 65 6e 73 65 20 66 6f 72 20  nl  License for 
0300: 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 64  more details...d
0310: 6e 6c 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 68  nl  You should h
0320: 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63  ave received a c
0330: 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 4c  opy of the GNU L
0340: 65 73 73 65 72 20 47 65 6e 65 72 61 6c 20 50 75  esser General Pu
0350: 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 64 6e 6c  blic License.dnl
0360: 20 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 65    along with the
0370: 20 47 4e 55 20 4d 50 20 4c 69 62 72 61 72 79 3b   GNU MP Library;
0380: 20 73 65 65 20 74 68 65 20 66 69 6c 65 20 43 4f   see the file CO
0390: 50 59 49 4e 47 2e 4c 49 42 2e 20 20 49 66 20 6e  PYING.LIB.  If n
03a0: 6f 74 2c 20 77 72 69 74 65 20 74 6f 0a 64 6e 6c  ot, write to.dnl
03b0: 20 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77    the Free Softw
03c0: 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20  are Foundation, 
03d0: 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 6c 65 20  Inc., 59 Temple 
03e0: 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33  Place - Suite 33
03f0: 30 2c 20 42 6f 73 74 6f 6e 2c 0a 64 6e 6c 20 20  0, Boston,.dnl  
0400: 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55  MA 02111-1307, U
0410: 53 41 2e 0a 0a 0a 69 6e 63 6c 75 64 65 28 60 2e  SA....include(`.
0420: 2e 2f 63 6f 6e 66 69 67 2e 6d 34 27 29 0a 0a 43  ./config.m4')..C
0430: 20 49 4e 50 55 54 20 50 41 52 41 4d 45 54 45 52   INPUT PARAMETER
0440: 53 0a 43 20 72 65 73 5f 70 74 72 09 6f 30 0a 43  S.C res_ptr.o0.C
0450: 20 73 31 5f 70 74 72 09 6f 31 0a 43 20 73 69 7a   s1_ptr.o1.C siz
0460: 65 09 09 6f 32 0a 43 20 73 32 5f 6c 69 6d 62 09  e..o2.C s2_limb.
0470: 6f 33 0a 0a 41 53 4d 5f 53 54 41 52 54 28 29 0a  o3..ASM_START().
0480: 50 52 4f 4c 4f 47 55 45 28 6d 70 6e 5f 73 75 62  PROLOGUE(mpn_sub
0490: 6d 75 6c 5f 31 29 0a 09 73 75 62 09 25 67 30 2c  mul_1)..sub.%g0,
04a0: 25 6f 32 2c 25 6f 32 09 09 43 20 6e 65 67 61 74  %o2,%o2..C negat
04b0: 65 20 2e 2e 2e 0a 09 73 6c 6c 09 25 6f 32 2c 32  e .....sll.%o2,2
04c0: 2c 25 6f 32 09 09 43 20 2e 2e 2e 20 61 6e 64 20  ,%o2..C ... and 
04d0: 73 63 61 6c 65 20 73 69 7a 65 0a 09 73 75 62 09  scale size..sub.
04e0: 25 6f 31 2c 25 6f 32 2c 25 6f 31 09 09 43 20 6f  %o1,%o2,%o1..C o
04f0: 31 20 69 73 20 6f 66 66 73 65 74 20 73 31 5f 70  1 is offset s1_p
0500: 74 72 0a 09 73 75 62 09 25 6f 30 2c 25 6f 32 2c  tr..sub.%o0,%o2,
0510: 25 67 31 09 09 43 20 67 31 20 69 73 20 6f 66 66  %g1..C g1 is off
0520: 73 65 74 20 72 65 73 5f 70 74 72 0a 0a 09 6d 6f  set res_ptr...mo
0530: 76 09 30 2c 25 6f 30 09 09 09 43 20 63 6c 65 61  v.0,%o0...C clea
0540: 72 20 63 79 5f 6c 69 6d 62 0a 0a 4c 28 6c 6f 6f  r cy_limb..L(loo
0550: 70 29 3a 0a 09 6c 64 09 5b 25 6f 31 2b 25 6f 32  p):..ld.[%o1+%o2
0560: 5d 2c 25 6f 34 0a 09 6c 64 09 5b 25 67 31 2b 25  ],%o4..ld.[%g1+%
0570: 6f 32 5d 2c 25 67 32 0a 09 75 6d 75 6c 09 25 6f  o2],%g2..umul.%o
0580: 34 2c 25 6f 33 2c 25 6f 35 0a 09 72 64 09 25 79  4,%o3,%o5..rd.%y
0590: 2c 25 67 33 0a 09 61 64 64 63 63 09 25 6f 35 2c  ,%g3..addcc.%o5,
05a0: 25 6f 30 2c 25 6f 35 0a 09 61 64 64 78 09 25 67  %o0,%o5..addx.%g
05b0: 33 2c 30 2c 25 6f 30 0a 09 73 75 62 63 63 09 25  3,0,%o0..subcc.%
05c0: 67 32 2c 25 6f 35 2c 25 67 32 0a 09 61 64 64 78  g2,%o5,%g2..addx
05d0: 09 25 6f 30 2c 30 2c 25 6f 30 0a 09 73 74 09 25  .%o0,0,%o0..st.%
05e0: 67 32 2c 5b 25 67 31 2b 25 6f 32 5d 0a 0a 09 61  g2,[%g1+%o2]...a
05f0: 64 64 63 63 09 25 6f 32 2c 34 2c 25 6f 32 0a 09  ddcc.%o2,4,%o2..
0600: 62 6e 65 09 4c 28 6c 6f 6f 70 29 0a 09 20 6e 6f  bne.L(loop).. no
0610: 70 0a 0a 09 72 65 74 6c 0a 09 20 6e 6f 70 0a 45  p...retl.. nop.E
0620: 50 49 4c 4f 47 55 45 28 6d 70 6e 5f 73 75 62 6d  PILOGUE(mpn_subm
0630: 75 6c 5f 31 29 0a                                ul_1).