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

Diff of /sml/branches/SMLNJ/src/compiler/FLINT/cpsopt/cpsopt.sml

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 16  Line 16 
16  structure EtaSplit = EtaSplit(MachSpec)  structure EtaSplit = EtaSplit(MachSpec)
17  structure Flatten = Flatten(MachSpec)  structure Flatten = Flatten(MachSpec)
18  structure Uncurry = Uncurry(MachSpec)  structure Uncurry = Uncurry(MachSpec)
19    val say = Control.Print.say
20    
21  fun reduce (function, table, _, afterClosure) =  fun reduce (function, table, _, afterClosure) =
22  (* NOTE: The third argument to reduce is currently ignored.  (* NOTE: The third argument to reduce is currently ignored.
# Line 23  Line 24 
24  let  let
25    
26  val debug = !CG.debugcps (* false *)  val debug = !CG.debugcps (* false *)
27  fun debugprint s = if debug then Control.Print.say(s) else ()  fun debugprint s = if debug then say s else ()
28  fun debugflush() = if debug then Control.Print.flush() else ()  fun debugflush() = if debug then Control.Print.flush() else ()
29  val clicked = ref 0  val clicked = ref 0
30  fun click (s:string) = (debugprint s; clicked := !clicked+1)  fun click (s:string) = (debugprint s; clicked := !clicked+1)
31    
32  val cpssize = ref 0  val cpssize = ref 0
33    (*
34    val prC =
35      let fun prGen (flag,printE) s e =
36            if !flag then (say ("\n\n[After " ^ s ^ " ...]\n\n"); printE e; e)
37            else e
38       in prGen (Control.CG.printit, PPCps.printcps0)
39      end
40    *)
41    
42  fun contract last f =  fun contract last f =
43    let val f' = (clicked := 0;    let val f' = (clicked := 0;

Legend:
Removed from v.68  
changed lines
  Added in v.69

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