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/branches/arith64/compiler/FLINT/cpsopt/etasplit.sml
ViewVC logotype

Diff of /sml/branches/arith64/compiler/FLINT/cpsopt/etasplit.sml

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

revision 4789, Sat Sep 8 21:15:47 2018 UTC revision 4806, Wed Sep 12 20:18:23 2018 UTC
# Line 43  Line 43 
43  val debug = !Control.CG.debugcps (* false *)  val debug = !Control.CG.debugcps (* false *)
44  fun debugprint s = if debug then Control.Print.say s else ()  fun debugprint s = if debug then Control.Print.say s else ()
45  fun debugflush() = if debug then Control.Print.flush() else ()  fun debugflush() = if debug then Control.Print.flush() else ()
46  val rep_flag = MachSpec.representations  val type_flag = (!Control.CG.checkcps1)
 val type_flag = (!Control.CG.checkcps1) andalso rep_flag  
47    
48    
49  exception SPLIT1  exception SPLIT1

Legend:
Removed from v.4789  
changed lines
  Added in v.4806

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