source/libs/gmp/gmp-src/mpn/s390_32/rshift.asm

   1 dnl  S/390-32 mpn_rshift.
   2
   3 dnl  Copyright 2011 Free Software Foundation, Inc.
   4
   5 dnl  This file is part of the GNU MP Library.
   6 dnl
   7 dnl  The GNU MP Library is free software; you can redistribute it and/or modify
   8 dnl  it under the terms of either:
   9 dnl
  10 dnl    * the GNU Lesser General Public License as published by the Free
  11 dnl      Software Foundation; either version 3 of the License, or (at your
  12 dnl      option) any later version.
  13 dnl
  14 dnl  or
  15 dnl
  16 dnl    * the GNU General Public License as published by the Free Software
  17 dnl      Foundation; either version 2 of the License, or (at your option) any
  18 dnl      later version.
  19 dnl
  20 dnl  or both in parallel, as here.
  21 dnl
  22 dnl  The GNU MP Library is distributed in the hope that it will be useful, but
  23 dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  24 dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  25 dnl  for more details.
  26 dnl
  27 dnl  You should have received copies of the GNU General Public License and the
  28 dnl  GNU Lesser General Public License along with the GNU MP Library.  If not,
  29 dnl  see https://www.gnu.org/licenses/.
  30
  31 include(`../config.m4')
  32
  33 C            cycles/limb
  34 C z900           6
  35 C z990           3
  36 C z9             ?
  37 C z10            ?
  38 C z196           ?
  39
  40 C TODO
  41 C  *
  42
  43 C INPUT PARAMETERS
  44 define(`rp',    `%r2')
  45 define(`up',    `%r3')
  46 define(`n',     `%r4')
  47 define(`cnt',   `%r5')
  48
  49 ASM_START()
  50 PROLOGUE(mpn_rshift)
  51         stm     %r6, %r12, 24(%r15)
  52         lhi     %r8, 32
  53         sr      %r8, cnt
  54         l       %r12, 0(up)
  55         sll     %r12, 0(%r8)            C return value
  56         lhi     %r7, 3
  57         nr      %r7, n
  58         srl     n, 2
  59         je      L(b0)
  60         chi     %r7, 2
  61         jl      L(b1)
  62         je      L(b2)
  63
  64 L(b3):  l       %r11, 0(up)
  65         l       %r10, 4(up)
  66         l       %r8,  8(up)
  67         ahi     up, 8
  68         lr      %r9, %r10
  69         srdl    %r10, 0(cnt)
  70         srdl    %r8,  0(cnt)
  71         st      %r11, 0(rp)
  72         st      %r9,  4(rp)
  73         ahi     rp, 8
  74         ltr     n, n
  75         je      L(end)
  76         j       L(top)
  77
  78 L(b2):  l       %r11, 0(up)
  79         l       %r10, 4(up)
  80         ahi     up, 4
  81         srdl    %r10, 0(cnt)
  82         st      %r11, 0(rp)
  83         ahi     rp, 4
  84         ltr     n, n
  85         je      L(end)
  86         j       L(top)
  87
  88 L(b1):  ltr     n, n
  89         je      L(end)
  90         j       L(top)
  91
  92 L(b0):  l       %r11, 0(up)
  93         l       %r9,  4(up)
  94         l       %r7,  8(up)
  95         l       %r1, 12(up)
  96         ahi     up, 12
  97         lr      %r10, %r9
  98         lr      %r8,  %r7
  99         lr      %r6,  %r1
 100         srdl    %r10, 0(cnt)
 101         srdl    %r8,  0(cnt)
 102         srdl    %r6,  0(cnt)
 103         st      %r11, 0(rp)
 104         st      %r9,  4(rp)
 105         st      %r7,  8(rp)
 106         ahi     rp, 12
 107         ahi     n, -1
 108         je      L(end)
 109
 110         ALIGN(8)
 111 L(top): l       %r11, 0(up)
 112         l       %r9,  4(up)
 113         l       %r7,  8(up)
 114         l       %r1, 12(up)
 115         l       %r0, 16(up)
 116         lr      %r10, %r9
 117         lr      %r8,  %r7
 118         lr      %r6,  %r1
 119         ahi     up, 16
 120         srdl    %r10, 0(cnt)
 121         srdl    %r8,  0(cnt)
 122         srdl    %r6,  0(cnt)
 123         srdl    %r0,  0(cnt)
 124         st      %r11, 0(rp)
 125         st      %r9,  4(rp)
 126         st      %r7,  8(rp)
 127         st      %r1, 12(rp)
 128         ahi     rp, 16
 129         brct    n, L(top)
 130
 131 L(end): l       %r11, 0(up)
 132         srl     %r11, 0(cnt)
 133         st      %r11, 0(rp)
 134
 135         lr      %r2, %r12
 136         lm      %r6, %r12, 24(%r15)
 137         br      %r14
 138 EPILOGUE()