Permalink
Browse files

Moved control message tags from constants.lisp to control-message.lisp.

  • Loading branch information...
flambard committed Nov 10, 2012
1 parent 3d8e3b9 commit d6f2e27a916b3644abf1b1b936a553a93456de0f
Showing with 29 additions and 25 deletions.
  1. +0 −15 src/constants.lisp
  2. +29 −10 src/control-message.lisp
View
@@ -51,21 +51,6 @@
(defconstant +dflag-dist-hdr-atom-cache+ #x2000)
(defconstant +dflag-small-atom-tags+ #x4000)
-;;; Control message tags
-(defconstant +cm-link+ 1) ; {1, FromPid, ToPid}
-(defconstant +cm-send+ 2) ; {2, Cookie, ToPid} followed by a message
-(defconstant +cm-exit+ 3) ; {3, FromPid, ToPid, Reason}
-(defconstant +cm-unlink+ 4) ; {4, FromPid, ToPid}
-(defconstant +cm-node-link+ 5) ; {5}
-(defconstant +cm-reg-send+ 6) ; {6, FromPid, Cookie, ToName} followed by a message
-(defconstant +cm-group-leader+ 7) ; {7, FromPid, ToPid}
-(defconstant +cm-exit2+ 8) ; {8, FromPid, ToPid, Reason}
-;; New control messages for distrvsn = 1 (OTP R4)
-(defconstant +cm-send-tt+ 12) ; {12, Cookie, ToPid, TraceToken} followed by a message
-(defconstant +cm-exit-tt+ 13) ; {13, FromPid, ToPid, TraceToken, Reason}
-(defconstant +cm-reg-send-tt+ 16) ; {16, FromPid, Cookie, ToName, TraceToken} followed by a message
-(defconstant +cm-exit2-tt+ 18) ; {18, FromPid, ToPid, TraceToken, Reason}
-
;;; Erlang protocol version
(defconstant +lowest-version-supported+ 5
View
@@ -2,21 +2,40 @@
;;; ControlMessage
;;
-;; LINK: {1, FromPid, ToPid}
-;; SEND: {2, Cookie, ToPid}
-;; EXIT: {3, FromPid, ToPid, Reason}
-;; UNLINK: {4, FromPid, ToPid}
-;; NODE_LINK: {5}
-;; REG_SEND: {6, FromPid, Cookie, ToName}
+;; LINK: {1, FromPid, ToPid}
+;; SEND: {2, Cookie, ToPid}
+;; EXIT: {3, FromPid, ToPid, Reason}
+;; UNLINK: {4, FromPid, ToPid}
+;; NODE_LINK: {5}
+;; REG_SEND: {6, FromPid, Cookie, ToName}
;; GROUP_LEADER: {7, FromPid, ToPid}
-;; EXIT2: {8, FromPid, ToPid, Reason}
+;; EXIT2: {8, FromPid, ToPid, Reason}
;;
-;; SEND_TT: {12, Cookie, ToPid, TraceToken}
-;; EXIT_TT: {13, FromPid, ToPid, TraceToken, Reason}
+;; SEND_TT: {12, Cookie, ToPid, TraceToken}
+;; EXIT_TT: {13, FromPid, ToPid, TraceToken, Reason}
;; REG_SEND_TT: {16, FromPid, Cookie, ToName, TraceToken}
-;; EXIT2_TT: {18, FromPid, ToPid, TraceToken, Reason}
+;; EXIT2_TT: {18, FromPid, ToPid, TraceToken, Reason}
;;
+;;; Control message tags
+(defconstant +cm-link+ 1)
+(defconstant +cm-send+ 2)
+(defconstant +cm-exit+ 3)
+(defconstant +cm-unlink+ 4)
+(defconstant +cm-node-link+ 5)
+(defconstant +cm-reg-send+ 6)
+(defconstant +cm-group-leader+ 7)
+(defconstant +cm-exit2+ 8)
+;; New control messages for distrvsn = 1 (OTP R4)
+(defconstant +cm-send-tt+ 12)
+(defconstant +cm-exit-tt+ 13)
+(defconstant +cm-reg-send-tt+ 16)
+(defconstant +cm-exit2-tt+ 18)
+
+
+;;;
+;;; Control message classes
+;;;
(defclass control-message ()
((trace-token :reader trace-token :initarg :trace-token :initform nil)))

0 comments on commit d6f2e27

Please sign in to comment.