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/compiler/CPS/cps/ppcps.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml

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

revision 418, Fri Sep 3 23:51:27 1999 UTC revision 475, Wed Nov 10 22:59:58 1999 UTC
# Line 18  Line 18 
18    
19  val say = Control.Print.say  val say = Control.Print.say
20    
21  fun sayt(INTt) = say "[I]"  val sayt = say o CPS.ctyToString
   | sayt(INT32t) = say "[I32]"  
   | sayt(FLTt) = say "[R]"  
   | sayt(PTRt (RPT k)) = say ("[PR"^(Int.toString(k))^"]")  
   | sayt(PTRt (FPT k)) = say ("[PF"^(Int.toString(k))^"]")  
   | sayt(PTRt (VPT)) = say "[PV]"  
   | sayt(FUNt) = say "[F]"  
   | sayt(CNTt) = say "[C]"  
   | sayt(DSPt) = say "[D]"  
22    
23  fun numkindName (P.INT bits) = "i" ^ Int.toString bits  fun numkindName (P.INT bits) = "i" ^ Int.toString bits
24    | numkindName (P.UINT bits) = "u" ^ Int.toString bits    | numkindName (P.UINT bits) = "u" ^ Int.toString bits

Legend:
Removed from v.418  
changed lines
  Added in v.475

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