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

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/instructions/shuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/instructions/shuffle.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 60  Line 60 
60           (*esac*))           (*esac*))
61    
62      (* remove moves that have been coalesced. *)      (* remove moves that have been coalesced. *)
63      fun rmvCoalesced(rd::rds, rs::rss, mvs) =      val rmvCoalesced =
64          if equal(rd, rs) then rmvCoalesced(rds, rss, mvs)          ListPair.foldl (fn (rd, rs, mvs) =>
65          else rmvCoalesced(rds, rss, (CELL rd, CELL rs)::mvs)                             if equal (rd, rs) then mvs
66        | rmvCoalesced([], [], mvs) = mvs                             else (CELL rd, CELL rs) :: mvs) []
67    in rev (cycle (rmvCoalesced(dst, src, []), []))    in rev (cycle (rmvCoalesced(dst, src), []))
68    end    end
69  end  end
70    

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