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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/target-cpu.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/target-cpu.sml

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

branches/vis15/src/compiler/tree-to-c/tree-to-c.sml revision 3898, Mon May 23 03:34:31 2016 UTC branches/vis15/src/compiler/target-cpu/target-cpu.sml revision 3901, Mon May 23 16:37:01 2016 UTC
# Line 1  Line 1 
1  (* tree-to-c.sml  (* target-cpu.sml
2   *   *
3   * Code generation for the sequential and parallel targets.   * Code generation for the sequential and parallel targets.
4   *   *
# Line 8  Line 8 
8   * All rights reserved.   * All rights reserved.
9   *)   *)
10    
11  structure TreeToC : sig  structure TargetCPU : sig
12    
13      val target : TargetOptions.t -> {      val target : TargetOptions.t -> {
14              info : TreeIR.target_info,              info : TreeIR.target_info,
# Line 28  Line 28 
28                  } = prog                  } = prog
29            val spec = TargetSpec.mk (tgt, props)            val spec = TargetSpec.mk (tgt, props)
30            in            in
31              if (* standalone exec *)              if (#exec spec)
32                then                then raise Fail "FIXME"
33                else                else raise Fail "FIXME"
34            end            end
35    
36      fun info (tgt : TargetOptions.t) = {      fun info (tgt : TargetOptions.t) = {
37              layout = if (#scalar tgt)              layout = if (#scalar tgt)
38                  then DefaultLayout.scalar                  then VectorLayout.scalar
39                  else DefaultLayout.layout (DefaultLayout.gccVectorSizes (#double tgt)),                  else VectorLayout.layout (VectorLayout.gccVectorSizes (#double tgt)),
40              isInline =              isInline =
41                 fn LowOps.EigenVecs2x2 => false                 fn LowOps.EigenVecs2x2 => false
42                  | LowOps.EigenVecs3x3 => false                  | LowOps.EigenVecs3x3 => false
43                  | LowOps.EigenVals2x2 => false                  | LowOps.EigenVals2x2 => false
44                  | LowOps.EigenVals3x3 => false                  | LowOps.EigenVals3x3 => false
45                  | LowOps.Zero => false                  | LowOps.Zero _ => false
46                  | _ => true                  | _ => true
47            }            }
48    

Legend:
Removed from v.3898  
changed lines
  Added in v.3901

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