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 2661, Fri May 30 14:43:55 2014 UTC revision 2662, Fri May 30 16:55:05 2014 UTC
# Line 31  Line 31 
31    
32   fun getPieces n=[2,2] (*Fix*)   fun getPieces n=[2,2] (*Fix*)
33    
34    
35    
36     (*Program , Opr-> Program with new CLang declations *)
37     fun getOpr _ = 0
38     fun prntOpr  _ = ""
39     fun getTypes _ =0
40     fun prntTypes _ =""
41    
42    
43    
44    (* revmap f l == List.rev(List.map f l) *)    (* revmap f l == List.rev(List.map f l) *)
45      fun revmap f = let      fun revmap f = let
46            fun rmap ([], l) = l            fun rmap ([], l) = l
# Line 245  Line 255 
255                  | StrandScope => ToC.trExp(vMap, e)                  | StrandScope => ToC.trExp(vMap, e)
256                  | _ =>  ToCL.trExp(vMap, e)                  | _ =>  ToCL.trExp(vMap, e)
257                (* end case *))                (* end case *))
258          fun allTypes _=[]  
         fun allOpr _= []  
259        end        end
260    
261    (* variables *)    (* variables *)
# Line 306  Line 315 
315    (* programs *)    (* programs *)
316      structure Program =      structure Program =
317        struct        struct
318    
319          fun new {name, double, parallel, debug} = (          fun new {name, double, parallel, debug} = (
320                RN.initTargetSpec double;                RN.initTargetSpec double;
321                CNames.initTargetSpec {double=double, long=false};                CNames.initTargetSpec {double=double, long=false};

Legend:
Removed from v.2661  
changed lines
  Added in v.2662

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