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 545, Thu Feb 24 13:56:44 2000 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)     val reginfo :
7              (string -> unit) * (int -> int) * Annotations.annotations ->
8                  (int -> unit)
9  end  end
10    
11  structure AsmFormatUtil : ASM_FORMAT_UTIL =  structure AsmFormatUtil : ASM_FORMAT_UTIL =
12  struct  struct
13    
14    fun reginfo(emit,an) =    fun reginfo(emit,regmap,an) =
15    let fun find [] = (fn _ => ())        case #get MLRiscAnnotations.REGINFO an of
16          | find(BasicAnnotations.REGINFO f::_) = (fn r => emit(f r))           SOME f => (fn r => emit(f(regmap, r)))
17          | find(_::an) = find an        |  NONE => (fn _ => ())
   in  find an end  
18    
19  end  end

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

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