From 6ee3d80b1ce2f10298c9b57ca85eae5799e630d1 Mon Sep 17 00:00:00 2001
From: Mathieu Garivet <mathieu.garivet@hublex.fr>
Date: Tue, 28 Nov 2017 18:44:28 +0100
Subject: [PATCH] Fix RTR position bit in TX mailbox register

---
 targets/TARGET_STM/can_api.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/targets/TARGET_STM/can_api.c b/targets/TARGET_STM/can_api.c
index bd2d734247..d7165f1f16 100644
--- a/targets/TARGET_STM/can_api.c
+++ b/targets/TARGET_STM/can_api.c
@@ -277,9 +277,9 @@ int can_write(can_t *obj, CAN_Message msg, int cc)
 
     can->sTxMailBox[transmitmailbox].TIR &= CAN_TI0R_TXRQ;
     if (!(msg.format)) {
-      can->sTxMailBox[transmitmailbox].TIR |= ((msg.id << 21) | msg.type);
+      can->sTxMailBox[transmitmailbox].TIR |= ((msg.id << 21) | (msg.type << 1));
     } else {
-      can->sTxMailBox[transmitmailbox].TIR |= ((msg.id << 3) | CAN_ID_EXT | msg.type);
+      can->sTxMailBox[transmitmailbox].TIR |= ((msg.id << 3) | CAN_ID_EXT | (msg.type << 1));
     }
 
     /* Set up the DLC */