Changeset 12063


Ignore:
Timestamp:
May 15, 2009, 12:47:48 AM (10 years ago)
Author:
gb
Message:

When preparing the function's symbol map, use
NX2-RECORDED-SYMBOLS-IN-ARGLIST-ORDER to avoid (minor) problems with
functions like ARGLIST (ticket:473).

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r12062 r12063  
    630630(defun ppc2-digest-symbols ()
    631631  (when *ppc2-recorded-symbols*
    632     (let* ((symlist *ppc2-recorded-symbols*)
     632    (setq *ppc2-recorded-symbols* (nx2-recorded-symbols-in-arglist-order *ppc2-recorded-symbols* *ppc2-cur-afunc*))
     633 (let* ((symlist *ppc2-recorded-symbols*)
    633634           (len (length symlist))
    634635           (syms (make-array len))
  • trunk/source/compiler/X86/x862.lisp

    r12043 r12063  
    873873(defun x862-digest-symbols ()
    874874  (when *x862-recorded-symbols*
     875    (setq *x862-recorded-symbols* (nx2-recorded-symbols-in-arglist-order *x862-recorded-symbols* *x862-cur-afunc*))
    875876    (let* ((symlist *x862-recorded-symbols*)
    876877           (len (length symlist))
Note: See TracChangeset for help on using the changeset viewer.