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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/codegen/codegen-env.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/codegen/codegen-env.sml

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

revision 3875, Wed May 18 17:06:02 2016 UTC revision 3876, Wed May 18 17:25:47 2016 UTC
# Line 29  Line 29 
29      val selfIn : t -> CLang.var      val selfIn : t -> CLang.var
30      val selfOut : t -> CLang.var      val selfOut : t -> CLang.var
31    
32      (* get CLang versions of standard Diderot types *)
33        val realTy : t -> CLang.ty
34        val intTy  : t -> CLang.ty
35    
36    end = struct    end = struct
37    
38      structure V = TreeVar      structure V = TreeVar
39      structure VMap = TreeVar.Map      structure VMap = TreeVar.Map
40        structure CL = CLang
41    
42      datatype t = Env of {      datatype t = Env of {
43          vmap : CLang.var VMap.map,          vmap : CL.var VMap.map,
44          spec : TargetSpec.t          spec : TargetSpec.t
45        }        }
46    
# Line 61  Line 66 
66      fun selfIn env = lookup(env, PseudoVars.selfIn)      fun selfIn env = lookup(env, PseudoVars.selfIn)
67      fun selfOut env = lookup(env, PseudoVars.selfOut)      fun selfOut env = lookup(env, PseudoVars.selfOut)
68    
69        fun realTy (Env{spec, ...}) = if (#double spec) then CL.double else CL.float
70        fun intTy (Env{spec, ...}) = if (#longint spec) then CL.int64 else CL.int32
71    
72    end    end

Legend:
Removed from v.3875  
changed lines
  Added in v.3876

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