/[cmucl]/src/code/x86-vm.lisp
ViewVC logotype

Diff of /src/code/x86-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by moore, Wed Mar 13 08:01:58 2002 UTC revision 1.20 by pmai, Mon May 6 18:02:05 2002 UTC
# Line 473  Line 473 
473  ;;;  ;;;
474  (defun extern-alien-name (name)  (defun extern-alien-name (name)
475    (declare (type simple-string name))    (declare (type simple-string name))
476      #+(and bsd (not elf))
477      (concatenate 'string "_" name)
478      #-(and bsd (not elf))
479    name)    name)
480    
481    #+(or linux (and freebsd elf))
482  (defun lisp::foreign-symbol-address-aux (name)  (defun lisp::foreign-symbol-address-aux (name)
483    (multiple-value-bind (value found)    (multiple-value-bind (value found)
484        (gethash name lisp::*foreign-symbols* 0)        (gethash name lisp::*foreign-symbols* 0)
# Line 482  Line 486 
486          value          value
487          (multiple-value-bind (value found)          (multiple-value-bind (value found)
488              (gethash              (gethash
489               (concatenate 'string #+(or linux (and freebsd elf)) "PVE_stub_"               (concatenate 'string "PVE_stub_" name)
                           #+(and bsd (not elf)) "_"  
                           name)  
490               lisp::*foreign-symbols* 0)               lisp::*foreign-symbols* 0)
491            (if found            (if found
492                value                value

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.5