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

Diff of /sml/trunk/src/eXene/lib/protocol/xrequest.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 38  Line 38 
38              put8(buf, i, Word8.fromLargeWord(Word.toLargeWord x))              put8(buf, i, Word8.fromLargeWord(Word.toLargeWord x))
39        fun putSigned8 (buf, i, x) = put8(buf, i, Word8.fromInt x)        fun putSigned8 (buf, i, x) = put8(buf, i, Word8.fromInt x)
40    
41        fun put16 (buf, i, x) = Pack16Big.update(v2a buf, i div 2, x)        fun put16 (buf, i, x) = PackWord16Big.update(v2a buf, i div 2, x)
42        fun putWord16 (buf, i, x) = put16(buf, i, Word.toLargeWord x)        fun putWord16 (buf, i, x) = put16(buf, i, Word.toLargeWord x)
43        fun putSigned16 (buf, i, x) = put16(buf, i, LargeWord.fromInt x)        fun putSigned16 (buf, i, x) = put16(buf, i, LargeWord.fromInt x)
44    
45        fun put32 (buf, i, x) = Pack32Big.update(v2a buf, i div 4, x)        fun put32 (buf, i, x) = PackWord32Big.update(v2a buf, i div 4, x)
46        fun putWord32 (buf, i, x) = put32(buf, i, Word.toLargeWord x)        fun putWord32 (buf, i, x) = put32(buf, i, Word.toLargeWord x)
47        fun putSigned32 (buf, i, x) = put32(buf, i, LargeWord.fromInt x)        fun putSigned32 (buf, i, x) = put32(buf, i, LargeWord.fromInt x)
48    

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