[Openmcl-cvs-notifications] r8543 - /trunk/source/lisp-kernel/ppc-exceptions.c

[gb at clozure.com]

Author: gb
Date: Thu Feb 21 05:19:59 2008
New Revision: 8543

Log:
No SIG_RESUME_THREAD on PPC.  Really.
Didn't really need do_heap_soft_write.

Modified:
    trunk/source/lisp-kernel/ppc-exceptions.c

Modified: trunk/source/lisp-kernel/ppc-exceptions.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/ppc-exceptions.c (original)
+++ trunk/source/lisp-kernel/ppc-exceptions.c Thu Feb 21 05:19:59 2008
@@ -806,8 +806,7 @@
    do_soft_stack_overflow,
    do_hard_stack_overflow,    =

    do_hard_stack_overflow,
-   do_hard_stack_overflow,
-   do_heap_soft_write
+   do_hard_stack_overflow
    };
 =

 =

@@ -1097,12 +1096,6 @@
   return -1;
 }
 =

-OSStatus
-do_heap_soft_write(ExceptionInformation *xp, protected_area_ptr area, Byte=
Ptr addr)
-{
-  UnProtectMemory((LogicalAddress)(truncate_to_power_of_2(addr, log2_page_=
size)),page_size);
-  return 0;
-}
 =

 /*
   We have a couple of choices here.  We can simply unprotect the page
@@ -2185,10 +2178,8 @@
 thread_signal_setup()
 {
   thread_suspend_signal =3D SIG_SUSPEND_THREAD;
-  thread_resume_signal =3D SIG_RESUME_THREAD;
 =

   install_signal_handler(thread_suspend_signal, (void *) suspend_resume_ha=
ndler);
-  install_signal_handler(thread_resume_signal,  (void *) suspend_resume_ha=
ndler);
   install_signal_handler(SIGQUIT, (void *)quit_handler);
 }
 =