Revert "sysdeps/ieee754/ldbl-128ibm/e_expl.c"
[platform/upstream/glibc.git] / hurd / report-wait.c
index 491b566..a0b33bd 100644 (file)
@@ -1,21 +1,20 @@
 /* Report on what a thread in our task is waiting for.
-Copyright (C) 1996 Free Software Foundation, Inc.
-This file is part of the GNU C Library.
+   Copyright (C) 1996-2013 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
 
-The GNU C Library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public License as
-published by the Free Software Foundation; either version 2 of the
-License, or (at your option) any later version.
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
-The GNU C Library is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-Library General Public License for more details.
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Lesser General Public License for more details.
 
-You should have received a copy of the GNU Library General Public
-License along with the GNU C Library; see the file COPYING.LIB.  If
-not, write to the Free Software Foundation, Inc., 675 Mass Ave,
-Cambridge, MA 02139, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, see
+   <http://www.gnu.org/licenses/>.  */
 
 #include <hurd.h>
 #include <hurd/signal.h>
@@ -23,54 +22,60 @@ Cambridge, MA 02139, USA.  */
 #include <string.h>
 #include <assert.h>
 #include <hurd/msg_server.h>
-#include "thread_state.h"
-#include "intr-msg.h"
+#include <thread_state.h>
+#include <intr-msg.h>
 
-static void
-describe_number (string_t description, const char *flavor, unsigned long int i)
+static char *
+describe_number (string_t description, const char *flavor, long int i)
 {
   unsigned long int j;
-  char *p = __stpcpy (description, flavor);
+  char *p = flavor == NULL ? description : __stpcpy (description, flavor);
+  char *end;
+
+  /* Handle sign.  */
+  if (i < 0)
+    {
+      i = -i;
+      *p++ = '-';
+    }
 
   /* Allocate space for the number at the end of DESCRIPTION.  */
   for (j = i; j >= 10; j /= 10)
     p++;
-  p[1] = '\0';
+  end = p + 1;
+  *end = '\0';
 
   do
     {
       *p-- = '0' + i % 10;
       i /= 10;
     } while (i != 0);
-  assert (*p == '#');
+
+  return end;
 }
 
-static void
+static char *
 describe_port (string_t description, mach_port_t port)
 {
   int i;
 
+  if (port == MACH_PORT_NULL)
+    return __stpcpy (description, "(null)");
+  if (port == MACH_PORT_DEAD)
+    return __stpcpy (description, "(dead)");
+
   if (port == __mach_task_self ())
-    {
-      strcpy (description, "task-self");
-      return;
-    }
+    return __stpcpy (description, "task-self");
 
   for (i = 0; i < _hurd_nports; ++i)
     if (port == _hurd_ports[i].port)
-      {
-       describe_number (description, "init#", i);
-       return;
-      }
+      return describe_number (description, "init#", i);
 
   if (_hurd_init_dtable)
     {
       for (i = 0; i < _hurd_init_dtablesize; ++i)
        if (port == _hurd_init_dtable[i])
-         {
-           describe_number (description, "fd#", i);
-           return;
-         }
+         return describe_number (description, "fd#", i);
     }
   else if (_hurd_dtable)
     {
@@ -78,34 +83,35 @@ describe_port (string_t description, mach_port_t port)
        if (_hurd_dtable[i] == NULL)
          continue;
        else if (port == _hurd_dtable[i]->port.port)
-         {
-           describe_number (description, "fd#", i);
-           return;
-         }
+         return describe_number (description, "fd#", i);
        else if (port == _hurd_dtable[i]->ctty.port)
-         {
-           describe_number (description, "bgfd#", i);
-           return;
-         }
+         return describe_number (description, "bgfd#", i);
     }
 
-  describe_number (description, "port#", port);
+  return describe_number (description, "port#", port);
 }
 
 
-/* Common defn so we don't link in the itimer code unnecessarily.  */
-thread_t _hurd_itimer_thread; /* XXX */
+/* We want _HURD_ITIMER_THREAD, but don't want to link in the itimer code
+   unnecessarily.  */
+#if 0 /* libc.so.0.0 needs this defined, so make it a weak alias for now.  */
+extern thread_t _hurd_itimer_thread; /* XXX */
+weak_extern (_hurd_itimer_thread)
+#else
+static thread_t default_hurd_itimer_thread;
+weak_alias (default_hurd_itimer_thread, _hurd_itimer_thread)
+#endif
 
 kern_return_t
 _S_msg_report_wait (mach_port_t msgport, thread_t thread,
-                   string_t description, int *msgid)
+                   string_t description, mach_msg_id_t *msgid)
 {
   *msgid = 0;
 
   if (thread == _hurd_msgport_thread)
     /* Cute.  */
     strcpy (description, "msgport");
-  else if (thread == _hurd_itimer_thread)
+  else if (&_hurd_itimer_thread && thread == _hurd_itimer_thread)
     strcpy (description, "itimer");
   else
     {
@@ -133,18 +139,74 @@ _S_msg_report_wait (mach_port_t msgport, thread_t thread,
          error_t err;
 
          err = __thread_get_state (thread, MACHINE_THREAD_STATE_FLAVOR,
-                                   (integer_t *) &state, &count);
+                                   (natural_t *) &state, &count);
          if (err)
            return err;
          assert (count == MACHINE_THREAD_STATE_COUNT);
          if (SYSCALL_EXAMINE (&state, msgid))
            {
+             mach_port_t send_port, rcv_port;
+             mach_msg_option_t option;
+             mach_msg_timeout_t timeout;
+
              /* Blocked in a system call.  */
-             if (*msgid == -25)
-               /* mach_msg system call.  Examine its parameters.  */
-               describe_port (description, MSG_EXAMINE (&state, msgid));
-             else
-               strcpy (description, "kernel");
+             if (*msgid == -25
+                 /* mach_msg system call.  Examine its parameters.  */
+                 && MSG_EXAMINE (&state, msgid, &send_port, &rcv_port,
+                                 &option, &timeout) == 0)
+               {
+                 char *p;
+                 if (send_port != MACH_PORT_NULL && *msgid != 0)
+                   {
+                     /* For the normal case of RPCs, we consider the
+                        destination port to be the interesting thing
+                        whether we are in fact sending or receiving at the
+                        moment.  That tells us who we are waiting for the
+                        reply from.  */
+                     if (send_port == ss->intr_port)
+                       {
+                         /* This is a Hurd interruptible RPC.
+                            Mark it by surrounding the port description
+                            string with [...] brackets.  */
+                         description[0] = '[';
+                         p = describe_port (description + 1, send_port);
+                         *p++ = ']';
+                         *p = '\0';
+                       }
+                     else
+                       (void) describe_port (description, send_port);
+                   }
+                 else if (rcv_port != MACH_PORT_NULL)
+                   {
+                     /* This system call had no send port, but had a
+                        receive port.  The msgid we extracted is then just
+                        some garbage or perhaps the msgid of the last
+                        message this thread received, but it's not a
+                        helpful thing to return.  */
+                     strcpy (describe_port (description, rcv_port), ":rcv");
+                     *msgid = 0;
+                   }
+                 else if ((option & (MACH_RCV_MSG|MACH_RCV_TIMEOUT))
+                          == (MACH_RCV_MSG|MACH_RCV_TIMEOUT))
+                   {
+                     /* A receive with no valid port can be used for a
+                        pure timeout.  Report the timeout value (counted
+                        in milliseconds); note this is the original total
+                        time, not the time remaining.  */
+                     strcpy (describe_number (description, 0, timeout), "ms");
+                     *msgid = 0;
+                   }
+                 else
+                   {
+                     strcpy (description, "mach_msg");
+                     *msgid = 0;
+                   }
+               }
+             else              /* Some other system call.  */
+               {
+                 (void) describe_number (description, "syscall#", *msgid);
+                 *msgid = 0;
+               }
            }
          else
            description[0] = '\0';