[Krobot-commits] [SCM] krobot branch, master, updated. 2a9f596f387f876e0b9b2aceed83511abb9424fc

[Jérémie D. <Ba...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "krobot".

The branch, master has been updated
       via  2a9f596f387f876e0b9b2aceed83511abb9424fc (commit)
      from  b0f2e736cd7b641239b051f3cffd96e827fccfdb (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 2a9f596f387f876e0b9b2aceed83511abb9424fc
Author: Jérémie Dimino <je...@di...>
Date:   Wed Mar 17 22:35:07 2010 +0100

    display the name of the card on message dropped

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

Changes:
diff --git a/PC_Mainboard/driver/krobot_card.ml b/PC_Mainboard/driver/krobot_card.ml
index a2ba1be..3370f59 100644
--- a/PC_Mainboard/driver/krobot_card.ml
+++ b/PC_Mainboard/driver/krobot_card.ml
@@ -155,8 +155,8 @@ let abort wrapper exn =
    | Dispatching                                                     |
    +-----------------------------------------------------------------+ *)
 
-let dropped typ msg =
-  lwt () = Log.warning_f "%s dropped" typ in
+let dropped typ card msg =
+  lwt () = Log.warning_f "%s dropped on card %s" typ card.wrapper.name in
   lwt () = Log.warning_f "=====
 host_serial = %d
 device_serial = %d
@@ -197,7 +197,7 @@ let rec dispatch card =
                   card.serial_pool <- card.serial_pool @ [msg.host_serial];
                   Lwt.wakeup wakener msg.data
               | None ->
-                  ignore (dropped "response" msg)
+                  ignore (dropped "response" card msg)
           end else begin
             match try Some(Int_map.find msg.command card.events) with Not_found -> None with
               | Some seq ->
@@ -209,7 +209,7 @@ let rec dispatch card =
                          ignore (Log.exn_f exn "pushing event %d from %s card failed with" msg.command card.wrapper.name))
                     seq
               | None ->
-                  ignore (dropped "command" msg)
+                  ignore (dropped "command" card msg)
           end;
           dispatch card
         end


hooks/post-receive
-- 
krobot