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-3/compiler/DebugProf/profile/tdp-instrument.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/DebugProf/profile/tdp-instrument.sml

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

revision 3343, Thu May 14 16:29:06 2009 UTC revision 3344, Fri May 15 12:52:07 2009 UTC
# Line 350  Line 350 
350                A.MARKstr (i_strexp (n, r) s, r)                A.MARKstr (i_strexp (n, r) s, r)
351            | i_strexp _ s = s            | i_strexp _ s = s
352    
353          and i_fctexp loc (A.FCTfct { param, def }) =          and i_fctexp loc (A.FCTfct { param, def, primaries }) =
354                A.FCTfct { param = param,                A.FCTfct { param = param,
355                           def = i_strexp loc def }                           def = i_strexp loc def, primaries=primaries }
356            | i_fctexp loc (A.LETfct (d, f)) =            | i_fctexp loc (A.LETfct (d, f)) =
357                A.LETfct (i_dec loc d, i_fctexp loc f)                A.LETfct (i_dec loc d, i_fctexp loc f)
358            | i_fctexp (n, _) (A.MARKfct (f, r)) =            | i_fctexp (n, _) (A.MARKfct (f, r)) =

Legend:
Removed from v.3343  
changed lines
  Added in v.3344

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