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/system/Basis/Implementation/Unsafe/object.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Unsafe/object.sml

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

revision 632, Sat Apr 29 15:50:42 2000 UTC revision 633, Sun Apr 30 16:44:09 2000 UTC
# Line 143  Line 143 
143             of PolyArray => ((InlineT.cast obj) : object array)             of PolyArray => ((InlineT.cast obj) : object array)
144              | _ => raise Representation              | _ => raise Representation
145            (* end case *))            (* end case *))
146        fun toRealArray obj = (case (rep obj)
147               of RealArray => ((InlineT.cast obj) : Real64Array.array)
148                | _ => raise Representation
149              (* end case *))
150        fun toByteArray obj = (case (rep obj)
151               of ByteArray => ((InlineT.cast obj) : Word8Array.array)
152                | _ => raise Representation
153              (* end case *))
154      fun toVector obj = (case (rep obj)      fun toVector obj = (case (rep obj)
155             of PolyVector => ((InlineT.cast obj) : object vector)             of PolyVector => ((InlineT.cast obj) : object vector)
156              | _ => raise Representation              | _ => raise Representation
157            (* end case *))            (* end case *))
158        fun toByteVector obj = (case (rep obj)
159               of ByteVector => ((InlineT.cast obj) : Word8Vector.vector)
160                | _ => raise Representation
161              (* end case *))
162      fun toExn obj =      fun toExn obj =
163            if ((rep obj = Record) andalso (InlineT.objlength obj = 3))            if ((rep obj = Record) andalso (InlineT.objlength obj = 3))
164              then ((InlineT.cast obj) : exn)              then ((InlineT.cast obj) : exn)

Legend:
Removed from v.632  
changed lines
  Added in v.633

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