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/src/compiler/FLINT/cps/cps.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cps/cps.sml

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

sml/branches/SMLNJ/src/compiler/FLINT/cps/cps.sml revision 245, Sat Apr 17 18:47:12 1999 UTC sml/trunk/src/compiler/FLINT/cps/cps.sml revision 476, Wed Nov 10 22:59:58 1999 UTC
# Line 192  Line 192 
192    | PURE of P.pure * value list * lvar * cty * cexp    | PURE of P.pure * value list * lvar * cty * cexp
193  withtype function = fun_kind * lvar * lvar list * cty list * cexp  withtype function = fun_kind * lvar * lvar list * cty list * cexp
194    
195    fun ctyToString(INTt) =  "[I]"
196      | ctyToString(INT32t) =  "[I32]"
197      | ctyToString(FLTt) =  "[R]"
198      | ctyToString(PTRt (RPT k)) =  ("[PR"^(Int.toString(k))^"]")
199      | ctyToString(PTRt (FPT k)) =  ("[PF"^(Int.toString(k))^"]")
200      | ctyToString(PTRt (VPT)) =  "[PV]"
201      | ctyToString(FUNt) =  "[F]"
202      | ctyToString(CNTt) =  "[C]"
203      | ctyToString(DSPt) =  "[D]"
204    
205  fun combinepaths(p,OFFp 0) = p  fun combinepaths(p,OFFp 0) = p
206    | combinepaths(p,q) =    | combinepaths(p,q) =
207      let val rec comb =      let val rec comb =
# Line 249  Line 259 
259  end (* top-level local *)  end (* top-level local *)
260  end (* structure CPS *)  end (* structure CPS *)
261    
 (*  
  * $Log: cps.sml,v $  
  * Revision 1.6  1998/11/18 03:53:16  jhr  
  *  New array representations.  
  *  
  * Revision 1.5  1998/10/28 18:21:22  jhr  
  *   New primops to support new array representation.  
  *  
  * Revision 1.4  1998/05/23 14:09:29  george  
  *   Fixed RCS keyword syntax  
  *  
  *)  

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

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