Changeset 12639


Ignore:
Timestamp:
04/29/10 22:40:22 (12 years ago)
Author:
ehuelsmann
Message:

Fix #89: Stack inconsistency error when discarding READ-LINE return value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12636 r12639  
    61106110                (emit-invokevirtual +lisp-stream-class+ "readLine"
    61116111                                    (list "Z" +lisp-object+) +lisp-object+)
    6112                 (when target
    6113                   (emit-move-from-stack target)))
     6112                (emit-move-from-stack target))
    61146113               (t
    61156114                (compile-function-call form target representation)))))
     
    61266125                (emit-invokevirtual +lisp-stream-class+ "readLine"
    61276126                                    (list "Z" +lisp-object+) +lisp-object+)
    6128                 (when target
    6129                   (emit-move-from-stack target))
     6127                (emit-move-from-stack target)
    61306128                )
    61316129               (t
Note: See TracChangeset for help on using the changeset viewer.