FIX BUILD (with GHC 6.2.x): System.Directory.Internals is no more
[ghc-hetmet.git] / rts / gmp / mpn / powerpc64 / copyi.asm
1 # PowerPC-64 mpn_copyi -- 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_copyi)
35         cmpdi   cr0,r5,0
36         mtctr   r5
37         addi    r4,r4,-8
38         addi    r3,r3,-8
39         beq     cr0,.Lend
40 .Loop:  ldu     r0,8(r4)
41         stdu    r0,8(r3)
42         bdnz    .Loop
43 .Lend:  blr
44 EPILOGUE(mpn_copyi)