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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cfg-ir/translate-env-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/translate-env-fn.sml

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

revision 3839, Mon May 9 20:05:59 2016 UTC revision 3840, Mon May 9 20:42:08 2016 UTC
# Line 85  Line 85 
85      fun renameSV (E{svMap, ...}, x) = (case SrcSV.Tbl.find svMap x      fun renameSV (E{svMap, ...}, x) = (case SrcSV.Tbl.find svMap x
86             of SOME x' => x'             of SOME x' => x'
87              | NONE => let              | NONE => let
88                  val x' = DstIR.StateVar.new (SrcSV.isOutput x, SrcSV.name x, Params.cvtTy(SrcSV.ty x))                  val x' = DstIR.StateVar.new (
89                          SrcSV.isOutput x, SrcSV.name x, Params.cvtTy(SrcSV.ty x),
90                          SrcSV.isVarying x, SrcSV.isShared x)
91                  in                  in
92                    SrcSV.Tbl.insert svMap (x, x');                    SrcSV.Tbl.insert svMap (x, x');
93                    x'                    x'

Legend:
Removed from v.3839  
changed lines
  Added in v.3840

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