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/ppcps.sml
ViewVC logotype

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

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

revision 717, Sun Nov 5 15:07:51 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 3  Line 3 
3    
4  signature PPCPS =  signature PPCPS =
5  sig  sig
6    val printcps : (CPS.function * LtyDef.lty Intmap.intmap) -> unit    val printcps : (CPS.function * LtyDef.lty IntHashTable.hash_table) -> unit
7    val printcps0: CPS.function -> unit    val printcps0: CPS.function -> unit
8    val prcps : CPS.cexp -> unit    val prcps : CPS.cexp -> unit
9    
# Line 249  Line 249 
249    
250      val _ = if (!Control.CG.debugRep)      val _ = if (!Control.CG.debugRep)
251              then (say "************************************************\n";              then (say "************************************************\n";
252                    Intmap.app ptv m;                    IntHashTable.appi ptv m;
253                    say "************************************************\n")                    say "************************************************\n")
254              else ()              else ()
255    
# Line 265  Line 265 
265  end  end
266    
267  exception NULLTABLE  exception NULLTABLE
268  val nulltable : LtyDef.lty Intmap.intmap= Intmap.new(8,NULLTABLE)  val nulltable : LtyDef.lty IntHashTable.hash_table =
269        IntHashTable.mkTable(8,NULLTABLE)
270    
271  fun printcps0 f = printcps(f,nulltable)  fun printcps0 f = printcps(f,nulltable)
272    

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

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