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-gen.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/gc-safety/gc-gen.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 12  Line 12 
12      structure InsnProps  : INSN_PROPERTIES      structure InsnProps  : INSN_PROPERTIES
13         sharing MLTreeComp.T.Constant = IR.I.Constant         sharing MLTreeComp.T.Constant = IR.I.Constant
14         sharing MLTreeComp.T.PseudoOp = IR.CFG.P         sharing MLTreeComp.T.PseudoOp = IR.CFG.P
        sharing MLTreeComp.T.BNames   = IR.CFG.B  
15         sharing IR.I = InsnProps.I = MLTreeComp.I         sharing IR.I = InsnProps.I = MLTreeComp.I
16     ) : GC_GEN =     ) : GC_GEN =
17  struct  struct
# Line 52  Line 51 
51         (*         (*
52          * Check if          * Check if
53          *)          *)
54         fun isGCPoint [] = false         fun isGCPoint an = #contains BasicAnnotations.CALLGC an
          | isGCPoint(BasicAnnotations.CALLGC::_) = true  
          | isGCPoint(_::an) = isGCPoint an  
55    
56         (*         (*
57          * For each gc-point, invoke the callback to generate GC code.          * For each gc-point, invoke the callback to generate GC code.

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