Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/lib/protocol/xio.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/lib/protocol/xio.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1855, Wed Nov 2 21:12:31 2005 UTC revision 1856, Wed Nov 2 22:24:39 2005 UTC
# Line 124  Line 124 
124                  in                  in
125                    case W8V.sub(msg, 0)                    case W8V.sub(msg, 0)
126                     of 0w1 => let  (* reply *)                     of 0w1 => let  (* reply *)
127                          val extraLen = LargeWord.toIntX(Pack32Big.subVec(msg, 1))                          val extraLen = LargeWord.toIntX(PackWord32Big.subVec(msg, 1))
128                          in                          in
129                            if (extraLen > 0)                            if (extraLen > 0)
130                              then {                              then {
# Line 437  Line 437 
437   ** (i.e., GetInputFocus message).   ** (i.e., GetInputFocus message).
438   **)   **)
439                        fun getSeqN () = let                        fun getSeqN () = let
440                              val shortSeqN = W.fromLargeWord(Pack16Big.subVec(msg, 1))                              val shortSeqN = W.fromLargeWord(PackWord16Big.subVec(msg, 1))
441                              val seqn' = W.orb(                              val seqn' = W.orb(
442                                    W.andb(lastReqIn, W.notb 0wxffff),                                    W.andb(lastReqIn, W.notb 0wxffff),
443                                    shortSeqN)                                    shortSeqN)

Legend:
Removed from v.1855  
changed lines
  Added in v.1856

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0