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/DebugProf/profile/tprof.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/DebugProf/profile/tprof.sml

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

revision 1640, Fri Oct 1 15:20:40 2004 UTC revision 1641, Wed Oct 6 20:18:55 2004 UTC
# Line 325  Line 325 
325    
326                     | CONSTRAINTexp(e,t) => CONSTRAINTexp(instr e, t)                     | CONSTRAINTexp(e,t) => CONSTRAINTexp(instr e, t)
327    
328                     | HANDLEexp (e, HANDLER(FNexp(l,t)))=>                     | HANDLEexp (e, (l,t)) =>
329                         let fun rule(RULE(p,e)) =                         let fun rule(RULE(p,e)) =
330                               RULE(p,SEQexp[SETCURRENTexp ccvara, instr e])                               RULE(p,SEQexp[SETCURRENTexp ccvara, instr e])
331                          in HANDLEexp (instr e, HANDLER(FNexp(map rule l,t)))                          in HANDLEexp (instr e, (map rule l,t))
332                         end                         end
333    
334                     | RAISEexp(e, t) => RAISEexp(oinstr e, t)                     | RAISEexp(e, t) => RAISEexp(oinstr e, t)

Legend:
Removed from v.1640  
changed lines
  Added in v.1641

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