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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/gen-load-nrrd.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/gen-load-nrrd.sml

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

revision 3097, Wed Mar 18 13:37:31 2015 UTC revision 3098, Wed Mar 18 14:39:21 2015 UTC
# Line 28  Line 28 
28    end = struct    end = struct
29    
30      structure CL = CLang      structure CL = CLang
31      structure N = CNames      structure RN = RuntimeNames
32      structure Ty = TreeIL.Ty      structure Ty = TreeIL.Ty
33    
34      val wrldPrefixTy = CL.T_Ptr(CL.T_Named "WorldPrefix_t")      val wrldPrefixTy = CL.T_Ptr(CL.T_Named "WorldPrefix_t")
# Line 46  Line 46 
46            end            end
47    
48    
49      val loadImage = doImage N.loadImage      val loadImage = doImage RN.loadImage
50      val setImage = doImage N.setImage      val setImage = doImage RN.setImage
51    
52      fun doSeq loadFn (lhs, elemTy, arg) = let      fun doSeq loadFn (lhs, elemTy, arg) = let
53            val (nDims, dimInit, dimExp, elemTy) = (case elemTy            val (nDims, dimInit, dimExp, elemTy) = (case elemTy
# Line 81  Line 81 
81                ]                ]
82            ) end            ) end
83    
84      val loadSeqFromFile = doSeq N.loadDynSeqFromFile      val loadSeqFromFile = doSeq RN.loadDynSeqFromFile
85      val loadSeq = doSeq N.loadDynSeq      val loadSeq = doSeq RN.loadDynSeq
86    
87    end    end

Legend:
Removed from v.3097  
changed lines
  Added in v.3098

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