From: Nathaniel Wesley Filardo <nwfilardo@gmail.com>
Date: Mon, 13 Oct 2014 05:02:41 +0000 (-0400)
Subject: Stylistic tweak lwp/process.o machinery
X-Git-Tag: upstream/1.8.0_pre1^2~489
X-Git-Url: https://git.michaelhowe.org/gitweb/?a=commitdiff_plain;h=d9a39f3580484a0818f2169f6db38fc685afda80;p=packages%2Fo%2Fopenafs.git

Stylistic tweak lwp/process.o machinery

Rename process.s to process.default.s so that the name "process.s" is free
for use, and switch to using that as the ephemeral file name.  This enables
the use of gcc for ${AS}, despite gcc's ignoring files with extensions that
it does not recognize.

Change-Id: Idc0716547770fe4fc94bc3fa2c223966f3f76c3b
Reviewed-on: http://gerrit.openafs.org/11535
Tested-by: BuildBot <buildbot@rampaginggeek.com>
Reviewed-by: Benjamin Kaduk <kaduk@mit.edu>
Reviewed-by: Chas Williams - CONTRACTOR <chas@cmf.nrl.navy.mil>
Reviewed-by: D Brashear <shadow@your-file-system.com>
---

diff --git a/src/lwp/Makefile.in b/src/lwp/Makefile.in
index 5b2cbde76..d65ac5a24 100644
--- a/src/lwp/Makefile.in
+++ b/src/lwp/Makefile.in
@@ -57,28 +57,34 @@ liblwpcompat_pic.la: $(LT_objs)
 	$(LT_LDLIB_pic) $(LT_objs)
 
 # This is required so sgi_64+ does not try to build this file.
-process.s:
-	@echo Nothing to be done for process.s
+process.default.s:
+	@echo Nothing to be done for process.default.s
 
 # Making process.o for $(SYS_NAME)
-process.o	: process.s process.i386.s process.amd64.s process.c lwp.o
+# The files "process.s" and "process.S" may be used internally,
+# but will be removed after building the .o
+process.o	: process.default.s process.i386.s process.amd64.s process.c lwp.o
 	@set -x; case "$(SYS_NAME)" in \
 	sun4c_51 | sun4c_52 | sun4m_51 | sun4m_52 | sun4c_53 | sun4m_53  | sun4_53 | sun4_52 | sun4_54 | sun4c_54 | sun4m_54 | sun4x_5* | arm_linux* ) \
-		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s > process.ss; \
-		${AS} process.ss -o process.o; \
-			$(RM) process.ss ;; \
+		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.default.s > process.s; \
+		${AS} process.s -o process.o; \
+			$(RM) process.s ;; \
 	sgi_5* ) \
-		$(CCOBJ) ${LWP_DBG} ${LWP_OPTMZ} -c -I${TOP_INCDIR} -KPIC -G0  ${srcdir}/process.s;; \
+		cp ${srcdir}/process.default.s process.s ; \
+		$(CCOBJ) ${LWP_DBG} ${LWP_OPTMZ} -c -I${TOP_INCDIR} -KPIC -G0  process.s; \
+		$(RM) -f process.s ;;\
 	sgi_61 | sgi_62 | sgi_63 ) \
-		$(CCOBJ) ${LWP_DBG} ${LWP_OPTMZ} -c ${XCFLAGS} ${ARCHFLAGS} -I${TOP_INCDIR} -KPIC -G0  ${srcdir}/process.s;; \
+		cp ${srcdir}/process.default.s process.s ; \
+		$(CCOBJ) ${LWP_DBG} ${LWP_OPTMZ} -c ${XCFLAGS} ${ARCHFLAGS} -I${TOP_INCDIR} -KPIC -G0  process.s; \
+		$(RM) -f process.s ;;\
 	s390_*) \
-		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s390.s >process.ss; \
-		${AS} -ahlns process.ss -o process.o >process.lst; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s390.s >process.s; \
+		${AS} -ahlns process.s -o process.o >process.lst; \
+		$(RM) process.s ;; \
 	s390x_*) \
-		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s390x.s >process.ss; \
-		${AS} -ahlns process.ss -o process.o >process.lst; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s390x.s >process.s; \
+		${AS} -ahlns process.s -o process.o >process.lst; \
+		$(RM) process.s ;; \
 	*_darwin* ) \
 		$(RM) -f process.o ; \
 		CURRENTBUILDARCH="${ARCHFLAGS}"; \
@@ -98,19 +104,19 @@ process.o	: process.s process.i386.s process.amd64.s process.c lwp.o
 			fi ; \
 		fi ; \
 		if [ -n "$${armv6}" ] ; then \
-			$(CC) -x assembler-with-cpp -c -arch armv6 -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.s -o "$${armv6}" ; \
+			$(CC) -x assembler-with-cpp -c -arch armv6 -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.default.s -o "$${armv6}" ; \
 			if [ -z "$${i386}" -a -z "$${amd64}" -a -z "$${ppc}" -a -z "$${armv7}" ] ; then \
 				${MV} "$${armv6}" process.o ; \
 			fi ; \
 		fi ; \
 		if [ -n "$${armv7}" ] ; then \
-			$(CC) -x assembler-with-cpp -c -arch armv7 -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.s -o "$${armv7}" ; \
+			$(CC) -x assembler-with-cpp -c -arch armv7 -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.default.s -o "$${armv7}" ; \
 			if [ -z "$${i386}" -a -z "$${amd64}" -a -z "$${ppc}" -a -z "$${armv6}" ] ; then \
 				${MV} "$${armv7}" process.o ; \
 			fi ; \
 		fi ; \
 		if [ -n "$${ppc}" ] ; then \
-			$(CC) ${LWP_DBG} ${LWP_OPTMZ} -c -arch ppc -I${TOP_INCDIR} ${srcdir}/process.s -o "$${ppc}" ; \
+			$(CC) ${LWP_DBG} ${LWP_OPTMZ} -c -arch ppc -I${TOP_INCDIR} ${srcdir}/process.default.s -o "$${ppc}" ; \
 			if [ -z "$${i386}" -a -z "$${amd64}" -a -z "$${armv6}" -a -z "$${armv7}" ] ; then \
 				${MV} "$${ppc}" process.o ; \
 			fi ; \
@@ -132,18 +138,18 @@ process.o	: process.s process.i386.s process.amd64.s process.c lwp.o
 		fi ;; \
 	i386_*bsd*) \
 		cp ${srcdir}/process.i386.s process.S ; \
-		${CCOBJ} -DIGNORE_STDS_H -E -I${srcdir} -I${TOP_INCDIR} process.S > process.ss ; \
-		${AS} process.ss -o process.o ;  \
-		$(RM) -f process.S ;;\
+		${CCOBJ} -DIGNORE_STDS_H -E -I${srcdir} -I${TOP_INCDIR} process.S > process.s ; \
+		${AS} process.s -o process.o ;  \
+		$(RM) -f process.s process.S ;;\
 	amd64_*bsd*) \
 		cp ${srcdir}/process.amd64.s process.S ; \
-		${CCOBJ} -DIGNORE_STDS_H -E -I${srcdir} -I${TOP_INCDIR} process.S > process.ss ; \
-		${AS} process.ss -o process.o ;  \
-		$(RM) -f process.S ;;\
+		${CCOBJ} -DIGNORE_STDS_H -E -I${srcdir} -I${TOP_INCDIR} process.S > process.s ; \
+		${AS} process.s -o process.o ;  \
+		$(RM) -f process.s process.S ;;\
 	ncrx86_* | sunx86_58 | sunx86_59 ) \
-		$(PATH_CPP) -P -D__sun -D__i386 -DIGNORE_STDS_H -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.i386.s > process.ss; \
-		${AS} -o process.o process.ss; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -P -D__sun -D__i386 -DIGNORE_STDS_H -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.i386.s > process.s; \
+		${AS} -o process.o process.s; \
+		$(RM) process.s ;; \
 	sunx86_510 | sunx86_511) \
 		if [ "${ASFLAGS}" = "-m64" ] ; then \
 			CURRENTBUILDARCH=amd64 ; \
@@ -151,28 +157,28 @@ process.o	: process.s process.i386.s process.amd64.s process.c lwp.o
 			XCPPFLAGS="-D__i386" ; \
 			CURRENTBUILDARCH=i386 ; \
 		fi ; \
-		$(PATH_CPP) $${XCPPFLAGS} -P -D__sun -DIGNORE_STDS_H -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.$${CURRENTBUILDARCH}.s > process.ss ; \
-		${AS} ${ASFLAGS} -o process.o process.ss ; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) $${XCPPFLAGS} -P -D__sun -DIGNORE_STDS_H -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.$${CURRENTBUILDARCH}.s > process.s ; \
+		${AS} ${ASFLAGS} -o process.o process.s ; \
+		$(RM) process.s ;; \
 	alpha_nbsd* ) \
-		$(PATH_CPP) -DASSEMBLER -P -I${TOP_INCDIR} ${srcdir}/process.s > process.ss; \
-		${AS} -o process.o process.ss; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -DASSEMBLER -P -I${TOP_INCDIR} ${srcdir}/process.default.s > process.s; \
+		${AS} -o process.o process.s; \
+		$(RM) process.s ;; \
 	hp* | *_linux* | *_umlinux* | sgi_64 | sgi_65 ) \
 		$(AFS_CCRULE_NOQ) -c ${srcdir}/process.c;; \
 	alpha_osf1 | alpha_osf20 |  alpha_osf30 | alpha_osf32 | alpha_osf32c | alpha_dux?? ) \
-		${AS} -v  -P -DOSF -I${TOP_INCDIR} -DASSEMBLER ${srcdir}/process.s; \
+		${AS} -v  -P -DOSF -I${TOP_INCDIR} -DASSEMBLER ${srcdir}/process.default.s; \
 		${AS} -v process.i -o process.o;; \
 	ia64_hpux11* | hp_ux11* ) \
 		$(AFS_CCRULE_NOQ) -c ${srcdir}/process.c;; \
 	i386_*) \
-		$(PATH_CPP) -P -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.i386.s > process.ss; \
-		${AS} process.ss -o process.o; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -P -I${TOP_INCDIR} -I${srcdir} ${srcdir}/process.i386.s > process.s; \
+		${AS} process.s -o process.o; \
+		$(RM) process.s ;; \
 	*) \
-		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.s > process.ss; \
-		${AS} process.ss -o process.o; \
-		$(RM) process.ss ;; \
+		$(PATH_CPP) -P -I${TOP_INCDIR} ${srcdir}/process.default.s > process.s; \
+		${AS} process.s -o process.o; \
+		$(RM) process.s ;; \
 	esac
 
 iomgr.o		: iomgr.c lwp.h timer.h
diff --git a/src/lwp/process.default.s b/src/lwp/process.default.s
new file mode 100644
index 000000000..dda0e5dd3
--- /dev/null
+++ b/src/lwp/process.default.s
@@ -0,0 +1,1305 @@
+/*
+ * Copyright 2000, International Business Machines Corporation and others.
+ * All Rights Reserved.
+ * 
+ * This software has been released under the terms of the IBM Public
+ * License.  For details, see the LICENSE file in the top-level source
+ * directory or online at http://www.openafs.org/dl/license10.html
+ */
+
+#define	IGNORE_STDS_H	1
+#include <afs/param.h>
+
+#if defined(__arm32__) || defined(__arm__)
+#ifndef AFS_ARM_DARWIN_ENV
+	/* register definitions */
+       fp      .req    r11
+       ip      .req    r12
+       sp      .req    r13
+       lp      .req    r14
+       pc      .req    r15
+#endif
+
+       /*
+          savecontext(f, area1, newsp)
+               int (*f)()#if defined(RIOS);
+               struct savearea *area1;
+               char *newsp;
+       */
+
+       /* Arguments appear as:	   f in r0, area1 in r1, newsp in r2 */
+
+       .text
+       .align  0
+#ifndef AFS_ARM_DARWIN_ENV
+       .globl  savecontext
+       .type   savecontext, #function
+savecontext:
+#else
+       .globl  _savecontext
+_savecontext:
+#endif
+	@ build the frame
+	mov     ip, sp
+	stmfd   sp!, {fp, ip, lr, pc}
+	sub     fp, ip, #4
+	@ stack r0 - r10, current fp
+	stmfd   sp!, {r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, fp}
+	str     sp, [r1, #0]
+	@ check if newsp is zero
+	movs    r2, r2
+	movne   sp, r2
+	@ call function ...
+#ifdef AFS_ARM_DARWIN_ENV
+	bx      r0
+#else
+	mov     pc, r0
+#endif
+
+       /*
+         returnto(area2)
+            struct savearea *area2;
+       */
+
+       /* area2 is in r0. */
+
+#ifndef AFS_ARM_DARWIN_ENV
+       .globl returnto
+       .type  returnto, #function
+returnto:
+#else
+       .globl _returnto
+_returnto:
+#endif
+       @ restore r0-r10, fp
+       ldr     r0, [r0, #0]
+       ldmfd   r0, {r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, fp}
+       @ return from function call
+       ldmea   fp, {fp, sp, pc}
+
+#endif /* __arm32__ or __arm__ */
+
+#if defined(RIOS)
+/*                 I don't know if we have to save the TOC (R2) or not...
+ *		   Note that stack-frame is supposed to be aligned on 
+ *		   a double-word boundary.
+ *		   For details about RIOS calling conventions
+ *		   see the Assembler manual and /usr/include/sys/asdef.s
+ */
+
+
+/*
+ * savecontext(f, area1, newsp)
+ *     int (*f)(); struct savearea *area1; char *newsp;
+ */
+	.set	topstack, 0
+	.set	cr0, 0
+	.set	toc, 2
+	.set	r0, 0
+	.set	r1, 1
+	.set	r2, 2
+	.set	r3, 3
+	.set	r4, 4
+	.set	r5, 5
+	.set	r6, 6
+	.set	r7, 7
+	.set	r12, 12
+	.set	a_f, r3
+	.set	a_area1, r4
+	.set	a_newsp, r5
+
+	.set	argarea,  32
+	.set	linkarea, 24
+	.set    nfprs,    18
+	.set    ngprs,    20
+	.set    szdsa,	  8*nfprs+4*ngprs+linkarea+argarea
+
+	.csect .savecontext[PR]
+	.globl .savecontext[PR]
+
+	mflr	r0			# save link register
+		
+/*
+ *  save floating point registers.  Interleave some other stuff for
+ *  timing reasons.  Set up conditions and registers for branches
+ *  early, so that processor can prefetch instructions.
+ */
+	stfd  14, -144(1)
+	stfd  15, -136(1)
+
+	mfcr	r12			# save CR
+
+	stfd  16, -128(1)
+	stfd  17, -120(1)
+
+	l	11, 0(a_f)		# r11 <- *(a_f)
+
+   	stfd  18, -112(1)
+	stfd  19, -104(1)
+
+	cmpi	cr0, a_newsp, 0		# cr0 <- (a_newsp :: 0)
+
+	stfd  20, -96(1)
+	stfd  21, -88(1)
+	stfd  22, -80(1)
+
+	mtlr	11			# set up lr early so prefetch works
+
+	stfd  23, -72(1)
+	stfd  24, -64(1)
+	stfd  25, -56(1)
+
+	st	r0, 8(r1)		# save return addr
+
+	stfd  26, -48(1)
+	stfd  27, -40(1)
+	stfd  28, -32(1)
+
+	st	12, 4(r1)		# save CR
+
+	stfd  29, -24(1)
+	stfd  30, -16(1)
+	stfd  31, -8(1)
+
+/*
+ *  save general-purpose registers
+ */
+	stm	12, -8*nfprs-4*ngprs(r1)# save the general-purpose regs
+	stu	r1, -szdsa(r1)		# dec SP and save back chain
+
+	l	r7,  PRE_Block.S(toc)	# r7 <- &PRE_Block
+	cal	r6, 1(r0)		# r6 <- #1
+	stb	r6, 0(r7)		# r6 -> PRE_Block
+
+	st	r1, topstack(a_area1)	# save old SP
+	
+	beq    L1			# if (a_newsp == 0) goto L1
+
+	mr	r1, r5			# r1 <- a_newsp	-- load new SP
+
+L1:	brl				# pc <- lr	-- (*a_f)()
+
+/*
+ * returnto(area2)   This is a little jumbled, I tried to interleave 
+ * memory accesses with simple instructions for speed, and I tried to 
+ * set up the link register and condition register reasonably early
+ * so that processor instruction prefetching might help us out a little.
+ */
+	.set	a_area2, r3
+
+	.csect  .returnto[PR]
+	.globl  .returnto[PR]
+
+	l	r1, topstack(a_area2)	# r1 <- a_area2->topstack
+	cal	r1,  szdsa(r1)		# pop off frame
+	l	r7, PRE_Block.S(toc)	# r7 <- &PRE_Block
+
+	l	8, 8(1)			# restore lr
+	mtlr    8			# do it early so prefetch works
+
+	lm	12,  -8*nfprs-4*ngprs(r1)
+	cal	r6, 0(r0)		# r6 <- #0
+	mtcrf	0x38, 12		# put back cr
+	stb	r6, 0(r7)		# r6 -> PRE_Block
+
+/*
+ * restore FPRs here!
+ */
+	lfd  14, -144(1)
+	lfd  15, -136(1)
+	lfd  16, -128(1)
+	lfd  17, -120(1)
+	lfd  18, -112(1)
+	lfd  19, -104(1)
+	lfd  20, -96(1)
+	lfd  21, -88(1)
+	lfd  22, -80(1)
+	lfd  23, -72(1)
+	lfd  24, -64(1)
+	lfd  25, -56(1)
+	lfd  26, -48(1)
+	lfd  27, -40(1)
+	lfd  28, -32(1)
+	lfd  29, -24(1)
+	lfd  30, -16(1)
+	lfd  31, -8(1)
+
+        brl				# pc <- lr	-- return
+
+	.toc
+
+PRE_Block.S:
+	.tc	PRE_Block[tc], PRE_Block[ua]
+	.extern	PRE_Block[ua]
+
+#endif	/* RIOS	*/
+	
+#ifdef mc68000
+/*
+#
+#	Information Technology Center
+#	Carnegie-Mellon University
+#
+#
+*/
+	.data
+
+/*
+#
+#	Process assembly language assist for Suns.
+#
+*/
+
+	.text
+	.even
+
+/*
+#
+# struct savearea {
+#	char	*topstack;
+# }
+#
+*/
+
+	.globl	_PRE_Block
+
+topstack =	0
+
+/* Stuff to allow saving/restoring registers */
+nregs	=	13
+regs	=	0x3ffe			| d1-d7 & a0-a5
+
+/*
+# savecontext(f, area1, newsp)
+#     int (*f)(); struct savearea *area1; char *newsp;
+*/
+
+/* Stack offsets of arguments */
+f	=	8
+area1	=	12
+newsp	=	16
+
+	.globl	_savecontext
+_savecontext:
+	movb	#1,_PRE_Block		| Dont allow any interrupt finagling
+	link	a6,#-(nregs*4)		| Save frame pointer & ...
+					| ... allocate space for nregs registers
+/* Save registers */
+	moveml	#regs,sp@
+
+	movl	a6@(area1),a0		| a0 = base of savearea
+	movl	sp,a0@(topstack)	| area->topstack = sp
+	movl	a6@(newsp),d0		| Get new sp
+	jeq	forw1			| If newsp == 0, no stack switch
+	movl	d0,sp			| Switch to new stack
+forw1:
+	movl	a6@(f),a0		| a0 = f
+	jbsr	a0@			| f()
+
+/* It is impossible to be here, so abort() */
+
+	jbsr	_abort
+
+/*
+# returnto(area2)
+#     struct savearea *area2;
+*/
+
+/* Stack offset of argument */
+area2	=	8
+
+	.globl _returnto
+_returnto:
+	link	a6,#0
+	movl	a6@(area2),a0		| Base of savearea
+	movl	a0@(topstack),sp	| Restore sp
+/* Restore registers */
+	moveml	sp@,#regs
+
+	addl	#(nregs*4),sp
+	movl	sp,a6			| Argghh...be careful here
+	unlk	a6
+	clrb	_PRE_Block
+	rts				| Return to previous process
+#endif /* mc68000 */
+#ifdef	sparc
+#ifdef	AFS_SUN5_ENV
+#define	_ASM	1
+#include	<sys/asm_linkage.h>
+#include  <sys/trap.h>
+#else
+#ifdef AFS_XBSD_ENV
+#include <machine/trap.h>
+#define ST_FLUSH_WINDOWS ST_FLUSHWIN
+#define MINFRAME 92
+#define SA(x) (((x)+7)&~7)
+#define STACK_ALIGN 8
+#else /* SunOS 4: */
+#include	<sun4/asm_linkage.h>
+#include  <sun4/trap.h>
+#endif
+#endif
+	.data	
+#ifdef	AFS_SUN5_ENV
+	.globl	PRE_Block
+#else
+	.globl	_PRE_Block
+#endif
+topstack	= 0
+globals = 4
+/*
+# savecontext(f, area1, newsp)
+#     int (*f)(); struct savearea *area1; char *newsp;
+*/
+	.text
+#ifdef	AFS_SUN5_ENV
+	.globl	savecontext
+savecontext:
+#else
+	.globl	_savecontext
+_savecontext:
+#endif
+	save	%sp, -SA(MINFRAME), %sp	! Get new window
+	ta	ST_FLUSH_WINDOWS		! FLush all other active windows
+
+	/* The following 3 lines do the equivalent of: _PRE_Block = 1 */
+#ifdef	AFS_SUN5_ENV
+	set	PRE_Block, %l0
+#else
+	set	_PRE_Block, %l0
+#endif
+	mov	1,%l1
+	stb	%l1, [%l0]
+
+	st	%fp,[%i1+topstack]		! area1->topstack = sp
+	
+	st	%g1, [%i1 + globals + 0]		/* Save all globals just in case */
+	st	%g2, [%i1 + globals + 4]
+	st	%g3, [%i1 + globals + 8]
+	st	%g4, [%i1 + globals + 12]
+	st	%g5, [%i1 + globals + 16]
+	st	%g6, [%i1 + globals + 20]
+	st	%g7, [%i1 + globals + 24]
+	mov	%y, %g1
+	st	%g1, [%i1 + globals + 28]
+
+#ifdef	save_allregs
+	st	%f0, [%i1 + globals + 32 + 0]		! Save all floating point registers 
+	st	%f1, [%i1 + globals + 32 + 4]
+	st	%f2, [%i1 + globals + 32 + 8]
+	st	%f3, [%i1 + globals + 32 + 12]
+	st	%f4, [%i1 + globals + 32 + 16]
+	st	%f5, [%i1 + globals + 32 + 20]
+	st	%f6, [%i1 + globals + 32 + 24]
+	st	%f7, [%i1 + globals + 32 + 28]
+	st	%f8, [%i1 + globals + 64 + 0]
+	st	%f9, [%i1 + globals + 64 + 4]
+	st	%f10, [%i1 + globals + 64 + 8]
+	st	%f11, [%i1 + globals + 64 + 12]
+	st	%f12, [%i1 + globals + 64 + 16]
+	st	%f13, [%i1 + globals + 64 + 20]
+	st	%f14, [%i1 + globals + 64 + 24]
+	st	%f15, [%i1 + globals + 64 + 28]
+	st	%f16, [%i1 + globals + 64 + 32]
+	st	%f17, [%i1 + globals + 64 + 36]
+	st	%f18, [%i1 + globals + 64 + 40]
+	st	%f19, [%i1 + globals + 64 + 44]
+	st	%f20, [%i1 + globals + 64 + 48]
+	st	%f21, [%i1 + globals + 64 + 52]
+	st	%f22, [%i1 + globals + 64 + 56]
+	st	%f23, [%i1 + globals + 64 + 60]
+	st	%f24, [%i1 + globals + 64 + 64]
+	st	%f25, [%i1 + globals + 64 + 68]
+	st	%f26, [%i1 + globals + 64 + 72]
+	st	%f27, [%i1 + globals + 64 + 76]
+	st	%f28, [%i1 + globals + 64 + 80]
+	st	%f29, [%i1 + globals + 64 + 84]
+	st	%f30, [%i1 + globals + 64 + 88]
+	st	%f31, [%i1 + globals + 64 + 92]
+#ifdef	notdef
+	mov	%fsr,%g1
+	st	%g1, [%i1 + globals + 64 + 96]
+	mov	%fq,%g1
+	st	%g1, [%i1 + globals + 64 + 100]
+#endif
+
+	st	%c0, [%i1 + globals + 168 + 0]			! Save all coprocessor registers 
+	st	%c1, [%i1 + globals + 168 + 4]
+	st	%c2, [%i1 + globals + 168 + 8]
+	st	%c3, [%i1 + globals + 168 + 12]
+	st	%c4, [%i1 + globals + 168 + 16]
+	st	%c5, [%i1 + globals + 168 + 20]
+	st	%c6, [%i1 + globals + 168 + 24]
+	st	%c7, [%i1 + globals + 168 + 28]
+	st	%c8, [%i1 + globals + 200 + 0]
+	st	%c9, [%i1 + globals + 200 + 4]
+	st	%c10, [%i1 + globals + 200 + 8]
+	st	%c11, [%i1 + globals + 200 + 12]
+	st	%c12, [%i1 + globals + 200 + 16]
+	st	%c13, [%i1 + globals + 200 + 20]
+	st	%c14, [%i1 + globals + 200 + 24]
+	st	%c15, [%i1 + globals + 200 + 28]
+	st	%c16, [%i1 + globals + 200 + 32]
+	st	%c17, [%i1 + globals + 200 + 36]
+	st	%c18, [%i1 + globals + 200 + 40]
+	st	%c19, [%i1 + globals + 200 + 44]
+	st	%c20, [%i1 + globals + 200 + 48]
+	st	%c21, [%i1 + globals + 200 + 52]
+	st	%c22, [%i1 + globals + 200 + 56]
+	st	%c23, [%i1 + globals + 200 + 60]
+	st	%c24, [%i1 + globals + 200 + 64]
+	st	%c25, [%i1 + globals + 200 + 68]
+	st	%c26, [%i1 + globals + 200 + 72]
+	st	%c27, [%i1 + globals + 200 + 76]
+	st	%c28, [%i1 + globals + 200 + 80]
+	st	%c29, [%i1 + globals + 200 + 84]
+	st	%c30, [%i1 + globals + 200 + 88]
+	st	%c31, [%i1 + globals + 200 + 92]
+#ifdef	notdef
+	mov	%csr,%g1
+	st	%g1, [%i1 + globals + 200 + 96]
+	mov	%cq,%g1
+	st	%g1, [%i1 + globals + 200 + 100]
+#endif
+#endif
+	cmp	%i2, 0
+	be,a	L1				! if (newsp == 0) no stack switch
+	nop
+#ifdef	notdef
+	add	%i2, STACK_ALIGN - 1, %i2
+	and	%i2, ~(STACK_ALIGN - 1), %i2
+	sub	%i2, SA(MINFRAME), %fp
+	call	%i0
+	restore
+#else
+	! This used to compute a new stack frame base, write it into
+	! FP, and restore to enter the new frame. But that left a window
+	! in which FP could be written into the backing store for this
+	! frame, to be tripped over later by returnto. So instead we do
+	! the restore first, then modify SP to enter the new frame. We
+	! can still refer to our argument as %02.
+	restore
+	add	%o2, STACK_ALIGN - 1, %o2
+	and	%o2, ~(STACK_ALIGN - 1), %o2	
+	call	%o0
+	sub	%o2, SA(MINFRAME), %sp
+#endif	
+
+L1:	call	%i0			! call f()
+	nop
+
+
+! returnto(area1)
+!     struct savearea *area1;
+#ifdef	AFS_SUN5_ENV
+	.globl returnto
+returnto:
+#else
+	.globl _returnto
+_returnto:
+#endif
+	ta	ST_FLUSH_WINDOWS		! FLush all other active windows
+	ld	[%o0+topstack],%g1		! sp = area1->topstack
+	sub	%g1, SA(MINFRAME), %fp	! Adjust sp to the right place
+	sub	%fp, SA(MINFRAME), %sp
+
+#ifdef	save_allregs
+	ld	[%o0 + globals + 32 + 0],%f0		! Restore floating-point registers 
+	ld	[%o0 + globals + 32 + 4],%f1
+	ld	[%o0 + globals + 32 + 8],%f2
+	ld	[%o0 + globals + 32 + 12],%f3
+	ld	[%o0 + globals + 32 + 16],%f4
+	ld	[%o0 + globals + 32 + 20],%f5
+	ld	[%o0 + globals + 32 + 24],%f6
+	ld	[%o0 + globals + 32 + 28],%f7
+	ld	[%o0 + globals + 64 + 0],%f8
+	ld	[%o0 + globals + 64 + 4],%f9
+	ld	[%o0 + globals + 64 + 8],%f10
+	ld	[%o0 + globals + 64 + 12],%f11
+	ld	[%o0 + globals + 64 + 16],%f12
+	ld	[%o0 + globals + 64 + 20],%f13
+	ld	[%o0 + globals + 64 + 24],%f14
+	ld	[%o0 + globals + 64 + 28],%f15
+	ld	[%o0 + globals + 64 + 32],%f16
+	ld	[%o0 + globals + 64 + 36],%f17
+	ld	[%o0 + globals + 64 + 40],%f18
+	ld	[%o0 + globals + 64 + 44],%f19
+	ld	[%o0 + globals + 64 + 48],%f20
+	ld	[%o0 + globals + 64 + 52],%f21
+	ld	[%o0 + globals + 64 + 56],%f22
+	ld	[%o0 + globals + 64 + 60],%f23
+	ld	[%o0 + globals + 64 + 64],%f24
+	ld	[%o0 + globals + 64 + 68],%f25
+	ld	[%o0 + globals + 64 + 72],%f26
+	ld	[%o0 + globals + 64 + 76],%f27
+	ld	[%o0 + globals + 64 + 80],%f28
+	ld	[%o0 + globals + 64 + 84],%f29
+	ld	[%o0 + globals + 64 + 88],%f30
+	ld	[%o0 + globals + 64 + 92],%f31
+#ifdef	notdef
+	ld	[%o0 + globals + 64 + 96],%g1
+	mov	%g1, %fsr
+	ld	[%o0 + globals + 64 + 100],%g1
+	mov	%g1, %fq
+#endif
+
+	ld	[%o0 + globals + 168 + 0],%c0		! Restore floating-point registers 
+	ld	[%o0 + globals + 168 + 4],%c1
+	ld	[%o0 + globals + 168 + 8],%c2
+	ld	[%o0 + globals + 168 + 12],%c3
+	ld	[%o0 + globals + 168 + 16],%c4
+	ld	[%o0 + globals + 168 + 20],%c5
+	ld	[%o0 + globals + 168 + 24],%c6
+	ld	[%o0 + globals + 168 + 28],%c7
+	ld	[%o0 + globals + 200 + 0],%c8
+	ld	[%o0 + globals + 200 + 4],%c9
+	ld	[%o0 + globals + 200 + 8],%c10
+	ld	[%o0 + globals + 200 + 12],%c11
+	ld	[%o0 + globals + 200 + 16],%c12
+	ld	[%o0 + globals + 200 + 20],%c13
+	ld	[%o0 + globals + 200 + 24],%c14
+	ld	[%o0 + globals + 200 + 28],%c15
+	ld	[%o0 + globals + 200 + 32],%c16
+	ld	[%o0 + globals + 200 + 36],%c17
+	ld	[%o0 + globals + 200 + 40],%c18
+	ld	[%o0 + globals + 200 + 44],%c19
+	ld	[%o0 + globals + 200 + 48],%c20
+	ld	[%o0 + globals + 200 + 52],%c21
+	ld	[%o0 + globals + 200 + 56],%c22
+	ld	[%o0 + globals + 200 + 60],%c23
+	ld	[%o0 + globals + 200 + 64],%c24
+	ld	[%o0 + globals + 200 + 68],%c25
+	ld	[%o0 + globals + 200 + 72],%c26
+	ld	[%o0 + globals + 200 + 76],%c27
+	ld	[%o0 + globals + 200 + 80],%c28
+	ld	[%o0 + globals + 200 + 84],%c29
+	ld	[%o0 + globals + 200 + 88],%c30
+	ld	[%o0 + globals + 200 + 92],%c31
+#ifdef	notdef
+	ld	[%o0 + globals + 200 + 96],%g1
+	mov	%g1, %csr
+	ld	[%o0 + globals + 200 + 100],%g1
+	mov	%g1, %cq
+#endif
+#endif
+	ld	[%o0 + globals + 28], %g1		! Restore global regs back
+	mov	%g1, %y
+	ld	[%o0 + globals + 0], %g1
+	ld	[%o0 + globals + 4], %g2
+	ld	[%o0 + globals + 8], %g3
+	ld	[%o0 + globals + 12],%g4
+	ld	[%o0 + globals + 16],%g5
+	ld	[%o0 + globals + 20],%g6
+	ld	[%o0 + globals + 24],%g7
+
+	/* The following 3 lines are equivalent to: _PRE_Block = 0 */
+#ifdef	AFS_SUN5_ENV
+	set	PRE_Block, %l0
+#else
+	set	_PRE_Block, %l0
+#endif
+	mov	0,%l1
+	stb	%l1, [%l0]
+
+	restore					
+	restore
+
+	retl
+	nop
+
+#endif /* sparc */
+#ifdef ibm032
+|
+|	Information Technology Center
+|	Carnegie-Mellon University
+|
+|
+	.data
+	.globl	.oVncs
+	.set		.oVncs,0
+
+	.globl	_savecontext
+_savecontext:
+	.long		_.savecontext
+
+	.globl	_returnto
+_returnto:
+	.long		_.returnto
+
+|
+|	Process assembly language assist for Sailboats.
+|
+
+	.text
+	.align 2
+
+|
+| struct savearea {
+|	char	*topstack;
+| }
+|
+
+| Offsets of fields
+.set topstack,0
+
+| Stuff to allow saving/restoring registers
+.set regspace,64
+.set freg,0
+
+|
+| savecontext(f, area1, newsp)
+|    int (*f)(); struct savearea *area1; char *newsp;
+|
+
+	.globl	_.savecontext
+_.savecontext:
+	ai	sp,sp,-regspace		| Save frame pointer & ...
+					| ... allocate space for 16 registers
+| Save registers
+	stm	r0,0(sp)			| Change this if save fewer regs.
+| Set preemption semaphore
+	get	r6,$1
+	get	r7,$_PRE_Block
+	putc	r6,0(r7)			| PRE_Block = 1
+| r3 = base of savearea
+	put	sp,topstack(r3)		| area1->topstack = sp
+| New sp is in r4.
+	cis	r4,0
+	be	L1			| If newsp == 0, no stack switch
+	cas	sp,r4,r0			| Switch to new stack
+L1:
+	get	r6,0(r2)			| r2 = _f
+	balrx	r15,r6			| f()
+	cas	r0,r2,r0
+
+|
+| returnto(area2)
+|     struct savearea *area2;
+|
+
+	.globl _.returnto
+_.returnto:
+	get	sp,topstack(r2)
+| Now in the context of the savecontext stack to be restored.
+| Start with the registers...
+| Clear preemption semaphore
+	get	r6,$0
+	get	r7,$_PRE_Block
+	putc	r6,0(r7)			| PRE_Block = 0
+	lm	r0,0(sp)		| Change if saving fewer regs.
+	brx	r15		| Return to previous process
+	ai	sp,sp,regspace
+ .data
+ .ltorg
+#endif
+
+#ifdef AFS_AIX22_ENV
+/*
+#
+#	Information Technology Center
+#	Carnegie-Mellon University
+#
+*/
+/*
+#
+#	Process assembly language assist for Sailboats.
+#
+*/
+
+	.text
+	.globl	.savecontext
+	.align 1
+
+/*
+#
+# struct savearea {
+#	char	*topstack;
+# }
+#
+*/
+
+
+/*# Offsets of fields*/
+.set topstack,0
+
+/*# Stuff to allow saving/restoring registers*/
+.set regspace,64
+.set freg,0
+
+/*
+#
+# savecontext(f, area1, newsp)
+#    int (*f)(); struct savearea *area1; char *newsp;
+#
+*/
+
+.savecontext:
+	ai	1,1,-regspace		# Save frame pointer & ...
+
+/*# Save registers*/
+	stm	0,0(1)			# Change this if save fewer regs.
+	lr	14,0
+/*# Set preemption semaphore*/
+	lis	6,1
+	l	7,4(14)
+	stc	6,0(7)
+/*# r3 = base of savearea*/
+	st	1,topstack(3)		# area1->topstack = sp
+/*# New sp is in r4.*/
+	ci	4,0
+	beq	L1			# If newsp == 0, no stack switch
+	cas	1,4,0			# Switch to new stack
+L1:
+	l	6,0(2)			# r2 = _f
+	balrx	15,6			# f()
+	cas	0,2,0
+	.data	3
+	.globl	_savecontext
+_savecontext:
+	.long	.savecontext
+	.long	_PRE_Block
+/*
+#
+# returnto(area2)
+#     struct savearea *area2;
+#
+*/
+
+	.text
+	.globl	.returnto
+	.align 1
+.returnto:
+	l	1,topstack(2)
+/*
+# Now in the context of the savecontext stack to be restored.
+# Start with the registers...
+# Clear preemption semaphore
+*/
+	lr	14,0
+	lis	6,0
+	l	7,4(14)
+	stc	6,0(7)
+	lm	0,0(1)		# Change if saving fewer regs.
+	brx	15		# Return to previous process
+	ai	1,1,regspace
+	.data	3
+	.globl	_returnto
+_returnto:
+	.long	.returnto
+	.long	_PRE_Block
+#endif /* AFS_AIX_ENV */
+
+#ifdef vax
+/*
+#
+#	Information Technology Center
+#	Carnegie-Mellon University
+#
+#
+*/
+	.data
+
+/*
+#
+#	Algorithm: "Monkey see, monkey do"
+#
+*/
+
+	.text
+
+/*
+#
+# struct savearea {
+#	char	*topstack;
+# }
+#
+*/
+
+	.set	topstack,0
+
+/* Stuff to allow saving/restoring registers */
+
+/*
+# savecontext(f, area1, newsp)
+#     int (*f)(); struct savearea *area1; char *newsp;
+*/
+
+/* Stack offsets of arguments */
+	.set	f,4
+	.set	area1,8
+	.set	newsp,12
+
+.globl	_PRE_Block
+.globl	_savecontext
+
+_savecontext:
+	.word 0x0ffc	# Save regs R2-R11
+	movb	$1,_PRE_Block		# Critical section for preemption code
+   	pushl	ap			# save old ap
+	pushl	fp			# save old fp    
+	movl	area1(ap),r0		# r0 = base of savearea
+	movl	sp,topstack(r0)		# area->topstack = sp
+	movl	newsp(ap),r0		# Get new sp
+	beql	L1			# if new sp is 0, dont change stacks
+	movl	r0,sp			# else switch to new stack
+L1:
+	movl	f(ap),r1		# r1 = f
+	calls	$0,0(r1)		# f()
+
+/* It is impossible to be here, so abort() */
+
+	calls	$0,_abort
+
+/*
+# returnto(area2)
+#     struct savearea *area2;
+*/
+
+/* Stack offset of argument */
+	.set	area2,4
+
+	.globl _returnto
+_returnto:
+	.word	0x0			# Who cares about these regs?
+	movl	area2(ap),r0		# r0 = address of area2
+	movl	topstack(r0),sp		# Restore sp
+	movl	(sp)+,fp		# Restore fp
+	movl	(sp)+,ap		# ,,,,
+	clrb	_PRE_Block		# End of preemption critical section
+	ret
+
+	pushl	$1234			# The author will gloat
+	calls	$0,_abort
+#endif
+
+#ifdef mips
+#ifdef	sgi
+	.option	pic2
+
+#include <regdef.h> /* Allow use of symbolic names for registers. */
+/* 9 sregs, ra, 6 fp regs, gp, pad to 8 byte boundary */
+#define regspace 9 * 4 + 4 + 6 * 8 + 4 + 4
+#define floats 0
+#define registers floats + 6 * 8
+#define returnaddr regspace - 4
+#define topstack 0
+#define GPOFF	regspace - 8
+	.globl savecontext /* MIPS' C compiler doesnt prepend underscores. */
+	.ent savecontext /* Insert debugger information. */
+savecontext:
+        .set    noreorder
+        .cpload t9                      # set up gp for KPIC
+        .set    reorder
+        subu sp, regspace
+        .cprestore GPOFF                # trigger t9/jalr
+	.set	noreorder
+	li	t0, 1
+	.extern	PRE_Block
+	sb	t0, PRE_Block
+        .set    reorder
+	.frame	sp, regspace, ra
+/* Save registers. */
+	sw	s0, registers + 0(sp)
+	sw	s1, registers + 4(sp)
+	sw	s2, registers + 8(sp)
+	sw	s3, registers + 12(sp)
+	sw	s4, registers + 16(sp)
+	sw	s5, registers + 20(sp)
+	sw	s6, registers + 24(sp)
+	sw	s7, registers + 28(sp)
+	sw	s8, registers + 32(sp)
+/* Save return address */
+	sw	ra, returnaddr(sp)
+	.mask	0xc0ff0000, -4
+/* Need to save floating point registers? */
+	s.d	$f20, floats + 0(sp)
+	s.d	$f22, floats + 8(sp)
+	s.d	$f24, floats + 16(sp)
+	s.d	$f26, floats + 24(sp)
+	s.d	$f28, floats + 32(sp)
+	s.d	$f30, floats + 40(sp)
+	.fmask	0x55400000, regspace
+	sw	sp, topstack(a1)
+	beq	a2, $0, samestack
+	move	sp, a2
+samestack:
+	move	t9, a0
+	j	t9
+	.end	savecontext
+
+	.globl	returnto
+	.ent	returnto
+returnto:
+        .set    noreorder
+        .cpload t9                      # set up gp for KPIC
+        .set    reorder
+
+	lw	sp, topstack(a0)
+	lw	s0, registers + 0(sp)
+	lw	s1, registers + 4(sp)
+	lw	s2, registers + 8(sp)
+	lw	s3, registers + 12(sp)
+	lw	s4, registers + 16(sp)
+	lw	s5, registers + 20(sp)
+	lw	s6, registers + 24(sp)
+	lw	s7, registers + 28(sp)
+	lw	s8, registers + 32(sp)
+/* Save return address */
+	lw	ra, returnaddr(sp)
+/* Need to save floating point registers? */
+	l.d	$f20, floats + 0(sp)
+	l.d	$f22, floats + 8(sp)
+	l.d	$f24, floats + 16(sp)
+	l.d	$f26, floats + 24(sp)
+	l.d	$f28, floats + 32(sp)
+	l.d	$f30, floats + 40(sp)
+	.set	noreorder
+	addu	sp, regspace
+	la	t0, PRE_Block
+	j	ra
+	sb	zero, 0(t0)
+	.set	reorder
+	.end	returnto
+
+#else
+/* Code for MIPS R2000/R3000 architecture
+ * Written by Zalman Stern April 30th, 1989.
+ */
+#include <regdef.h> /* Allow use of symbolic names for registers. */
+#define regspace 9 * 4 + 4 + 6 * 8
+#define floats 0
+#define registers floats + 6 * 8
+#define returnaddr regspace - 4
+#define topstack 0
+	.globl savecontext /* MIPS' C compiler doesnt prepend underscores. */
+	.ent savecontext /* Insert debugger information. */
+savecontext:
+	li	t0, 1
+	.extern	PRE_Block
+	sb	t0, PRE_Block
+	subu	sp, regspace
+	.frame	sp, regspace, ra
+/* Save registers. */
+	sw	s0, registers + 0(sp)
+	sw	s1, registers + 4(sp)
+	sw	s2, registers + 8(sp)
+	sw	s3, registers + 12(sp)
+	sw	s4, registers + 16(sp)
+	sw	s5, registers + 20(sp)
+	sw	s6, registers + 24(sp)
+	sw	s7, registers + 28(sp)
+	sw	s8, registers + 32(sp)
+/* Save return address */
+	sw	ra, returnaddr(sp)
+	.mask	0xc0ff0000, -4
+/* Need to save floating point registers? */
+	s.d	$f20, floats + 0(sp)
+	s.d	$f22, floats + 8(sp)
+	s.d	$f24, floats + 16(sp)
+	s.d	$f26, floats + 24(sp)
+	s.d	$f28, floats + 32(sp)
+	s.d	$f30, floats + 40(sp)
+	.fmask	0x55400000, regspace
+	sw	sp, topstack(a1)
+	beq	a2, $0, samestack
+	addu	sp, $0, a2
+samestack:
+	jal	a0
+	.end	savecontext
+
+	.globl	returnto
+	.ent	returnto
+returnto:
+	lw	sp, topstack(a0)
+	lw	s0, registers + 0(sp)
+	lw	s1, registers + 4(sp)
+	lw	s2, registers + 8(sp)
+	lw	s3, registers + 12(sp)
+	lw	s4, registers + 16(sp)
+	lw	s5, registers + 20(sp)
+	lw	s6, registers + 24(sp)
+	lw	s7, registers + 28(sp)
+	lw	s8, registers + 32(sp)
+/* Save return address */
+	lw	ra, returnaddr(sp)
+/* Need to save floating point registers? */
+	l.d	$f20, floats + 0(sp)
+	l.d	$f22, floats + 8(sp)
+	l.d	$f24, floats + 16(sp)
+	l.d	$f26, floats + 24(sp)
+	l.d	$f28, floats + 32(sp)
+	l.d	$f30, floats + 40(sp)
+	addu	sp, regspace
+	sb	$0, PRE_Block
+	j	ra
+	.end	returnto
+#endif	/* sgi */
+#endif
+
+#ifdef AFS_HPUX_ENV
+#include "process.s.hpux"
+#endif /* AFS_HPUX_ENV */
+
+#ifdef __alpha
+/* Code for DEC Alpha architecture */
+#ifdef	AFS_OSF_ENV
+#include <machine/asm.h>
+#include <machine/regdef.h>
+#define	fs0	$f2
+#define	fs1	$f3
+#define	fs2	$f4
+#define	fs3	$f5
+#define	fs4	$f6
+#define	fs5	$f7
+#define	fs6	$f8
+#define	fs7	$f9
+#elif defined(AFS_XBSD_ENV)
+#include <machine/asm.h>
+#else	/* !OSF && !XBSD */
+#include <mach/alpha/asm.h>
+#endif	/* OSF */
+
+#define FRAMESIZE ((8*8)+8+(7*8))
+#define floats 0
+#define registers (floats+(8*8))
+#define returnaddr (FRAMESIZE-8)
+#define topstack 0
+
+#ifdef AFS_OSF_ENV
+IMPORT(PRE_Block,4)
+#endif
+.align	4
+#ifdef	AFS_OSF_ENV
+NESTED(savecontext,FRAMESIZE,ra)
+#else	/* OSF */
+NESTED(savecontext,3,FRAMESIZE,ra,0x0400f700,0x000003fc)
+#endif	/* OSF */
+	ldgp	gp,0(pv)
+	lda	t0, 1(zero)
+	stl	t0, PRE_Block
+	lda	sp,-FRAMESIZE(sp)
+/* Save callee-saved registers. */
+	stq	s0, (registers+0) (sp)
+	stq	s1, (registers+8) (sp)
+	stq	s2, (registers+16) (sp)
+	stq	s3, (registers+24) (sp)
+	stq	s4, (registers+32) (sp)
+	stq	s5, (registers+40) (sp)
+	stq	s6, (registers+48) (sp)
+/* Save return address */
+	stq	ra, returnaddr(sp)
+
+	.mask	(M_S0|M_S1|M_S2|M_S3|M_S4|M_S5|M_S6|M_RA), -FRAMESIZE
+
+/* Save floating point registers */
+	stt	fs0, (floats+0) (sp)
+	stt	fs1, (floats+8) (sp)
+	stt	fs2, (floats+16) (sp)
+	stt	fs3, (floats+24) (sp)
+	stt	fs4, (floats+32) (sp)
+	stt	fs5, (floats+40) (sp)
+	stt	fs6, (floats+48) (sp)
+	stt	fs7, (floats+56) (sp)
+
+	.prologue	1
+	stq	sp, topstack(a1)
+	or	a0,zero,pv		/* call point in pv */
+	beq	a2, samestack
+	or	a2,zero,sp		/* switch stack */
+samestack:
+	jsr	ra,(pv),0		/* off we go */
+	END(savecontext)
+
+#ifdef	AFS_OSF_ENV
+LEAF(returnto)
+#else	
+LEAF(returnto,1)
+#endif	
+	ldgp	gp,0(pv)
+
+	.prologue	1
+	ldq	sp, topstack(a0)
+/* Restore callee-saved regs */
+	ldq	s0, (registers+0) (sp)
+	ldq	s1, (registers+8) (sp)
+	ldq	s2, (registers+16) (sp)
+	ldq	s3, (registers+24) (sp)
+	ldq	s4, (registers+32) (sp)
+	ldq	s5, (registers+40) (sp)
+	ldq	s6, (registers+48) (sp)
+/* Return address */
+	ldq	ra, returnaddr(sp)
+/* Floating point registers */
+	ldt	fs0, (floats+0) (sp)
+	ldt	fs1, (floats+8) (sp)
+	ldt	fs2, (floats+16) (sp)
+	ldt	fs3, (floats+24) (sp)
+	ldt	fs4, (floats+32) (sp)
+	ldt	fs5, (floats+40) (sp)
+	ldt	fs6, (floats+48) (sp)
+	ldt	fs7, (floats+56) (sp)
+	lda	sp, FRAMESIZE(sp)
+	stl	zero, PRE_Block
+	RET
+	END(returnto)
+#endif
+
+#ifdef AFS_PPC_ENV
+/* Comments:
+ *    1. Registers R10..R31 and CR0..CR7 are saved
+ *    2. "struct savearea" must hold at least 3 pointers (long)
+ *    3. This code will only work on 32 bit machines (601..604), not 620
+ *    4. No floating point registers are saved
+ *    5. The save stack "frame" is bigger than absolutely necessary.  The
+ *       PowerPC [AIX] ABI needs this extra space.
+ */
+
+
+/* Mach-O assemblers */
+#if !defined(NeXT) && !defined(__APPLE__)
+#define r0    0
+#define r1    1
+#define r2    2
+#define r3    3
+#define r4    4
+#define r5    5
+#define r6    6
+#define r7    7
+#define r8    8
+#define r9    9
+#define r10   10
+#define r11   11
+#define r12   12
+#define r13   13
+#define r14   14
+#define r15   15
+#define r16   16
+#define r17   17
+#define r18   18
+#define r19   19
+#define r20   20
+#define r21   21
+#define r22   22
+#define r23   23
+#define r24   24
+#define r25   25
+#define r26   26
+#define r27   27
+#define r28   28
+#define r29   29
+#define r30   30
+#define r31   31
+#endif /* !NeXT && !__APPLE__ */
+
+
+/*
+ * savecontext(int (*f)(), struct savearea *save, char *newsp)
+ */
+
+#define FRAME_SIZE    (32*4)+(8*4)
+#define FRAME_OFFSET  (8*4)
+#define TOP_OF_STACK  (0*4)
+#define RETURN                (1*4)
+#define CCR           (2*4)
+
+#if defined(NeXT) || defined(__APPLE__)
+      .globl  _savecontext
+_savecontext:
+      lis     r9,ha16(_PRE_Block)     /* Disable interrupt fiddling */
+      li      r8,1
+      stb     r8,lo16(_PRE_Block)(r9)
+#else
+      .globl  savecontext
+savecontext:
+      lis     r9,PRE_Block@ha         /* Disable interrupt fiddling */
+      li      r8,1
+      stb     r8,PRE_Block@l(r9)
+#endif /* NeXT || __APPLE__ */
+      subi    r1,r1,FRAME_SIZE
+      mfcr    r9
+      stw     r9,CCR(r4)
+      stw     r10,10*4+FRAME_OFFSET(r1)       /* Save registers */
+      stw     r11,11*4+FRAME_OFFSET(r1)
+      stw     r12,12*4+FRAME_OFFSET(r1)
+      stw     r13,13*4+FRAME_OFFSET(r1)
+      stw     r14,14*4+FRAME_OFFSET(r1)
+      stw     r15,15*4+FRAME_OFFSET(r1)
+      stw     r16,16*4+FRAME_OFFSET(r1)
+      stw     r17,17*4+FRAME_OFFSET(r1)
+      stw     r18,18*4+FRAME_OFFSET(r1)
+      stw     r19,19*4+FRAME_OFFSET(r1)
+      stw     r20,20*4+FRAME_OFFSET(r1)
+      stw     r21,21*4+FRAME_OFFSET(r1)
+      stw     r22,22*4+FRAME_OFFSET(r1)
+      stw     r23,23*4+FRAME_OFFSET(r1)
+      stw     r24,24*4+FRAME_OFFSET(r1)
+      stw     r25,25*4+FRAME_OFFSET(r1)
+      stw     r26,26*4+FRAME_OFFSET(r1)
+      stw     r27,27*4+FRAME_OFFSET(r1)
+      stw     r28,28*4+FRAME_OFFSET(r1)
+      stw     r29,29*4+FRAME_OFFSET(r1)
+      stw     r30,30*4+FRAME_OFFSET(r1)
+      stw     r31,31*4+FRAME_OFFSET(r1)
+      stw     r1,TOP_OF_STACK(r4)
+      cmpi    0,r5,0                          /* New stack specified? */
+      mflr    r0
+      stw     r0,RETURN(r4)
+      mtlr    r3
+      beq     L1                             /* No - don't muck with pointer */
+
+      mr      r1,r5
+L1:	   blr                                     /* Return */
+
+/*
+ * returnto(struct savearea *area)
+ */
+#if defined(NeXT) || defined(__APPLE__)
+      .globl  _returnto
+_returnto:
+#else
+      .globl  returnto
+returnto:
+#endif /* NeXT || __APPLE__ */
+      lwz     r1,TOP_OF_STACK(r3)             /* Update stack pointer */
+      lwz     r0,RETURN(r3)                   /* Get return address */
+      mtlr    r0
+      lwz     r4,CCR(r3)
+      mtcrf   0xFF,r4
+      lwz     r10,10*4+FRAME_OFFSET(r1)       /* Restore registers */
+      lwz     r11,11*4+FRAME_OFFSET(r1)
+      lwz     r12,12*4+FRAME_OFFSET(r1)
+      lwz     r13,13*4+FRAME_OFFSET(r1)
+      lwz     r14,14*4+FRAME_OFFSET(r1)
+      lwz     r15,15*4+FRAME_OFFSET(r1)
+      lwz     r16,16*4+FRAME_OFFSET(r1)
+      lwz     r17,17*4+FRAME_OFFSET(r1)
+      lwz     r18,18*4+FRAME_OFFSET(r1)
+      lwz     r19,19*4+FRAME_OFFSET(r1)
+      lwz     r20,20*4+FRAME_OFFSET(r1)
+      lwz     r21,21*4+FRAME_OFFSET(r1)
+      lwz     r22,22*4+FRAME_OFFSET(r1)
+      lwz     r23,23*4+FRAME_OFFSET(r1)
+      lwz     r24,24*4+FRAME_OFFSET(r1)
+      lwz     r25,25*4+FRAME_OFFSET(r1)
+      lwz     r26,26*4+FRAME_OFFSET(r1)
+      lwz     r27,27*4+FRAME_OFFSET(r1)
+      lwz     r28,28*4+FRAME_OFFSET(r1)
+      lwz     r29,29*4+FRAME_OFFSET(r1)
+      lwz     r30,30*4+FRAME_OFFSET(r1)
+      lwz     r31,31*4+FRAME_OFFSET(r1)
+#if defined(NeXT) || defined(__APPLE__)
+      lis     r9,ha16(_PRE_Block)         /* Re-enable interrupt fiddling */
+      li      r8,0
+      stb     r8,lo16(_PRE_Block)(r9)
+#else
+      lis     r9,PRE_Block@ha         /* Re-enable interrupt fiddling */
+      li      r8,0
+      stb     r8,PRE_Block@l(r9)
+#endif /* NeXT || __APPLE__ */
+      addi    r1,r1,FRAME_SIZE
+      blr
+#endif
+	
+#if defined(__linux__) && defined(__ELF__)
+	.section .note.GNU-stack,"",%progbits
+#endif
diff --git a/src/lwp/process.s b/src/lwp/process.s
deleted file mode 100644
index dda0e5dd3..000000000
--- a/src/lwp/process.s
+++ /dev/null
@@ -1,1305 +0,0 @@
-/*
- * Copyright 2000, International Business Machines Corporation and others.
- * All Rights Reserved.
- * 
- * This software has been released under the terms of the IBM Public
- * License.  For details, see the LICENSE file in the top-level source
- * directory or online at http://www.openafs.org/dl/license10.html
- */
-
-#define	IGNORE_STDS_H	1
-#include <afs/param.h>
-
-#if defined(__arm32__) || defined(__arm__)
-#ifndef AFS_ARM_DARWIN_ENV
-	/* register definitions */
-       fp      .req    r11
-       ip      .req    r12
-       sp      .req    r13
-       lp      .req    r14
-       pc      .req    r15
-#endif
-
-       /*
-          savecontext(f, area1, newsp)
-               int (*f)()#if defined(RIOS);
-               struct savearea *area1;
-               char *newsp;
-       */
-
-       /* Arguments appear as:	   f in r0, area1 in r1, newsp in r2 */
-
-       .text
-       .align  0
-#ifndef AFS_ARM_DARWIN_ENV
-       .globl  savecontext
-       .type   savecontext, #function
-savecontext:
-#else
-       .globl  _savecontext
-_savecontext:
-#endif
-	@ build the frame
-	mov     ip, sp
-	stmfd   sp!, {fp, ip, lr, pc}
-	sub     fp, ip, #4
-	@ stack r0 - r10, current fp
-	stmfd   sp!, {r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, fp}
-	str     sp, [r1, #0]
-	@ check if newsp is zero
-	movs    r2, r2
-	movne   sp, r2
-	@ call function ...
-#ifdef AFS_ARM_DARWIN_ENV
-	bx      r0
-#else
-	mov     pc, r0
-#endif
-
-       /*
-         returnto(area2)
-            struct savearea *area2;
-       */
-
-       /* area2 is in r0. */
-
-#ifndef AFS_ARM_DARWIN_ENV
-       .globl returnto
-       .type  returnto, #function
-returnto:
-#else
-       .globl _returnto
-_returnto:
-#endif
-       @ restore r0-r10, fp
-       ldr     r0, [r0, #0]
-       ldmfd   r0, {r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, fp}
-       @ return from function call
-       ldmea   fp, {fp, sp, pc}
-
-#endif /* __arm32__ or __arm__ */
-
-#if defined(RIOS)
-/*                 I don't know if we have to save the TOC (R2) or not...
- *		   Note that stack-frame is supposed to be aligned on 
- *		   a double-word boundary.
- *		   For details about RIOS calling conventions
- *		   see the Assembler manual and /usr/include/sys/asdef.s
- */
-
-
-/*
- * savecontext(f, area1, newsp)
- *     int (*f)(); struct savearea *area1; char *newsp;
- */
-	.set	topstack, 0
-	.set	cr0, 0
-	.set	toc, 2
-	.set	r0, 0
-	.set	r1, 1
-	.set	r2, 2
-	.set	r3, 3
-	.set	r4, 4
-	.set	r5, 5
-	.set	r6, 6
-	.set	r7, 7
-	.set	r12, 12
-	.set	a_f, r3
-	.set	a_area1, r4
-	.set	a_newsp, r5
-
-	.set	argarea,  32
-	.set	linkarea, 24
-	.set    nfprs,    18
-	.set    ngprs,    20
-	.set    szdsa,	  8*nfprs+4*ngprs+linkarea+argarea
-
-	.csect .savecontext[PR]
-	.globl .savecontext[PR]
-
-	mflr	r0			# save link register
-		
-/*
- *  save floating point registers.  Interleave some other stuff for
- *  timing reasons.  Set up conditions and registers for branches
- *  early, so that processor can prefetch instructions.
- */
-	stfd  14, -144(1)
-	stfd  15, -136(1)
-
-	mfcr	r12			# save CR
-
-	stfd  16, -128(1)
-	stfd  17, -120(1)
-
-	l	11, 0(a_f)		# r11 <- *(a_f)
-
-   	stfd  18, -112(1)
-	stfd  19, -104(1)
-
-	cmpi	cr0, a_newsp, 0		# cr0 <- (a_newsp :: 0)
-
-	stfd  20, -96(1)
-	stfd  21, -88(1)
-	stfd  22, -80(1)
-
-	mtlr	11			# set up lr early so prefetch works
-
-	stfd  23, -72(1)
-	stfd  24, -64(1)
-	stfd  25, -56(1)
-
-	st	r0, 8(r1)		# save return addr
-
-	stfd  26, -48(1)
-	stfd  27, -40(1)
-	stfd  28, -32(1)
-
-	st	12, 4(r1)		# save CR
-
-	stfd  29, -24(1)
-	stfd  30, -16(1)
-	stfd  31, -8(1)
-
-/*
- *  save general-purpose registers
- */
-	stm	12, -8*nfprs-4*ngprs(r1)# save the general-purpose regs
-	stu	r1, -szdsa(r1)		# dec SP and save back chain
-
-	l	r7,  PRE_Block.S(toc)	# r7 <- &PRE_Block
-	cal	r6, 1(r0)		# r6 <- #1
-	stb	r6, 0(r7)		# r6 -> PRE_Block
-
-	st	r1, topstack(a_area1)	# save old SP
-	
-	beq    L1			# if (a_newsp == 0) goto L1
-
-	mr	r1, r5			# r1 <- a_newsp	-- load new SP
-
-L1:	brl				# pc <- lr	-- (*a_f)()
-
-/*
- * returnto(area2)   This is a little jumbled, I tried to interleave 
- * memory accesses with simple instructions for speed, and I tried to 
- * set up the link register and condition register reasonably early
- * so that processor instruction prefetching might help us out a little.
- */
-	.set	a_area2, r3
-
-	.csect  .returnto[PR]
-	.globl  .returnto[PR]
-
-	l	r1, topstack(a_area2)	# r1 <- a_area2->topstack
-	cal	r1,  szdsa(r1)		# pop off frame
-	l	r7, PRE_Block.S(toc)	# r7 <- &PRE_Block
-
-	l	8, 8(1)			# restore lr
-	mtlr    8			# do it early so prefetch works
-
-	lm	12,  -8*nfprs-4*ngprs(r1)
-	cal	r6, 0(r0)		# r6 <- #0
-	mtcrf	0x38, 12		# put back cr
-	stb	r6, 0(r7)		# r6 -> PRE_Block
-
-/*
- * restore FPRs here!
- */
-	lfd  14, -144(1)
-	lfd  15, -136(1)
-	lfd  16, -128(1)
-	lfd  17, -120(1)
-	lfd  18, -112(1)
-	lfd  19, -104(1)
-	lfd  20, -96(1)
-	lfd  21, -88(1)
-	lfd  22, -80(1)
-	lfd  23, -72(1)
-	lfd  24, -64(1)
-	lfd  25, -56(1)
-	lfd  26, -48(1)
-	lfd  27, -40(1)
-	lfd  28, -32(1)
-	lfd  29, -24(1)
-	lfd  30, -16(1)
-	lfd  31, -8(1)
-
-        brl				# pc <- lr	-- return
-
-	.toc
-
-PRE_Block.S:
-	.tc	PRE_Block[tc], PRE_Block[ua]
-	.extern	PRE_Block[ua]
-
-#endif	/* RIOS	*/
-	
-#ifdef mc68000
-/*
-#
-#	Information Technology Center
-#	Carnegie-Mellon University
-#
-#
-*/
-	.data
-
-/*
-#
-#	Process assembly language assist for Suns.
-#
-*/
-
-	.text
-	.even
-
-/*
-#
-# struct savearea {
-#	char	*topstack;
-# }
-#
-*/
-
-	.globl	_PRE_Block
-
-topstack =	0
-
-/* Stuff to allow saving/restoring registers */
-nregs	=	13
-regs	=	0x3ffe			| d1-d7 & a0-a5
-
-/*
-# savecontext(f, area1, newsp)
-#     int (*f)(); struct savearea *area1; char *newsp;
-*/
-
-/* Stack offsets of arguments */
-f	=	8
-area1	=	12
-newsp	=	16
-
-	.globl	_savecontext
-_savecontext:
-	movb	#1,_PRE_Block		| Dont allow any interrupt finagling
-	link	a6,#-(nregs*4)		| Save frame pointer & ...
-					| ... allocate space for nregs registers
-/* Save registers */
-	moveml	#regs,sp@
-
-	movl	a6@(area1),a0		| a0 = base of savearea
-	movl	sp,a0@(topstack)	| area->topstack = sp
-	movl	a6@(newsp),d0		| Get new sp
-	jeq	forw1			| If newsp == 0, no stack switch
-	movl	d0,sp			| Switch to new stack
-forw1:
-	movl	a6@(f),a0		| a0 = f
-	jbsr	a0@			| f()
-
-/* It is impossible to be here, so abort() */
-
-	jbsr	_abort
-
-/*
-# returnto(area2)
-#     struct savearea *area2;
-*/
-
-/* Stack offset of argument */
-area2	=	8
-
-	.globl _returnto
-_returnto:
-	link	a6,#0
-	movl	a6@(area2),a0		| Base of savearea
-	movl	a0@(topstack),sp	| Restore sp
-/* Restore registers */
-	moveml	sp@,#regs
-
-	addl	#(nregs*4),sp
-	movl	sp,a6			| Argghh...be careful here
-	unlk	a6
-	clrb	_PRE_Block
-	rts				| Return to previous process
-#endif /* mc68000 */
-#ifdef	sparc
-#ifdef	AFS_SUN5_ENV
-#define	_ASM	1
-#include	<sys/asm_linkage.h>
-#include  <sys/trap.h>
-#else
-#ifdef AFS_XBSD_ENV
-#include <machine/trap.h>
-#define ST_FLUSH_WINDOWS ST_FLUSHWIN
-#define MINFRAME 92
-#define SA(x) (((x)+7)&~7)
-#define STACK_ALIGN 8
-#else /* SunOS 4: */
-#include	<sun4/asm_linkage.h>
-#include  <sun4/trap.h>
-#endif
-#endif
-	.data	
-#ifdef	AFS_SUN5_ENV
-	.globl	PRE_Block
-#else
-	.globl	_PRE_Block
-#endif
-topstack	= 0
-globals = 4
-/*
-# savecontext(f, area1, newsp)
-#     int (*f)(); struct savearea *area1; char *newsp;
-*/
-	.text
-#ifdef	AFS_SUN5_ENV
-	.globl	savecontext
-savecontext:
-#else
-	.globl	_savecontext
-_savecontext:
-#endif
-	save	%sp, -SA(MINFRAME), %sp	! Get new window
-	ta	ST_FLUSH_WINDOWS		! FLush all other active windows
-
-	/* The following 3 lines do the equivalent of: _PRE_Block = 1 */
-#ifdef	AFS_SUN5_ENV
-	set	PRE_Block, %l0
-#else
-	set	_PRE_Block, %l0
-#endif
-	mov	1,%l1
-	stb	%l1, [%l0]
-
-	st	%fp,[%i1+topstack]		! area1->topstack = sp
-	
-	st	%g1, [%i1 + globals + 0]		/* Save all globals just in case */
-	st	%g2, [%i1 + globals + 4]
-	st	%g3, [%i1 + globals + 8]
-	st	%g4, [%i1 + globals + 12]
-	st	%g5, [%i1 + globals + 16]
-	st	%g6, [%i1 + globals + 20]
-	st	%g7, [%i1 + globals + 24]
-	mov	%y, %g1
-	st	%g1, [%i1 + globals + 28]
-
-#ifdef	save_allregs
-	st	%f0, [%i1 + globals + 32 + 0]		! Save all floating point registers 
-	st	%f1, [%i1 + globals + 32 + 4]
-	st	%f2, [%i1 + globals + 32 + 8]
-	st	%f3, [%i1 + globals + 32 + 12]
-	st	%f4, [%i1 + globals + 32 + 16]
-	st	%f5, [%i1 + globals + 32 + 20]
-	st	%f6, [%i1 + globals + 32 + 24]
-	st	%f7, [%i1 + globals + 32 + 28]
-	st	%f8, [%i1 + globals + 64 + 0]
-	st	%f9, [%i1 + globals + 64 + 4]
-	st	%f10, [%i1 + globals + 64 + 8]
-	st	%f11, [%i1 + globals + 64 + 12]
-	st	%f12, [%i1 + globals + 64 + 16]
-	st	%f13, [%i1 + globals + 64 + 20]
-	st	%f14, [%i1 + globals + 64 + 24]
-	st	%f15, [%i1 + globals + 64 + 28]
-	st	%f16, [%i1 + globals + 64 + 32]
-	st	%f17, [%i1 + globals + 64 + 36]
-	st	%f18, [%i1 + globals + 64 + 40]
-	st	%f19, [%i1 + globals + 64 + 44]
-	st	%f20, [%i1 + globals + 64 + 48]
-	st	%f21, [%i1 + globals + 64 + 52]
-	st	%f22, [%i1 + globals + 64 + 56]
-	st	%f23, [%i1 + globals + 64 + 60]
-	st	%f24, [%i1 + globals + 64 + 64]
-	st	%f25, [%i1 + globals + 64 + 68]
-	st	%f26, [%i1 + globals + 64 + 72]
-	st	%f27, [%i1 + globals + 64 + 76]
-	st	%f28, [%i1 + globals + 64 + 80]
-	st	%f29, [%i1 + globals + 64 + 84]
-	st	%f30, [%i1 + globals + 64 + 88]
-	st	%f31, [%i1 + globals + 64 + 92]
-#ifdef	notdef
-	mov	%fsr,%g1
-	st	%g1, [%i1 + globals + 64 + 96]
-	mov	%fq,%g1
-	st	%g1, [%i1 + globals + 64 + 100]
-#endif
-
-	st	%c0, [%i1 + globals + 168 + 0]			! Save all coprocessor registers 
-	st	%c1, [%i1 + globals + 168 + 4]
-	st	%c2, [%i1 + globals + 168 + 8]
-	st	%c3, [%i1 + globals + 168 + 12]
-	st	%c4, [%i1 + globals + 168 + 16]
-	st	%c5, [%i1 + globals + 168 + 20]
-	st	%c6, [%i1 + globals + 168 + 24]
-	st	%c7, [%i1 + globals + 168 + 28]
-	st	%c8, [%i1 + globals + 200 + 0]
-	st	%c9, [%i1 + globals + 200 + 4]
-	st	%c10, [%i1 + globals + 200 + 8]
-	st	%c11, [%i1 + globals + 200 + 12]
-	st	%c12, [%i1 + globals + 200 + 16]
-	st	%c13, [%i1 + globals + 200 + 20]
-	st	%c14, [%i1 + globals + 200 + 24]
-	st	%c15, [%i1 + globals + 200 + 28]
-	st	%c16, [%i1 + globals + 200 + 32]
-	st	%c17, [%i1 + globals + 200 + 36]
-	st	%c18, [%i1 + globals + 200 + 40]
-	st	%c19, [%i1 + globals + 200 + 44]
-	st	%c20, [%i1 + globals + 200 + 48]
-	st	%c21, [%i1 + globals + 200 + 52]
-	st	%c22, [%i1 + globals + 200 + 56]
-	st	%c23, [%i1 + globals + 200 + 60]
-	st	%c24, [%i1 + globals + 200 + 64]
-	st	%c25, [%i1 + globals + 200 + 68]
-	st	%c26, [%i1 + globals + 200 + 72]
-	st	%c27, [%i1 + globals + 200 + 76]
-	st	%c28, [%i1 + globals + 200 + 80]
-	st	%c29, [%i1 + globals + 200 + 84]
-	st	%c30, [%i1 + globals + 200 + 88]
-	st	%c31, [%i1 + globals + 200 + 92]
-#ifdef	notdef
-	mov	%csr,%g1
-	st	%g1, [%i1 + globals + 200 + 96]
-	mov	%cq,%g1
-	st	%g1, [%i1 + globals + 200 + 100]
-#endif
-#endif
-	cmp	%i2, 0
-	be,a	L1				! if (newsp == 0) no stack switch
-	nop
-#ifdef	notdef
-	add	%i2, STACK_ALIGN - 1, %i2
-	and	%i2, ~(STACK_ALIGN - 1), %i2
-	sub	%i2, SA(MINFRAME), %fp
-	call	%i0
-	restore
-#else
-	! This used to compute a new stack frame base, write it into
-	! FP, and restore to enter the new frame. But that left a window
-	! in which FP could be written into the backing store for this
-	! frame, to be tripped over later by returnto. So instead we do
-	! the restore first, then modify SP to enter the new frame. We
-	! can still refer to our argument as %02.
-	restore
-	add	%o2, STACK_ALIGN - 1, %o2
-	and	%o2, ~(STACK_ALIGN - 1), %o2	
-	call	%o0
-	sub	%o2, SA(MINFRAME), %sp
-#endif	
-
-L1:	call	%i0			! call f()
-	nop
-
-
-! returnto(area1)
-!     struct savearea *area1;
-#ifdef	AFS_SUN5_ENV
-	.globl returnto
-returnto:
-#else
-	.globl _returnto
-_returnto:
-#endif
-	ta	ST_FLUSH_WINDOWS		! FLush all other active windows
-	ld	[%o0+topstack],%g1		! sp = area1->topstack
-	sub	%g1, SA(MINFRAME), %fp	! Adjust sp to the right place
-	sub	%fp, SA(MINFRAME), %sp
-
-#ifdef	save_allregs
-	ld	[%o0 + globals + 32 + 0],%f0		! Restore floating-point registers 
-	ld	[%o0 + globals + 32 + 4],%f1
-	ld	[%o0 + globals + 32 + 8],%f2
-	ld	[%o0 + globals + 32 + 12],%f3
-	ld	[%o0 + globals + 32 + 16],%f4
-	ld	[%o0 + globals + 32 + 20],%f5
-	ld	[%o0 + globals + 32 + 24],%f6
-	ld	[%o0 + globals + 32 + 28],%f7
-	ld	[%o0 + globals + 64 + 0],%f8
-	ld	[%o0 + globals + 64 + 4],%f9
-	ld	[%o0 + globals + 64 + 8],%f10
-	ld	[%o0 + globals + 64 + 12],%f11
-	ld	[%o0 + globals + 64 + 16],%f12
-	ld	[%o0 + globals + 64 + 20],%f13
-	ld	[%o0 + globals + 64 + 24],%f14
-	ld	[%o0 + globals + 64 + 28],%f15
-	ld	[%o0 + globals + 64 + 32],%f16
-	ld	[%o0 + globals + 64 + 36],%f17
-	ld	[%o0 + globals + 64 + 40],%f18
-	ld	[%o0 + globals + 64 + 44],%f19
-	ld	[%o0 + globals + 64 + 48],%f20
-	ld	[%o0 + globals + 64 + 52],%f21
-	ld	[%o0 + globals + 64 + 56],%f22
-	ld	[%o0 + globals + 64 + 60],%f23
-	ld	[%o0 + globals + 64 + 64],%f24
-	ld	[%o0 + globals + 64 + 68],%f25
-	ld	[%o0 + globals + 64 + 72],%f26
-	ld	[%o0 + globals + 64 + 76],%f27
-	ld	[%o0 + globals + 64 + 80],%f28
-	ld	[%o0 + globals + 64 + 84],%f29
-	ld	[%o0 + globals + 64 + 88],%f30
-	ld	[%o0 + globals + 64 + 92],%f31
-#ifdef	notdef
-	ld	[%o0 + globals + 64 + 96],%g1
-	mov	%g1, %fsr
-	ld	[%o0 + globals + 64 + 100],%g1
-	mov	%g1, %fq
-#endif
-
-	ld	[%o0 + globals + 168 + 0],%c0		! Restore floating-point registers 
-	ld	[%o0 + globals + 168 + 4],%c1
-	ld	[%o0 + globals + 168 + 8],%c2
-	ld	[%o0 + globals + 168 + 12],%c3
-	ld	[%o0 + globals + 168 + 16],%c4
-	ld	[%o0 + globals + 168 + 20],%c5
-	ld	[%o0 + globals + 168 + 24],%c6
-	ld	[%o0 + globals + 168 + 28],%c7
-	ld	[%o0 + globals + 200 + 0],%c8
-	ld	[%o0 + globals + 200 + 4],%c9
-	ld	[%o0 + globals + 200 + 8],%c10
-	ld	[%o0 + globals + 200 + 12],%c11
-	ld	[%o0 + globals + 200 + 16],%c12
-	ld	[%o0 + globals + 200 + 20],%c13
-	ld	[%o0 + globals + 200 + 24],%c14
-	ld	[%o0 + globals + 200 + 28],%c15
-	ld	[%o0 + globals + 200 + 32],%c16
-	ld	[%o0 + globals + 200 + 36],%c17
-	ld	[%o0 + globals + 200 + 40],%c18
-	ld	[%o0 + globals + 200 + 44],%c19
-	ld	[%o0 + globals + 200 + 48],%c20
-	ld	[%o0 + globals + 200 + 52],%c21
-	ld	[%o0 + globals + 200 + 56],%c22
-	ld	[%o0 + globals + 200 + 60],%c23
-	ld	[%o0 + globals + 200 + 64],%c24
-	ld	[%o0 + globals + 200 + 68],%c25
-	ld	[%o0 + globals + 200 + 72],%c26
-	ld	[%o0 + globals + 200 + 76],%c27
-	ld	[%o0 + globals + 200 + 80],%c28
-	ld	[%o0 + globals + 200 + 84],%c29
-	ld	[%o0 + globals + 200 + 88],%c30
-	ld	[%o0 + globals + 200 + 92],%c31
-#ifdef	notdef
-	ld	[%o0 + globals + 200 + 96],%g1
-	mov	%g1, %csr
-	ld	[%o0 + globals + 200 + 100],%g1
-	mov	%g1, %cq
-#endif
-#endif
-	ld	[%o0 + globals + 28], %g1		! Restore global regs back
-	mov	%g1, %y
-	ld	[%o0 + globals + 0], %g1
-	ld	[%o0 + globals + 4], %g2
-	ld	[%o0 + globals + 8], %g3
-	ld	[%o0 + globals + 12],%g4
-	ld	[%o0 + globals + 16],%g5
-	ld	[%o0 + globals + 20],%g6
-	ld	[%o0 + globals + 24],%g7
-
-	/* The following 3 lines are equivalent to: _PRE_Block = 0 */
-#ifdef	AFS_SUN5_ENV
-	set	PRE_Block, %l0
-#else
-	set	_PRE_Block, %l0
-#endif
-	mov	0,%l1
-	stb	%l1, [%l0]
-
-	restore					
-	restore
-
-	retl
-	nop
-
-#endif /* sparc */
-#ifdef ibm032
-|
-|	Information Technology Center
-|	Carnegie-Mellon University
-|
-|
-	.data
-	.globl	.oVncs
-	.set		.oVncs,0
-
-	.globl	_savecontext
-_savecontext:
-	.long		_.savecontext
-
-	.globl	_returnto
-_returnto:
-	.long		_.returnto
-
-|
-|	Process assembly language assist for Sailboats.
-|
-
-	.text
-	.align 2
-
-|
-| struct savearea {
-|	char	*topstack;
-| }
-|
-
-| Offsets of fields
-.set topstack,0
-
-| Stuff to allow saving/restoring registers
-.set regspace,64
-.set freg,0
-
-|
-| savecontext(f, area1, newsp)
-|    int (*f)(); struct savearea *area1; char *newsp;
-|
-
-	.globl	_.savecontext
-_.savecontext:
-	ai	sp,sp,-regspace		| Save frame pointer & ...
-					| ... allocate space for 16 registers
-| Save registers
-	stm	r0,0(sp)			| Change this if save fewer regs.
-| Set preemption semaphore
-	get	r6,$1
-	get	r7,$_PRE_Block
-	putc	r6,0(r7)			| PRE_Block = 1
-| r3 = base of savearea
-	put	sp,topstack(r3)		| area1->topstack = sp
-| New sp is in r4.
-	cis	r4,0
-	be	L1			| If newsp == 0, no stack switch
-	cas	sp,r4,r0			| Switch to new stack
-L1:
-	get	r6,0(r2)			| r2 = _f
-	balrx	r15,r6			| f()
-	cas	r0,r2,r0
-
-|
-| returnto(area2)
-|     struct savearea *area2;
-|
-
-	.globl _.returnto
-_.returnto:
-	get	sp,topstack(r2)
-| Now in the context of the savecontext stack to be restored.
-| Start with the registers...
-| Clear preemption semaphore
-	get	r6,$0
-	get	r7,$_PRE_Block
-	putc	r6,0(r7)			| PRE_Block = 0
-	lm	r0,0(sp)		| Change if saving fewer regs.
-	brx	r15		| Return to previous process
-	ai	sp,sp,regspace
- .data
- .ltorg
-#endif
-
-#ifdef AFS_AIX22_ENV
-/*
-#
-#	Information Technology Center
-#	Carnegie-Mellon University
-#
-*/
-/*
-#
-#	Process assembly language assist for Sailboats.
-#
-*/
-
-	.text
-	.globl	.savecontext
-	.align 1
-
-/*
-#
-# struct savearea {
-#	char	*topstack;
-# }
-#
-*/
-
-
-/*# Offsets of fields*/
-.set topstack,0
-
-/*# Stuff to allow saving/restoring registers*/
-.set regspace,64
-.set freg,0
-
-/*
-#
-# savecontext(f, area1, newsp)
-#    int (*f)(); struct savearea *area1; char *newsp;
-#
-*/
-
-.savecontext:
-	ai	1,1,-regspace		# Save frame pointer & ...
-
-/*# Save registers*/
-	stm	0,0(1)			# Change this if save fewer regs.
-	lr	14,0
-/*# Set preemption semaphore*/
-	lis	6,1
-	l	7,4(14)
-	stc	6,0(7)
-/*# r3 = base of savearea*/
-	st	1,topstack(3)		# area1->topstack = sp
-/*# New sp is in r4.*/
-	ci	4,0
-	beq	L1			# If newsp == 0, no stack switch
-	cas	1,4,0			# Switch to new stack
-L1:
-	l	6,0(2)			# r2 = _f
-	balrx	15,6			# f()
-	cas	0,2,0
-	.data	3
-	.globl	_savecontext
-_savecontext:
-	.long	.savecontext
-	.long	_PRE_Block
-/*
-#
-# returnto(area2)
-#     struct savearea *area2;
-#
-*/
-
-	.text
-	.globl	.returnto
-	.align 1
-.returnto:
-	l	1,topstack(2)
-/*
-# Now in the context of the savecontext stack to be restored.
-# Start with the registers...
-# Clear preemption semaphore
-*/
-	lr	14,0
-	lis	6,0
-	l	7,4(14)
-	stc	6,0(7)
-	lm	0,0(1)		# Change if saving fewer regs.
-	brx	15		# Return to previous process
-	ai	1,1,regspace
-	.data	3
-	.globl	_returnto
-_returnto:
-	.long	.returnto
-	.long	_PRE_Block
-#endif /* AFS_AIX_ENV */
-
-#ifdef vax
-/*
-#
-#	Information Technology Center
-#	Carnegie-Mellon University
-#
-#
-*/
-	.data
-
-/*
-#
-#	Algorithm: "Monkey see, monkey do"
-#
-*/
-
-	.text
-
-/*
-#
-# struct savearea {
-#	char	*topstack;
-# }
-#
-*/
-
-	.set	topstack,0
-
-/* Stuff to allow saving/restoring registers */
-
-/*
-# savecontext(f, area1, newsp)
-#     int (*f)(); struct savearea *area1; char *newsp;
-*/
-
-/* Stack offsets of arguments */
-	.set	f,4
-	.set	area1,8
-	.set	newsp,12
-
-.globl	_PRE_Block
-.globl	_savecontext
-
-_savecontext:
-	.word 0x0ffc	# Save regs R2-R11
-	movb	$1,_PRE_Block		# Critical section for preemption code
-   	pushl	ap			# save old ap
-	pushl	fp			# save old fp    
-	movl	area1(ap),r0		# r0 = base of savearea
-	movl	sp,topstack(r0)		# area->topstack = sp
-	movl	newsp(ap),r0		# Get new sp
-	beql	L1			# if new sp is 0, dont change stacks
-	movl	r0,sp			# else switch to new stack
-L1:
-	movl	f(ap),r1		# r1 = f
-	calls	$0,0(r1)		# f()
-
-/* It is impossible to be here, so abort() */
-
-	calls	$0,_abort
-
-/*
-# returnto(area2)
-#     struct savearea *area2;
-*/
-
-/* Stack offset of argument */
-	.set	area2,4
-
-	.globl _returnto
-_returnto:
-	.word	0x0			# Who cares about these regs?
-	movl	area2(ap),r0		# r0 = address of area2
-	movl	topstack(r0),sp		# Restore sp
-	movl	(sp)+,fp		# Restore fp
-	movl	(sp)+,ap		# ,,,,
-	clrb	_PRE_Block		# End of preemption critical section
-	ret
-
-	pushl	$1234			# The author will gloat
-	calls	$0,_abort
-#endif
-
-#ifdef mips
-#ifdef	sgi
-	.option	pic2
-
-#include <regdef.h> /* Allow use of symbolic names for registers. */
-/* 9 sregs, ra, 6 fp regs, gp, pad to 8 byte boundary */
-#define regspace 9 * 4 + 4 + 6 * 8 + 4 + 4
-#define floats 0
-#define registers floats + 6 * 8
-#define returnaddr regspace - 4
-#define topstack 0
-#define GPOFF	regspace - 8
-	.globl savecontext /* MIPS' C compiler doesnt prepend underscores. */
-	.ent savecontext /* Insert debugger information. */
-savecontext:
-        .set    noreorder
-        .cpload t9                      # set up gp for KPIC
-        .set    reorder
-        subu sp, regspace
-        .cprestore GPOFF                # trigger t9/jalr
-	.set	noreorder
-	li	t0, 1
-	.extern	PRE_Block
-	sb	t0, PRE_Block
-        .set    reorder
-	.frame	sp, regspace, ra
-/* Save registers. */
-	sw	s0, registers + 0(sp)
-	sw	s1, registers + 4(sp)
-	sw	s2, registers + 8(sp)
-	sw	s3, registers + 12(sp)
-	sw	s4, registers + 16(sp)
-	sw	s5, registers + 20(sp)
-	sw	s6, registers + 24(sp)
-	sw	s7, registers + 28(sp)
-	sw	s8, registers + 32(sp)
-/* Save return address */
-	sw	ra, returnaddr(sp)
-	.mask	0xc0ff0000, -4
-/* Need to save floating point registers? */
-	s.d	$f20, floats + 0(sp)
-	s.d	$f22, floats + 8(sp)
-	s.d	$f24, floats + 16(sp)
-	s.d	$f26, floats + 24(sp)
-	s.d	$f28, floats + 32(sp)
-	s.d	$f30, floats + 40(sp)
-	.fmask	0x55400000, regspace
-	sw	sp, topstack(a1)
-	beq	a2, $0, samestack
-	move	sp, a2
-samestack:
-	move	t9, a0
-	j	t9
-	.end	savecontext
-
-	.globl	returnto
-	.ent	returnto
-returnto:
-        .set    noreorder
-        .cpload t9                      # set up gp for KPIC
-        .set    reorder
-
-	lw	sp, topstack(a0)
-	lw	s0, registers + 0(sp)
-	lw	s1, registers + 4(sp)
-	lw	s2, registers + 8(sp)
-	lw	s3, registers + 12(sp)
-	lw	s4, registers + 16(sp)
-	lw	s5, registers + 20(sp)
-	lw	s6, registers + 24(sp)
-	lw	s7, registers + 28(sp)
-	lw	s8, registers + 32(sp)
-/* Save return address */
-	lw	ra, returnaddr(sp)
-/* Need to save floating point registers? */
-	l.d	$f20, floats + 0(sp)
-	l.d	$f22, floats + 8(sp)
-	l.d	$f24, floats + 16(sp)
-	l.d	$f26, floats + 24(sp)
-	l.d	$f28, floats + 32(sp)
-	l.d	$f30, floats + 40(sp)
-	.set	noreorder
-	addu	sp, regspace
-	la	t0, PRE_Block
-	j	ra
-	sb	zero, 0(t0)
-	.set	reorder
-	.end	returnto
-
-#else
-/* Code for MIPS R2000/R3000 architecture
- * Written by Zalman Stern April 30th, 1989.
- */
-#include <regdef.h> /* Allow use of symbolic names for registers. */
-#define regspace 9 * 4 + 4 + 6 * 8
-#define floats 0
-#define registers floats + 6 * 8
-#define returnaddr regspace - 4
-#define topstack 0
-	.globl savecontext /* MIPS' C compiler doesnt prepend underscores. */
-	.ent savecontext /* Insert debugger information. */
-savecontext:
-	li	t0, 1
-	.extern	PRE_Block
-	sb	t0, PRE_Block
-	subu	sp, regspace
-	.frame	sp, regspace, ra
-/* Save registers. */
-	sw	s0, registers + 0(sp)
-	sw	s1, registers + 4(sp)
-	sw	s2, registers + 8(sp)
-	sw	s3, registers + 12(sp)
-	sw	s4, registers + 16(sp)
-	sw	s5, registers + 20(sp)
-	sw	s6, registers + 24(sp)
-	sw	s7, registers + 28(sp)
-	sw	s8, registers + 32(sp)
-/* Save return address */
-	sw	ra, returnaddr(sp)
-	.mask	0xc0ff0000, -4
-/* Need to save floating point registers? */
-	s.d	$f20, floats + 0(sp)
-	s.d	$f22, floats + 8(sp)
-	s.d	$f24, floats + 16(sp)
-	s.d	$f26, floats + 24(sp)
-	s.d	$f28, floats + 32(sp)
-	s.d	$f30, floats + 40(sp)
-	.fmask	0x55400000, regspace
-	sw	sp, topstack(a1)
-	beq	a2, $0, samestack
-	addu	sp, $0, a2
-samestack:
-	jal	a0
-	.end	savecontext
-
-	.globl	returnto
-	.ent	returnto
-returnto:
-	lw	sp, topstack(a0)
-	lw	s0, registers + 0(sp)
-	lw	s1, registers + 4(sp)
-	lw	s2, registers + 8(sp)
-	lw	s3, registers + 12(sp)
-	lw	s4, registers + 16(sp)
-	lw	s5, registers + 20(sp)
-	lw	s6, registers + 24(sp)
-	lw	s7, registers + 28(sp)
-	lw	s8, registers + 32(sp)
-/* Save return address */
-	lw	ra, returnaddr(sp)
-/* Need to save floating point registers? */
-	l.d	$f20, floats + 0(sp)
-	l.d	$f22, floats + 8(sp)
-	l.d	$f24, floats + 16(sp)
-	l.d	$f26, floats + 24(sp)
-	l.d	$f28, floats + 32(sp)
-	l.d	$f30, floats + 40(sp)
-	addu	sp, regspace
-	sb	$0, PRE_Block
-	j	ra
-	.end	returnto
-#endif	/* sgi */
-#endif
-
-#ifdef AFS_HPUX_ENV
-#include "process.s.hpux"
-#endif /* AFS_HPUX_ENV */
-
-#ifdef __alpha
-/* Code for DEC Alpha architecture */
-#ifdef	AFS_OSF_ENV
-#include <machine/asm.h>
-#include <machine/regdef.h>
-#define	fs0	$f2
-#define	fs1	$f3
-#define	fs2	$f4
-#define	fs3	$f5
-#define	fs4	$f6
-#define	fs5	$f7
-#define	fs6	$f8
-#define	fs7	$f9
-#elif defined(AFS_XBSD_ENV)
-#include <machine/asm.h>
-#else	/* !OSF && !XBSD */
-#include <mach/alpha/asm.h>
-#endif	/* OSF */
-
-#define FRAMESIZE ((8*8)+8+(7*8))
-#define floats 0
-#define registers (floats+(8*8))
-#define returnaddr (FRAMESIZE-8)
-#define topstack 0
-
-#ifdef AFS_OSF_ENV
-IMPORT(PRE_Block,4)
-#endif
-.align	4
-#ifdef	AFS_OSF_ENV
-NESTED(savecontext,FRAMESIZE,ra)
-#else	/* OSF */
-NESTED(savecontext,3,FRAMESIZE,ra,0x0400f700,0x000003fc)
-#endif	/* OSF */
-	ldgp	gp,0(pv)
-	lda	t0, 1(zero)
-	stl	t0, PRE_Block
-	lda	sp,-FRAMESIZE(sp)
-/* Save callee-saved registers. */
-	stq	s0, (registers+0) (sp)
-	stq	s1, (registers+8) (sp)
-	stq	s2, (registers+16) (sp)
-	stq	s3, (registers+24) (sp)
-	stq	s4, (registers+32) (sp)
-	stq	s5, (registers+40) (sp)
-	stq	s6, (registers+48) (sp)
-/* Save return address */
-	stq	ra, returnaddr(sp)
-
-	.mask	(M_S0|M_S1|M_S2|M_S3|M_S4|M_S5|M_S6|M_RA), -FRAMESIZE
-
-/* Save floating point registers */
-	stt	fs0, (floats+0) (sp)
-	stt	fs1, (floats+8) (sp)
-	stt	fs2, (floats+16) (sp)
-	stt	fs3, (floats+24) (sp)
-	stt	fs4, (floats+32) (sp)
-	stt	fs5, (floats+40) (sp)
-	stt	fs6, (floats+48) (sp)
-	stt	fs7, (floats+56) (sp)
-
-	.prologue	1
-	stq	sp, topstack(a1)
-	or	a0,zero,pv		/* call point in pv */
-	beq	a2, samestack
-	or	a2,zero,sp		/* switch stack */
-samestack:
-	jsr	ra,(pv),0		/* off we go */
-	END(savecontext)
-
-#ifdef	AFS_OSF_ENV
-LEAF(returnto)
-#else	
-LEAF(returnto,1)
-#endif	
-	ldgp	gp,0(pv)
-
-	.prologue	1
-	ldq	sp, topstack(a0)
-/* Restore callee-saved regs */
-	ldq	s0, (registers+0) (sp)
-	ldq	s1, (registers+8) (sp)
-	ldq	s2, (registers+16) (sp)
-	ldq	s3, (registers+24) (sp)
-	ldq	s4, (registers+32) (sp)
-	ldq	s5, (registers+40) (sp)
-	ldq	s6, (registers+48) (sp)
-/* Return address */
-	ldq	ra, returnaddr(sp)
-/* Floating point registers */
-	ldt	fs0, (floats+0) (sp)
-	ldt	fs1, (floats+8) (sp)
-	ldt	fs2, (floats+16) (sp)
-	ldt	fs3, (floats+24) (sp)
-	ldt	fs4, (floats+32) (sp)
-	ldt	fs5, (floats+40) (sp)
-	ldt	fs6, (floats+48) (sp)
-	ldt	fs7, (floats+56) (sp)
-	lda	sp, FRAMESIZE(sp)
-	stl	zero, PRE_Block
-	RET
-	END(returnto)
-#endif
-
-#ifdef AFS_PPC_ENV
-/* Comments:
- *    1. Registers R10..R31 and CR0..CR7 are saved
- *    2. "struct savearea" must hold at least 3 pointers (long)
- *    3. This code will only work on 32 bit machines (601..604), not 620
- *    4. No floating point registers are saved
- *    5. The save stack "frame" is bigger than absolutely necessary.  The
- *       PowerPC [AIX] ABI needs this extra space.
- */
-
-
-/* Mach-O assemblers */
-#if !defined(NeXT) && !defined(__APPLE__)
-#define r0    0
-#define r1    1
-#define r2    2
-#define r3    3
-#define r4    4
-#define r5    5
-#define r6    6
-#define r7    7
-#define r8    8
-#define r9    9
-#define r10   10
-#define r11   11
-#define r12   12
-#define r13   13
-#define r14   14
-#define r15   15
-#define r16   16
-#define r17   17
-#define r18   18
-#define r19   19
-#define r20   20
-#define r21   21
-#define r22   22
-#define r23   23
-#define r24   24
-#define r25   25
-#define r26   26
-#define r27   27
-#define r28   28
-#define r29   29
-#define r30   30
-#define r31   31
-#endif /* !NeXT && !__APPLE__ */
-
-
-/*
- * savecontext(int (*f)(), struct savearea *save, char *newsp)
- */
-
-#define FRAME_SIZE    (32*4)+(8*4)
-#define FRAME_OFFSET  (8*4)
-#define TOP_OF_STACK  (0*4)
-#define RETURN                (1*4)
-#define CCR           (2*4)
-
-#if defined(NeXT) || defined(__APPLE__)
-      .globl  _savecontext
-_savecontext:
-      lis     r9,ha16(_PRE_Block)     /* Disable interrupt fiddling */
-      li      r8,1
-      stb     r8,lo16(_PRE_Block)(r9)
-#else
-      .globl  savecontext
-savecontext:
-      lis     r9,PRE_Block@ha         /* Disable interrupt fiddling */
-      li      r8,1
-      stb     r8,PRE_Block@l(r9)
-#endif /* NeXT || __APPLE__ */
-      subi    r1,r1,FRAME_SIZE
-      mfcr    r9
-      stw     r9,CCR(r4)
-      stw     r10,10*4+FRAME_OFFSET(r1)       /* Save registers */
-      stw     r11,11*4+FRAME_OFFSET(r1)
-      stw     r12,12*4+FRAME_OFFSET(r1)
-      stw     r13,13*4+FRAME_OFFSET(r1)
-      stw     r14,14*4+FRAME_OFFSET(r1)
-      stw     r15,15*4+FRAME_OFFSET(r1)
-      stw     r16,16*4+FRAME_OFFSET(r1)
-      stw     r17,17*4+FRAME_OFFSET(r1)
-      stw     r18,18*4+FRAME_OFFSET(r1)
-      stw     r19,19*4+FRAME_OFFSET(r1)
-      stw     r20,20*4+FRAME_OFFSET(r1)
-      stw     r21,21*4+FRAME_OFFSET(r1)
-      stw     r22,22*4+FRAME_OFFSET(r1)
-      stw     r23,23*4+FRAME_OFFSET(r1)
-      stw     r24,24*4+FRAME_OFFSET(r1)
-      stw     r25,25*4+FRAME_OFFSET(r1)
-      stw     r26,26*4+FRAME_OFFSET(r1)
-      stw     r27,27*4+FRAME_OFFSET(r1)
-      stw     r28,28*4+FRAME_OFFSET(r1)
-      stw     r29,29*4+FRAME_OFFSET(r1)
-      stw     r30,30*4+FRAME_OFFSET(r1)
-      stw     r31,31*4+FRAME_OFFSET(r1)
-      stw     r1,TOP_OF_STACK(r4)
-      cmpi    0,r5,0                          /* New stack specified? */
-      mflr    r0
-      stw     r0,RETURN(r4)
-      mtlr    r3
-      beq     L1                             /* No - don't muck with pointer */
-
-      mr      r1,r5
-L1:	   blr                                     /* Return */
-
-/*
- * returnto(struct savearea *area)
- */
-#if defined(NeXT) || defined(__APPLE__)
-      .globl  _returnto
-_returnto:
-#else
-      .globl  returnto
-returnto:
-#endif /* NeXT || __APPLE__ */
-      lwz     r1,TOP_OF_STACK(r3)             /* Update stack pointer */
-      lwz     r0,RETURN(r3)                   /* Get return address */
-      mtlr    r0
-      lwz     r4,CCR(r3)
-      mtcrf   0xFF,r4
-      lwz     r10,10*4+FRAME_OFFSET(r1)       /* Restore registers */
-      lwz     r11,11*4+FRAME_OFFSET(r1)
-      lwz     r12,12*4+FRAME_OFFSET(r1)
-      lwz     r13,13*4+FRAME_OFFSET(r1)
-      lwz     r14,14*4+FRAME_OFFSET(r1)
-      lwz     r15,15*4+FRAME_OFFSET(r1)
-      lwz     r16,16*4+FRAME_OFFSET(r1)
-      lwz     r17,17*4+FRAME_OFFSET(r1)
-      lwz     r18,18*4+FRAME_OFFSET(r1)
-      lwz     r19,19*4+FRAME_OFFSET(r1)
-      lwz     r20,20*4+FRAME_OFFSET(r1)
-      lwz     r21,21*4+FRAME_OFFSET(r1)
-      lwz     r22,22*4+FRAME_OFFSET(r1)
-      lwz     r23,23*4+FRAME_OFFSET(r1)
-      lwz     r24,24*4+FRAME_OFFSET(r1)
-      lwz     r25,25*4+FRAME_OFFSET(r1)
-      lwz     r26,26*4+FRAME_OFFSET(r1)
-      lwz     r27,27*4+FRAME_OFFSET(r1)
-      lwz     r28,28*4+FRAME_OFFSET(r1)
-      lwz     r29,29*4+FRAME_OFFSET(r1)
-      lwz     r30,30*4+FRAME_OFFSET(r1)
-      lwz     r31,31*4+FRAME_OFFSET(r1)
-#if defined(NeXT) || defined(__APPLE__)
-      lis     r9,ha16(_PRE_Block)         /* Re-enable interrupt fiddling */
-      li      r8,0
-      stb     r8,lo16(_PRE_Block)(r9)
-#else
-      lis     r9,PRE_Block@ha         /* Re-enable interrupt fiddling */
-      li      r8,0
-      stb     r8,PRE_Block@l(r9)
-#endif /* NeXT || __APPLE__ */
-      addi    r1,r1,FRAME_SIZE
-      blr
-#endif
-	
-#if defined(__linux__) && defined(__ELF__)
-	.section .note.GNU-stack,"",%progbits
-#endif