Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/cps/cpstrans.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cps/cpstrans.sml

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

revision 732, Mon Nov 13 21:59:12 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 24  Line 24 
24  val untaggedint = MachSpec.untaggedInt  val untaggedint = MachSpec.untaggedInt
25    
26  exception CPSSUBST  exception CPSSUBST
27  val M : value Intmap.intmap = Intmap.new(32,CPSSUBST)  val M : value IntHashTable.hash_table = IntHashTable.mkTable(32,CPSSUBST)
28  val addvl = Intmap.add M  val addvl = IntHashTable.insert M
29  fun mapvl v = ((Intmap.map M v) handle CPSSUBST => VAR v)  fun mapvl v = ((IntHashTable.lookup M v) handle CPSSUBST => VAR v)
30    
31  exception CTYMAP  exception CTYMAP
32  val CT : cty Intmap.intmap = Intmap.new(32,CTYMAP)  val CT : cty IntHashTable.hash_table = IntHashTable.mkTable(32,CTYMAP)
33  val addty = Intmap.add CT  val addty = IntHashTable.insert CT
34  val getty = Intmap.map CT  val getty = IntHashTable.lookup CT
35  fun grabty(VAR v) = ((getty v) handle _ => BOGt)  fun grabty(VAR v) = ((getty v) handle _ => BOGt)
36    | grabty(REAL _) = FLTt    | grabty(REAL _) = FLTt
37    | grabty(INT _) = INTt    | grabty(INT _) = INTt

Legend:
Removed from v.732  
changed lines
  Added in v.733

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