SCM Repository
| [smlnj] / sml / trunk / src / system / Basis / Implementation / Unsafe / object.sml |
Diff of /sml/trunk/src/system/Basis/Implementation/Unsafe/object.sml
Parent Directory
| 
Revision Log
| 
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) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
