From: Paul Khuong Date: Sat, 20 Apr 2013 13:31:30 +0000 (+0200) Subject: Trivial code cleanups X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9a0890f2e981ef940888a25ca757762f714c4a9f;p=sbcl.git Trivial code cleanups Declare a variable as ignored, and descriptors are 64 bit on x86-64. The latter was brought to my attention by Douglas Katzman. --- diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 3bba5f8..e633d66 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -2639,6 +2639,7 @@ core and return a descriptor to it." (code-object (pop-stack)) (len (read-byte-arg)) (sym (make-string len))) + #!-sb-dynamic-core (declare (ignore code-object)) (read-string-as-bytes *fasl-input-stream* sym) #!+sb-dynamic-core (let ((offset (read-word-arg)) diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp index f51e4ad..3bb0851 100644 --- a/src/compiler/x86-64/parms.lisp +++ b/src/compiler/x86-64/parms.lisp @@ -20,7 +20,7 @@ ;;; and register specs, we use the Intel convention. But whenever we ;;; are talking about stuff the rest of the lisp system might be ;;; interested in, we use ``word'' to mean the size of a descriptor -;;; object, which is 32 bits. +;;; object, which is 64 bits. ;;;; machine architecture parameters