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/MLRISC/ppc/mltree/ppc.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/mltree/ppc.sml

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

revision 984, Wed Nov 21 19:00:08 2001 UTC revision 986, Wed Nov 21 21:03:17 2001 UTC
# Line 730  Line 730 
730    
731        and emitTrap() = emit(I.TW{to=31,ra=zeroR,si=I.ImmedOp 0})        and emitTrap() = emit(I.TW{to=31,ra=zeroR,si=I.ImmedOp 0})
732    
733          val beginCluster = fn _ => (trapLabel := NONE; beginCluster(0))          val beginCluster = fn _ =>
734               (trapLabel := NONE; beginCluster 0)
735          val endCluster = fn a =>          val endCluster = fn a =>
736             (case !trapLabel of             (case !trapLabel of
737                SOME label =>                SOME label =>

Legend:
Removed from v.984  
changed lines
  Added in v.986

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