From e91fc9cfe3537a2f333a41ab5487b09b0795f23c Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 3 Oct 2001 14:08:18 +0000 Subject: [PATCH] Use trap_PseudoAtomic instead of the hardwired 16. --- lisp/sparc-assem.S | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/sparc-assem.S b/lisp/sparc-assem.S index d38a168f4..6fed8b072 100644 --- a/lisp/sparc-assem.S +++ b/lisp/sparc-assem.S @@ -86,7 +86,7 @@ _call_into_lisp: /* No longer atomic, and check for interrupt. */ sub reg_ALLOC, 4, reg_ALLOC andcc reg_ALLOC, 3, reg_ZERO - tne 16 + tne trap_PseudoAtomic /* Pass in the args. */ sll %i2, 2, reg_NARGS @@ -135,7 +135,7 @@ lra: /* Were we interrupted? */ sub reg_ALLOC, 4, reg_ALLOC andcc reg_ALLOC, 3, reg_ZERO - tne 16 + tne trap_PseudoAtomic /* Back to C we go. */ ld [%sp+FRAMESIZE-4], %i7 @@ -178,7 +178,7 @@ _call_into_c: /* Were we interrupted? */ sub reg_ALLOC, 4, reg_ALLOC andcc reg_ALLOC, 3, reg_ZERO - tne 16 + tne trap_PseudoAtomic /* Into C we go. */ call reg_CFUNC @@ -216,7 +216,7 @@ _call_into_c: /* No longer atomic. */ sub reg_ALLOC, 4, reg_ALLOC andcc reg_ALLOC, 3, reg_ZERO - tne 16 + tne trap_PseudoAtomic /* Reset the lisp stack. */ /* Note: OCFP is in one of the locals, it gets preserved across C. */ -- GitLab