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

SCM Repository

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

Diff of /branches/vis15/src/compiler/mid-to-low/ein-to-low.sml

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

revision 3653, Tue Feb 2 22:50:44 2016 UTC revision 3654, Wed Feb 3 23:00:46 2016 UTC
# Line 170  Line 170 
170                          val vecA = createP (params, args, vecIX, id1, ix1)                          val vecA = createP (params, args, vecIX, id1, ix1)
171                          val vecB = createP (params, args, vecIX, id2, ix2)                          val vecB = createP (params, args, vecIX, id2, ix2)
172                          in                          in
173                            unroll (AvailRHS.new(), index, index', EinToVec.op2, (vecIX, Op.VSub vecIX, vecA, vecB))                            unroll (
174                                AvailRHS.new(), index, index',
175                                EinToVec.op2, (vecIX, Op.VSub vecIX, vecA, vecB))
176                          end                          end
177                      | _  => scalarExpand (params, body, index, args)                      | _  => scalarExpand (params, body, index, args)
178                    (* end case *)                    (* end case *)
# Line 258  Line 260 
260                   of [3, 3] => scalarExpand (params, body, index, args)                   of [3, 3] => scalarExpand (params, body, index, args)
261                    | [3, 3, 3] => scalarExpand (params, body, index, args)                    | [3, 3, 3] => scalarExpand (params, body, index, args)
262                    | _::_ => nonScalar (params, body, index, args)                    | _::_ => nonScalar (params, body, index, args)
 (* TODO: inline gen here, once we've checked that it isn't required in nonScalar. *)  
263                    | _ => expandInner (params, body, index, args)                    | _ => expandInner (params, body, index, args)
264                  (* end case *))                  (* end case *))
265            val (x, asgn) :: rest = AvailRHS.getAssignments avail            val (_, asgn) :: rest = AvailRHS.getAssignments avail
266            in            in
267  (* QUESTION: should we have A twice here? *)              List.revMap LowIR.ASSGN ((y, A)::asgn)
             List.revMap LowIR.ASSGN ((y, A)::(x, A)::rest)  
268            end            end
269    
270      end      end

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

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