Ignore:
Timestamp:
12/27/04 00:27:16 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r8297 r8299  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.316 2004-12-26 18:45:37 piso Exp $
     4;;; $Id: jvm.lisp,v 1.317 2004-12-27 00:27:16 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    21322132(defun compile-function-call-1 (fun args target representation)
    21332133  (let ((arg (first args)))
    2134     (when (and (eq fun '1+) (symbolp arg))
    2135       (dformat t "compile-function-call-1 1+ case~%")
    2136       (let ((variable (unboxed-fixnum-variable arg)))
    2137         (when variable
    2138           (aver (variable-register variable))
    2139           (emit 'iload (variable-register variable))
    2140           (emit 'i2l)
    2141           (emit 'iconst_1)
    2142           (emit 'i2l)
    2143           (emit 'ladd)
    2144           (if (eq representation :unboxed-fixnum)
    2145               (emit 'l2i)
    2146               (emit-box-long))
    2147           (return-from compile-function-call-1 t))))
     2134    (when (eq fun '1+)
     2135      (return-from compile-function-call-1 (compile-plus (list '+ 1 arg)
     2136                                                         :target target
     2137                                                         :representation representation)))
    21482138    (let ((s (gethash fun unary-operators)))
    21492139      (cond (s
Note: See TracChangeset for help on using the changeset viewer.