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 904, Mon Aug 20 19:50:05 2001 UTC revision 1332, Sun May 18 03:21:16 2003 UTC
# Line 275  Line 275 
275                          in SEQexp (seq l)                          in SEQexp (seq l)
276                         end                         end
277    
278                       | IFexp { test, thenCase, elseCase } =>
279                           IFexp { test = iinstr test,
280                                   thenCase = instr thenCase,
281                                   elseCase = instr elseCase }
282    
283                       | ANDALSOexp (e1, e2) =>
284                           ANDALSOexp (iinstr e1, instr e2)
285                       | ORELSEexp (e1, e2) =>
286                           ORELSEexp (iinstr e1, instr e2)
287                       | WHILEexp { test, expr } =>
288                           WHILEexp { test = iinstr test, expr = iinstr expr }
289    
290                     | exp as APPexp (f,a) =>                     | exp as APPexp (f,a) =>
291                         let fun safe(VARexp(ref(VALvar{info, ...}), _)) =                         let fun safe(VARexp(ref(VALvar{info, ...}), _)) =
292                                 if II.isSimple info then                                 if II.isSimple info then

Legend:
Removed from v.904  
changed lines
  Added in v.1332

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