aboutsummaryrefslogtreecommitdiff
path: root/sysdeps/s390/sub_n.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/sub_n.S
parent9016e55cb809f98e9fd890010ca1eaf35fd616a2 (diff)
downloadglibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.zip
glibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.tar.gz
glibc-847b055c6567cbe6e154b2006a0a77ed0f48d623.tar.bz2
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/sub_n.S')
-rw-r--r--sysdeps/s390/sub_n.S62
1 files changed, 62 insertions, 0 deletions
diff --git a/sysdeps/s390/sub_n.S b/sysdeps/s390/sub_n.S
new file mode 100644
index 0000000..5eee0fb
--- /dev/null
+++ b/sysdeps/s390/sub_n.S
@@ -0,0 +1,62 @@
+/* i80386 __mpn_sub_n -- Add two limb vectors of the same length > 0 and store
+ sum in a third 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
+ s2_ptr %r4
+ size %r5
+*/
+
+#include "sysdep.h"
+#include "asm-syntax.h"
+
+ENTRY(__mpn_sub_n)
+ st %r6,24(%r15) # save register 6
+ sr %r1,%r1
+ lhi %r0,1 # cannot use ahi to add carry, use slr
+.L0: l %r6,0(%r1,%r3) # .L0 -> no carry from last sub
+ sl %r6,0(%r1,%r4)
+ st %r6,0(%r1,%r2)
+ la %r1,4(0,%r1)
+ brc 4,.L3
+.L1: brct %r5,.L0
+ slr %r2,%r2 # no last carry to return
+ j .Lexit
+.L2: l %r6,0(%r1,%r3) # .L2 -> carry from last sub
+ sl %r6,0(%r1,%r4)
+ brc 4,.L4
+ slr %r6,%r0 # no carry yet, add carry from last sub
+ st %r6,0(%r1,%r2)
+ la %r1,4(0,%r1)
+ brc 11,.L1 # new carry ?
+.L3: brct %r5,.L2
+ lr %r2,%r0 # return last carry
+ j .Lexit
+.L4: slr %r6,%r0 # already a carry, add carry from last sub
+ st %r6,0(%r1,%r2)
+ la %r1,4(0,%r1)
+ brct %r5,.L2
+ lr %r2,%r0 # return last carry
+.Lexit: l %r6,24(%r15) # restore register 6
+ br %r14
+END(__mpn_sub_n)