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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/FLINT/reps/rttype.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/FLINT/reps/rttype.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 94 - (view) (download)

1 : monnier 41 (* Copyright 1998 YALE FLINT PROJECT *)
2 :     (* rttype.sml *)
3 :    
4 :     signature RTTYPE =
5 :     sig
6 :     type tcode
7 :    
8 :     val tcode_void : tcode
9 :     val tcode_record : tcode
10 :     val tcode_int32 : tcode
11 :     val tcode_pair : tcode
12 :     val tcode_fpair : tcode
13 :     val tcode_real : tcode
14 :     val tcode_realN : int -> tcode
15 :    
16 :     val tovalue : tcode -> FLINT.value
17 :     end (* signature RTTYPE *)
18 :    
19 :     structure RuntimeType :> RTTYPE =
20 :     struct
21 :     type tcode = int
22 :     val tcode_void = 0
23 :     val tcode_record = 1
24 :     val tcode_int32 = 2
25 :     val tcode_pair = 3
26 :     val tcode_fpair = 4
27 :     val tcode_real = 5
28 :     fun tcode_realN n = n * 5
29 :    
30 :     fun tovalue i = FLINT.INT i
31 :     end (* structure RuntimeType *)
32 :    
33 :    
34 : monnier 93
35 :     (*
36 :     * $Log: rttype.sml,v $
37 :     * Revision 1.1.1.1 1998/04/08 18:39:45 george
38 :     * Version 110.5
39 :     *
40 :     *)

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