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

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

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

revision 1807, Sat Apr 7 12:00:48 2012 UTC revision 1808, Sat Apr 7 12:02:38 2012 UTC
# Line 146  Line 146 
146                                            ]))))                                            ]))))
147                                    ]),                                    ]),
148                                CL.D_Func(                                CL.D_Func(
149                                  [], CL.voidTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, "Set_", name],
150                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],                                  [wrldParam, CL.PARAM([], nrrdPtrTy, "nin")],
151                                  CL.mkBlock[                                  CL.mkBlock[
152  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)  (* FIXME: we should also generate code to check that the loaded image has the right type, etc. *)
# Line 161  Line 161 
161                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"                          | Ty.DynSeqTy _ => raise Fail "dynamic input not supported yet"
162                          | _ => [                          | _ => [
163                                CL.D_Func(                                CL.D_Func(
164                                  [], CL.voidTy, concat[prefix, "Set_", name],                                  [], CL.boolTy, concat[prefix, "Set_", name],
165                                  [wrldParam, CL.PARAM([], trType ty, "v")],                                  [wrldParam, CL.PARAM([], trType ty, "v")],
166                                  CL.mkBlock[copy(ty, global name, CL.mkVar "v")])                                  CL.mkBlock[
167                                        copy(ty, global name, CL.mkVar "v"),
168                                        CL.mkReturn(SOME(CL.mkVar "false"))
169                                      ])
170                              ]                              ]
171                        (* end case *))                        (* end case *))
172                  in                  in

Legend:
Removed from v.1807  
changed lines
  Added in v.1808

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