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

SCM Repository

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

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

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

revision 2623, Thu May 15 20:01:40 2014 UTC revision 2624, Fri May 16 17:53:41 2014 UTC
# Line 18  Line 18 
18      structure HF = CLHeaderFrag      structure HF = CLHeaderFrag
19      structure SF = CLSchedFrag      structure SF = CLSchedFrag
20    
21    
22     fun isHwVec width=
23     if(width>4) then false else true
24    
25     fun isVecTy 1 =true
26      | isVecTy 2 =true
27      | isVecTy 4 =true
28      | isVecTy 8 =true
29      | isVecTy 16 =true
30      | isVecTy _= false
31    
32     fun getPieces n=[2,2] (*Fix*)
33    
34    (* revmap f l == List.rev(List.map f l) *)    (* revmap f l == List.rev(List.map f l) *)
35      fun revmap f = let      fun revmap f = let
36            fun rmap ([], l) = l            fun rmap ([], l) = l

Legend:
Removed from v.2623  
changed lines
  Added in v.2624

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