Changeset 11795


Ignore:
Timestamp:
Feb 27, 2009, 2:20:06 AM (11 years ago)
Author:
gz
Message:

Don't store code notes (i.e. non-source notes) as acode-note for overall lambda. Use the source note if there is one

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r11701 r11795  
    13831383              (parse-body (%cddr lambda-form) *nx-lexical-environment* t))
    13841384          (setf (afunc-acode p) (nx1-lambda (%cadr lambda-form) body decls)))))
     1385
     1386    (when *record-pc-mapping*
     1387      (when *nx-current-note*
     1388        (setf (acode-note (afunc-acode p)) *nx-current-note*)))
    13851389
    13861390    (nx1-transitively-punt-bindings *nx-punted-vars*)
     
    14671471                      *nx-new-p2decls*
    14681472                      *nx-current-code-note*)))
    1469           (when *nx-current-code-note*
    1470             (setf (acode-note acode) *nx-current-code-note*))
    14711473          acode)))))
    14721474
Note: See TracChangeset for help on using the changeset viewer.