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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2126 - (download) (annotate)
Thu Nov 2 16:11:29 2006 UTC (12 years, 7 months ago) by blume
File size: 756 byte(s)
moved MLRISC to toplevel
(*
 * 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