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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/inputs/inputs.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/inputs/inputs.sml

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

revision 3504, Thu Dec 17 23:56:09 2015 UTC revision 3505, Fri Dec 18 02:47:03 2015 UTC
# Line 25  Line 25 
25          init : input_init               (* the default initialization (or NoDefault) *)          init : input_init               (* the default initialization (or NoDefault) *)
26        }        }
27    
28        val varOf : 'a input -> 'a
29    
30      val same : 'a input * 'a input -> bool      val same : 'a input * 'a input -> bool
31    
32      val hash : 'a input -> word      val hash : 'a input -> word
# Line 56  Line 58 
58          init : input_init               (* the default initialization (or NoDefault) *)          init : input_init               (* the default initialization (or NoDefault) *)
59        }        }
60    
61        fun varOf (INP{var, ...}) = var
62    
63      fun same (INP{name=n1, ...}, INP{name=n2, ...}) = (n1 = n2)      fun same (INP{name=n1, ...}, INP{name=n2, ...}) = (n1 = n2)
64    
65      fun hash (INP{name, ...}) = HashString.hashString name      fun hash (INP{name, ...}) = HashString.hashString name

Legend:
Removed from v.3504  
changed lines
  Added in v.3505

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