Changeset 7591


Ignore:
Timestamp:
Nov 3, 2007, 9:01:45 PM (12 years ago)
Author:
gb
Message:

Hack wouldn't work on FreeBSD; try conditionalized hack.

File:
1 edited

Legend:

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

    r7590 r7591  
    165165                              ;; addresses aren't negative and that
    166166                              ;; displacements are.
    167                               (%int-to-ptr
    168167                               (let* ((disp (%get-signed-natural
    169168                                             dynamic-entries
    170169                                             target::node-size)))
    171                                  
    172                                  (if (< disp 0)
    173                                    (+ disp (pref map :link_map.l_addr))
    174                                    disp))))))
     170                                 #+freebsd-target
     171                                 (%inc-ptr (pref map :link_map.l_addr) disp)
     172                                 #-freebsd-target
     173                                 (%int-to-ptr
     174                                  (if (< disp 0)
     175                                    (+ disp (pref map :link_map.l_addr))
     176                                    disp))))))
    175177          (%setf-macptr dynamic-entries
    176178                        (%inc-ptr dynamic-entries
Note: See TracChangeset for help on using the changeset viewer.