Changeset 11729


Ignore:
Timestamp:
Feb 12, 2009, 1:02:15 PM (10 years ago)
Author:
gz
Message:

From r11701 - record source note in compiler warnings.

Location:
trunk/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx.lisp

    r11373 r11729  
    172172          (*record-pc-mapping* (and source-notes record-pc-mapping))
    173173          (*compile-code-coverage* (and source-notes compile-code-coverage))
    174           (*nx-acode-note-map* (and (or record-pc-mapping compile-code-coverage)
     174          (*nx-acode-note-map* (and (or *record-pc-mapping* *compile-code-coverage*)
    175175                                    (make-hash-table :test #'eq :shared nil)))
    176           (*nx-current-code-note* (and compile-code-coverage
     176          (*nx-current-code-note* (and *compile-code-coverage*
    177177                                       (make-code-note :form def :source-note function-note)))
    178178          (env (new-lexical-environment env)))
  • trunk/source/compiler/nx0.lisp

    r11391 r11729  
    4444(defvar *nx-inner-functions* nil)
    4545(defvar *nx-cur-func-name* nil)
    46 (defvar *nx-current-note*)
     46(defvar *nx-current-note* nil)
    4747(defparameter *nx-source-note-map* nil) ;; there might be external refs, from macros.
    4848(defvar *nx-form-type* t)
     
    18121812
    18131813(defun nx1-whine (about &rest forms)
     1814  (if #-BOOTSTRAPPED (fboundp 'compiler-warning-source-note) #+BOOTSTRAPPED T
     1815    (push (make-condition (or (cdr (assq about *compiler-whining-conditions*)) 'compiler-warning)
     1816                          :function-name (list *nx-cur-func-name*)
     1817                          :source-note *nx-current-note*
     1818                          :warning-type about
     1819                          :args (or forms (list nil)))
     1820          *nx-warnings*)
     1821    ;; remove this case once bootstrapped.
    18141822    (push (make-condition (or (cdr (assq about *compiler-whining-conditions*)) 'compiler-warning)
    18151823                          :function-name (list *nx-cur-func-name*)
    18161824                          :warning-type about
    18171825                          :args (or forms (list nil)))
    1818           *nx-warnings*)
     1826          *nx-warnings*))
    18191827  nil)
    18201828
  • trunk/source/level-1/l1-error-system.lisp

    r11673 r11729  
    6666   (stream-position :initform nil :accessor compiler-warning-stream-position)
    6767   (function-name :initarg :function-name :initform nil :accessor compiler-warning-function-name)
     68   (source-note :initarg :source-note :initform nil :accessor compiler-warning-source-note)
    6869   (warning-type :initarg :warning-type :reader compiler-warning-warning-type)
    6970   (args :initarg :args :reader compiler-warning-args)
Note: See TracChangeset for help on using the changeset viewer.