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/MLRISC/emit/asmUtil.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/emit/asmUtil.sml

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

revision 744, Fri Dec 8 04:11:42 2000 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 6  Line 6 
6     structure C : CELLS_BASIS     structure C : CELLS_BASIS
7     val reginfo :     val reginfo :
8            (string -> unit) * Annotations.annotations ->            (string -> unit) * Annotations.annotations ->
9                ('a -> unit)                (C.cell -> unit)
10  end  end
11    
12  structure AsmFormatUtil : ASM_FORMAT_UTIL =  structure AsmFormatUtil : ASM_FORMAT_UTIL =
13  struct  struct
14    
15    structure C = CellsBasis    structure C = CellsBasis
16    fun reginfo(emit,an) = fn _ => ()    fun reginfo(emit,an) =
17          case #get MLRiscAnnotations.PRINT_CELLINFO an of
18             SOME f => (fn c => emit(f c))
19          |  NONE   => (fn _ => ())
20    
21  end  end

Legend:
Removed from v.744  
changed lines
  Added in v.775

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