Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/emit/asmUtil.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 909 - (download) (annotate)
Fri Aug 24 17:48:53 2001 UTC (17 years, 10 months ago) by george
File size: 756 byte(s)
removed clusters from MLRISC
(*
 * This is a helper module for assemblers.
 *)
signature ASM_FORMAT_UTIL =
sig
   structure C : CELLS_BASIS
   val reginfo : 
          (string -> unit) * Annotations.annotations -> 
              (C.cell -> unit)
   val emit_cutsTo : (string -> unit) -> Label.label list -> unit
end

structure AsmFormatUtil : ASM_FORMAT_UTIL =
struct

  structure C = CellsBasis
  fun reginfo(emit,an) = 
      case #get MLRiscAnnotations.PRINT_CELLINFO an of
         SOME f => (fn c => emit(f c))
      |  NONE   => (fn _ => ())
  fun emit_cutsTo emit [] = ()
    | emit_cutsTo emit labels = 
      emit("\n\t/* cuts to:"^
        List.foldr
          (fn (l,"") => Label.toString l
            | (l,s)  => Label.toString l^","^s)
            "" labels^" */\n")
end

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