/[cmucl]/src/code/foreign.lisp
ViewVC logotype

Diff of /src/code/foreign.lisp

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

revision 1.54 by rtoy, Wed Apr 26 20:49:23 2006 UTC revision 1.54.14.2 by rtoy, Tue May 12 16:31:48 2009 UTC
# Line 837  the starting place for defined symbols. Line 837  the starting place for defined symbols.
837  code for Lisp. The ENV argument is the Unix environment variable  code for Lisp. The ENV argument is the Unix environment variable
838  definitions for the invocation of the linker. The default is the  definitions for the invocation of the linker. The default is the
839  environment passed to Lisp."  environment passed to Lisp."
840    ;; Note: dlopen remembers the name of an object, when dlopenin    ;; Note: dlopen remembers the name of an object, when dlopen()ing
841    ;; the same name twice, the old objects is reused.    ;; the same name twice, the old object is reused.
842    (declare (ignore base-file))    (declare (ignore base-file))
843    ;; if passed a single shared object that can be loaded directly via    ;; if passed a single shared object that can be loaded directly via
844    ;; dlopen(), do that instead of using the linker    ;; dlopen(), do that instead of using the linker
845    (when (atom files)    (when (atom files)
846      (when verbose      (when verbose
847        (format t ";;; Opening as shared library ~A ...~%" files))        (format t ";;; Opening as shared library ~A ...~%" files))
848      (multiple-value-bind (ok &optional error-string)      (multiple-value-bind (ok error-string)
849          (load-object-file files)          (load-object-file files)
850        (cond (ok        (cond (ok
851               (when verbose               (when verbose
# Line 900  environment passed to Lisp." Line 900  environment passed to Lisp."
900                             "--no-whole-archive"                             "--no-whole-archive"
901                             #+solaris "-z" #+solaris "defaultextract")                             #+solaris "-z" #+solaris "defaultextract")
902                            libraries))                            libraries))
903                   ;; on Linux/AMD64, we need to tell the platform linker to use the 32-bit                   ;; on Linux/AMD64, we need to tell the platform linker to use
904                   ;; linking mode instead of the default 64-bit mode. This can be done either                   ;; the 32-bit linking mode instead of the default 64-bit mode.
905                   ;; via the LDEMULATION environment variable, or via the "-m" command-line                   ;; This can be done either via the LDEMULATION environment
906                   ;; option. Here we assume that LDEMULATION will be ignored by the platform                   ;; variable, or via the "-m" command-line option. Here we
907                   ;; linker on Linux/i386 platforms.                   ;; assume that LDEMULATION will be ignored by the platform
908                     ;; linker on Linux/i386 platforms.
909                   :env `(#+(and x86 linux) (:ldemulation . "elf_i386") ,@env)                   :env `(#+(and x86 linux) (:ldemulation . "elf_i386") ,@env)
910                   :input nil                   :input nil
911                   :output error-output                   :output error-output

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.54.14.2

  ViewVC Help
Powered by ViewVC 1.1.5