Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
a5e42f73
by Raymond Toy at 2024-07-25T14:58:09+00:00
-
76b67529
by Raymond Toy at 2024-07-25T14:58:12+00:00
1 changed file:
Changes:
... | ... | @@ -49,7 +49,9 @@ |
49 | 49 | ;;; No problems.
|
50 | 50 | ;#+nil
|
51 | 51 | (def-vm-support-routine make-return-pc-passing-location (standard)
|
52 | - (declare (ignore standard))
|
|
52 | + ;; Should be IGNORE, not IGNORABLE; We're just silencing a compiler
|
|
53 | + ;; note.
|
|
54 | + (declare (ignorable standard))
|
|
53 | 55 | (make-wired-tn (primitive-type-or-lose 'system-area-pointer *backend*)
|
54 | 56 | sap-stack-sc-number return-pc-save-offset))
|
55 | 57 | ;;;
|
... | ... | @@ -77,7 +79,9 @@ |
77 | 79 | ;;; No problems
|
78 | 80 | ;#+nil
|
79 | 81 | (def-vm-support-routine make-old-fp-passing-location (standard)
|
80 | - (declare (ignore standard))
|
|
82 | + ;; Should be IGNORE, not IGNORABLE; We're just silencing a compiler
|
|
83 | + ;; note.
|
|
84 | + (declare (ignorable standard))
|
|
81 | 85 | (make-wired-tn *fixnum-primitive-type* control-stack-sc-number
|
82 | 86 | ocfp-save-offset))
|
83 | 87 | ;;;
|