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/ppc/c-calls/ppc-macosx.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/c-calls/ppc-macosx.sml

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

revision 1532, Tue Jul 13 03:49:10 2004 UTC revision 1533, Tue Jul 13 04:19:14 2004 UTC
# Line 229  Line 229 
229            fun assign ([], offset, _, _, layout) = List.rev layout            fun assign ([], offset, _, _, layout) = List.rev layout
230              | assign (ty::tys, offset, availGPRs, availFPRs, layout) = (              | assign (ty::tys, offset, availGPRs, availFPRs, layout) = (
231                  case ty                  case ty
232                   of CTy.C_void => error "unexpected void tyument type"                   of CTy.C_void => error "unexpected void argument type"
233                    | CTy.C_float => (case (availGPRs, availFPRs)                    | CTy.C_float => (case (availGPRs, availFPRs)
234                         of (_::gprs, fpr::fprs) =>                         of (_::gprs, fpr::fprs) =>
235                              assign (tys, offset+4, gprs, fprs, FReg(fltTy, fpr, SOME offset)::layout)                              assign (tys, offset+4, gprs, fprs, FReg(fltTy, fpr, SOME offset)::layout)
# Line 343  Line 343 
343                    | addArgReg ((Args locs')::locs, argRegs) =                    | addArgReg ((Args locs')::locs, argRegs) =
344                        addArgReg (locs, addArgReg(locs', argRegs))                        addArgReg (locs, addArgReg(locs', argRegs))
345                    | addArgReg (_::locs, argRegs) = addArgReg(locs, argRegs)                    | addArgReg (_::locs, argRegs) = addArgReg(locs, argRegs)
346                    | addArgReg ([], argRegs) = rev argRegs                    | addArgReg ([], argRegs) = argRegs
347                  val argRegs = addArgReg (locs, [])                  val argRegs = addArgReg (locs, [])
348                  in                  in
349                    (argRegs, linkReg :: callerSaveRegs)                    (argRegs, linkReg :: callerSaveRegs)

Legend:
Removed from v.1532  
changed lines
  Added in v.1533

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