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/xdisplay.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/lib/protocol/xdisplay.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 125  Line 125 
125  val _ = XDebug.trace(XDebug.ioTM, fn () => ["reading connection reply header\n"])  val _ = XDebug.trace(XDebug.ioTM, fn () => ["reading connection reply header\n"])
126  (*-DEBUG*)  (*-DEBUG*)
127              val hdr = SockUtil.recvVec (sock, 8)              val hdr = SockUtil.recvVec (sock, 8)
128              val len = 4 * LargeWord.toIntX(Pack16Big.subVec(hdr, 3))              val len = 4 * LargeWord.toIntX(PackWord16Big.subVec(hdr, 3))
129  (*+DEBUG*)  (*+DEBUG*)
130  val _ = XDebug.trace(XDebug.ioTM, fn () => [  val _ = XDebug.trace(XDebug.ioTM, fn () => [
131      "reading connection reply body (", Int.toString len, " bytes)\n"      "reading connection reply body (", Int.toString len, " bytes)\n"

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