Changeset 11296


Ignore:
Timestamp:
Nov 5, 2008, 10:38:14 AM (13 years ago)
Author:
gb
Message:

More operators have ACODE-SUBFORMS, SINGLE-VALUE, and/or SIDE-EFFECT-FREE
attributes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nxenv.lisp

    r11118 r11296  
    165165     (struct-ref . 0)
    166166     (struct-set . 0)
    167      (%aref1 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     167     (%aref1 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask operator-side-effect-free-mask))
    168168     (embedded-nlexit . 0)
    169169     (embedded-conditional . 0)
     
    304304     (builtin-call . 0)
    305305     (%setf-double-float . 0)
    306      (%double-float+-2 . 0)
    307      (%double-float--2 . 0)
    308      (%double-float*-2 . 0)
    309      (%double-float/-2 . 0)
     306     (%double-float+-2 . #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     307     (%double-float--2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     308     (%double-float*-2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     309     (%double-float/-2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
    310310     (%double-float+-2! . 0)
    311311     (%double-float--2! . 0)
     
    316316     (%%ineg . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
    317317     (%setf-short-float . 0)
    318      (%short-float+-2 . 0)
    319      (%short-float--2 . 0)
    320      (%short-float*-2 . 0)
    321      (%short-float/-2 . 0)
     318     (%short-float+-2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     319     (%short-float--2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     320     (%short-float*-2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
     321     (%short-float/-2 .  #.(logior operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask))
    322322     (short-float-compare . 0)
    323323     (eabi-ff-call . 0)
Note: See TracChangeset for help on using the changeset viewer.