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 /MLRISC/trunk/mltree/operand-table.sml
ViewVC logotype

Diff of /MLRISC/trunk/mltree/operand-table.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 657, Fri Jun 9 05:20:54 2000 UTC
# Line 42  Line 42 
42         val immTable   = HA.array''(37,newImmed)         val immTable   = HA.array''(37,newImmed)
43         val opnTable   = HT.mkTable(Props.hashOpn,Props.eqOpn) (32,NoOperand)         val opnTable   = HT.mkTable(Props.hashOpn,Props.eqOpn) (32,NoOperand)
44         (*val labelTable = HT.mkTable(hashLabel,eqLabel) (32,NoLabel)*)         (*val labelTable = HT.mkTable(hashLabel,eqLabel) (32,NoLabel)*)
45     in  TABLE{ immTable   = immTable,         fun init(n,m) = if n > m then () else (newImmed n; init(n+1,m))
46       in  init(0,2);
47           TABLE{ immTable   = immTable,
48                (*labelTable = labelTable,*)                (*labelTable = labelTable,*)
49                opnTable   = opnTable,                opnTable   = opnTable,
50                constTable = constTable,                constTable = constTable,

Legend:
Removed from v.651  
changed lines
  Added in v.657

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