From a5ac89cbbd9e8b8014d9558709c70d5a1b6326bc Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Tue, 11 Oct 2005 18:17:59 +0000
Subject: * Makefile.common (CFLAGS_COMMON): Add -Wstrict-aliasing.

---
 winsup/utils/strace.cc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'winsup/utils/strace.cc')

diff --git a/winsup/utils/strace.cc b/winsup/utils/strace.cc
index 1bd54ced0..f601c4418 100644
--- a/winsup/utils/strace.cc
+++ b/winsup/utils/strace.cc
@@ -128,7 +128,7 @@ get_child (DWORD id)
 }
 
 static void
-remove_child (DWORD id)
+remove_child (FILE *ofile, DWORD id)
 {
   child_list *c;
   if (id == lastid)
@@ -138,6 +138,9 @@ remove_child (DWORD id)
       {
 	child_list *c1 = c->next;
 	c->next = c1->next;
+	DWORD n = 0xdeadbeef;
+	GetExitCodeProcess (c1->hproc, &n);
+	fprintf (ofile, "process %u exited with status %p\n", id, n);
 	free (c1);
 	return;
       }
@@ -627,7 +630,7 @@ proc_child (unsigned mask, FILE *ofile, pid_t pid)
 	  break;
 
 	case EXIT_PROCESS_DEBUG_EVENT:
-	  remove_child (ev.dwProcessId);
+	  remove_child (ofile, ev.dwProcessId);
 	  break;
 	case EXCEPTION_DEBUG_EVENT:
 	  if (ev.u.Exception.ExceptionRecord.ExceptionCode !=
-- 
cgit v1.2.3