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/branches/primop-branch/src/compiler/DebugProf/profile/sprof.sml
ViewVC logotype

Diff of /sml/branches/primop-branch/src/compiler/DebugProf/profile/sprof.sml

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

revision 1475, Fri Apr 9 19:05:33 2004 UTC revision 1476, Fri Apr 16 20:51:46 2004 UTC
# Line 172  Line 172 
172                 | _ => e)                 | _ => e)
173         | iexp e = e         | iexp e = e
174    
175       and etaexpand(e as CONexp(_,t)) =       and etaexpand(e as CONexp _) =
176           let val v = VALvar{access=LVAR(mkLvar()),           let val v = VALvar{access=LVAR(mkLvar()),
177                              path=SP.SPATH [xsym],                              path=SP.SPATH [xsym],
178                              typ=ref Types.UNDEFty}                              typ=ref Types.UNDEFty}

Legend:
Removed from v.1475  
changed lines
  Added in v.1476

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