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

revision 775, Fri Jan 12 01:17:51 2001 UTC revision 796, Tue Mar 6 00:04:33 2001 UTC
# Line 7  Line 7 
7     val reginfo :     val reginfo :
8            (string -> unit) * Annotations.annotations ->            (string -> unit) * Annotations.annotations ->
9                (C.cell -> unit)                (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 =
# Line 17  Line 18 
18        case #get MLRiscAnnotations.PRINT_CELLINFO an of        case #get MLRiscAnnotations.PRINT_CELLINFO an of
19           SOME f => (fn c => emit(f c))           SOME f => (fn c => emit(f c))
20        |  NONE   => (fn _ => ())        |  NONE   => (fn _ => ())
21      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.775  
changed lines
  Added in v.796

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