Skip to content

Clean up some compiler notes

Here are some compiler notes that we should clean up:

  • srctran.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/srctran.lisp

; In: DEFUN ROUND-DERIVE-TYPE-QUOT

;   (LET* (# # #)
;     (LET #
;       #))
; Note: Variable REM-TYPE defined but never used.
; 
; Converted ROUND-DERIVE-TYPE-REM.
; Compiling DEFUN ROUND-DERIVE-TYPE-REM: 

; 
; 
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/srctran.lisp

; In: DEFUN ROUND-DERIVE-TYPE-REM

;   (LET* (# # #)
;     (MULTIPLE-VALUE-BIND #
;         #
;       #))
; Note: Variable NUMBER-INTERVAL defined but never used.
; 
; Note: Variable DIVISOR-INTERVAL defined but never used.
  • insts.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/insts.lisp

; In: DEFUN PRINT-IMM-DATA

;   (LET (#)
;     (DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE UNSIGNED-OFFSET STREAM DSTATE))
; Note: Deleting unreachable code.
; ; [Last message occurs 2 times]

;   (DISASSEM::NOTE-CODE-CONSTANT-ABSOLUTE OFFSET DSTATE)
; Note: Deleting unreachable code.
  • float-sse2.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp

; In: MACROLET ((GENERATE # #) (FROB # `#))

;   (LOCATION= Y R)
; Note: Deleting unreachable code.
; 
; Byte Compiling Top-Level Form: 
; Compiling MACROLET ((GENERATE # #) (FROB # #)): 

; 
; 
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp

; In: MACROLET ((GENERATE # #) (FROB # `#))

;   (LOCATION= Y R)
; Note: Deleting unreachable code.
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp

; In: MACROLET ((GENERATE # #) (FROB # `#))

;   (LOCATION= Y R)
; Note: Deleting unreachable code.
; 
; Byte Compiling Top-Level Form: 
; Compiling MACROLET ((GENERATE # #) (FROB # #)): 

; 
; 
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/float-sse2.lisp

; In: MACROLET ((GENERATE # #) (FROB # `#))

;   (LOCATION= Y R)
; Note: Deleting unreachable code.
  • call.lisp:
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/call.lisp

; In: DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION

;   (DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
;                           (STANDARD)
;                           (DECLARE #)
;                           (MAKE-WIRED-TN #
;                                          SAP-STACK-SC-NUMBER
;                                          RETURN-PC-SAVE-OFFSET))
; --> BLOCK 
; ==>
;   (MACROLET (#)
;     (DECLARE #)
;     (MAKE-WIRED-TN # SAP-STACK-SC-NUMBER RETURN-PC-SAVE-OFFSET))
; Note: Ignoring free ignore declaration for STANDARD.
; File: /home/toy/src/clnet/cmucl/dev/cmucl/src/compiler/x86/call.lisp

; In: DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION

;   (DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION
;                           (STANDARD)
;                           (DECLARE #)
;                           (MAKE-WIRED-TN #
;                                          SAP-STACK-SC-NUMBER
;                                          RETURN-PC-SAVE-OFFSET))
; Note: Variable STANDARD defined but never used.
; In: DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION

;   (DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION
;                           (STANDARD)
;                           (DECLARE #)
;                           (MAKE-WIRED-TN *FIXNUM-PRIMITIVE-TYPE*
;                                          CONTROL-STACK-SC-NUMBER
;                                          OCFP-SAVE-OFFSET))
; --> BLOCK 
; ==>
;   (MACROLET (#)
;     (DECLARE #)
;     (MAKE-WIRED-TN *FIXNUM-PRIMITIVE-TYPE*
;                    CONTROL-STACK-SC-NUMBER
;                    OCFP-SAVE-OFFSET))
; Note: Ignoring free ignore declaration for STANDARD.