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/hppa/hppaLabelComp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/hppa/hppaLabelComp.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 18  Line 18 
18    fun doCall({stm,rexp,emit}:reduce,    fun doCall({stm,rexp,emit}:reduce,
19               T.CALL{funct, targets, defs, uses, region, ...}) =               T.CALL{funct, targets, defs, uses, region, ...}) =
20    let    let
21          val addCCreg = C.CellSet.add          val addCCreg = CellsBasis.CellSet.add
22          fun live([], acc) = acc          fun live([], acc) = acc
23            | live(T.GPR(T.REG(_, r))::regs, acc) = live(regs, C.addReg(r, acc))            | live(T.GPR(T.REG(_, r))::regs, acc) = live(regs, C.addReg(r, acc))
24            | live(T.FPR(T.FREG(_, f))::regs, acc) = live(regs, C.addFreg(f, acc))            | live(T.FPR(T.FREG(_, f))::regs, acc) = live(regs, C.addFreg(f, acc))

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