| OLD | NEW |
|---|
| (Empty) |
| 1 dnl HP-PA mpn_rshift -- Shift a number right. | |
| 2 | |
| 3 dnl Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc. | |
| 4 | |
| 5 dnl This file is part of the GNU MP Library. | |
| 6 | |
| 7 dnl The GNU MP Library is free software; you can redistribute it and/or modify | |
| 8 dnl it under the terms of the GNU Lesser General Public License as published | |
| 9 dnl by the Free Software Foundation; either version 3 of the License, or (at | |
| 10 dnl your option) any later version. | |
| 11 | |
| 12 dnl The GNU MP Library is distributed in the hope that it will be useful, but | |
| 13 dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
| 14 dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public | |
| 15 dnl License for more details. | |
| 16 | |
| 17 dnl You should have received a copy of the GNU Lesser General Public License | |
| 18 dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. | |
| 19 | |
| 20 include(`../config.m4') | |
| 21 | |
| 22 C INPUT PARAMETERS | |
| 23 C res_ptr gr26 | |
| 24 C s_ptr gr25 | |
| 25 C size gr24 | |
| 26 C cnt gr23 | |
| 27 | |
| 28 ASM_START() | |
| 29 PROLOGUE(mpn_rshift) | |
| 30 ldws,ma 4(0,%r25),%r22 | |
| 31 mtsar %r23 | |
| 32 addib,= -1,%r24,L(0004) | |
| 33 vshd %r22,%r0,%r28 C compute carry out limb | |
| 34 ldws,ma 4(0,%r25),%r29 | |
| 35 addib,= -1,%r24,L(0002) | |
| 36 vshd %r29,%r22,%r20 | |
| 37 | |
| 38 LDEF(loop) | |
| 39 ldws,ma 4(0,%r25),%r22 | |
| 40 stws,ma %r20,4(0,%r26) | |
| 41 addib,= -1,%r24,L(0003) | |
| 42 vshd %r22,%r29,%r20 | |
| 43 ldws,ma 4(0,%r25),%r29 | |
| 44 stws,ma %r20,4(0,%r26) | |
| 45 addib,<> -1,%r24,L(loop) | |
| 46 vshd %r29,%r22,%r20 | |
| 47 | |
| 48 LDEF(0002) | |
| 49 stws,ma %r20,4(0,%r26) | |
| 50 vshd %r0,%r29,%r20 | |
| 51 bv 0(%r2) | |
| 52 stw %r20,0(0,%r26) | |
| 53 | |
| 54 LDEF(0003) | |
| 55 stws,ma %r20,4(0,%r26) | |
| 56 | |
| 57 LDEF(0004) | |
| 58 vshd %r0,%r22,%r20 | |
| 59 bv 0(%r2) | |
| 60 stw %r20,0(0,%r26) | |
| 61 EPILOGUE() | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 3050029:
[gcc] GCC 4.5.0=>4.5.1 (Closed)
Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git