Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/x86/call.lisp
    ... ... @@ -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
     ;;;