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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-target/c-target.sml

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

revision 2670, Wed Jul 9 21:54:54 2014 UTC revision 2671, Fri Jul 18 18:57:06 2014 UTC
# Line 119  Line 119 
119          toListIndex(bin,(length bin)-1)          toListIndex(bin,(length bin)-1)
120      end      end
121    
122        fun getVecTy n= let
123            (*Looks for next largest length supported*)
124            fun fillVec vn =(case (isVecTy vn)
125                of true => (true,vn,[vn])
126                | false => fillVec(vn+1))
127            val (isFill,newSize,Pieces)= (case (isVecTy n)
128                of true=> (false,n,[n])
129                | false=>(case isHwVec n
130                    of false=> (false,n,(getPieces n))
131                    | true=> fillVec (n+1)
132                    (*end case*))
133                (*end case*))
134        in
135            (isFill,newSize,Pieces)
136        end
137    
138    
139      (*Program , Opr-> Program with new CLang declations *)      (*Program , Opr-> Program with new CLang declations *)
# Line 368  Line 382 
382                                  val fmt = CL.E_Str(                                  val fmt = CL.E_Str(
383                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))
384                                        ^ "\n")                                        ^ "\n")
385                                  val args = List.tabulate (d, fn i => ToC.prntArr(outState, d, i))                                  val args = List.tabulate (d, fn i => ToC.prntArr(outState, i))
386                                  in                                  in
387                                    fmt :: args                                    fmt :: args
388                                  end                                  end

Legend:
Removed from v.2670  
changed lines
  Added in v.2671

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