Changeset 458

Timestamp:

Feb 2, 2004, 8:01:27 AM (21 years ago)

Author:

Gary Byers

Message:

Remove old vector-copying stuff.

File:

• trunk/ccl/lisp-kernel/lisp-exceptions.c (modified) (3 diffs)

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -1547 +1547 @@
   area *a;
   TCR *tcr = (TCR *)(xpGPR(xp, rcontext));
-  char raw_vectors[34*16];
-  vector_buf vectors = (vector_buf) ((((int) raw_vectors) + 0xf) & ~0xf);
 
   /* Put the active stack pointer where .SPcallback expects it */
@@ -1561 +1559 @@
 
 
-#ifdef LINUX
-  if (altivec_available) {
-    put_altivec_registers(vectors);
-    xpGPR(xp,PT_MQ) = (LispObj) vectors;
-
-  }
-#endif
 
   /* Call back.
@@ -1578 +1569 @@
   LOCK(lisp_global(EXCEPTION_LOCK), tcr);
 
-  if (altivec_available) {
-    get_altivec_registers(vectors);
-  }