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

SCM Repository

[diderot] Diff of /trunk/src/compiler/IL/ssa-fn.sml
ViewVC logotype

Diff of /trunk/src/compiler/IL/ssa-fn.sml

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

revision 454, Mon Oct 25 19:59:47 2010 UTC revision 455, Wed Oct 27 02:42:13 2010 UTC
# Line 202  Line 202 
202          val ty : var -> Ty.ty          val ty : var -> Ty.ty
203          val binding : var -> var_bind          val binding : var -> var_bind
204          val setBinding : var * var_bind -> unit          val setBinding : var * var_bind -> unit
205            val useCount : var -> int
206          val same : var * var -> bool          val same : var * var -> bool
207          val compare : var * var -> order          val compare : var * var -> order
208          val hash : var -> word          val hash : var -> word
# Line 556  Line 557 
557          fun ty (V{ty, ...}) = ty          fun ty (V{ty, ...}) = ty
558          fun binding (V{bind, ...}) = !bind          fun binding (V{bind, ...}) = !bind
559          fun setBinding (V{bind, ...}, vb) = bind := vb          fun setBinding (V{bind, ...}, vb) = bind := vb
560            fun useCount (V{useCnt, ...}) = !useCnt
561          fun same (V{id=a, ...}, V{id=b, ...}) = Stamp.same(a, b)          fun same (V{id=a, ...}, V{id=b, ...}) = Stamp.same(a, b)
562          fun compare (V{id=a, ...}, V{id=b, ...}) = Stamp.compare(a, b)          fun compare (V{id=a, ...}, V{id=b, ...}) = Stamp.compare(a, b)
563          fun hash (V{id, ...}) = Stamp.hash id          fun hash (V{id, ...}) = Stamp.hash id

Legend:
Removed from v.454  
changed lines
  Added in v.455

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