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/branches/SMLNJ/src/compiler/CodeGen/cpscompile/smlnj-gctype.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/compiler/CodeGen/cpscompile/smlnj-gctype.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 427 - (view) (download)
Original Path: sml/trunk/src/compiler/CodeGen/cpscompile/smlnj-gctype.sml

1 : monnier 427 structure SMLObjType =
2 :     struct
3 :    
4 :     type objtype = CPS.cty
5 :    
6 :     (* Copied from PPCps *)
7 :     fun toString(CPS.INTt) = "[I]"
8 :     | toString(CPS.INT32t) = "[I32]"
9 :     | toString(CPS.FLTt) = "[R]"
10 :     | toString(CPS.PTRt (CPS.RPT k)) = "[PR"^(Int.toString(k))^"]"
11 :     | toString(CPS.PTRt (CPS.FPT k)) = "[PF"^(Int.toString(k))^"]"
12 :     | toString(CPS.PTRt (CPS.VPT)) = "[PV]"
13 :     | toString(CPS.FUNt) = "[F]"
14 :     | toString(CPS.CNTt) = "[C]"
15 :     | toString(CPS.DSPt) = "[D]"
16 :    
17 :     end
18 :    
19 :     structure SMLGCType = GCType(SMLObjType)

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