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/mlrisc/flowgen.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/mlrisc/flowgen.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 137  Line 137 
137      (*esac*)      (*esac*)
138    end    end
139    
140    
141    fun exitBlock liveRegs  = let    fun exitBlock liveRegs  = let
142        val addReg   = C.addCell C.GP
143        val addFreg  = C.addCell C.FP
144        val addCCreg = C.addCell C.CC
145      (* we don't care about memory locations that may be live. *)      (* we don't care about memory locations that may be live. *)
146      fun live(T.GPR(T.REG r)::rest, acc) = live(rest, C.addReg(r, acc))      fun live(T.GPR(T.REG r)::rest, acc) = live(rest, addReg(r, acc))
147        | live(T.FPR(T.FREG f)::rest, acc) = live(rest, C.addFreg(f, acc))        | live(T.FPR(T.FREG f)::rest, acc) = live(rest, addFreg(f, acc))
148        | live(T.CCR(T.CC c)::rest, acc) = live(rest, C.addCCreg(c, acc))        | live(T.CCR(T.CC c)::rest, acc) = live(rest, addCCreg(c, acc))
149        | live(_::rest, acc) = live(rest, acc)        | live(_::rest, acc) = live(rest, acc)
150        | live([], acc) = acc        | live([], acc) = acc
151    
# Line 252  Line 256 
256    
257  (*  (*
258   * $Log: flowgen.sml,v $   * $Log: flowgen.sml,v $
259     * Revision 1.2  1998/05/19 15:47:47  george
260     *   addCCreg defined in terms of Cells.addCell.
261     *
262   * Revision 1.1.1.1  1998/04/08 18:39:02  george   * Revision 1.1.1.1  1998/04/08 18:39:02  george
263   * Version 110.5   * Version 110.5
264   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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