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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 545 - (view) (download)
Original Path: sml/trunk/src/MLRISC/emit/asmUtil.sml

1 : monnier 427 (*
2 :     * This is a helper module for assemblers.
3 :     *)
4 :     signature ASM_FORMAT_UTIL =
5 :     sig
6 : george 545 val reginfo :
7 :     (string -> unit) * (int -> int) * Annotations.annotations ->
8 :     (int -> unit)
9 : monnier 427 end
10 :    
11 :     structure AsmFormatUtil : ASM_FORMAT_UTIL =
12 :     struct
13 :    
14 : george 545 fun reginfo(emit,regmap,an) =
15 : monnier 498 case #get MLRiscAnnotations.REGINFO an of
16 : george 545 SOME f => (fn r => emit(f(regmap, r)))
17 : monnier 469 | NONE => (fn _ => ())
18 : monnier 427
19 :     end

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