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/compiler/CodeGen/cpscompile/alignment.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/cpscompile/alignment.sml

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

revision 5014, Sun Apr 28 20:24:18 2019 UTC revision 5015, Mon Apr 29 01:51:55 2019 UTC
# Line 24  Line 24 
24    
25      fun error msg = ErrorMsg.impossible ("Alignment." ^ msg)      fun error msg = ErrorMsg.impossible ("Alignment." ^ msg)
26    
27      fun build cluster = let      fun build cluster = if Target.is64
28              then (fn _ => false)
29              else let
30            fun hasFloats (C.RECORD(C.RK_FCONT, _, _, _)) = true            fun hasFloats (C.RECORD(C.RK_FCONT, _, _, _)) = true
31              | hasFloats (C.RECORD(C.RK_FBLOCK, _, _, _)) = true                | hasFloats (C.RECORD(C.RK_RAW64BLOCK, _, _, _)) = true
32              | hasFloats (C.RECORD(_, _, _, e)) = hasFloats e              | hasFloats (C.RECORD(_, _, _, e)) = hasFloats e
33              | hasFloats (C.SELECT(_, _, _, _, e)) = hasFloats e              | hasFloats (C.SELECT(_, _, _, _, e)) = hasFloats e
34              | hasFloats (C.OFFSET(_, _, _, e)) = hasFloats e              | hasFloats (C.OFFSET(_, _, _, e)) = hasFloats e

Legend:
Removed from v.5014  
changed lines
  Added in v.5015

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