X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Farray.lisp;h=672d164302d15d1920076261bd72a098d19d0c68;hb=3dd90b64c37103d9c86d32b6c36277a6cea4098a;hp=9afaf8726c4438035dd081445f6246d8840cf254;hpb=0d74ed478e7f3af5d3292153726373763631aa8e;p=sbcl.git diff --git a/src/compiler/hppa/array.lisp b/src/compiler/hppa/array.lisp index 9afaf87..672d164 100644 --- a/src/compiler/hppa/array.lisp +++ b/src/compiler/hppa/array.lisp @@ -22,7 +22,7 @@ (:temporary (:scs (non-descriptor-reg)) header) (:results (result :scs (descriptor-reg))) (:generator 13 - ; Note: Cant use addi, the immediate is too large + ;; Note: Cant use addi, the immediate is too large (inst li (+ (* (1+ array-dimensions-offset) n-word-bytes) lowtag-mask) header) (inst add header rank bytes)