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 196, Fri Nov 20 18:16:19 1998 UTC revision 197, Sun Nov 22 01:25:23 1998 UTC
# Line 61  Line 61 
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[]) =                      fun copy fdec = let val F.FIX([fdec], F.RET[]) =
64                          FU.copy IntmapF.empty (F.FIX([fdec], F.RET[]))                          FU.copy [] IntmapF.empty (F.FIX([fdec], F.RET[]))
65                      in fdec end                      in fdec end
66                  in                  in
67                      case Option.map copy (symLook pid) of                      case Option.map copy (symLook pid) of

Legend:
Removed from v.196  
changed lines
  Added in v.197

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