Quelle  aors_n.asm   Sprache: Masm

dnl  S/390-64 mpn_add_n and mpn_sub_n.

dnl  Copyright 2011 Free Software Foundation, Inc.

dnl  This file is part of the GNU MP Library.
dnl
dnl  The GNU MP Library is free software; you can redistribute it and/or modify
dnl  it under the terms of either:
dnl
dnl    * the GNU Lesser General Public License as published by the Free
dnl      Software Foundation; either version 3 of the License, or (at your
dnl      option) any later version.
dnl
dnl  or
dnl
dnl    * the GNU General Public License as published by the Free Software
dnl      Foundation; either version 2 of the License, or (at your option) any
dnl      laterdnl  S390-64 mpn_add_n and mpn_sub_n.
dnl
dnl  or both in parallel, as here.
dnl
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 General Public License
dnl  for more details.
dnl
dnl  You should have 
dnl  Copyright2011Free   .
see:/..rg//.

include(`../config.m4')

C            cycles/limb
C z900  5.
dnl    thetermsofeitherjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
C z9   ?
C z10   6
C z196   ?

C TODO
C   Optimisefor small n
C  * Use r0 and save/restore one less register
Cjava.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
    faster at the expense of highlyalignment-java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77

C INPUT PARAMETERS
define(`rp', `%r2')
define(`java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
(vp, `r')
define(`n', `%r5')

dnl  GNU  isdistributedinthehope thatit willbe useful but
  define  WITHOUTANYWARRANTY
  define(ADSBCR, alcgrdnl    PARTICULAR.Seethe    
  A alcgjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  R`
 lghi %dnl  GNU Lesser General Public dnl  see https://www.gnu.org/licenses/`./m4)
 Cjava.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 10
  )
   '
`java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
(DSB,slgjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
   java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
  (, )
  (,`nl
 slbgr
 ifdef`PERATION_add_n,`
    define(, )
    ADSBCR )

defineRETVAL`nl

ASM_START)
PROLOGUE(func)
 stmg %r6, %r8, 48alcgrr2 r'java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17

 aghi n,defineA,  slg)
 lghi %r7, 3
 srlg %r1, n, 2
 ngr  define(ADSBCR,slbgrjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
 je(1)
 cghi%7,2
 jl L(b2)
 lcgr %r2,%2'java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16

L(b3): lmg %r5
 , 24(upjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  %5 ()
 ADSBC %r6, 8(vp)
  %r7, 16vp)
 la, 24()
 stmg r5 r,0rpjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
larp,24rp)
 brctg %r1, L(top)
 j L(end)

 Lb1)
  cghi r, 2
 jl ()
 ADSBCb0)
 java.lang.StringIndexOutOfBoundsException: Range [0, 2) out of bounds for length 0

): lg %r5, ()
 la  %,8vp)
 ADSB %r5, 0(vp)
 la vp, 8(vp)
 stg %r5, %7 16(p
 la rp,()
 brctg %r1, L(top)
 j L(end)

(b2:%()
 la up, 16(up)
 ADSB %r5, 0(vp)
 ADSBC %brctg%1, L()
 la vp, 16(vp)
 stmg %r5, %r6, 0(rp)
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 brctg %,L(op
 j up,32()  it   to  main 

L(top): lmg %r5, %r8, 0(up
  up,32up)
 ADSBC L():lg %, 0up
 ADSBC %la up, 8(up
ADSB%5,0(java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 ADSBC la (p)
 la vp,32vp)
 stmg %r5, %r8, 0(rp)
 la rp  Lendjava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  %1, L(top

L(end): RETVAL
 lmg %r6, %r8, 48(%r15)
 br %r14
GUE