[MLton-commit] r4176

[Matthew Fluet]

Fixed bug in triggering GC signal
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/Posix/Signal.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.h

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/Posix/Signal.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/Posix/Signal.c	2005-11-08 22:05:22 UTC (rev 4175)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/Posix/Signal.c	2005-11-08 22:48:34 UTC (rev 4176)
@@ -27,7 +27,7 @@
 bool Posix_Signal_isGCPending () {
         Bool res;
 
-        res = GC_getSignalIsPending (&gcState);
+        res = GC_getGCSignalPending (&gcState);
         if (DEBUG_SIGNALS)
                 fprintf (stderr, "%s = Posix_Signal_isGCPending ()\n",
                                 boolToString (res));

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.c	2005-11-08 22:05:22 UTC (rev 4175)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.c	2005-11-08 22:48:34 UTC (rev 4176)
@@ -37,10 +37,6 @@
   return &(s->signalsInfo.signalsHandled);
 }
 
-bool GC_getSignalIsPending (GC_state s) {
-  return (s->signalsInfo.signalIsPending);
-}
-
 sigset_t* GC_getSignalsPendingAddr (GC_state s) {
   return &(s->signalsInfo.signalsPending);
 }
@@ -49,6 +45,10 @@
   s->signalsInfo.gcSignalHandled = b;
 }
 
+bool GC_getGCSignalPending (GC_state s) {
+  return (s->signalsInfo.gcSignalPending);
+}
+
 void GC_setGCSignalPending (GC_state s, bool b) {
   s->signalsInfo.gcSignalPending = b;
 }

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.h	2005-11-08 22:05:22 UTC (rev 4175)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state_exports.h	2005-11-08 22:48:34 UTC (rev 4176)
@@ -21,8 +21,8 @@
 void GC_setSignalHandlerThread (GC_state s, GC_thread thread);
 
 sigset_t* GC_getSignalsHandledAddr (GC_state s);
-bool GC_getSignalIsPending (GC_state s);
 sigset_t* GC_getSignalsPendingAddr (GC_state s);
 void GC_setGCSignalHandled (GC_state s, bool b);
+bool GC_getGCSignalPending (GC_state s);
 void GC_setGCSignalPending (GC_state s, bool b);