Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/ElabData/basics/basic-ptnum.sml
ViewVC logotype

View of /sml/trunk/src/compiler/ElabData/basics/basic-ptnum.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 903 - (download) (annotate)
Mon Aug 20 19:34:06 2001 UTC (18 years, 2 months ago) by blume
File size: 622 byte(s)
library debugprof.cm extracted
structure BasicPrimTycNum : sig

    (* The numbers here are consecutive and fill [0...next_free_ptn) *)

    val ptn_void : int
    val ptn_int : int			(* default int (31 bit in SML/NJ) *)
    val ptn_real : int
    val ptn_string : int
    val ptn_exn : int
    val ptn_arrow : int
    val ptn_ref : int
    val ptn_array : int
    val ptn_vector : int

    val next_free_ptn : int

end = struct

    val ptn_void = 0
    val ptn_int = 1
    val ptn_real = 2
    val ptn_string = 3
    val ptn_exn = 4
    val ptn_arrow = 5
    val ptn_ref = 6
    val ptn_array = 7
    val ptn_vector = 8

    val next_free_ptn = 9
end

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