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/branches/num64/system/Basis/Implementation/Win32/os-io.sml
ViewVC logotype

Diff of /sml/branches/num64/system/Basis/Implementation/Win32/os-io.sml

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

revision 5342, Fri Jun 7 16:11:16 2019 UTC revision 5343, Fri Jun 7 16:58:24 2019 UTC
# Line 13  Line 13 
13    structure Int = IntImp    structure Int = IntImp
14    structure Int32 = Int32Imp    structure Int32 = Int32Imp
15    structure Time = TimeImp    structure Time = TimeImp
   structure Pointer = PointerImp  
16  in  in
17  structure OS_IO : OS_IO =  structure OS_IO : OS_IO =
18    struct    struct
# Line 26  Line 25 
25    (* = IODesc of Handle.t ref | SockDesc of int *)    (* = IODesc of Handle.t ref | SockDesc of int *)
26      datatype iodesc = datatype OS.IO.iodesc      datatype iodesc = datatype OS.IO.iodesc
27    
     (* hash: can't assume 32 bits *)  
28      fun hash (IODesc(ref h)) = Handle.hash h      fun hash (IODesc(ref h)) = Handle.hash h
29        | hash (SockDesc s) = Word.fromInt s        | hash (SockDesc s) = Word.fromInt s
30    

Legend:
Removed from v.5342  
changed lines
  Added in v.5343

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