From: Ulrich Drepper <drepper@redhat.com>
Date: Thu, 17 Jan 2002 22:56:53 +0000 (+0000)
Subject: Use 64 bit instructions for pointer operations.
X-Git-Tag: cvs/glibc-2-3~1205
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cec75f99463ccf4351e3c599f815530e31f1bfd5;p=thirdparty%2Fglibc.git

Use 64 bit instructions for pointer operations.
---

diff --git a/sysdeps/unix/sysv/linux/s390/s390-64/getcontext.S b/sysdeps/unix/sysv/linux/s390/s390-64/getcontext.S
index 314df282cef..5a0d7eca5d5 100644
--- a/sysdeps/unix/sysv/linux/s390/s390-64/getcontext.S
+++ b/sysdeps/unix/sysv/linux/s390/s390-64/getcontext.S
@@ -36,7 +36,7 @@ ENTRY(__getcontext)
 
 	/* sigprocmask (SIG_BLOCK, NULL, &sc->sc_mask).  */
 	la      %r2,SIG_BLOCK
-	slr	%r3,%r3
+	slgr	%r3,%r3
 	la	%r4,SC_MASK(%r5)
 	svc	SYS_ify(rt_sigprocmask)
 
@@ -60,7 +60,7 @@ ENTRY(__getcontext)
 	std     %f15,SC_FPRS+120(%r5)
 
 	/* Set __getcontext return value to 0.  */
-	slr     %r2,%r2
+	slgr    %r2,%r2
 
 	/* Store access registers.  */
 	stam    %a0,%a15,SC_ACRS(%r5)
diff --git a/sysdeps/unix/sysv/linux/s390/s390-64/swapcontext.S b/sysdeps/unix/sysv/linux/s390/s390-64/swapcontext.S
index 55a9aa135cc..ef2a862c553 100644
--- a/sysdeps/unix/sysv/linux/s390/s390-64/swapcontext.S
+++ b/sysdeps/unix/sysv/linux/s390/s390-64/swapcontext.S
@@ -34,12 +34,12 @@
   other than the PRESERVED state.  */
 
 ENTRY(__swapcontext)
-	lr	%r1,%r2
-	lr      %r5,%r3
+	lgr	%r1,%r2
+	lgr      %r5,%r3
 
 	/* sigprocmask (SIG_BLOCK, NULL, &sc->sc_mask).  */
 	la      %r2,SIG_BLOCK
-	slr	%r3,%r3
+	slgr	%r3,%r3
 	la	%r4,SC_MASK(%r1)
 	svc	SYS_ify(rt_sigprocmask)
 
@@ -63,7 +63,7 @@ ENTRY(__swapcontext)
 	std     %f15,SC_FPRS+120(%r1)
 
 	/* Set __swapcontext return value to 0.  */
-	slr     %r2,%r2
+	slgr     %r2,%r2
 
 	/* Store access registers.  */
 	stam    %a0,%a15,SC_ACRS(%r1)