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 /sml/branches/SMLNJ/src/MLRISC/gc-safety/gc-typing.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/gc-safety/gc-typing.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 16  Line 16 
16     structure An  = Annotations     structure An  = Annotations
17    
18     fun gcTyping(IR as G.GRAPH cfg) =     fun gcTyping(IR as G.GRAPH cfg) =
19         case An.get(fn GC.GCMAP m => SOME m | _ => NONE) (CFG.getAnnotations IR)         case #get GC.GCMAP (CFG.getAnnotations IR)
20         of NONE => IR (* no gc map; do nothing *)         of NONE => IR (* no gc map; do nothing *)
21          | SOME gcmap =>          | SOME gcmap =>
22         let val lookup = Intmap.map gcmap         let val lookup = Intmap.map gcmap

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

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