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

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

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

revision 2922, Tue Mar 3 03:55:09 2015 UTC revision 2923, Tue Mar 3 15:33:44 2015 UTC
# Line 225  Line 225 
225      *scans body  for vectorization potential      *scans body  for vectorization potential
226      *)      *)
227      fun scan(y,e,args)= let      fun scan(y,e,args)= let
         (*)val _ =print(String.concat["\nEinExp\n",P.printerE e,"\n"])*)  
228          val lhs=LowIL.Var.name y          val lhs=LowIL.Var.name y
229          val b=Ein.body e          val b=Ein.body e
230          val index=Ein.index e          val index=Ein.index e
# Line 253  Line 252 
252              | _ => runGeneralCase info              | _ => runGeneralCase info
253              (*end case*))              (*end case*))
254          val (_,code) =gen b          val (_,code) =gen b
255          (*need to reassign the last assgn*)          in (case code
256                of(* []=> []
257                | *) _=> let (*need to reassign the last assgn*)
258          val LowIL.ASSGN (a1,A)=List.hd(List.rev(code))          val LowIL.ASSGN (a1,A)=List.hd(List.rev(code))
259          val c=LowIL.ASSGN (y,A)          val c=LowIL.ASSGN (y,A)
   
260          in          in
261              code@[c]              code@[c]
262          end          end
263                (*end case*))
264            end
265    
266    
267    

Legend:
Removed from v.2922  
changed lines
  Added in v.2923

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