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/OldCGen/cpsgen/generic.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/OldCGen/cpsgen/generic.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 269  Line 269 
269    
270      val calleesaveregs = (gprfromto(4,k+3))@(fprfromto(0,kf-1))      val calleesaveregs = (gprfromto(4,k+3))@(fprfromto(0,kf-1))
271    
272      fun cut_head(n,l as (a::r)) = if n=0 then l else cut_head(n-1,r)      fun cut_head(n,l) =
273        | cut_head _ = bug "codegen cuthead 4384"        if n = 0 then l
274          else (case l of a::r => cut_head(n-1,r)
275                        | _ => bug "codegen cuthead 4384")
276    
277      fun isFlt t = if unboxedfloat then (case t of FLTt => true | _ => false)      fun isFlt t = if unboxedfloat then (case t of FLTt => true | _ => false)
278                    else false                    else false

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