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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen-outputs.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen-outputs.sml

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

revision 3917, Sat May 28 16:41:39 2016 UTC revision 3922, Wed Jun 1 17:02:34 2016 UTC
# Line 389  Line 389 
389                  val funcName = if snapshot                  val funcName = if snapshot
390                        then GenLibraryInterface.snapshotGet(spec, name)                        then GenLibraryInterface.snapshotGet(spec, name)
391                        else GenLibraryInterface.outputGet(spec, name)                        else GenLibraryInterface.outputGet(spec, name)
                 val fldName = "sv_" ^ name  
392                  fun mkFunc (params, body) =                  fun mkFunc (params, body) =
393                        CL.D_Func(                        CL.D_Func(
394                          [], CL.boolTy, funcName, CL.PARAM([], RN.worldPtrTy, "wrld")::params, body)                          [], CL.boolTy, funcName, CL.PARAM([], RN.worldPtrTy, "wrld")::params, body)
395                  in                  in
396                    case ty                    case ty
397                     of Ty.SeqTy(ty', NONE) => mkFunc (genDynOutput(env, snapshot, nAxes, ty', fldName))                     of Ty.SeqTy(ty', NONE) => mkFunc (genDynOutput(env, snapshot, nAxes, ty', name))
398                      | _ => mkFunc (genFixedOutput(env, snapshot, nAxes, ty, fldName))                      | _ => mkFunc (genFixedOutput(env, snapshot, nAxes, ty, name))
399                    (* end case *)                    (* end case *)
400                  end                  end
401            val getFns = List.map (getFn false) outputs            val getFns = List.map (getFn false) outputs

Legend:
Removed from v.3917  
changed lines
  Added in v.3922

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