Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/CodeGen/ppc/ppcCpsRegs.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/ppc/ppcCpsRegs.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 45  Line 45 
45    val savedfpregs = []    val savedfpregs = []
46    
47    val availR =    val availR =
48      map (fn T.REG(_,r) => r)        let fun unREG (T.REG (_, r)) = r
49           ([stdlink(false), stdclos(false), stdarg(false), stdcont(false)] @ miscregs)              | unREG _ = MLRiscErrorMsg.error ("PPCCpsRegs", "availR")
50          in map unREG ([stdlink(false), stdclos(false), stdarg(false),
51                         stdcont(false)] @ miscregs)
52          end
53    
54    local    local
55        structure SC = CellsBasis.SortedCells        structure SC = CellsBasis.SortedCells

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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