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

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

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

revision 5014, Sun Apr 28 20:24:18 2019 UTC revision 5015, Mon Apr 29 01:51:55 2019 UTC
# Line 68  Line 68 
68                    if (InlineT.objlength obj = 1)                    if (InlineT.objlength obj = 1)
69                      then Ref                      then Ref
70                      else raise Fail "Unknown arr_data"                      else raise Fail "Unknown arr_data"
71                | 0x12 (* tag_raw32 *) => Word32  (* 64BIT: FIXME *)
72                  | 0x12 (* tag_raw *) => Word32
73                | 0x16 (* tag_raw64 *) => Real                | 0x16 (* tag_raw64 *) => Real
74                | 0x1a (* tag_special *) => (case (InlineT.getspecial obj)                | 0x1a (* tag_special *) => (case (InlineT.getspecial obj)
75                   of (0 | 1) => Susp                   of (0 | 1) => Susp

Legend:
Removed from v.5014  
changed lines
  Added in v.5015

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