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/FLINT/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cps/convert.sml

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

revision 776, Fri Jan 12 04:14:06 2001 UTC revision 777, Fri Jan 12 12:17:38 2001 UTC
# Line 624  Line 624 
624                                        loop (e, c)))                                        loop (e, c)))
625                          end                          end
626                  end                  end
627                    val sel = if is_float_record a then selectFL else selectNM
628                  fun build ([], rvl, _) = rcc (rev rvl)                  fun build ([], rvl, _) = rcc (rev rvl)
629                    | build (ft :: ftl, rvl, i) = let                    | build (ft :: ftl, rvl, i) = let
630                          val t = cty ft                          val t = cty ft
631                          val v = mkv ()                          val v = mkv ()
632                      in                      in
633                          selectNM (i, a', v, t, build (ftl, v :: rvl, i + 1))                          sel (i, a', v, t, build (ftl, v :: rvl, i + 1))
634                      end                      end
635              in              in
636                  case ml_flt_args of                  case ml_flt_args of

Legend:
Removed from v.776  
changed lines
  Added in v.777

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