Skip to content
Snippets Groups Projects
Commit 719d6ca7 authored by wlott's avatar wlott
Browse files

Don't set *PSEUDO-ATOMIC-{ATOMIC,INTERRUPTED}* on the sparc because pa

is done differently now.
parent d5c4b6f1
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.16 1992/03/08 18:42:40 wlott Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.17 1992/03/22 20:02:40 wlott Exp $ */
/* Lisp kernel core debugger */ /* Lisp kernel core debugger */
#include <stdio.h> #include <stdio.h>
...@@ -133,7 +133,7 @@ char *envp[]; ...@@ -133,7 +133,7 @@ char *envp[];
SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv));
SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp));
#ifndef mips #if !defined(mips) && !defined(sparc)
/* Turn on pseudo atomic for when we call into lisp. */ /* Turn on pseudo atomic for when we call into lisp. */
SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1)); SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1));
SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0)); SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0));
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment