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/branches/SMLNJ/src/compiler/CodeGen/cpscompile/argPassing.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/cpscompile/argPassing.sml

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 36  Line 36 
36    fun fprfromto(i, j) = fromto(i, j, fpregs)    fun fprfromto(i, j) = fromto(i, j, fpregs)
37    val calleesaveregs = gprfromto(4, k+3) @ fprfromto(0, kf-1)    val calleesaveregs = gprfromto(4, k+3) @ fprfromto(0, kf-1)
38    
39    fun cut_head(n,l as (a::r)) = if n=0 then l else cut_head(n-1, r)    fun cut_head(n,l) =
40      | cut_head(_, []) = []      if n = 0 then l
41        else (case l of a::r => cut_head(n-1,r)
42                      | _ => error "codegen cuthead 444")
43    
44    fun isFlt CPS.FLTt = true  | isFlt _ = false    fun isFlt CPS.FLTt = true  | isFlt _ = false
45    

Legend:
Removed from v.68  
changed lines
  Added in v.69

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