-1999-10-11 Cristian Gafton <gafton@redhat.com>
-
- * sysdeps/unix/sysv/linux/alpha/bits/sigaction.h: Declare
+1999-10-11 Ulrich Drepper <drepper@cygnus.com>
+
+ * sysdeps/powerpc/Makefile [math] (libm-support): Remove t_sqrt.
+
+ * sysdeps/powerpc/e_sqrt.c: Moved to...
+ * sysdeps/powerpc/fpu/e_sqrt.c: ...here.
+ * sysdeps/powerpc/e_sqrtf.c: Moved to...
+ * sysdeps/powerpc/fpu/e_sqrtf.c: ...here.
+
+ * sysdeps/powerpc/submul_1.S: Adjust asm syntax.
+ * sysdeps/powerpc/sub_n.S: Likewise.
+ * sysdeps/powerpc/strlen.S: Likewise.
+ * sysdeps/powerpc/strcpy.S: Likewise.
+ * sysdeps/powerpc/strcmp.S: Likewise.
+ * sysdeps/powerpc/strchr.S: Likewise.
+ * sysdeps/powerpc/stpcpy.S: Likewise.
+ * sysdeps/powerpc/setjmp.S: Likewise.
+ * sysdeps/powerpc/rshift.S: Likewise.
+ * sysdeps/powerpc/ppc-mcount.S: Likewise.
+ * sysdeps/powerpc/mul_1.S: Likewise.
+ * sysdeps/powerpc/memset.S: Likewise.
+ * sysdeps/powerpc/lshift.S: Likewise.
+ * sysdeps/powerpc/dl-start.S: Likewise.
+ * sysdeps/powerpc/bzero.S: Likewise.
+ * sysdeps/powerpc/bsd-setjmp.S: Likewise.
+ * sysdeps/powerpc/bsd-_setjmp.S: Likewise.
+ * sysdeps/powerpc/addmul_1.S: Likewise.
+ * sysdeps/powerpc/add_n.S: Likewise.
+ * sysdeps/powerpc/__longjmp.S: Likewise.
+ * sysdeps/powerpc/elf/start.S: Likewise.
+
+1999-10-11 Cristian Gafton <gafton@redhat.com>
+
+ * sysdeps/unix/sysv/linux/alpha/bits/sigaction.h: Declare
SA_SIGINFO.
-
+
1999-10-10 Ulrich Drepper <drepper@cygnus.com>
* stdlib/atexit.c (initial): New variable. Use to initialize
1999-10-11 Ulrich Drepper <drepper@cygnus.com>
+ * thread_db.h: Fix comment for ti_type.
+
* td_thr_get_info.c: Initialize ti_type field.
* td_ta_thr_iter.c: Also report the manager thread.
* Makefile: New file.
* proc_service.h: New file.
- * shlib-versions: New file.
* td_init.c: New file.
* td_log.c: New file.
* td_ta_delete.c: New file.
int ti_ro_size; /* Unused. */
td_thr_state_e ti_state; /* Thread state. */
unsigned char ti_db_suspended; /* Nonzero if suspended by debugger. */
- td_thr_type_e ti_type; /* Unused. */
+ td_thr_type_e ti_type; /* Type of the thread (system vs
+ user thread). */
intptr_t ti_pc; /* Unused. */
intptr_t ti_sp; /* Unused. */
short int ti_flags; /* Unused. */
ifeq ($(subdir),math)
-libm-support += fenv_const fe_nomask t_sqrt
+libm-support += fenv_const fe_nomask
endif
ifeq ($(subdir),gmon)
/* longjmp for PowerPC.
- Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
#include <bits/setjmp.h>
ENTRY (__longjmp)
- lwz %r1,(JB_GPR1*4)(%r3)
- lwz %r2,(JB_GPR2*4)(%r3)
- lwz %r0,(JB_LR*4)(%r3)
- lwz %r14,((JB_GPRS+0)*4)(%r3)
- lfd %f14,((JB_FPRS+0*2)*4)(%r3)
- lwz %r15,((JB_GPRS+1)*4)(%r3)
- lfd %f15,((JB_FPRS+1*2)*4)(%r3)
- lwz %r16,((JB_GPRS+2)*4)(%r3)
- lfd %f16,((JB_FPRS+2*2)*4)(%r3)
- lwz %r17,((JB_GPRS+3)*4)(%r3)
- lfd %f17,((JB_FPRS+3*2)*4)(%r3)
- lwz %r18,((JB_GPRS+4)*4)(%r3)
- lfd %f18,((JB_FPRS+4*2)*4)(%r3)
- lwz %r19,((JB_GPRS+5)*4)(%r3)
- lfd %f19,((JB_FPRS+5*2)*4)(%r3)
- lwz %r20,((JB_GPRS+6)*4)(%r3)
- lfd %f20,((JB_FPRS+6*2)*4)(%r3)
- mtlr %r0
- lwz %r21,((JB_GPRS+7)*4)(%r3)
- lfd %f21,((JB_FPRS+7*2)*4)(%r3)
- lwz %r22,((JB_GPRS+8)*4)(%r3)
- lfd %f22,((JB_FPRS+8*2)*4)(%r3)
- lwz %r0,(JB_CR*4)(%r3)
- lwz %r23,((JB_GPRS+9)*4)(%r3)
- lfd %f23,((JB_FPRS+9*2)*4)(%r3)
- lwz %r24,((JB_GPRS+10)*4)(%r3)
- lfd %f24,((JB_FPRS+10*2)*4)(%r3)
- lwz %r25,((JB_GPRS+11)*4)(%r3)
- lfd %f25,((JB_FPRS+11*2)*4)(%r3)
- mtcrf 0xFF,%r0
- lwz %r26,((JB_GPRS+12)*4)(%r3)
- lfd %f26,((JB_FPRS+12*2)*4)(%r3)
- lwz %r27,((JB_GPRS+13)*4)(%r3)
- lfd %f27,((JB_FPRS+13*2)*4)(%r3)
- lwz %r28,((JB_GPRS+14)*4)(%r3)
- lfd %f28,((JB_FPRS+14*2)*4)(%r3)
- lwz %r29,((JB_GPRS+15)*4)(%r3)
- lfd %f29,((JB_FPRS+15*2)*4)(%r3)
- lwz %r30,((JB_GPRS+16)*4)(%r3)
- lfd %f30,((JB_FPRS+16*2)*4)(%r3)
- lwz %r31,((JB_GPRS+17)*4)(%r3)
- lfd %f31,((JB_FPRS+17*2)*4)(%r3)
- mr %r3,%r4
+ lwz r1,(JB_GPR1*4)(r3)
+ lwz r2,(JB_GPR2*4)(r3)
+ lwz r0,(JB_LR*4)(r3)
+ lwz r14,((JB_GPRS+0)*4)(r3)
+ lfd f14,((JB_FPRS+0*2)*4)(r3)
+ lwz r15,((JB_GPRS+1)*4)(r3)
+ lfd f15,((JB_FPRS+1*2)*4)(r3)
+ lwz r16,((JB_GPRS+2)*4)(r3)
+ lfd f16,((JB_FPRS+2*2)*4)(r3)
+ lwz r17,((JB_GPRS+3)*4)(r3)
+ lfd f17,((JB_FPRS+3*2)*4)(r3)
+ lwz r18,((JB_GPRS+4)*4)(r3)
+ lfd f18,((JB_FPRS+4*2)*4)(r3)
+ lwz r19,((JB_GPRS+5)*4)(r3)
+ lfd f19,((JB_FPRS+5*2)*4)(r3)
+ lwz r20,((JB_GPRS+6)*4)(r3)
+ lfd f20,((JB_FPRS+6*2)*4)(r3)
+ mtlr r0
+ lwz r21,((JB_GPRS+7)*4)(r3)
+ lfd f21,((JB_FPRS+7*2)*4)(r3)
+ lwz r22,((JB_GPRS+8)*4)(r3)
+ lfd f22,((JB_FPRS+8*2)*4)(r3)
+ lwz r0,(JB_CR*4)(r3)
+ lwz r23,((JB_GPRS+9)*4)(r3)
+ lfd f23,((JB_FPRS+9*2)*4)(r3)
+ lwz r24,((JB_GPRS+10)*4)(r3)
+ lfd f24,((JB_FPRS+10*2)*4)(r3)
+ lwz r25,((JB_GPRS+11)*4)(r3)
+ lfd f25,((JB_FPRS+11*2)*4)(r3)
+ mtcrf 0xFF,r0
+ lwz r26,((JB_GPRS+12)*4)(r3)
+ lfd f26,((JB_FPRS+12*2)*4)(r3)
+ lwz r27,((JB_GPRS+13)*4)(r3)
+ lfd f27,((JB_FPRS+13*2)*4)(r3)
+ lwz r28,((JB_GPRS+14)*4)(r3)
+ lfd f28,((JB_FPRS+14*2)*4)(r3)
+ lwz r29,((JB_GPRS+15)*4)(r3)
+ lfd f29,((JB_FPRS+15*2)*4)(r3)
+ lwz r30,((JB_GPRS+16)*4)(r3)
+ lfd f30,((JB_FPRS+16*2)*4)(r3)
+ lwz r31,((JB_GPRS+17)*4)(r3)
+ lfd f31,((JB_FPRS+17*2)*4)(r3)
+ mr r3,r4
blr
END (__longjmp)
/* Add two limb vectors of equal, non-zero length for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
EALIGN(__mpn_add_n,3,0)
/* Set up for loop below. */
- mtcrf 0x01,%r6
- srwi. %r7,%r6,1
- li %r10,0
- mtctr %r7
+ mtcrf 0x01,r6
+ srwi. r7,r6,1
+ li r10,0
+ mtctr r7
bt 31,2f
/* Clear the carry. */
- addic %r0,%r0,0
+ addic r0,r0,0
/* Adjust pointers for loop. */
- addi %r3,%r3,-4
- addi %r4,%r4,-4
- addi %r5,%r5,-4
+ addi r3,r3,-4
+ addi r4,r4,-4
+ addi r5,r5,-4
b 0f
-2: lwz %r7,0(%r5)
- lwz %r6,0(%r4)
- addc %r6,%r6,%r7
- stw %r6,0(%r3)
+2: lwz r7,0(r5)
+ lwz r6,0(r4)
+ addc r6,r6,r7
+ stw r6,0(r3)
beq 1f
/* The loop. */
/* Align start of loop to an odd word boundary to guarantee that the
last two words can be fetched in one access (for 601). */
-0: lwz %r9,4(%r4)
- lwz %r8,4(%r5)
- lwzu %r6,8(%r4)
- lwzu %r7,8(%r5)
- adde %r8,%r9,%r8
- stw %r8,4(%r3)
- adde %r6,%r6,%r7
- stwu %r6,8(%r3)
+0: lwz r9,4(r4)
+ lwz r8,4(r5)
+ lwzu r6,8(r4)
+ lwzu r7,8(r5)
+ adde r8,r9,r8
+ stw r8,4(r3)
+ adde r6,r6,r7
+ stwu r6,8(r3)
bdnz 0b
/* Return the carry. */
-1: addze %r3,%r10
+1: addze r3,r10
blr
END(__mpn_add_n)
/* Multiply a limb vector by a single limb, for PowerPC.
- Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1995, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
mp_size_t s1_size, mp_limb_t s2_limb)
Calculate res+s1*s2 and put result back in res; return carry. */
ENTRY(__mpn_addmul_1)
- mtctr %r5
-
- lwz %r0,0(%r4)
- mullw %r7,%r0,%r6
- mulhwu %r10,%r0,%r6
- lwz %r9,0(%r3)
- addc %r8,%r7,%r9
- addi %r3,%r3,-4 /* adjust res_ptr */
+ mtctr r5
+
+ lwz r0,0(r4)
+ mullw r7,r0,r6
+ mulhwu r10,r0,r6
+ lwz r9,0(r3)
+ addc r8,r7,r9
+ addi r3,r3,-4 /* adjust res_ptr */
bdz 1f
-0: lwzu %r0,4(%r4)
- stwu %r8,4(%r3)
- mullw %r8,%r0,%r6
- adde %r7,%r8,%r10
- mulhwu %r10,%r0,%r6
- lwz %r9,4(%r3)
- addze %r10,%r10
- addc %r8,%r7,%r9
+0: lwzu r0,4(r4)
+ stwu r8,4(r3)
+ mullw r8,r0,r6
+ adde r7,r8,r10
+ mulhwu r10,r0,r6
+ lwz r9,4(r3)
+ addze r10,r10
+ addc r8,r7,r9
bdnz 0b
-1: stw %r8,4(%r3)
- addze %r3,%r10
+1: stw r8,4(r3)
+ addze r3,r10
blr
END(__mpn_addmul_1)
/* BSD `_setjmp' entry point to `sigsetjmp (..., 0)'. PowerPC version.
- Copyright (C) 1994, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
#include <sysdep.h>
ENTRY (_setjmp)
- li %r4,0 /* Set second argument to 0. */
+ li r4,0 /* Set second argument to 0. */
b JUMPTARGET(__sigsetjmp)
END (_setjmp)
/* BSD `setjmp' entry point to `sigsetjmp (..., 1)'. PowerPC version.
- Copyright (C) 1994, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1994, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
#include <sysdep.h>
ENTRY (__setjmp)
- li %r4,1 /* Set second argument to 1. */
+ li r4,1 /* Set second argument to 1. */
b JUMPTARGET(__sigsetjmp)
END (__setjmp)
/* Optimized bzero `implementation' for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
#include <sysdep.h>
ENTRY(__bzero)
- mr %r5,%r4
- li %r4,0
+ mr r5,r4
+ li r4,0
b memset@local
END(__bzero)
weak_alias (__bzero, bzero)
/* Machine-dependent ELF startup code. PowerPC version.
- Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
arguments for the program loader. */
/* Call _dl_start with one parameter pointing at argc */
- mr %r3,%r1
+ mr r3,r1
/* (we have to frob the stack pointer a bit to allow room for
_dl_start to save the link register). */
- li %r4,0
- addi %r1,%r1,-16
- stw %r4,0(%r1)
+ li r4,0
+ addi r1,r1,-16
+ stw r4,0(r1)
bl _dl_start@local
/* Now, we do our main work of calling initialisation procedures.
/* Put our GOT pointer in r31, */
bl _GLOBAL_OFFSET_TABLE_-4@local
- mflr %r31
+ mflr r31
/* the address of _start in r30, */
- mr %r30,%r3
+ mr r30,r3
/* &_dl_argc in 29, &_dl_argv in 27, and _dl_main_searchlist in 28. */
- lwz %r28,_dl_main_searchlist@got(%r31)
- lwz %r29,_dl_argc@got(%r31)
- lwz %r27,_dl_argv@got(%r31)
+ lwz r28,_dl_main_searchlist@got(r31)
+ lwz r29,_dl_argc@got(r31)
+ lwz r27,_dl_argv@got(r31)
0:
/* Set initfunc = _dl_init_next(_dl_main_searchlist) */
- lwz %r3,0(%r28)
+ lwz r3,0(r28)
bl _dl_init_next@plt
/* If initfunc is NULL, we exit the loop; otherwise, */
- cmpwi %r3,0
+ cmpwi r3,0
beq 1f
/* call initfunc(_dl_argc, _dl_argv, _dl_argv+_dl_argc+1) */
- mtlr %r3
- lwz %r3,0(%r29)
- lwz %r4,0(%r27)
- slwi %r5,%r3,2
- add %r5,%r4,%r5
- addi %r5,%r5,4
+ mtlr r3
+ lwz r3,0(r29)
+ lwz r4,0(r27)
+ slwi r5,r3,2
+ add r5,r4,r5
+ addi r5,r5,4
blrl
/* and loop. */
b 0b
1:
/* Now, to conform to the ELF ABI, we have to: */
/* Pass argc (actually _dl_argc) in r3; */
- lwz %r3,0(%r29)
+ lwz r3,0(r29)
/* pass argv (actually _dl_argv) in r4; */
- lwz %r4,0(%r27)
+ lwz r4,0(r27)
/* pass envp (actually _dl_argv+_dl_argc+1) in r5; */
- slwi %r5,%r3,2
- add %r6,%r4,%r5
- addi %r5,%r6,4
+ slwi r5,r3,2
+ add r6,r4,r5
+ addi r5,r6,4
/* pass the auxilary vector in r6. This is passed to us just after _envp. */
-2: lwzu %r0,4(%r6)
- cmpwi %r0,0
+2: lwzu r0,4(r6)
+ cmpwi r0,0
bne 2b
- addi %r6,%r6,4
+ addi r6,r6,4
/* Pass a termination function pointer (in this case _dl_fini) in r7. */
- lwz %r7,_dl_fini@got(%r31)
+ lwz r7,_dl_fini@got(r31)
/* Now, call the start function in r30... */
- mtctr %r30
- lwz %r26,_dl_starting_up@got(%r31)
+ mtctr r30
+ lwz r26,_dl_starting_up@got(r31)
/* Pass the stack pointer in r1 (so far so good), pointing to a NULL value.
(This lets our startup code distinguish between a program linked statically,
which linux will call with argc on top of the stack which will hopefully
Take the opportunity to clear LR, so anyone who accidentally returns
from _start gets SEGV. Also clear the next few words of the stack. */
- li %r31,0
- stw %r31,0(%r1)
- mtlr %r31
- stw %r31,4(%r1)
- stw %r31,8(%r1)
- stw %r31,12(%r1)
+ li r31,0
+ stw r31,0(r1)
+ mtlr r31
+ stw r31,4(r1)
+ stw r31,8(r1)
+ stw r31,12(r1)
/* Clear _dl_starting_up. */
- stw %r31,0(%r26)
+ stw r31,0(r26)
/* Go do it! */
bctr
END(_start)
/* Startup code for programs linked with GNU libc.
- Copyright (C) 1998 Free Software Foundation, Inc.
+ Copyright (C) 1998, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
.section ".text"
ENTRY(_start)
/* Save the stack pointer, in case we're statically linked under Linux. */
- mr %r9,%r1
+ mr r9,r1
/* Set up an initial stack frame, and clear the LR. */
- clrrwi %r1,%r1,4
- li %r0,0
- stwu %r1,-16(%r1)
- mtlr %r0
- stw %r0,0(%r1)
+ clrrwi r1,r1,4
+ li r0,0
+ stwu r1,-16(r1)
+ mtlr r0
+ stw r0,0(r1)
/* Set r13 to point at the 'small data area', and put the address of
start_addresses in r8... */
- lis %r8,L(start_addresses)@ha
- lwzu %r13,L(start_addresses)@l(%r8)
+ lis r8,L(start_addresses)@ha
+ lwzu r13,L(start_addresses)@l(r8)
/* and continue in libc-start, in glibc. */
b JUMPTARGET(__libc_start_main)
END(_start)
--- /dev/null
+ifeq ($(subdir),math)
+libm-support += fenv_const fe_nomask t_sqrt
+endif
/* Shift a limb left, low level routine.
- Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
unsigned int cnt) */
EALIGN(__mpn_lshift,3,0)
- mtctr %r5 # copy size into CTR
- cmplwi %cr0,%r5,16 # is size < 16
- slwi %r0,%r5,2
- add %r7,%r3,%r0 # make r7 point at end of res
- add %r4,%r4,%r0 # make r4 point at end of s1
- lwzu %r11,-4(%r4) # load first s1 limb
- subfic %r8,%r6,32
- srw %r3,%r11,%r8 # compute function return value
- bge %cr0,L(big) # branch if size >= 16
+ mtctr r5 # copy size into CTR
+ cmplwi cr0,r5,16 # is size < 16
+ slwi r0,r5,2
+ add r7,r3,r0 # make r7 point at end of res
+ add r4,r4,r0 # make r4 point at end of s1
+ lwzu r11,-4(r4) # load first s1 limb
+ subfic r8,r6,32
+ srw r3,r11,r8 # compute function return value
+ bge cr0,L(big) # branch if size >= 16
bdz L(end1)
-0: lwzu %r10,-4(%r4)
- slw %r9,%r11,%r6
- srw %r12,%r10,%r8
- or %r9,%r9,%r12
- stwu %r9,-4(%r7)
+0: lwzu r10,-4(r4)
+ slw r9,r11,r6
+ srw r12,r10,r8
+ or r9,r9,r12
+ stwu r9,-4(r7)
bdz L(end2)
- lwzu %r11,-4(%r4)
- slw %r9,%r10,%r6
- srw %r12,%r11,%r8
- or %r9,%r9,%r12
- stwu %r9,-4(%r7)
+ lwzu r11,-4(r4)
+ slw r9,r10,r6
+ srw r12,r11,r8
+ or r9,r9,r12
+ stwu r9,-4(r7)
bdnz 0b
-L(end1):slw %r0,%r11,%r6
- stw %r0,-4(%r7)
+L(end1):slw r0,r11,r6
+ stw r0,-4(r7)
blr
/* Guaranteed not to succeed. */
-L(boom): tweq %r0,%r0
+L(boom): tweq r0,r0
/* We imitate a case statement, by using (yuk!) fixed-length code chunks,
of size 4*12 bytes. We have to do this (or something) to make this PIC. */
-L(big): mflr %r9
- bltl- %cr0,L(boom) # Never taken, only used to set LR.
- slwi %r10,%r6,4
- mflr %r12
- add %r10,%r12,%r10
- slwi %r8,%r6,5
- add %r10,%r8,%r10
- mtctr %r10
- addi %r5,%r5,-1
- mtlr %r9
+L(big): mflr r9
+ bltl- cr0,L(boom) # Never taken, only used to set LR.
+ slwi r10,r6,4
+ mflr r12
+ add r10,r12,r10
+ slwi r8,r6,5
+ add r10,r8,r10
+ mtctr r10
+ addi r5,r5,-1
+ mtlr r9
bctr
-L(end2):slw %r0,%r10,%r6
- stw %r0,-4(%r7)
+L(end2):slw r0,r10,r6
+ stw r0,-4(r7)
blr
#define DO_LSHIFT(n) \
- mtctr %r5; \
-0: lwzu %r10,-4(%r4); \
- slwi %r9,%r11,n; \
- inslwi %r9,%r10,n,32-n; \
- stwu %r9,-4(%r7); \
+ mtctr r5; \
+0: lwzu r10,-4(r4); \
+ slwi r9,r11,n; \
+ inslwi r9,r10,n,32-n; \
+ stwu r9,-4(r7); \
bdz- L(end2); \
- lwzu %r11,-4(%r4); \
- slwi %r9,%r10,n; \
- inslwi %r9,%r11,n,32-n; \
- stwu %r9,-4(%r7); \
+ lwzu r11,-4(r4); \
+ slwi r9,r10,n; \
+ inslwi r9,r11,n,32-n; \
+ stwu r9,-4(r7); \
bdnz 0b; \
b L(end1)
/* Optimized memset implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
r7: number of bytes we are setting now (when aligning) */
/* take care of case for size <= 4 */
- cmplwi %cr1,%r5,4
- andi. %r7,%r3,3
- mr %r6,%r3
- ble- %cr1,L(small)
+ cmplwi cr1,r5,4
+ andi. r7,r3,3
+ mr r6,r3
+ ble- cr1,L(small)
/* align to word boundary */
- cmplwi %cr5,%r5,31
- rlwimi %r4,%r4,8,16,23
+ cmplwi cr5,r5,31
+ rlwimi r4,r4,8,16,23
beq+ L(aligned) # 8th instruction from .align
- mtcrf 0x01,%r3
- subfic %r7,%r7,4
- add %r6,%r6,%r7
- sub %r5,%r5,%r7
+ mtcrf 0x01,r3
+ subfic r7,r7,4
+ add r6,r6,r7
+ sub r5,r5,r7
bf+ 31,0f
- stb %r4,0(%r3)
+ stb r4,0(r3)
bt 30,L(aligned)
-0: sth %r4,-2(%r6) # 16th instruction from .align
+0: sth r4,-2(r6) # 16th instruction from .align
/* take care of case for size < 31 */
L(aligned):
- mtcrf 0x01,%r5
- rlwimi %r4,%r4,16,0,15
- ble %cr5,L(medium)
+ mtcrf 0x01,r5
+ rlwimi r4,r4,16,0,15
+ ble cr5,L(medium)
/* align to cache line boundary... */
- andi. %r7,%r6,0x1C
- subfic %r7,%r7,0x20
+ andi. r7,r6,0x1C
+ subfic r7,r7,0x20
beq L(caligned)
- mtcrf 0x01,%r7
- add %r6,%r6,%r7
- sub %r5,%r5,%r7
- cmplwi %cr1,%r7,0x10
- mr %r8,%r6
+ mtcrf 0x01,r7
+ add r6,r6,r7
+ sub r5,r5,r7
+ cmplwi cr1,r7,0x10
+ mr r8,r6
bf 28,1f
- stw %r4,-4(%r8)
- stwu %r4,-8(%r8)
-1: blt %cr1,2f
- stw %r4,-4(%r8) # 32nd instruction from .align
- stw %r4,-8(%r8)
- stw %r4,-12(%r8)
- stwu %r4,-16(%r8)
+ stw r4,-4(r8)
+ stwu r4,-8(r8)
+1: blt cr1,2f
+ stw r4,-4(r8) # 32nd instruction from .align
+ stw r4,-8(r8)
+ stw r4,-12(r8)
+ stwu r4,-16(r8)
2: bf 29,L(caligned)
- stw %r4,-4(%r8)
+ stw r4,-4(r8)
/* now aligned to a cache line. */
L(caligned):
- cmplwi %cr1,%r4,0
- clrrwi. %r7,%r5,5
- mtcrf 0x01,%r5 # 40th instruction from .align
- beq %cr1,L(zloopstart) # special case for clearing memory using dcbz
- srwi %r0,%r7,5
- mtctr %r0
+ cmplwi cr1,r4,0
+ clrrwi. r7,r5,5
+ mtcrf 0x01,r5 # 40th instruction from .align
+ beq cr1,L(zloopstart) # special case for clearing memory using dcbz
+ srwi r0,r7,5
+ mtctr r0
beq L(medium) # we may not actually get to do a full line
- clrlwi. %r5,%r5,27
- add %r6,%r6,%r7
-0: li %r8,-0x40
+ clrlwi. r5,r5,27
+ add r6,r6,r7
+0: li r8,-0x40
bdz L(cloopdone) # 48th instruction from .align
-3: dcbz %r8,%r6
- stw %r4,-4(%r6)
- stw %r4,-8(%r6)
- stw %r4,-12(%r6)
- stw %r4,-16(%r6)
+3: dcbz r8,r6
+ stw r4,-4(r6)
+ stw r4,-8(r6)
+ stw r4,-12(r6)
+ stw r4,-16(r6)
nop # let 601 fetch last 4 instructions of loop
- stw %r4,-20(%r6)
- stw %r4,-24(%r6) # 56th instruction from .align
+ stw r4,-20(r6)
+ stw r4,-24(r6) # 56th instruction from .align
nop # let 601 fetch first 8 instructions of loop
- stw %r4,-28(%r6)
- stwu %r4,-32(%r6)
+ stw r4,-28(r6)
+ stwu r4,-32(r6)
bdnz 3b
L(cloopdone):
- stw %r4,-4(%r6)
- stw %r4,-8(%r6)
- stw %r4,-12(%r6)
- stw %r4,-16(%r6) # 64th instruction from .align
- stw %r4,-20(%r6)
- cmplwi %cr1,%r5,16
- stw %r4,-24(%r6)
- stw %r4,-28(%r6)
- stwu %r4,-32(%r6)
+ stw r4,-4(r6)
+ stw r4,-8(r6)
+ stw r4,-12(r6)
+ stw r4,-16(r6) # 64th instruction from .align
+ stw r4,-20(r6)
+ cmplwi cr1,r5,16
+ stw r4,-24(r6)
+ stw r4,-28(r6)
+ stwu r4,-32(r6)
beqlr
- add %r6,%r6,%r7
+ add r6,r6,r7
b L(medium_tail2) # 72nd instruction from .align
.align 5
nop
/* Clear lines of memory in 128-byte chunks. */
L(zloopstart):
- clrlwi %r5,%r5,27
- mtcrf 0x02,%r7
- srwi. %r0,%r7,7
- mtctr %r0
- li %r7,0x20
- li %r8,-0x40
- cmplwi %cr1,%r5,16 # 8
+ clrlwi r5,r5,27
+ mtcrf 0x02,r7
+ srwi. r0,r7,7
+ mtctr r0
+ li r7,0x20
+ li r8,-0x40
+ cmplwi cr1,r5,16 # 8
bf 26,0f
- dcbz 0,%r6
- addi %r6,%r6,0x20
-0: li %r9,-0x20
+ dcbz 0,r6
+ addi r6,r6,0x20
+0: li r9,-0x20
bf 25,1f
- dcbz 0,%r6
- dcbz %r7,%r6
- addi %r6,%r6,0x40 # 16
-1: cmplwi %cr5,%r5,0
+ dcbz 0,r6
+ dcbz r7,r6
+ addi r6,r6,0x40 # 16
+1: cmplwi cr5,r5,0
beq L(medium)
L(zloop):
- dcbz 0,%r6
- dcbz %r7,%r6
- addi %r6,%r6,0x80
- dcbz %r8,%r6
- dcbz %r9,%r6
+ dcbz 0,r6
+ dcbz r7,r6
+ addi r6,r6,0x80
+ dcbz r8,r6
+ dcbz r9,r6
bdnz L(zloop)
- beqlr %cr5
+ beqlr cr5
b L(medium_tail2)
.align 5
L(small):
/* Memset of 4 bytes or less. */
- cmplwi %cr5,%r5,1
- cmplwi %cr1,%r5,3
- bltlr %cr5
- stb %r4,0(%r6)
- beqlr %cr5
+ cmplwi cr5,r5,1
+ cmplwi cr1,r5,3
+ bltlr cr5
+ stb r4,0(r6)
+ beqlr cr5
nop
- stb %r4,1(%r6)
- bltlr %cr1
- stb %r4,2(%r6)
- beqlr %cr1
+ stb r4,1(r6)
+ bltlr cr1
+ stb r4,2(r6)
+ beqlr cr1
nop
- stb %r4,3(%r6)
+ stb r4,3(r6)
blr
/* Memset of 0-31 bytes. */
.align 5
L(medium):
- cmplwi %cr1,%r5,16
+ cmplwi cr1,r5,16
L(medium_tail2):
- add %r6,%r6,%r5
+ add r6,r6,r5
L(medium_tail):
bt- 31,L(medium_31t)
bt- 30,L(medium_30t)
L(medium_30f):
bt- 29,L(medium_29t)
L(medium_29f):
- bge- %cr1,L(medium_27t)
+ bge- cr1,L(medium_27t)
bflr- 28
- stw %r4,-4(%r6) # 8th instruction from .align
- stw %r4,-8(%r6)
+ stw r4,-4(r6) # 8th instruction from .align
+ stw r4,-8(r6)
blr
L(medium_31t):
- stbu %r4,-1(%r6)
+ stbu r4,-1(r6)
bf- 30,L(medium_30f)
L(medium_30t):
- sthu %r4,-2(%r6)
+ sthu r4,-2(r6)
bf- 29,L(medium_29f)
L(medium_29t):
- stwu %r4,-4(%r6)
- blt- %cr1,L(medium_27f) # 16th instruction from .align
+ stwu r4,-4(r6)
+ blt- cr1,L(medium_27f) # 16th instruction from .align
L(medium_27t):
- stw %r4,-4(%r6)
- stw %r4,-8(%r6)
- stw %r4,-12(%r6)
- stwu %r4,-16(%r6)
+ stw r4,-4(r6)
+ stw r4,-8(r6)
+ stw r4,-12(r6)
+ stwu r4,-16(r6)
L(medium_27f):
bflr- 28
L(medium_28t):
- stw %r4,-4(%r6)
- stw %r4,-8(%r6)
+ stw r4,-4(r6)
+ stw r4,-8(r6)
blr
END(memset)
/* Multiply a limb vector by a limb, for PowerPC.
- Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1995, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
Calculate s1*s2 and put result in res_ptr; return carry. */
ENTRY(__mpn_mul_1)
- mtctr %r5
+ mtctr r5
- lwz %r0,0(%r4)
- mullw %r7,%r0,%r6
- mulhwu %r10,%r0,%r6
- addi %r3,%r3,-4 # adjust res_ptr
- addic %r5,%r5,0 # clear cy with dummy insn
+ lwz r0,0(r4)
+ mullw r7,r0,r6
+ mulhwu r10,r0,r6
+ addi r3,r3,-4 # adjust res_ptr
+ addic r5,r5,0 # clear cy with dummy insn
bdz 1f
-0: lwzu %r0,4(%r4)
- stwu %r7,4(%r3)
- mullw %r8,%r0,%r6
- adde %r7,%r8,%r10
- mulhwu %r10,%r0,%r6
+0: lwzu r0,4(r4)
+ stwu r7,4(r3)
+ mullw r8,r0,r6
+ adde r7,r8,r10
+ mulhwu r10,r0,r6
bdnz 0b
-1: stw %r7,4(%r3)
- addze %r3,%r10
+1: stw r7,4(r3)
+ addze r3,r10
blr
END(__mpn_mul_1)
/* PowerPC-specific implementation of profiling support.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
with the address of a data word in r0 (that is different for every
routine, initialised to 0, and otherwise unused). The caller has put
the address the caller will return to in the usual place on the stack,
- 4(%r1). _mcount is responsible for ensuring that when it returns no
+ 4(r1). _mcount is responsible for ensuring that when it returns no
argument-passing registers are disturbed, and that the LR is set back
- to (what the caller sees as) 4(%r1).
+ to (what the caller sees as) 4(r1).
This is intended so that the following code can be inserted at the
front of any routine without changing the routine:
.align 2
0: .long 0
.previous
- mflr %r0
- lis %r11,0b@ha
- stw %r0,4(%r1)
- addi %r0,%r11,0b@l
+ mflr r0
+ lis r11,0b@ha
+ stw r0,4(r1)
+ addi r0,r11,0b@l
bl _mcount
*/
ENTRY(_mcount)
- stwu %r1,-48(%r1)
+ stwu r1,-48(r1)
/* We need to save the parameter-passing registers. */
- stw %r3, 12(%r1)
- stw %r4, 16(%r1)
- stw %r5, 20(%r1)
- stw %r6, 24(%r1)
- mflr %r4
- lwz %r3, 52(%r1)
- mfcr %r5
- stw %r7, 28(%r1)
- stw %r8, 32(%r1)
- stw %r9, 36(%r1)
- stw %r10,40(%r1)
- stw %r4, 44(%r1)
- stw %r5, 8(%r1)
+ stw r3, 12(r1)
+ stw r4, 16(r1)
+ stw r5, 20(r1)
+ stw r6, 24(r1)
+ mflr r4
+ lwz r3, 52(r1)
+ mfcr r5
+ stw r7, 28(r1)
+ stw r8, 32(r1)
+ stw r9, 36(r1)
+ stw r10,40(r1)
+ stw r4, 44(r1)
+ stw r5, 8(r1)
bl JUMPTARGET(__mcount_internal)
/* Restore the registers... */
- lwz %r6, 8(%r1)
- lwz %r0, 44(%r1)
- lwz %r3, 12(%r1)
- mtctr %r0
- lwz %r4, 16(%r1)
- mtcrf 0xff,%r6
- lwz %r5, 20(%r1)
- lwz %r6, 24(%r1)
- lwz %r0, 52(%r1)
- lwz %r7, 28(%r1)
- lwz %r8, 32(%r1)
- mtlr %r0
- lwz %r9, 36(%r1)
- lwz %r10,40(%r1)
+ lwz r6, 8(r1)
+ lwz r0, 44(r1)
+ lwz r3, 12(r1)
+ mtctr r0
+ lwz r4, 16(r1)
+ mtcrf 0xff,r6
+ lwz r5, 20(r1)
+ lwz r6, 24(r1)
+ lwz r0, 52(r1)
+ lwz r7, 28(r1)
+ lwz r8, 32(r1)
+ mtlr r0
+ lwz r9, 36(r1)
+ lwz r10,40(r1)
/* ...unwind the stack frame, and return to your usual programming. */
- addi %r1,%r1,48
+ addi r1,r1,48
bctr
END(_mcount)
/* Shift a limb right, low level routine.
- Copyright (C) 1995, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
cnt r6 */
ENTRY(__mpn_rshift)
- mtctr 5 # copy size into CTR
- addi 7,3,-4 # move adjusted res_ptr to free return reg
- subfic 8,6,32
- lwz 11,0(4) # load first s1 limb
- slw 3,11,8 # compute function return value
+ mtctr r5 # copy size into CTR
+ addi r7,r3,-4 # move adjusted res_ptr to free return reg
+ subfic r8,r6,32
+ lwz r11,0(r4) # load first s1 limb
+ slw r3,r11,r8 # compute function return value
bdz 1f
-0: lwzu 10,4(4)
- srw 9,11,6
- slw 12,10,8
- or 9,9,12
- stwu 9,4(7)
+0: lwzu r10,4(r4)
+ srw r9,r11,r6
+ slw r12,r10,r8
+ or r9,r9,r12
+ stwu r9,4(r7)
bdz 2f
- lwzu 11,4(4)
- srw 9,10,6
- slw 12,11,8
- or 9,9,12
- stwu 9,4(7)
+ lwzu r11,4(r4)
+ srw r9,r10,r6
+ slw r12,r11,r8
+ or r9,r9,r12
+ stwu r9,4(r7)
bdnz 0b
-1: srw 0,11,6
- stw 0,4(7)
+1: srw r0,r11,r6
+ stw r0,4(r7)
blr
-2: srw 0,10,6
- stw 0,4(7)
+2: srw r0,r10,r6
+ stw r0,4(r7)
blr
END(__mpn_rshift)
/* setjmp for PowerPC.
- Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
#include <bits/setjmp.h>
ENTRY (__sigsetjmp)
- stw %r1,(JB_GPR1*4)(3)
- mflr %r0
- stw %r2,(JB_GPR2*4)(3)
- stw %r14,((JB_GPRS+0)*4)(3)
- stfd %f14,((JB_FPRS+0*2)*4)(3)
- stw %r0,(JB_LR*4)(3)
- stw %r15,((JB_GPRS+1)*4)(3)
- stfd %f15,((JB_FPRS+1*2)*4)(3)
- mfcr %r0
- stw %r16,((JB_GPRS+2)*4)(3)
- stfd %f16,((JB_FPRS+2*2)*4)(3)
- stw %r0,(JB_CR*4)(3)
- stw %r17,((JB_GPRS+3)*4)(3)
- stfd %f17,((JB_FPRS+3*2)*4)(3)
- stw %r18,((JB_GPRS+4)*4)(3)
- stfd %f18,((JB_FPRS+4*2)*4)(3)
- stw %r19,((JB_GPRS+5)*4)(3)
- stfd %f19,((JB_FPRS+5*2)*4)(3)
- stw %r20,((JB_GPRS+6)*4)(3)
- stfd %f20,((JB_FPRS+6*2)*4)(3)
- stw %r21,((JB_GPRS+7)*4)(3)
- stfd %f21,((JB_FPRS+7*2)*4)(3)
- stw %r22,((JB_GPRS+8)*4)(3)
- stfd %f22,((JB_FPRS+8*2)*4)(3)
- stw %r23,((JB_GPRS+9)*4)(3)
- stfd %f23,((JB_FPRS+9*2)*4)(3)
- stw %r24,((JB_GPRS+10)*4)(3)
- stfd %f24,((JB_FPRS+10*2)*4)(3)
- stw %r25,((JB_GPRS+11)*4)(3)
- stfd %f25,((JB_FPRS+11*2)*4)(3)
- stw %r26,((JB_GPRS+12)*4)(3)
- stfd %f26,((JB_FPRS+12*2)*4)(3)
- stw %r27,((JB_GPRS+13)*4)(3)
- stfd %f27,((JB_FPRS+13*2)*4)(3)
- stw %r28,((JB_GPRS+14)*4)(3)
- stfd %f28,((JB_FPRS+14*2)*4)(3)
- stw %r29,((JB_GPRS+15)*4)(3)
- stfd %f29,((JB_FPRS+15*2)*4)(3)
- stw %r30,((JB_GPRS+16)*4)(3)
- stfd %f30,((JB_FPRS+16*2)*4)(3)
- stw %r31,((JB_GPRS+17)*4)(3)
- stfd %f31,((JB_FPRS+17*2)*4)(3)
+ stw r1,(JB_GPR1*4)(3)
+ mflr r0
+ stw r2,(JB_GPR2*4)(3)
+ stw r14,((JB_GPRS+0)*4)(3)
+ stfd f14,((JB_FPRS+0*2)*4)(3)
+ stw r0,(JB_LR*4)(3)
+ stw r15,((JB_GPRS+1)*4)(3)
+ stfd f15,((JB_FPRS+1*2)*4)(3)
+ mfcr r0
+ stw r16,((JB_GPRS+2)*4)(3)
+ stfd f16,((JB_FPRS+2*2)*4)(3)
+ stw r0,(JB_CR*4)(3)
+ stw r17,((JB_GPRS+3)*4)(3)
+ stfd f17,((JB_FPRS+3*2)*4)(3)
+ stw r18,((JB_GPRS+4)*4)(3)
+ stfd f18,((JB_FPRS+4*2)*4)(3)
+ stw r19,((JB_GPRS+5)*4)(3)
+ stfd f19,((JB_FPRS+5*2)*4)(3)
+ stw r20,((JB_GPRS+6)*4)(3)
+ stfd f20,((JB_FPRS+6*2)*4)(3)
+ stw r21,((JB_GPRS+7)*4)(3)
+ stfd f21,((JB_FPRS+7*2)*4)(3)
+ stw r22,((JB_GPRS+8)*4)(3)
+ stfd f22,((JB_FPRS+8*2)*4)(3)
+ stw r23,((JB_GPRS+9)*4)(3)
+ stfd f23,((JB_FPRS+9*2)*4)(3)
+ stw r24,((JB_GPRS+10)*4)(3)
+ stfd f24,((JB_FPRS+10*2)*4)(3)
+ stw r25,((JB_GPRS+11)*4)(3)
+ stfd f25,((JB_FPRS+11*2)*4)(3)
+ stw r26,((JB_GPRS+12)*4)(3)
+ stfd f26,((JB_FPRS+12*2)*4)(3)
+ stw r27,((JB_GPRS+13)*4)(3)
+ stfd f27,((JB_FPRS+13*2)*4)(3)
+ stw r28,((JB_GPRS+14)*4)(3)
+ stfd f28,((JB_FPRS+14*2)*4)(3)
+ stw r29,((JB_GPRS+15)*4)(3)
+ stfd f29,((JB_FPRS+15*2)*4)(3)
+ stw r30,((JB_GPRS+16)*4)(3)
+ stfd f30,((JB_FPRS+16*2)*4)(3)
+ stw r31,((JB_GPRS+17)*4)(3)
+ stfd f31,((JB_FPRS+17*2)*4)(3)
b JUMPTARGET(__sigjmp_save)
END (__sigsetjmp)
/* Optimized stpcpy implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
r9: ~(word in src | 0x7f7f7f7f)
r10: alternate word from src. */
- or %r0,%r4,%r3
- clrlwi. %r0,%r0,30
- addi %r3,%r3,-4
+ or r0,r4,r3
+ clrlwi. r0,r0,30
+ addi r3,r3,-4
bne L(unaligned)
- lis %r7,0xfeff
- lis %r8,0x7f7f
- lwz %r6,0(%r4)
- addi %r7,%r7,-0x101
- addi %r8,%r8,0x7f7f
+ lis r7,0xfeff
+ lis r8,0x7f7f
+ lwz r6,0(r4)
+ addi r7,r7,-0x101
+ addi r8,r8,0x7f7f
b 2f
-0: lwzu %r10,4(%r4)
- stwu %r6,4(%r3)
- add %r0,%r7,%r10
- nor %r9,%r8,%r10
- and. %r0,%r0,%r9
+0: lwzu r10,4(r4)
+ stwu r6,4(r3)
+ add r0,r7,r10
+ nor r9,r8,r10
+ and. r0,r0,r9
bne- 1f
- lwzu %r6,4(%r4)
- stwu %r10,4(%r3)
-2: add %r0,%r7,%r6
- nor %r9,%r8,%r6
- and. %r0,%r0,%r9
+ lwzu r6,4(r4)
+ stwu r10,4(r3)
+2: add r0,r7,r6
+ nor r9,r8,r6
+ and. r0,r0,r9
beq+ 0b
- mr %r10,%r6
+ mr r10,r6
/* We've hit the end of the string. Do the rest byte-by-byte. */
-1: rlwinm. %r0,%r10,8,24,31
- stbu %r0,4(%r3)
+1: rlwinm. r0,r10,8,24,31
+ stbu r0,4(r3)
beqlr-
- rlwinm. %r0,%r10,16,24,31
- stbu %r0,1(%r3)
+ rlwinm. r0,r10,16,24,31
+ stbu r0,1(r3)
beqlr-
- rlwinm. %r0,%r10,24,24,31
- stbu %r0,1(%r3)
+ rlwinm. r0,r10,24,24,31
+ stbu r0,1(r3)
beqlr-
- stbu %r10,1(%r3)
+ stbu r10,1(r3)
blr
/* Oh well. In this case, we just do a byte-by-byte copy. */
.align 4
nop
L(unaligned):
- lbz %r6,0(%r4)
- addi %r3,%r3,3
- cmpwi %r6,0
+ lbz r6,0(r4)
+ addi r3,r3,3
+ cmpwi r6,0
beq- 2f
-0: lbzu %r10,1(%r4)
- stbu %r6,1(%r3)
- cmpwi %r10,0
+0: lbzu r10,1(r4)
+ stbu r6,1(r3)
+ cmpwi r10,0
beq- 1f
nop /* Let 601 load start of loop. */
- lbzu %r6,1(%r4)
- stbu %r10,1(%r3)
- cmpwi %r6,0
+ lbzu r6,1(r4)
+ stbu r10,1(r3)
+ cmpwi r6,0
bne+ 0b
-2: stbu %r6,1(%r3)
+2: stbu r6,1(r3)
blr
-1: stbu %r10,1(%r3)
+1: stbu r10,1(r3)
blr
END(__stpcpy)
/* Optimized strchr implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
r11: a mask with the bits to ignore set to 0
r12: a temporary */
ENTRY(strchr)
- rlwimi %r4,%r4,8,16,23
- li %r11,-1
- rlwimi %r4,%r4,16,0,15
- lis %r6,0xfeff
- lis %r7,0x7f7f
- clrrwi %r8,%r3,2
- addi %r7,%r7,0x7f7f
- addi %r6,%r6,0xfffffeff
- rlwinm %r10,%r3,3,27,28
+ rlwimi r4,r4,8,16,23
+ li r11,-1
+ rlwimi r4,r4,16,0,15
+ lis r6,0xfeff
+ lis r7,0x7f7f
+ clrrwi r8,r3,2
+ addi r7,r7,0x7f7f
+ addi r6,r6,0xfffffeff
+ rlwinm r10,r3,3,27,28
/* Test the first (partial?) word. */
- lwz %r5,0(%r8)
- srw %r11,%r11,%r10
- orc %r5,%r5,%r11
- add %r0,%r6,%r5
- nor %r9,%r7,%r5
- and. %r0,%r0,%r9
- xor %r12,%r4,%r5
- orc %r12,%r12,%r11
+ lwz r5,0(r8)
+ srw r11,r11,r10
+ orc r5,r5,r11
+ add r0,r6,r5
+ nor r9,r7,r5
+ and. r0,r0,r9
+ xor r12,r4,r5
+ orc r12,r12,r11
b L(loopentry)
/* The loop. */
-L(loop):lwzu %r5,4(%r8)
- and. %r0,%r0,%r9
+L(loop):lwzu r5,4(r8)
+ and. r0,r0,r9
/* Test for 0. */
- add %r0,%r6,%r5
- nor %r9,%r7,%r5
+ add r0,r6,r5
+ nor r9,r7,r5
bne L(foundit)
- and. %r0,%r0,%r9
+ and. r0,r0,r9
/* Start test for the bytes we're looking for. */
- xor %r12,%r4,%r5
+ xor r12,r4,r5
L(loopentry):
- add %r0,%r6,%r12
- nor %r9,%r7,%r12
+ add r0,r6,r12
+ nor r9,r7,r12
beq L(loop)
/* There is a zero byte in the word, but may also be a matching byte (either
before or after the zero byte). In fact, we may be looking for a
zero byte, in which case we return a match. We guess that this hasn't
happened, though. */
L(missed):
- and. %r0,%r0,%r9
- li %r3,0
+ and. r0,r0,r9
+ li r3,0
beqlr
/* It did happen. Decide which one was first...
I'm not sure if this is actually faster than a sequence of
rotates, compares, and branches (we use it anyway because it's shorter). */
- and %r6,%r7,%r5
- or %r11,%r7,%r5
- and %r0,%r7,%r12
- or %r10,%r7,%r12
- add %r6,%r6,%r7
- add %r0,%r0,%r7
- nor %r5,%r11,%r6
- nor %r9,%r10,%r0
- cmplw %r5,%r9
+ and r6,r7,r5
+ or r11,r7,r5
+ and r0,r7,r12
+ or r10,r7,r12
+ add r6,r6,r7
+ add r0,r0,r7
+ nor r5,r11,r6
+ nor r9,r10,r0
+ cmplw r5,r9
bgtlr
- cntlzw %r4,%r9
- srwi %r4,%r4,3
- add %r3,%r8,%r4
+ cntlzw r4,r9
+ srwi r4,r4,3
+ add r3,r8,r4
blr
L(foundit):
- and %r0,%r7,%r12
- or %r10,%r7,%r12
- add %r0,%r0,%r7
- nor %r9,%r10,%r0
- cntlzw %r4,%r9
- subi %r8,%r8,4
- srwi %r4,%r4,3
- add %r3,%r8,%r4
+ and r0,r7,r12
+ or r10,r7,r12
+ add r0,r0,r7
+ nor r9,r10,r0
+ cntlzw r4,r9
+ subi r8,r8,4
+ srwi r4,r4,3
+ add r3,r8,r4
blr
END(strchr)
/* Optimized strcmp implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
r10: low 2 bits of p2-p1
r11: mask to orc with r5/r6 */
- or %r0,%r4,%r3
- clrlwi. %r0,%r0,30
- lis %r7,0xfeff
+ or r0,r4,r3
+ clrlwi. r0,r0,30
+ lis r7,0xfeff
bne L(unaligned)
- lwz %r5,0(%r3)
- lwz %r6,0(%r4)
- lis %r8,0x7f7f
- addi %r7,%r7,-0x101
- addi %r8,%r8,0x7f7f
+ lwz r5,0(r3)
+ lwz r6,0(r4)
+ lis r8,0x7f7f
+ addi r7,r7,-0x101
+ addi r8,r8,0x7f7f
b 1f
-0: lwzu %r5,4(%r3)
- bne %cr1,L(different)
- lwzu %r6,4(%r4)
-1: add %r0,%r7,%r5
- nor %r9,%r8,%r5
- and. %r0,%r0,%r9
- cmpw %cr1,%r5,%r6
+0: lwzu r5,4(r3)
+ bne cr1,L(different)
+ lwzu r6,4(r4)
+1: add r0,r7,r5
+ nor r9,r8,r5
+ and. r0,r0,r9
+ cmpw cr1,r5,r6
beq+ 0b
L(endstring):
/* OK. We've hit the end of the string. We need to be careful that
we don't compare two strings as different because of gunk beyond
the end of the strings... */
- and %r0,%r8,%r5
- beq %cr1,L(equal)
- add %r0,%r0,%r8
- xor. %r10,%r5,%r6
- andc %r9,%r9,%r0
+ and r0,r8,r5
+ beq cr1,L(equal)
+ add r0,r0,r8
+ xor. r10,r5,r6
+ andc r9,r9,r0
blt- L(highbit)
- cntlzw %r10,%r10
- cntlzw %r9,%r9
- addi %r9,%r9,7
- cmpw %cr1,%r9,%r10
- sub %r3,%r5,%r6
- bgelr+ %cr1
+ cntlzw r10,r10
+ cntlzw r9,r9
+ addi r9,r9,7
+ cmpw cr1,r9,r10
+ sub r3,r5,r6
+ bgelr+ cr1
L(equal):
- li %r3,0
+ li r3,0
blr
L(different):
- lwz %r5,-4(%r3)
- xor. %r10,%r5,%r6
- sub %r3,%r5,%r6
+ lwz r5,-4(r3)
+ xor. r10,r5,r6
+ sub r3,r5,r6
bgelr+
L(highbit):
- ori %r3,%r6,1
+ ori r3,r6,1
blr
/* Oh well. In this case, we just do a byte-by-byte comparison. */
.align 4
L(unaligned):
- lbz %r5,0(%r3)
- lbz %r6,0(%r4)
+ lbz r5,0(r3)
+ lbz r6,0(r4)
b 1f
-0: lbzu %r5,1(%r3)
+0: lbzu r5,1(r3)
bne- 4f
- lbzu %r6,1(%r4)
-1: cmpwi %cr1,%r5,0
- beq- %cr1,3f
- cmpw %r5,%r6
+ lbzu r6,1(r4)
+1: cmpwi cr1,r5,0
+ beq- cr1,3f
+ cmpw r5,r6
bne- 3f
- lbzu %r5,1(%r3)
- lbzu %r6,1(%r4)
- cmpwi %cr1,%r5,0
- cmpw %r5,%r6
- bne+ %cr1,0b
-3: sub %r3,%r5,%r6
+ lbzu r5,1(r3)
+ lbzu r6,1(r4)
+ cmpwi cr1,r5,0
+ cmpw r5,r6
+ bne+ cr1,0b
+3: sub r3,r5,r6
blr
-4: lbz %r5,-1(%r3)
- sub %r3,%r5,%r6
+4: lbz r5,-1(r3)
+ sub r3,r5,r6
blr
END(strcmp)
/* Optimized strcpy implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
r9: ~(word in src | 0x7f7f7f7f)
r10: alternate word from src. */
- or %r0,%r4,%r3
- clrlwi. %r0,%r0,30
- addi %r5,%r3,-4
+ or r0,r4,r3
+ clrlwi. r0,r0,30
+ addi r5,r3,-4
bne L(unaligned)
- lis %r7,0xfeff
- lis %r8,0x7f7f
- lwz %r6,0(%r4)
- addi %r7,%r7,-0x101
- addi %r8,%r8,0x7f7f
+ lis r7,0xfeff
+ lis r8,0x7f7f
+ lwz r6,0(r4)
+ addi r7,r7,-0x101
+ addi r8,r8,0x7f7f
b 2f
-0: lwzu %r10,4(%r4)
- stwu %r6,4(%r5)
- add %r0,%r7,%r10
- nor %r9,%r8,%r10
- and. %r0,%r0,%r9
+0: lwzu r10,4(r4)
+ stwu r6,4(r5)
+ add r0,r7,r10
+ nor r9,r8,r10
+ and. r0,r0,r9
bne- 1f
- lwzu %r6,4(%r4)
- stwu %r10,4(%r5)
-2: add %r0,%r7,%r6
- nor %r9,%r8,%r6
- and. %r0,%r0,%r9
+ lwzu r6,4(r4)
+ stwu r10,4(r5)
+2: add r0,r7,r6
+ nor r9,r8,r6
+ and. r0,r0,r9
beq+ 0b
- mr %r10,%r6
+ mr r10,r6
/* We've hit the end of the string. Do the rest byte-by-byte. */
-1: rlwinm. %r0,%r10,8,24,31
- stb %r0,4(%r5)
+1: rlwinm. r0,r10,8,24,31
+ stb r0,4(r5)
beqlr-
- rlwinm. %r0,%r10,16,24,31
- stb %r0,5(%r5)
+ rlwinm. r0,r10,16,24,31
+ stb r0,5(r5)
beqlr-
- rlwinm. %r0,%r10,24,24,31
- stb %r0,6(%r5)
+ rlwinm. r0,r10,24,24,31
+ stb r0,6(r5)
beqlr-
- stb %r10,7(%r5)
+ stb r10,7(r5)
blr
/* Oh well. In this case, we just do a byte-by-byte copy. */
.align 4
nop
L(unaligned):
- lbz %r6,0(%r4)
- addi %r5,%r3,-1
- cmpwi %r6,0
+ lbz r6,0(r4)
+ addi r5,r3,-1
+ cmpwi r6,0
beq- 2f
-0: lbzu %r10,1(%r4)
- stbu %r6,1(%r5)
- cmpwi %r10,0
+0: lbzu r10,1(r4)
+ stbu r6,1(r5)
+ cmpwi r10,0
beq- 1f
nop /* Let 601 load start of loop. */
- lbzu %r6,1(%r4)
- stbu %r10,1(%r5)
- cmpwi %r6,0
+ lbzu r6,1(r4)
+ stbu r10,1(r5)
+ cmpwi r6,0
bne+ 0b
-2: stb %r6,1(%r5)
+2: stb r6,1(r5)
blr
-1: stb %r10,1(%r5)
+1: stb r10,1(r5)
blr
END(strcpy)
/* Optimized strlen implementation for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
start at a word boundary. r8 holds the 'current' word.
r9-12 are temporaries. r0 is used as a temporary and for discarded
results. */
- clrrwi %r4,%r3,2
- lis %r7,0x7f7f
- rlwinm %r5,%r3,3,27,28
- lwz %r8,0(%r4)
- li %r9,-1
- addi %r7,%r7,0x7f7f
+ clrrwi r4,r3,2
+ lis r7,0x7f7f
+ rlwinm r5,r3,3,27,28
+ lwz r8,0(r4)
+ li r9,-1
+ addi r7,r7,0x7f7f
/* That's the setup done, now do the first pair of words.
We make an exception and use method (2) on the first two words, to reduce
overhead. */
- srw %r9,%r9,%r5
- and %r0,%r7,%r8
- or %r10,%r7,%r8
- add %r0,%r0,%r7
- nor %r0,%r10,%r0
- and. %r8,%r0,%r9
- mtcrf 0x01,%r3
+ srw r9,r9,r5
+ and r0,r7,r8
+ or r10,r7,r8
+ add r0,r0,r7
+ nor r0,r10,r0
+ and. r8,r0,r9
+ mtcrf 0x01,r3
bne L(done0)
- lis %r6,0xfeff
- addi %r6,%r6,-0x101
+ lis r6,0xfeff
+ addi r6,r6,-0x101
/* Are we now aligned to a doubleword boundary? */
bt 29,L(loop)
/* Handle second word of pair. */
- lwzu %r8,4(%r4)
- and %r0,%r7,%r8
- or %r10,%r7,%r8
- add %r0,%r0,%r7
- nor. %r8,%r10,%r0
+ lwzu r8,4(r4)
+ and r0,r7,r8
+ or r10,r7,r8
+ add r0,r0,r7
+ nor. r8,r10,r0
bne L(done0)
/* The loop. */
L(loop):
- lwz %r8,4(%r4)
- lwzu %r9,8(%r4)
- add %r0,%r6,%r8
- nor %r10,%r7,%r8
- and. %r0,%r0,%r10
- add %r11,%r6,%r9
- nor %r12,%r7,%r9
+ lwz r8,4(r4)
+ lwzu r9,8(r4)
+ add r0,r6,r8
+ nor r10,r7,r8
+ and. r0,r0,r10
+ add r11,r6,r9
+ nor r12,r7,r9
bne L(done1)
- and. %r0,%r11,%r12
+ and. r0,r11,r12
beq L(loop)
- and %r0,%r7,%r9
- add %r0,%r0,%r7
- andc %r8,%r12,%r0
+ and r0,r7,r9
+ add r0,r0,r7
+ andc r8,r12,r0
b L(done0)
L(done1):
- and %r0,%r7,%r8
- subi %r4,%r4,4
- add %r0,%r0,%r7
- andc %r8,%r10,%r0
+ and r0,r7,r8
+ subi r4,r4,4
+ add r0,r0,r7
+ andc r8,r10,r0
/* When we get to here, r4 points to the first word in the string that
contains a zero byte, and the most significant set bit in r8 is in that
byte. */
L(done0):
- cntlzw %r11,%r8
- subf %r0,%r3,%r4
- srwi %r11,%r11,3
- add %r3,%r0,%r11
+ cntlzw r11,r8
+ subf r0,r3,r4
+ srwi r11,r11,3
+ add r3,r0,r11
blr
END(strlen)
/* Subtract two limb vectors of equal, non-zero length for PowerPC.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
EALIGN(__mpn_sub_n,3,1)
/* Set up for loop below. */
- mtcrf 0x01,%r6
- srwi. %r7,%r6,1
- mtctr %r7
+ mtcrf 0x01,r6
+ srwi. r7,r6,1
+ mtctr r7
bt 31,2f
/* Set the carry (clear the borrow). */
- subfc %r0,%r0,%r0
+ subfc r0,r0,r0
/* Adjust pointers for loop. */
- addi %r3,%r3,-4
- addi %r4,%r4,-4
- addi %r5,%r5,-4
+ addi r3,r3,-4
+ addi r4,r4,-4
+ addi r5,r5,-4
b 0f
-2: lwz %r7,0(%r5)
- lwz %r6,0(%r4)
- subfc %r6,%r7,%r6
- stw %r6,0(%r3)
+2: lwz r7,0(r5)
+ lwz r6,0(r4)
+ subfc r6,r7,r6
+ stw r6,0(r3)
beq 1f
/* Align start of loop to an odd word boundary to guarantee that the
last two words can be fetched in one access (for 601). This turns
out to be important. */
0:
- lwz %r9,4(%r4)
- lwz %r8,4(%r5)
- lwzu %r6,8(%r4)
- lwzu %r7,8(%r5)
- subfe %r8,%r8,%r9
- stw %r8,4(%r3)
- subfe %r6,%r7,%r6
- stwu %r6,8(%r3)
+ lwz r9,4(r4)
+ lwz r8,4(r5)
+ lwzu r6,8(r4)
+ lwzu r7,8(r5)
+ subfe r8,r8,r9
+ stw r8,4(r3)
+ subfe r6,r7,r6
+ stwu r6,8(r3)
bdnz 0b
/* Return the borrow. */
-1: subfe %r3,%r3,%r3
- neg %r3,%r3
+1: subfe r3,r3,r3
+ neg r3,r3
blr
END(__mpn_sub_n)
/* Multiply a limb vector by a single limb, for PowerPC.
- Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1995, 1997, 1999 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
Calculate res-s1*s2 and put result back in res; return carry. */
ENTRY(__mpn_submul_1)
- mtctr %r5
-
- lwz %r0,0(%r4)
- mullw %r7,%r0,%r6
- mulhwu %r10,%r0,%r6
- lwz %r9,0(%r3)
- subf %r8,%r7,%r9
- addc %r7,%r7,%r8 # invert cy (r7 is junk)
- addi %r3,%r3,-4 # adjust res_ptr
+ mtctr r5
+
+ lwz r0,0(r4)
+ mullw r7,r0,r6
+ mulhwu r10,r0,r6
+ lwz r9,0(r3)
+ subf r8,r7,r9
+ addc r7,r7,r8 # invert cy (r7 is junk)
+ addi r3,r3,-4 # adjust res_ptr
bdz 1f
-0: lwzu %r0,4(%r4)
- stwu %r8,4(%r3)
- mullw %r8,%r0,%r6
- adde %r7,%r8,%r10
- mulhwu %r10,%r0,%r6
- lwz %r9,4(%r3)
- addze %r10,%r10
- subf %r8,%r7,%r9
- addc %r7,%r7,%r8 # invert cy (r7 is junk)
+0: lwzu r0,4(r4)
+ stwu r8,4(r3)
+ mullw r8,r0,r6
+ adde r7,r8,r10
+ mulhwu r10,r0,r6
+ lwz r9,4(r3)
+ addze r10,r10
+ subf r8,r7,r9
+ addc r7,r7,r8 # invert cy (r7 is junk)
bdnz 0b
-1: stw %r8,4(%r3)
- addze %r3,%r10
+1: stw r8,4(r3)
+ addze r3,r10
blr
END(__mpn_submul_1)
projects / external / glibc.git / commitdiff