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/MLRISC/sparc/mltree/sparc.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/mltree/sparc.sml

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

revision 900, Tue Aug 14 15:10:12 2001 UTC revision 901, Tue Aug 14 19:21:17 2001 UTC
# Line 410  Line 410 
410        (* convert mlrisc to cellset *)        (* convert mlrisc to cellset *)
411        and cellset mlrisc =        and cellset mlrisc =
412        let fun g([],set) = set        let fun g([],set) = set
413              | g(T.GPR(T.REG(_,r))::regs,set) = g(regs,C.CellSet.add(r,set))              | g(T.GPR(T.REG(_,r))::regs,set) = g(regs,CB.CellSet.add(r,set))
414              | g(T.FPR(T.FREG(_,f))::regs,set) = g(regs,C.CellSet.add(f,set))              | g(T.FPR(T.FREG(_,f))::regs,set) = g(regs,CB.CellSet.add(f,set))
415              | g(T.CCR(T.CC(_,cc))::regs,set) = g(regs,C.CellSet.add(cc,set))              | g(T.CCR(T.CC(_,cc))::regs,set) = g(regs,CB.CellSet.add(cc,set))
416              | g(_::regs, set) = g(regs,set)              | g(_::regs, set) = g(regs,set)
417        in  g(mlrisc, C.empty) end        in  g(mlrisc, C.empty) end
418    

Legend:
Removed from v.900  
changed lines
  Added in v.901

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