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

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

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

sml/branches/SMLNJ/src/MLRISC/emit/asmUtil.sml revision 428, Wed Sep 8 09:47:00 1999 UTC sml/trunk/src/MLRISC/emit/asmUtil.sml revision 796, Tue Mar 6 00:04:33 2001 UTC
# Line 3  Line 3 
3   *)   *)
4  signature ASM_FORMAT_UTIL =  signature ASM_FORMAT_UTIL =
5  sig  sig
6     val reginfo : (string -> unit) * Annotations.annotations -> (int -> unit)     structure C : CELLS_BASIS
7       val reginfo :
8              (string -> unit) * Annotations.annotations ->
9                  (C.cell -> unit)
10       val emit_cutsTo : (string -> unit) -> Label.label list -> unit
11  end  end
12    
13  structure AsmFormatUtil : ASM_FORMAT_UTIL =  structure AsmFormatUtil : ASM_FORMAT_UTIL =
14  struct  struct
15    
16      structure C = CellsBasis
17    fun reginfo(emit,an) =    fun reginfo(emit,an) =
18    let fun find [] = (fn _ => ())        case #get MLRiscAnnotations.PRINT_CELLINFO an of
19          | find(BasicAnnotations.REGINFO f::_) = (fn r => emit(f r))           SOME f => (fn c => emit(f c))
20          | find(_::an) = find an        |  NONE   => (fn _ => ())
21    in  find an end    fun emit_cutsTo emit [] = ()
22        | emit_cutsTo emit labels =
23          emit("\n\t/* cuts to:"^
24            List.foldr
25              (fn (l,"") => Label.nameOf l
26                | (l,s)  => Label.nameOf l^","^s)
27                "" labels^" */\n")
28  end  end

Legend:
Removed from v.428  
changed lines
  Added in v.796

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