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

sml/branches/SMLNJ/src/compiler/FLINT/cps/ppcps.sml revision 245, Sat Apr 17 18:47:12 1999 UTC sml/trunk/src/compiler/FLINT/cps/ppcps.sml revision 651, Thu Jun 1 18:34:03 2000 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
# Line 280  Line 272 
272  end (* toplevel local *)  end (* toplevel local *)
273  end (* structure PPCps *)  end (* structure PPCps *)
274    
 (*  
  * $Log: ppcps.sml,v $  
  * Revision 1.3  1998/11/18 03:53:18  jhr  
  *  New array representations.  
  *  
  * Revision 1.2  1998/10/28 18:21:23  jhr  
  *   New primops to support new array representation.  
  *  
  * Revision 1.1.1.1  1998/04/08 18:39:47  george  
  * Version 110.5  
  *  
  *)  
   

Legend:
Removed from v.245  
changed lines
  Added in v.651

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