Changeset 4958


Ignore:
Timestamp:
12/04/03 03:19:22 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4954 r4958  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.49 2003-12-03 18:03:30 piso Exp $
     4;;; $Id: jvm.lisp,v 1.50 2003-12-04 03:19:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    12921292  (unless (remove-store-value)
    12931293    (emit-push-value))
     1294  (unless (every 'constantp args)
     1295    (emit-clear-values))
    12941296  (emit-invokevirtual +lisp-object-class+
    12951297                      op
     
    13351337(setf (gethash 'VECTORP         unary-operators) "VECTORP")
    13361338(setf (gethash 'ZEROP           unary-operators) "ZEROP")
    1337 
    13381339
    13391340(defun compile-function-call-1 (fun args)
     
    14301431     (unless (remove-store-value)
    14311432       (emit-push-value))
     1433     (unless (every 'constantp args)
     1434       (emit-clear-values))
    14321435     (emit-invokestatic +lisp-class+
    14331436                        "list3"
     
    14911494       (unless (remove-store-value)
    14921495         (emit-push-value))
     1496       (unless (constantp (first args))
     1497         (emit-clear-values))
    14931498       (emit-invokevirtual +lisp-object-class+
    14941499                           "execute"
     
    15021507       (unless (remove-store-value)
    15031508         (emit-push-value))
     1509       (unless (every 'constantp args)
     1510         (emit-clear-values))
    15041511       (emit-invokevirtual +lisp-object-class+
    15051512                           "execute"
     
    15161523       (unless (remove-store-value)
    15171524         (emit-push-value))
     1525       (unless (every 'constantp args)
     1526         (emit-clear-values))
    15181527       (emit-invokevirtual +lisp-object-class+
    15191528                           "execute"
     
    15331542           (incf i))) ; array left on stack here
    15341543       ;; Stack: function array-ref
     1544       (unless (every 'constantp args)
     1545         (emit-clear-values))
    15351546       (emit-invokevirtual +lisp-object-class+
    15361547                           "execute"
Note: See TracChangeset for help on using the changeset viewer.