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 428, Wed Sep 8 09:47:00 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 10  Line 10 
10  struct  struct
11    
12    fun reginfo(emit,an) =    fun reginfo(emit,an) =
13    let fun find [] = (fn _ => ())        case #get BasicAnnotations.REGINFO an of
14          | find(BasicAnnotations.REGINFO f::_) = (fn r => emit(f r))           SOME f => (fn r => emit(f r))
15          | find(_::an) = find an        |  NONE => (fn _ => ())
   in  find an end  
16    
17  end  end

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

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