Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml

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

revision 3271, Fri Oct 9 18:12:58 2015 UTC revision 3276, Tue Oct 13 02:42:05 2015 UTC
# Line 17  Line 17 
17      structure DstV  = DstIL.Var      structure DstV  = DstIL.Var
18      in      in
19    
20      val testinitial=0      val testinitial=1
21      val testing=0      val testing=0
22      fun testp n=(case testing      fun testp n=(case testing
23          of 0=> 1          of 0=> 1
# Line 47  Line 47 
47    
48          (* **************** split phase ************* *)          (* **************** split phase ************* *)
49          val (newbies5)= Split.splitEinApp bind3          val (newbies5)= Split.splitEinApp bind3
50          val _ =testp["\n\n Returning \n\n =>",          val _ =test0["\n\n Returning \n\n =>",
51              String.concatWith",\n\t"(List.map toStringBind newbies5)]              String.concatWith",\n\t"(List.map toStringBind newbies5)]
52    
53    
# Line 72  Line 72 
72          val n= List.length(code)          val n= List.length(code)
73    
74            val _ = if (n>5)            val _ = if (n>5)
75           then  print(String.concat["\n\n",star,":Name:",HighIL.Var.name srcy ,           then  (String.concat["\n\n",star,":Name:",HighIL.Var.name srcy ,
76              ":VarCount(",Int.toString(useCount srcy),")",              ":VarCount(",Int.toString(useCount srcy),")",
77                  "\n\t",star,"Pieces now: ",Int.toString (n),                  "\n\t",star,"Pieces now: ",Int.toString (n),
78              " Fields:",Int.toString(!isField)," isReplaced:",Int.toString(!isReplaced),              " Fields:",Int.toString(!isField)," isReplaced:",Int.toString(!isReplaced),
79              " Replaced_Fields:",Int.toString(!isFieldR)              " Replaced_Fields:",Int.toString(!isFieldR)
80                 ,toStringBind bind3])                 ,toStringBind bind3])
81              else print ""              else  ""
82    
83          val flatcode= List.foldr op@ [] code          val flatcode= List.foldr op@ [] code
84          (*val _=List.map (fn(_,DstIL.EINAPP(e,_))=>checkEin.checkEIN e | _=> 1) flatcode*)          (*val _=List.map (fn(_,DstIL.EINAPP(e,_))=>checkEin.checkEIN e | _=> 1) flatcode*)

Legend:
Removed from v.3271  
changed lines
  Added in v.3276

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