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-library-interface.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/gen-library-interface.sml

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

revision 1712, Fri Mar 9 21:36:38 2012 UTC revision 1713, Fri Mar 9 21:37:19 2012 UTC
# Line 46  Line 46 
46              | Ty.DynSeqTy _ => CL.T_Ptr(CL.T_Named N.dynSeqTy)              | Ty.DynSeqTy _ => CL.T_Ptr(CL.T_Named N.dynSeqTy)
47              | Ty.AddrTy(ImageInfo.ImgInfo{ty=(_, rTy), ...}) => CL.T_Ptr(CL.T_Num rTy)              | Ty.AddrTy(ImageInfo.ImgInfo{ty=(_, rTy), ...}) => CL.T_Ptr(CL.T_Num rTy)
48              | Ty.ImageTy(ImageInfo.ImgInfo{dim, ...}) => CL.T_Ptr(CL.T_Named(N.imageTy dim))              | Ty.ImageTy(ImageInfo.ImgInfo{dim, ...}) => CL.T_Ptr(CL.T_Named(N.imageTy dim))
49              | _ => raise Fail(concat["TreeToC.trType(", Ty.toString ty, ")"])              | _ => raise Fail(concat["GenLibraryInterface.trType(", Ty.toString ty, ")"])
50            (* end case *))            (* end case *))
51    
52      fun mkSymbol base = let      fun mkSymbol base = let
# Line 62  Line 62 
62                    dir = #outDir tgt,                    dir = #outDir tgt,
63                    file = OS.Path.joinBaseExt{base = #outBase tgt, ext = SOME "h"}                    file = OS.Path.joinBaseExt{base = #outBase tgt, ext = SOME "h"}
64                  }                  }
65            val prefix = (case #namespace tgt            val prefix = #namespace tgt
                  of NONE => "Diderot_"  
                   | SOME s => s ^ "_"  
                 (* end case *))  
66          (* the world pointer type *)          (* the world pointer type *)
67            val worldPtrTy = CL.T_Ptr(CL.T_Named(prefix ^ "World_t"))            val worldPtrTy = CL.T_Ptr(CL.T_Named(prefix ^ "World_t"))
68          (* create a decl for an input variable *)          (* create a decl for an input variable *)

Legend:
Removed from v.1712  
changed lines
  Added in v.1713

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