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 215, Wed Feb 17 14:17:40 1999 UTC revision 216, Fri Feb 26 12:55:26 1999 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
                     fun copy fdec = let val F.FIX([fdec], F.RET[]) =  
                         FU.copy [] IntmapF.empty (F.FIX([fdec], F.RET[]))  
                     in fdec end  
63                  in                  in
64                      case Option.map copy (symLook pid) of                      case Option.map FU.copyfdec (symLook pid) of
65                          NONE => let                          NONE => let
66                              fun h (0, tyl, i, rvl) = build (rest, tyl, i, rvl)                              fun h (0, tyl, i, rvl) = build (rest, tyl, i, rvl)
67                                | h (n, ty :: tyl, i, rvl) = let                                | h (n, ty :: tyl, i, rvl) = let

Legend:
Removed from v.215  
changed lines
  Added in v.216

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