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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/translate/translate-ty.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/translate/translate-ty.sml

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

revision 3471, Mon Nov 30 18:23:37 2015 UTC revision 3474, Wed Dec 2 18:26:40 2015 UTC
# Line 13  Line 13 
13    end = struct    end = struct
14    
15      structure Ty = SimpleTypes      structure Ty = SimpleTypes
16      structure DstTy = HighILTypes      structure DstTy = HighIRTypes
17    
18      fun tr ty = (case ty      fun tr ty = (case ty
19             of Ty.T_Bool => DstTy.BoolTy             of Ty.T_Bool => DstTy.BoolTy
20              | Ty.T_Int => DstTy.IntTy              | Ty.T_Int => DstTy.IntTy
21              | Ty.T_String => DstTy.StringTy              | Ty.T_String => DstTy.StringTy
22              | Ty.T_Sequence(ty, d) => DstTy.SeqTy(tr ty, d)              | Ty.T_Sequence(ty, optDim) => DstTy.SeqTy(tr ty, optDim)
             | Ty.T_DynSequence ty => DstTy.DynSeqTy(tr ty)  
23              | Ty.T_Kernel _ => DstTy.KernelTy              | Ty.T_Kernel _ => DstTy.KernelTy
24              | Ty.T_Tensor dd => let              | Ty.T_Tensor dd => let
25                  fun cvtDim 1 = NONE                  fun cvtDim 1 = NONE

Legend:
Removed from v.3471  
changed lines
  Added in v.3474

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