Reorganisation of the source tree
[ghc-hetmet.git] / rts / gmp / mpn / powerpc64 / copyd.asm
1 # PowerPC-64 mpn_copyd -- Copy a limb vector.
2
3 # Copyright (C) 1999, 2000 Free Software Foundation, Inc.
4
5 # This file is part of the GNU MP Library.
6
7 # The GNU MP Library is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU Lesser General Public License as published by
9 # the Free Software Foundation; either version 2.1 of the License, or (at your
10 # option) any later version.
11
12 # The GNU MP Library is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
15 # License for more details.
16
17 # You should have received a copy of the GNU Lesser General Public License
18 # along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
19 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20 # MA 02111-1307, USA.
21
22
23 # INPUT PARAMETERS
24 # rptr  r3
25 # sptr  r4
26 # n     r5
27
28 include(`../config.m4')
29
30 # Unrolling this analogous to sparc64/copyi.s doesn't help for any
31 # operand sizes.
32
33 ASM_START()
34 PROLOGUE(mpn_copyd)
35         cmpdi   cr0,r5,0
36         mtctr   r5
37         sldi    r5,r5,3
38         add     r4,r4,r5
39         add     r3,r3,r5
40         beq     cr0,.Lend
41 .Loop:  ldu     r0,-8(r4)
42         stdu    r0,-8(r3)
43         bdnz    .Loop
44 .Lend:  blr
45 EPILOGUE(mpn_copyd)