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

SCM Repository

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

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

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

revision 2607, Thu May 1 17:36:16 2014 UTC revision 2608, Fri May 2 18:04:54 2014 UTC
# Line 28  Line 28 
28    
29     datatype peanut=    O of  SrcOp.rator | E of Ein.ein |Nope     datatype peanut=    O of  SrcOp.rator | E of Ein.ein |Nope
30    
31      val testing =0      val testing =1
32      fun getRHS x  = (case SrcIL.Var.binding x      fun getRHS x  = (case SrcIL.Var.binding x
33          of SrcIL.VB_RHS(SrcIL.OP(rator, args)) => (O rator, args)          of SrcIL.VB_RHS(SrcIL.OP(rator, args)) => (O rator, args)
34          | SrcIL.VB_RHS(SrcIL.VAR x') => getRHS x'          | SrcIL.VB_RHS(SrcIL.VAR x') => getRHS x'

Legend:
Removed from v.2607  
changed lines
  Added in v.2608

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