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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/genH.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/genH.sml

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

revision 2602, Wed Apr 23 20:01:52 2014 UTC revision 2603, Thu Apr 24 03:58:37 2014 UTC
# Line 95  Line 95 
95     (* val m=printTy ty     (* val m=printTy ty
96      val z=print(String.concat["\n", m] )*)      val z=print(String.concat["\n", m] )*)
97      val code=DstIL.ASSGN (a,DstIL.OP(opss,args))      val code=DstIL.ASSGN (a,DstIL.OP(opss,args))
98    (*  val g=printX code*)     val g=printX code
99      in      in
100          (a,[code])          (a,[code])
101      end      end
# Line 131  Line 131 
131      val a=lookup n mapp      val a=lookup n mapp
132      in (case a      in (case a
133          of NONE=> print("-\n")          of NONE=> print("-\n")
134          |SOME (s) => (print(String.concat[Int.toString(n), "==>",Int.toString(s)]);printIndexXX(n+1,mapp))          |SOME (s) => ((*print(String.concat[Int.toString(n), "==>",Int.toString(s)]);*)printIndexXX(n+1,mapp))
135          (*end case*))          (*end case*))
136      end      end
137    

Legend:
Removed from v.2602  
changed lines
  Added in v.2603

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