Changeset 4641


Ignore:
Timestamp:
11/04/03 17:38:38 (19 years ago)
Author:
piso
Message:

RESOLVE-ARGS: LDC => LDC_W if index > 255.

File:
1 edited

Legend:

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

    r4613 r4641  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.4 2003-11-02 19:10:48 piso Exp $
     4;;; $Id: jvm.lisp,v 1.5 2003-11-04 17:38:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    592592       (unless (= (length args) 1)
    593593         (error "wrong number of args for LDC"))
    594        (inst opcode args))
     594       (if (> (car args) 255)
     595           (inst 19 (u2 (car args))) ; LDC_W
     596           (inst opcode args)))
    595597      (t
    596598       (error "RESOLVE-ARGS unsupported opcode ~D" opcode)))))
Note: See TracChangeset for help on using the changeset viewer.