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

Diff of /sml/trunk/compiler/DebugProf/profile/tdp-instrument.sml

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

revision 4493, Sun Oct 15 02:18:10 2017 UTC revision 4494, Sun Oct 15 03:04:17 2017 UTC
# Line 123  Line 123 
123          val tdp_module_var = tmpvar ("<tdp_module>", BT.intTy)          val tdp_module_var = tmpvar ("<tdp_module>", BT.intTy)
124    
125          fun VARexp v = A.VARexp (ref v, [])          fun VARexp v = A.VARexp (ref v, [])
126          fun INTexp i = A.INTexp (IntInf.fromInt i, BT.intTy)          fun INTexp i = A.NUMexp{value = IntInf.fromInt i, ty = BT.intTy}
127    
128          val uExp = AU.unitExp          val uExp = AU.unitExp
129          val pushexp = A.APPexp (VARexp tdp_push_var, uExp)          val pushexp = A.APPexp (VARexp tdp_push_var, uExp)
# Line 276  Line 276 
276                A.CONSTRAINTexp (i_exp tail loc e, t)                A.CONSTRAINTexp (i_exp tail loc e, t)
277            | i_exp tail (n, _) (A.MARKexp (e, r)) =            | i_exp tail (n, _) (A.MARKexp (e, r)) =
278                A.MARKexp (i_exp tail (n, r) e, r)                A.MARKexp (i_exp tail (n, r) e, r)
279            | i_exp _ _ (e as (A.VARexp _ | A.CONexp _ | A.INTexp _ |            | i_exp _ _ (e as (A.VARexp _ | A.CONexp _ | A.NUMexp _ |
280                               A.WORDexp _ | A.REALexp _ | A.STRINGexp _ |                               A.REALexp _ | A.STRINGexp _ | A.CHARexp _)) = e
                              A.CHARexp _)) = e  
281    
282          and i_dec loc (A.VALdec l) = A.VALdec (map (i_vb loc) l)          and i_dec loc (A.VALdec l) = A.VALdec (map (i_vb loc) l)
283            | i_dec loc (A.VALRECdec l) = A.VALRECdec (map (i_rvb loc) l)            | i_dec loc (A.VALRECdec l) = A.VALRECdec (map (i_rvb loc) l)

Legend:
Removed from v.4493  
changed lines
  Added in v.4494

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