Changeset 12293


Ignore:
Timestamp:
Jun 25, 2009, 12:36:31 AM (10 years ago)
Author:
gb
Message:

Bogus type decls.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/ffi-darwinppc64.lisp

    r7376 r12293  
    117117                         (w 0 (+ w 4)))
    118118                        ((>= b bits))
    119                      (declare (fixnum b 0))
     119                     (declare (fixnum b w))
    120120                     (forms `(setf (%get-unsigned-long ,r ,w)
    121121                              (%get-unsigned-long ,regbuf ,w)))))
     
    171171                         (w 0 (+ w 4)))
    172172                        ((>= b bits))
    173                      (declare (fixnum b 0))
     173                     (declare (fixnum b w))
    174174                     (forms `(setf (%get-unsigned-long ,stack-ptr ,w)
    175175                              (%get-unsigned-long ,r ,w)))))
Note: See TracChangeset for help on using the changeset viewer.