=================================================================== RCS file: /home/cvs/OpenXM_contrib/gmp/mpn/powerpc32/Attic/submul_1.asm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.2 diff -u -p -r1.1.1.1 -r1.1.1.2 --- OpenXM_contrib/gmp/mpn/powerpc32/Attic/submul_1.asm 2000/09/09 14:12:38 1.1.1.1 +++ OpenXM_contrib/gmp/mpn/powerpc32/Attic/submul_1.asm 2003/08/25 16:06:24 1.1.1.2 @@ -1,7 +1,7 @@ dnl PowerPC-32 mpn_submul_1 -- Multiply a limb vector with a limb and subtract dnl the result from a second limb vector. -dnl Copyright (C) 1995, 1997, 1998, 2000 Free Software Foundation, Inc. +dnl Copyright 1995, 1997, 1998, 2000, 2002 Free Software Foundation, Inc. dnl This file is part of the GNU MP Library. @@ -35,7 +35,7 @@ include(`../config.m4') ASM_START() PROLOGUE(mpn_submul_1) cmpi cr0,r5,9 C more than 9 limbs? - bgt cr0,.Lbig C branch if more than 9 limbs + bgt cr0,L(big) C branch if more than 9 limbs mtctr r5 lwz r0,0(r4) @@ -45,8 +45,8 @@ PROLOGUE(mpn_submul_1) subfc r8,r7,r9 addc r7,r7,r8 C invert cy (r7 is junk) addi r3,r3,-4 - bdz .Lend -.Lloop: + bdz L(end) +L(loop): lwzu r0,4(r4) stwu r8,4(r3) mullw r8,r0,r6 @@ -56,12 +56,12 @@ PROLOGUE(mpn_submul_1) addze r10,r10 subfc r8,r7,r9 addc r7,r7,r8 C invert cy (r7 is junk) - bdnz .Lloop -.Lend: stw r8,4(r3) + bdnz L(loop) +L(end): stw r8,4(r3) addze r3,r10 blr -.Lbig: stmw r30,-32(r1) +L(big): stmw r30,-32(r1) addi r5,r5,-1 srwi r0,r5,2 mtctr r0 @@ -74,7 +74,7 @@ PROLOGUE(mpn_submul_1) addc r8,r8,r7 stw r7,0(r3) -.LloopU: +L(loopU): lwz r7,4(r4) lwz r12,8(r4) lwz r30,12(r4) @@ -106,13 +106,13 @@ PROLOGUE(mpn_submul_1) stwu r31,16(r3) subfe r11,r11,r11 C invert ... addic r11,r11,1 C ... carry - bdnz .LloopU + bdnz L(loopU) andi. r31,r5,3 mtctr r31 - beq cr0,.Lendx + beq cr0,L(endx) -.LloopE: +L(loopE): lwzu r7,4(r4) mullw r8,r7,r6 adde r8,r8,r0 C add cy_limb @@ -122,8 +122,8 @@ PROLOGUE(mpn_submul_1) subfc r7,r8,r7 addc r8,r8,r7 stwu r7,4(r3) - bdnz .LloopE -.Lendx: + bdnz L(loopE) +L(endx): addze r3,r0 lmw r30,-32(r1) blr