Changeset 893

Timestamp:

Oct 26, 2004, 10:22:40 PM (20 years ago)

Author:

Gary Byers

Message:

get_interrupt_tcr() takes a "create-p" argument, like some callers thought
it did.

File:

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

trunk/ccl/lisp-kernel/thread_manager.c

@@ -232 +232 @@
 
 TCR *
-get_interrupt_tcr()
+get_interrupt_tcr(Boolean create)
 {
 #ifndef LINUX
-  return get_tcr(true);
+  return get_tcr(create);
 #else
   void* callers_r2 = current_r2;
 
   if (callers_r2 == NULL) {     /* pre-glibc-2.3.2 Linux */
-    return get_tcr(true);
+    return get_tcr(create);
   } else {
     TCR  *head = (TCR *)lisp_global(INITIAL_TCR), *current = head;
@@ -266 +266 @@
        struct pointer and that it's therefore safe to call get_tcr().
     */
-    return get_tcr(true);
+    return get_tcr(create);
   }
 #endif
@@ -275 +275 @@
 suspend_resume_handler(int signo, siginfo_t *info, ExceptionInformation *context)
 {
-  TCR *tcr = get_interrupt_tcr(true);
+  TCR *tcr = get_interrupt_tcr(false);
 
   if (signo == thread_suspend_signal) {