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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml

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

revision 3894, Sun May 22 14:51:27 2016 UTC revision 3900, Mon May 23 15:20:24 2016 UTC
# Line 24  Line 24 
24    
25      val trAssign : CodeGenEnv.t * CLang.exp * TreeIR.exp -> CLang.stm list      val trAssign : CodeGenEnv.t * CLang.exp * TreeIR.exp -> CLang.stm list
26    
27      (* generate code to register an error message (require that a world pointer "wrld" is in scope) *)
28        val errorMsgAdd : CLang.exp -> CLang.stm
29    
30    end = struct    end = struct
31    
32      structure CL = CLang      structure CL = CLang
# Line 318  Line 321 
321                        val stm = (case ty                        val stm = (case ty
322                               of APITypes.SeqTy(ty, NONE) =>                               of APITypes.SeqTy(ty, NONE) =>
323                                    GenLoadNrrd.loadSeqFromFile (lvalueVar (env, lhs), ty, CL.mkStr nrrd)                                    GenLoadNrrd.loadSeqFromFile (lvalueVar (env, lhs), ty, CL.mkStr nrrd)
324                                | APITypes.ImageTy(dim, shape) =>                                | APITypes.ImageTy _ =>
325                                    GenLoadNrrd.loadImage (lvalueVar (env, lhs), dim, CL.mkStr nrrd)                                    GenLoadNrrd.loadImage (lvalueVar (env, lhs), CL.mkStr nrrd)
326                                | _ => raise Fail(concat[                                | _ => raise Fail(concat[
327                                      "bogus type ", APITypes.toString ty, " for LoadNrrd"                                      "bogus type ", APITypes.toString ty, " for LoadNrrd"
328                                    ])                                    ])
# Line 360  Line 363 
363              CL.mkBlock (dcls @ trStms (env, body))              CL.mkBlock (dcls @ trStms (env, body))
364            end            end
365    
366        fun errorMsgAdd msg =
367              CL.mkCall("biffMsgAdd", [CL.mkIndirect(CL.mkVar "wrld", "_errors"), msg])
368    
369    end    end

Legend:
Removed from v.3894  
changed lines
  Added in v.3900

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