Raymond Toy pushed to branch issue-168-no-negated-forms-for-jmp at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/x86/insts.lisp
    ... ... @@ -259,21 +259,38 @@
    259 259
     ;; the first one is the one that is preferred when printing the
    
    260 260
     ;; condition code out.
    
    261 261
     (defconstant conditions
    
    262
    -  '((:o . 0)
    
    262
    +  '(
    
    263
    +    ;; OF = 1
    
    264
    +    (:o . 0)
    
    265
    +    ;; OF = 0
    
    263 266
         (:no . 1)
    
    267
    +    ;; Unsigned <; CF = 1
    
    264 268
         (:b . 2) (:nae . 2) (:c . 2)
    
    269
    +    ;; Unsigned >=; CF = 0
    
    265 270
         (:ae . 3) (:nb . 3) (:nc . 3)
    
    271
    +    ;; Equal; ZF = 1
    
    266 272
         (:e . 4) (:eq . 4) (:z . 4)
    
    273
    +    ;; Not equal; ZF = 0
    
    267 274
         (:ne . 5) (:nz . 5)
    
    275
    +    ;; Unsigned <=; CF = 1 or ZF = 1
    
    268 276
         (:be . 6) (:na . 6)
    
    277
    +    ;; Unsigned >; CF = 1 and ZF = 0
    
    269 278
         (:a . 7) (:nbe . 7)
    
    279
    +    ;; SF = 1
    
    270 280
         (:s . 8)
    
    281
    +    ;; SF = 0
    
    271 282
         (:ns . 9)
    
    283
    +    ;; Parity even
    
    272 284
         (:p . 10) (:pe . 10)
    
    285
    +    ;; Parity odd
    
    273 286
         (:np . 11) (:po . 11)
    
    287
    +    ;; Signed <; SF /= OF
    
    274 288
         (:l . 12) (:nge . 12)
    
    289
    +    ;; Signed >=; SF = OF
    
    275 290
         (:ge . 13) (:nl . 13)
    
    291
    +    ;; Signed <=; ZF = 1 or SF /= OF
    
    276 292
         (:le . 14) (:ng . 14)
    
    293
    +    ;; Signed >; ZF =0 and SF = OF
    
    277 294
         (:g . 15) (:nle . 15)))
    
    278 295
     
    
    279 296
     (defun conditional-opcode (condition)