about summary refs log tree commit diff
path: root/sysdeps/s390/addmul_1.S
diff options
context:
space:
mode:
authorAndreas Jaeger <aj@suse.de>2000-08-02 15:15:00 +0000
committerAndreas Jaeger <aj@suse.de>2000-08-02 15:15:00 +0000
commit847b055c6567cbe6e154b2006a0a77ed0f48d623 (patch)
treedda802aa998b6d196d48893932488d2906724f5d /sysdeps/s390/addmul_1.S
parent9016e55cb809f98e9fd890010ca1eaf35fd616a2 (diff)
downloadglibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.tar.gz
glibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.tar.xz
glibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.zip
Update.
2000-08-02  Andreas Jaeger  <aj@suse.de>

	* sysdeps/unix/sysv/linux/s390/Dist: New file.
	* sysdeps/unix/sysv/linux/s390/sysdep.h: New file.
	* sysdeps/unix/sysv/linux/s390/sysdep.S: New file.
	* sysdeps/unix/sysv/linux/s390/syscall.S: New file.
	* sysdeps/unix/sysv/linux/s390/sys/user.h: New file.
	* sysdeps/unix/sysv/linux/s390/sys/ucontext.h: New file.
	* sysdeps/unix/sysv/linux/s390/sys/ptrace.h: New file.
	* sysdeps/unix/sysv/linux/s390/sys/elf.h: New file.
	* sysdeps/unix/sysv/linux/s390/socket.S: New file.
	* sysdeps/unix/sysv/linux/s390/sigcontextinfo.h: New file.
	* sysdeps/unix/sysv/linux/s390/shmctl.c: New file.
	* sysdeps/unix/sysv/linux/s390/setreuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setresuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setresgid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setregid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setgroups.c: New file.
	* sysdeps/unix/sysv/linux/s390/setgid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setfsuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setfsgid.c: New file.
	* sysdeps/unix/sysv/linux/s390/seteuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/setegid.c: New file.
	* sysdeps/unix/sysv/linux/s390/semctl.c: New file.
	* sysdeps/unix/sysv/linux/s390/register-dump.h: New file.
	* sysdeps/unix/sysv/linux/s390/putpmsg.c: New file.
	* sysdeps/unix/sysv/linux/s390/putmsg.c: New file.
	* sysdeps/unix/sysv/linux/s390/profil-counter.h: New file.
	* sysdeps/unix/sysv/linux/s390/msgctl.c: New file.
	* sysdeps/unix/sysv/linux/s390/mmap.S: New file.
	* sysdeps/unix/sysv/linux/s390/getuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/getresuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/getresgid.c: New file.
	* sysdeps/unix/sysv/linux/s390/getpmsg.c: New file.
	* sysdeps/unix/sysv/linux/s390/getmsg.c: New file.
	* sysdeps/unix/sysv/linux/s390/getgroups.c: New file.
	* sysdeps/unix/sysv/linux/s390/getegid.c: New file.
	* sysdeps/unix/sysv/linux/s390/geteuid.c: New file.
	* sysdeps/unix/sysv/linux/s390/fchown.c: New file.
	* sysdeps/unix/sysv/linux/s390/clone.S: New file.
	* sysdeps/unix/sysv/linux/s390/brk.c: New file.
	* sysdeps/unix/sysv/linux/s390/bits/time.h: New file.
	* sysdeps/unix/sysv/linux/s390/bits/resource.h: New file.
	* sysdeps/unix/sysv/linux/s390/bits/mman.h: New file.
	* sysdeps/unix/sysv/linux/s390/bits/fcntl.h: New file.
	* sysdeps/unix/sysv/linux/s390/Makefile: New file.
	* sysdeps/s390/sysdep.h: New file.
	* sysdeps/s390/sys/ucontext.h: New file.
	* sysdeps/s390/sub_n.S: New file.
	* sysdeps/s390/strncpy.S: New file.
	* sysdeps/s390/strcpy.S: New file.
	* sysdeps/s390/stackinfo.h: New file.
	* sysdeps/s390/setjmp.S: New file.
	* sysdeps/s390/s390-mcount.S: New file.
	* sysdeps/s390/mul_1.S: New file.
	* sysdeps/s390/memusage.h: New file.
	* sysdeps/s390/memset.S: New file.
	* sysdeps/s390/memcpy.S: New file.
	* sysdeps/s390/memchr.S: New file.
	* sysdeps/s390/machine-gmon.h: New file.
	* sysdeps/s390/ldbl2mpn.c: New file.
	* sysdeps/s390/gmp-mparam.h: New file.
	* sysdeps/s390/fpu/fpu_control.h: New file.
	* sysdeps/s390/fpu/fesetround.c: New file.
	* sysdeps/s390/fpu/fegetround.c: New file.
	* sysdeps/s390/fpu/fclrexcpt.c: New file.
	* sysdeps/s390/fpu/bits/fenv.h: New file.
	* sysdeps/s390/ffs.c: New file.
	* sysdeps/s390/elf/start.S: New file.
	* sysdeps/s390/elf/setjmp.S: New file.
	* sysdeps/s390/elf/bsd-setjmp.S: New file.
	* sysdeps/s390/elf/bsd-_setjmp.S: New file.
	* sysdeps/s390/dl-machine.h: New file.
	* sysdeps/s390/bzero.S: New file.
	* sysdeps/s390/bsd-setjmp.S: New file.
	* sysdeps/s390/bsd-_setjmp.S: New file.
	* sysdeps/s390/bits/string.h: New file.
	* sysdeps/s390/bits/setjmp.h: New file.
	* sysdeps/s390/bits/huge_val.h: New file.
	* sysdeps/s390/bits/endian.h: New file.
	* sysdeps/s390/bits/byteswap.h: New file.
	* sysdeps/s390/bcopy.S: New file.
	* sysdeps/s390/backtrace.c: New file.
	* sysdeps/s390/atomicity.h: New file.
	* sysdeps/s390/asm-syntax.h: New file.
	* sysdeps/s390/addmul_1.S: New file.
	* sysdeps/s390/add_n.S: New file.
	* sysdeps/s390/abort-instr.h: New file.
	* sysdeps/s390/__longjmp.c: New file.
	* sysdeps/s390/Makefile: New file.
	* sysdeps/s390/Implies: New file.
	* sysdeps/s390/Dist: New file.
	Patches by Martin Schwidefsky <schwidefsky@de.ibm.com>.
Diffstat (limited to 'sysdeps/s390/addmul_1.S')
-rw-r--r--sysdeps/s390/addmul_1.S58
1 files changed, 58 insertions, 0 deletions
diff --git a/sysdeps/s390/addmul_1.S b/sysdeps/s390/addmul_1.S
new file mode 100644
index 0000000000..c98a4c1524
--- /dev/null
+++ b/sysdeps/s390/addmul_1.S
@@ -0,0 +1,58 @@
+/* S390 __mpn_addmul_1 -- Multiply a limb vector with a limb and add
+   the result to a second limb vector.
+   Copyright (C) 2000 Free Software Foundation, Inc.
+   Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
+   This file is part of the GNU MP Library.
+
+   The GNU MP Library is free software; you can redistribute it and/or modify
+   it under the terms of the GNU Library General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or (at your
+   option) any later version.
+
+   The GNU MP Library is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
+   License for more details.
+
+   You should have received a copy of the GNU Library General Public License
+   along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+   MA 02111-1307, USA. */
+
+/*
+   INPUT PARAMETERS
+   res_ptr	%r2
+   s1_ptr	%r3
+   sizeP	%r4
+   s2_limb	%r5
+*/
+
+#include "sysdep.h"
+#include "asm-syntax.h"
+
+	.text
+ENTRY(__mpn_addmul_1)
+	st     %r6,24(%r15)
+	slr    %r6,%r6            # cy_limb = 0
+.L0:	icm    %r1,15,0(%r3)      # get s1_ptr[i]
+	mr     %r0,%r5            # umul_ppmm(prod_high,prod_low,s1_ptr[j],s2_limb)
+	jnm    .L1
+	alr    %r0,%r5
+.L1:	ltr    %r5,%r5
+	jnm    .L2
+	al     %r0,0(%r3)
+.L2:	alr    %r1,%r6            # prod_low += cy_limb
+	lr     %r6,%r0            # cy_limb = prod_high
+	brc    12,.L3
+	ahi    %r6,1              #           + (prod_low < cy_limb)
+.L3:	al     %r1,0(%r2)         # prod_low += res_ptr[i]
+	brc    12,.L4
+	ahi    %r6,1              # cy_limb++
+.L4:	st     %r1,0(%r2)
+	la     %r2,4(0,%r2)
+	la     %r3,4(0,%r3)
+	brct   %r4,.L0
+        lr     %r2,%r6            # return cy_limb
+	l      %r6,24(%r15)
+.Lexit:	br     %r14
+END(__mpn_addmul_1)