Changeset 10155


Ignore:
Timestamp:
Jul 19, 2008, 10:26:49 PM (11 years ago)
Author:
rme
Message:

FOREIGN-SYMBOL-ENTRY for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-cfm-support.lisp

    r10107 r10155  
    475475      (unless (%null-ptr-p addr)        ; No function can have address 0
    476476        (or (macptr->fixnum addr) (%inc-ptr addr 0))))
     477    #+x8632-target
     478    (let* ((addr (ff-call (%kernel-import target::kernel-import-FindSymbol)
     479                          :address handle
     480                          :address n
     481                          :unsigned-fullword)))
     482      (unless (eql 0 addr) addr))
    477483    #+x8664-target
    478484    (let* ((addr (ff-call (%kernel-import target::kernel-import-FindSymbol)
Note: See TracChangeset for help on using the changeset viewer.