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/trunk/src/compiler/CodeGen/main/mlriscGen.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/main/mlriscGen.sml

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

revision 640, Tue May 9 02:33:09 2000 UTC revision 641, Thu May 11 01:16:45 2000 UTC
# Line 1815  Line 1815 
1815            fun clusterAnnotations() =            fun clusterAnnotations() =
1816               if gctypes then               if gctypes then
1817                  let val gcmap = GCCells.getGCMap()                  let val gcmap = GCCells.getGCMap()
1818                        fun enter(M.REG(_,r),ty) = !enterGC(r, ty)
1819                          | enter _ = ()
1820                  in  !enterGC(allocptrR, SMLGCType.ALLOCPTR);                  in  !enterGC(allocptrR, SMLGCType.ALLOCPTR);
1821                      case C.limitptr of                      enter(C.limitptr, SMLGCType.LIMITPTR);
1822                        M.REG(_,r) => !enterGC(r, SMLGCType.LIMITPTR)                      enter(C.baseptr, PTR);
1823                      | _ => ();                      enter(C.stdlink, PTR);
                     case C.baseptr of  
                       M.REG(_,r) => !enterGC(r, PTR)  
                     | _ => ();  
1824                      [#create SMLGCMap.GCMAP gcmap,                      [#create SMLGCMap.GCMAP gcmap,
1825                       #create                       #create
1826                          MLRiscAnnotations.REGINFO(                          MLRiscAnnotations.REGINFO(

Legend:
Removed from v.640  
changed lines
  Added in v.641

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