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/lsplit/ls-inline.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/lsplit/ls-inline.sml

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

revision 150, Sun Oct 11 17:45:33 1998 UTC revision 154, Sun Oct 11 22:22:47 1998 UTC
# Line 60  Line 60 
60                | build ([], _, _, _) = bug "build mismatch: too many types"                | build ([], _, _, _) = bug "build mismatch: too many types"
61                | build ((imp as (pid, tr)) :: rest, tyl, i, rvl) = let                | build ((imp as (pid, tr)) :: rest, tyl, i, rvl) = let
62                      val lc = cnt tr                      val lc = cnt tr
63                        fun copy fdec = let val F.FIX([fdec], F.RET[]) =
64                            FU.copy IntmapF.empty (F.FIX([fdec], F.RET[]))
65                        in fdec end
66                  in                  in
67                      case Option.map (FU.copy LV.mkLvar) (symLook pid) of                      case Option.map copy (symLook pid) of
68                          NONE => let                          NONE => let
69                              fun h (0, tyl, i, rvl) = build (rest, tyl, i, rvl)                              fun h (0, tyl, i, rvl) = build (rest, tyl, i, rvl)
70                                | h (n, ty :: tyl, i, rvl) = let                                | h (n, ty :: tyl, i, rvl) = let

Legend:
Removed from v.150  
changed lines
  Added in v.154

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