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

Diff of /sml/trunk/src/MLRISC/mltree/mltree-basis.sml

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

revision 730, Fri Nov 10 14:04:49 2000 UTC revision 731, Fri Nov 10 22:57:45 2000 UTC
# Line 26  Line 26 
26          LT  => GT | LTU => GTU | LE  => GE | LEU => GEU | EQ  => EQ          LT  => GT | LTU => GTU | LE  => GE | LEU => GEU | EQ  => EQ
27        | NE  => NE | GE  => LE | GEU => LEU | GT  => LT | GTU => LTU        | NE  => NE | GE  => LE | GEU => LEU | GT  => LT | GTU => LTU
28    
29      fun swapFcond fcond =
30          case fcond of
31            ?     => ?   | !<=>  => !<=> | ==    => ==
32          | ?=    => ?=  | !<>   => !<>  | !?>=  => !?<=
33          | <     => >   | ?<    => ?>   | !>=   => !<=
34          | !?>   => !?< | <=    => >=   | ?<=   => ?>=
35          | !>    => !<  | !?<=  => !?>= | >     => <
36          | ?>    => ?<  | !<=   => !>=  | !?<   => !?>
37          | >=    => <=  | ?>=   => ?<=  | !<    => !>
38          | !?=   => !?= | <>    => <>   | !=    => !=
39          | !?    => !?  | <=>   => <=>  | ?<>   => ?<>
40    
41    fun negateCond cond =    fun negateCond cond =
42        case cond of        case cond of
43          LT  => GE | LTU => GEU | LE  => GT | LEU => GTU | EQ  => NE          LT  => GE | LTU => GEU | LE  => GT | LEU => GTU | EQ  => NE

Legend:
Removed from v.730  
changed lines
  Added in v.731

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