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

Diff of /sml/trunk/src/compiler/CodeGen/hppa/hppaCpsRegs.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 62  Line 62 
62    val savedfpregs = []    val savedfpregs = []
63    
64    val availR =    val availR =
65      map (fn T.REG(_,r) => r)        let fun unREG (T.REG (_, r)) = r
66          ([stdlink(false), stdclos(false), stdarg(false), stdcont(false), gcLink(false)] @ miscregs)              | unREG _ = MLRiscErrorMsg.error ("HppaCpsRegs","availR")
67          in map unREG ([stdlink(false), stdclos(false), stdarg(false),
68                         stdcont(false), gcLink(false)] @ miscregs)
69          end
70    
71    local    local
72        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