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/branches/SMLNJ/src/MLRISC/hppa/hppaMC.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/hppa/hppaMC.sml

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

revision 93, Tue May 12 21:56:22 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 187  Line 187 
187        (emitWord((opcode << 0w10) ++ (itow b << 0w5) ++ r);        (emitWord((opcode << 0w10) ++ (itow b << 0w5) ++ r);
188         emitWord((rv << 0w13) ++ (ext8 << 0w5) ++ t))         emitWord((rv << 0w13) ++ (ext8 << 0w5) ++ t))
189    
190      fun fcond I.LT = 0w9      fun fcond I.?    = 0w2
191        | fcond I.LE = 0w13        | fcond I.!<=> = 0w3
192        | fcond I.EQ = 0w4        | fcond I.==   = 0w4
193        | fcond I.NE = 0w26        | fcond I.?=   = 0w6
194        | fcond I.GE = 0w21        | fcond I.!<>  = 0w7
195        | fcond I.GT = 0w17        | fcond I.!?>= = 0w8
       | fcond _ = error ""  
   
     fun fcond I.==   = 0w4  
       | fcond I.!=   = 0w26  
       | fcond I.?    = 0w2  
       | fcond I.<=>  = 0w29  
       | fcond I.>    = 0w17  
       | fcond I.>=   = 0w21  
       | fcond I.?>   = 0w18  
       | fcond I.?>=  = 0w22  
196        | fcond I.<    = 0w9        | fcond I.<    = 0w9
       | fcond I.<=   = 0w13  
197        | fcond I.?<   = 0w10        | fcond I.?<   = 0w10
198          | fcond I.!>=  = 0w11
199          | fcond I.!?>  = 0w12
200          | fcond I.<=   = 0w13
201        | fcond I.?<=  = 0w14        | fcond I.?<=  = 0w14
202          | fcond I.!>   = 0w15
203          | fcond I.!?<= = 0w16
204          | fcond I.>    = 0w17
205          | fcond I.?>   = 0w18
206          | fcond I.!<=  = 0w19
207          | fcond I.!?<  = 0w20
208          | fcond I.>=   = 0w21
209          | fcond I.?>=  = 0w22
210          | fcond I.!<   = 0w23
211          | fcond I.!?=  = 0w24
212        | fcond I.<>   = 0w25        | fcond I.<>   = 0w25
213        | fcond I.?=   = 0w6        | fcond I.!=   = 0w26
214          | fcond I.!?   = 0w28
215          | fcond I.<=>  = 0w29
216    
217      fun cmpCond I.EQ  = (0w1, 0w0)      fun cmpCond I.EQ  = (0w1, 0w0)
218        | cmpCond I.LT  = (0w2, 0w0)        | cmpCond I.LT  = (0w2, 0w0)
# Line 355  Line 359 
359    
360  (*  (*
361   * $Log: hppaMC.sml,v $   * $Log: hppaMC.sml,v $
362     * Revision 1.2  1998/05/19 15:45:29  george
363     *   Introduced the full set of IEEE comparision operators.
364     *
365   * Revision 1.1.1.1  1998/04/08 18:39:01  george   * Revision 1.1.1.1  1998/04/08 18:39:01  george
366   * Version 110.5   * Version 110.5
367   *   *

Legend:
Removed from v.93  
changed lines
  Added in v.106

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