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
[smlnj] / 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 153, Sun Oct 11 17:49:09 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.153  
changed lines
  Added in v.154
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge