X-Git-Url: https://codewiz.org/gitweb?a=blobdiff_plain;f=kern%2Fmsg.h;h=dbd73e839664c52a68af840c150126be2435623d;hb=ba39842cde8d33243188a2dc22baa8f1581b1c2d;hp=d9b06707cc37d62be7427eaf2824650cc43c4664;hpb=277b540c0764dd376dcf583acdc97a2b2fd3d8e6;p=bertos.git

diff --git a/kern/msg.h b/kern/msg.h
index d9b06707..dbd73e83 100755
--- a/kern/msg.h
+++ b/kern/msg.h
@@ -18,6 +18,9 @@
 
 /*#*
  *#* $Log$
+ *#* Revision 1.4  2004/10/19 08:22:09  bernie
+ *#* msg_peek(): New function.
+ *#*
  *#* Revision 1.3  2004/08/25 14:12:09  rasky
  *#* Aggiornato il comment block dei log RCS
  *#*
@@ -70,6 +73,15 @@ INLINE Msg* msg_get(MsgPort* port)
 	return (Msg*)REMHEAD(&port->queue);
 }
 
+/* Peek the first message in the queue of \a port, or NULL if the port is empty */
+INLINE Msg *msg_peek(MsgPort *port)
+{
+	if (ISLISTEMPTY(&port->queue))
+		return NULL;
+
+	return (Msg *)port->queue.head;
+}
+
 /*! Send back (reply) \a msg to its sender */
 INLINE void msg_reply(Msg* msg)
 {