Changeset 4774


Ignore:
Timestamp:
11/16/03 00:57:22 (18 years ago)
Author:
piso
Message:

Call EMIT-CLEAR-VALUES from COMPILE-TEST instead of from COMPILE-IF, so we can
omit the call if it's clearly unnecessary.

File:
1 edited

Legend:

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

    r4773 r4774  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.32 2003-11-15 20:06:02 piso Exp $
     4;;; $Id: jvm.lisp,v 1.33 2003-11-16 00:57:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    15801580  (unless (remove-store-value)
    15811581    (emit-push-value))
     1582  (emit-clear-values)
    15821583  (emit-push-nil)
    15831584  'if_acmpeq)
     
    15881589         (alternate (fourth form))
    15891590         (label1 (gensym))
    1590          (label2 (gensym))
    1591          (instr (compile-test test)))
    1592     (emit-clear-values)
    1593     (emit instr `,label1)
     1591         (label2 (gensym)))
     1592    (emit (compile-test test) `,label1)
    15941593    (compile-form consequent for-effect)
    15951594    (emit 'goto `,label2)
Note: See TracChangeset for help on using the changeset viewer.