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

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

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

revision 1380, Wed Sep 17 20:20:51 2003 UTC revision 1381, Wed Sep 17 21:28:41 2003 UTC
# Line 35  Line 35 
35                | r => (n + (4 - Word.toIntX r))                | r => (n + (4 - Word.toIntX r))
36              (* end case *))              (* end case *))
37    
38        fun getString (bv, i, n) = Byte.unpackStringVec (bv, i, SOME n)        fun getString (bv, i, n) =
39              Byte.unpackStringVec (Word8VectorSlice.slice (bv, i, SOME n))
40    
41        val get8 = W8.toLargeWord o W8V.sub        val get8 = W8.toLargeWord o W8V.sub
42        fun getWord8 arg = Word.fromLargeWord(W8.toLargeWord(W8V.sub arg))        fun getWord8 arg = Word.fromLargeWord(W8.toLargeWord(W8V.sub arg))

Legend:
Removed from v.1380  
changed lines
  Added in v.1381

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