Changeset 8652 for branches/ia32/level-0


Ignore:
Timestamp:
Mar 4, 2008, 4:29:00 PM (12 years ago)
Author:
rme
Message:

FOREIGN-SYMBOL-ENTRY: code for x8632-target

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/l0-cfm-support.lisp

    r8371 r8652  
    500500        (or (macptr->fixnum addr) (%inc-ptr addr 0))))
    501501    #+x8632-target
    502     nil                                 ;xxx obviously
     502    (let* ((addr (ff-call (%kernel-import target::kernel-import-FindSymbol)
     503                          :address handle
     504                          :address n
     505                          :unsigned-fullword)))
     506      (unless (eql 0 addr) addr))
    503507    #+x8664-target
    504508    (let* ((addr (ff-call (%kernel-import target::kernel-import-FindSymbol)
Note: See TracChangeset for help on using the changeset viewer.