From 2d9622cf91a9538cffb6edfc2ef2f58a1278b8ea Mon Sep 17 00:00:00 2001
From: John Jenkins <jenkins@mcs.anl.gov>
Date: Fri, 15 Aug 2014 09:05:08 -0500
Subject: [PATCH] debug messages for scheduler

---
 .../networks/model-net/model-net-sched-impl.c | 20 +++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/src/models/networks/model-net/model-net-sched-impl.c b/src/models/networks/model-net/model-net-sched-impl.c
index 3c760b8..4e0a5cd 100644
--- a/src/models/networks/model-net/model-net-sched-impl.c
+++ b/src/models/networks/model-net/model-net-sched-impl.c
@@ -12,6 +12,14 @@
 #include "codes/model-net-method.h"
 #include "codes/quicklist.h"
 
+#define MN_SCHED_DEBUG_VERBOSE 0
+
+#if MN_SCHED_DEBUG_VERBOSE
+#define dprintf(_fmt, ...) printf(_fmt, __VA_ARGS__);
+#else
+#define dprintf(_fmt, ...)
+#endif
+
 /// scheduler-specific data structures 
 
 typedef struct mn_sched_qitem {
@@ -226,6 +234,8 @@ int fcfs_next(
         is_last_packet = 0;
     }
 
+    dprintf("%lu (mn):    issuing packet of size %lu (of %lu) from %lu to %lu\n",
+            lp->gid, psize, q->rem, q->req.src_lp, q->req.final_dest_lp);
     *poffset = s->method->model_net_method_packet_event(q->req.category,
             q->req.final_dest_lp, psize, q->req.is_pull, q->req.msg_size, 0.0,
             q->req.remote_event_size, q->remote_event, q->req.self_event_size,
@@ -381,6 +391,8 @@ int rr_next(
         is_last_packet = 0;
     }
 
+    dprintf("%lu (mn):    issuing packet of size %lu (of %lu) from %lu to %lu\n",
+            lp->gid, psize, q->rem, q->req.src_lp, q->req.final_dest_lp);
     *poffset = s->method->model_net_method_packet_event(q->req.category,
             q->req.final_dest_lp, psize, q->req.is_pull, q->req.msg_size, 0.0,
             q->req.remote_event_size, q->remote_event, q->req.self_event_size,
@@ -427,6 +439,10 @@ void rr_next_rc (
             qlist_add(ent, &s->reqs);
             mn_sched_qitem *q = qlist_entry(ent, mn_sched_qitem, ql);
             q->rem += q->req.packet_size;
+            dprintf("%lu (mn): rc issuing packet of size %lu (of %lu) from "
+                    "%lu to %lu\n",
+                    lp->gid, q->req.packet_size, q->rem, q->req.src_lp,
+                    q->req.final_dest_lp);
         }
         else if (rc->rtn == 1){
             // re-create the q item
@@ -451,6 +467,10 @@ void rr_next_rc (
             else { q->local_event = NULL; }
             // add back to front of list
             qlist_add(&q->ql, &s->reqs);
+            dprintf("%lu (mn): rc issuing packet of size %lu (of %lu) from "
+                    "%lu to %lu\n",
+                    lp->gid, q->rem, q->rem, q->req.src_lp,
+                    q->req.final_dest_lp);
         }
         else {
             assert(0);
-- 
2.26.2