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/float-ein.sml
ViewVC logotype

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

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

revision 3654, Wed Feb 3 23:00:46 2016 UTC revision 3655, Thu Feb 4 04:12:40 2016 UTC
# Line 86  Line 86 
86            [IR.ASSGN(y, IR.EINAPP(ein, args))]            [IR.ASSGN(y, IR.EINAPP(ein, args))]
87        | transform (y, IR.EINAPP(Ein.EIN{params, index, body}, args)) = let        | transform (y, IR.EINAPP(Ein.EIN{params, index, body}, args)) = let
88            val avail = AvailRHS.new()            val avail = AvailRHS.new()
89          val _ =print"in float-ein"  
90            fun filterOps (es, params, args, index, sx) = let            fun filterOps (es, params, args, index, sx) = let
91                  fun filter ([], es', params, args) = (rev es', params, args)                  fun filter ([], es', params, args) = (rev es', params, args)
92                    | filter (e::es, es', params, args) = if isOp e                    | filter (e::es, es', params, args) = if isOp e

Legend:
Removed from v.3654  
changed lines
  Added in v.3655

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