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/SMLNJ/src/MLRISC/instructions/basicAnnotations.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/instructions/basicAnnotations.sml

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

revision 474, Wed Nov 10 22:59:58 1999 UTC revision 475, Wed Nov 10 22:59:58 1999 UTC
# Line 38  Line 38 
38     val DEFUSECC = A.new(SOME(fn x => "ccreg "^defUse x))     val DEFUSECC = A.new(SOME(fn x => "ccreg "^defUse x))
39    
40     val REGINFO = A.new(SOME(fn _ => "REGINFO")) : (int -> string) A.property     val REGINFO = A.new(SOME(fn _ => "REGINFO")) : (int -> string) A.property
41       val SHOW_CELLSET = A.newFlag("SHOW_CELLSET")
42    
43     val NO_OPTIMIZATION = A.newFlag("NO_OPTIMIZATION") : unit A.property     val NO_OPTIMIZATION = A.newFlag("NO_OPTIMIZATION")
44     val CALLGC = A.newFlag("CALLGC") : unit A.property     val CALLGC = A.newFlag("CALLGC")
45       val BLOCK_NAMES = A.new(SOME(fn _ => "BLOCK_NAMES")) :
46                           A.annotations A.property
47       val EMPTY_BLOCK = A.newFlag("EMPTY_BLOCK")
48    
49  end  end

Legend:
Removed from v.474  
changed lines
  Added in v.475

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