Changeset 10207


Ignore:
Timestamp:
Jul 25, 2008, 6:56:01 AM (11 years ago)
Author:
rme
Message:

%DEFINE-X8632-LAP-FUNCTION: handle multiple frag lists

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-lap.lisp

    r10199 r10207  
    15221522    (x86-lap-form '(movl ($ :self) (% x8632::fn)) frag-list instruction main-frag-list exception-frag-list)
    15231523    (dolist (f forms)
    1524       (x86-lap-form f frag-list instruction main-frag-list exception-frag-list))
     1524      (setq frag-list (x86-lap-form f frag-list instruction main-frag-list exception-frag-list)))
     1525    (setq frag-list main-frag-list)
     1526    (merge-dll-nodes frag-list exception-frag-list)
    15251527    (x86-lap-directive frag-list :align 2)
    15261528    (when *x86-lap-fixed-code-words*
Note: See TracChangeset for help on using the changeset viewer.