Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/block-placement/jump-chain-elim-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/jump-chain-elim-fn.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 114  Line 114 
114           *)           *)
115            fun doBlock (blkId, CFG.BLOCK{insns, kind=CFG.NORMAL, ...}) = let            fun doBlock (blkId, CFG.BLOCK{insns, kind=CFG.NORMAL, ...}) = let
116                  fun setTargets labs = let                  fun setTargets labs = let
117                        val jmp::r = !insns                        val (jmp, r) =
118                              case !insns of
119                                  jmp :: r => (jmp, r)
120                                | [] => error "setTargets: empty insns"
121                        val newJmp =                        val newJmp =
122                            (case labs                            (case labs
123                              of [lab] => IP.setJumpTarget(jmp, lab)                              of [lab] => IP.setJumpTarget(jmp, lab)

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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