/[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.21 by ram, Sat Jan 18 14:30:46 1997 UTC revision 1.22 by dtc, Mon May 5 23:13:52 1997 UTC
# Line 31  Line 31 
31   (defconstant foreign-segment-size  #x00400000)   (defconstant foreign-segment-size  #x00400000)
32    
33  (defvar *previous-linked-object-file* nil)  (defvar *previous-linked-object-file* nil)
34  #-linux  #-(or linux irix)
35  (defvar *foreign-segment-free-pointer* foreign-segment-start)  (defvar *foreign-segment-free-pointer* foreign-segment-start)
36    
37  (defun pick-temporary-file-name (&optional (base "/tmp/tmp~D~C"))  (defun pick-temporary-file-name (&optional (base "/tmp/tmp~D~C"))
# Line 304  Line 304 
304              (setf (gethash symbol symbol-table) address)))))              (setf (gethash symbol symbol-table) address)))))
305      (setf lisp::*foreign-symbols* symbol-table)))      (setf lisp::*foreign-symbols* symbol-table)))
306    
307  #-(or linux solaris)  #-(or linux irix solaris)
308  (defun load-foreign (files &key  (defun load-foreign (files &key
309                             (libraries '("-lc"))                             (libraries '("-lc"))
310                             (base-file                             (base-file

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5