Ignore:
Timestamp:
12/28/04 02:09:27 (17 years ago)
Author:
piso
Message:

ineg, lshl, lshr

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/opcodes.lisp

    r8286 r8306  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: opcodes.lisp,v 1.15 2004-12-23 12:30:40 piso Exp $
     4;;; $Id: opcodes.lisp,v 1.16 2004-12-28 02:09:27 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    153153(define-opcode frem 114 1 nil)
    154154(define-opcode drem 115 1 nil)
    155 (define-opcode ineg 116 1 nil)
     155(define-opcode ineg 116 1 0)
    156156(define-opcode lneg 117 1 nil)
    157157(define-opcode fneg 118 1 nil)
    158158(define-opcode dneg 119 1 nil)
    159159(define-opcode ishl 120 1 nil)
    160 (define-opcode lshl 121 1 nil)
     160(define-opcode lshl 121 1 -1)
    161161(define-opcode ishr 122 1 nil)
    162 (define-opcode lshr 123 1 nil)
     162(define-opcode lshr 123 1 -1)
    163163(define-opcode iushr 124 1 nil)
    164164(define-opcode lushr 125 1 nil)
Note: See TracChangeset for help on using the changeset viewer.