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

SCM Repository

[diderot] Diff of /branches/ein16/src/compiler/high-il/app-ein.sml
ViewVC logotype

Diff of /branches/ein16/src/compiler/high-il/app-ein.sml

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

revision 4409, Fri Aug 12 17:46:21 2016 UTC revision 4410, Fri Aug 12 18:28:32 2016 UTC
# Line 127  Line 127 
127          val sumIndex=ref (length index)          val sumIndex=ref (length index)
128          fun rewrite(id,mx ,e)=let          fun rewrite(id,mx ,e)=let
129  (* DEBUG  (* DEBUG
130  val _ = print (String.concat["\n\tid", Int.toString(id), "\n\tmx", Int.toString(length(mx)), "\n\te:",P.printbody(e)])  val _ = print (String.concat["\n\tid", Int.toString(id), "\n\tmx-", Int.toString(length(mx)),  "\n\tindex2-", Int.toString(length(index2)),"\n\te:",P.printbody(e)])
131  *)  *)
132              val ref x=sumIndex              val ref x=sumIndex
133              in              in

Legend:
Removed from v.4409  
changed lines
  Added in v.4410

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