[Mit-cadr-cvs] r336 - trunk/emulator/chaos

[ggilley at common-lisp.net]

Author: ggilley
Date: Tue Nov 20 20:54:44 2012
New Revision: 336

Log:
pass debug flag along to server process

Modified:
   trunk/emulator/chaos/chaosd.c

Modified: trunk/emulator/chaos/chaosd.c
==============================================================================
--- trunk/emulator/chaos/chaosd.c	Tue Nov 20 08:33:26 2012	(r335)
+++ trunk/emulator/chaos/chaosd.c	Tue Nov 20 20:54:44 2012	(r336)
@@ -291,7 +291,15 @@
 	open("server.log", O_WRONLY | O_CREAT, 0666);
     }
 
-    execl("./server", "server", (char *)0);
+    if (flag_debug_level == 0)
+	execl("./server", "server", (char *)0);
+    else
+    {
+	char buffer[256];
+
+	sprintf(buffer, "-D%d", flag_debug_level);
+	execl("./server", "server", buffer, (char *)0); 
+    }
 
     fprintf(stderr,"exec of ./server failed\n");