43 lines
1,017 B
Text
43 lines
1,017 B
Text
$NetBSD: patch-aq,v 1.7 2003/06/23 20:48:24 jtb Exp $
|
|
|
|
--- /dev/null
|
|
+++ config/netbsd/vax.c
|
|
@@ -0,0 +1,38 @@
|
|
+/*
|
|
+ * coswitch for the VAX architecture.
|
|
+ */
|
|
+
|
|
+int
|
|
+coswitch (int *old_cs, int *new_cs, int first)
|
|
+{
|
|
+ asm ("movl 4(%ap),%r0");
|
|
+ asm ("movl 8(%ap),%r1");
|
|
+ asm ("movl %sp,0(%r0)");
|
|
+ asm ("movl %fp,4(%r0)");
|
|
+ asm ("movl %ap,8(%r0)");
|
|
+ asm ("movl %r11,16(%r0)");
|
|
+ asm ("movl %r10,20(%r0)");
|
|
+ asm ("movl %r9,24(%r0)");
|
|
+ asm ("movl %r8,28(%r0)");
|
|
+ asm ("movl %r7,32(%r0)");
|
|
+ asm ("movl %r6,36(%r0)");
|
|
+
|
|
+ if (first == 0) { /* this is the first activation */
|
|
+ asm ("movl 0(%r1),%sp");
|
|
+ asm ("clrl %fp");
|
|
+ asm ("clrl %ap");
|
|
+ new_context (0,0);
|
|
+ syserr ("new_context() returned in coswitch");
|
|
+ }
|
|
+ else {
|
|
+ asm ("movl 0(%r1),%sp");
|
|
+ asm ("movl 4(%r1),%fp");
|
|
+ asm ("movl 8(%r1),%ap");
|
|
+ asm ("movl 16(%r1),%r11");
|
|
+ asm ("movl 20(%r1),%r10");
|
|
+ asm ("movl 24(%r1),%r9");
|
|
+ asm ("movl 28(%r1),%r8");
|
|
+ asm ("movl 32(%r1),%r7");
|
|
+ asm ("movl 36(%r1),%r6");
|
|
+ }
|
|
+}
|