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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 428 - (download) (annotate)
Wed Sep 8 09:47:00 1999 UTC (19 years, 11 months ago)
File size: 525 byte(s)
This commit was manufactured by cvs2svn to create branch 'SMLNJ'.
structure SMLObjType =
struct

   type objtype = CPS.cty 
  
   (* Copied from PPCps *)
   fun toString(CPS.INTt) =  "[I]"
     | toString(CPS.INT32t) = "[I32]"
     | toString(CPS.FLTt) = "[R]"
     | toString(CPS.PTRt (CPS.RPT k)) = "[PR"^(Int.toString(k))^"]"
     | toString(CPS.PTRt (CPS.FPT k)) = "[PF"^(Int.toString(k))^"]"
     | toString(CPS.PTRt (CPS.VPT)) = "[PV]"
     | toString(CPS.FUNt) = "[F]"
     | toString(CPS.CNTt) = "[C]"
     | toString(CPS.DSPt) = "[D]"

end

structure SMLGCType = GCType(SMLObjType)

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