/[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.12 by ram, Fri Jul 17 16:03:41 1992 UTC revision 1.13 by wlott, Sun Feb 7 21:17:12 1993 UTC
# Line 18  Line 18 
18  (in-package "SYSTEM")  (in-package "SYSTEM")
19  (import 'alien:load-foreign)  (import 'alien:load-foreign)
20    
21    #+sparc (defconstant foreign-segment-start #xe0000000)
22    #+sparc (defconstant foreign-segment-size  #x00100000)
23    
24    #+pmax (defconstant foreign-segment-start #x00C00000)
25    #+pmax (defconstant foreign-segment-size  #x00400000)
26    
27  (defvar *previous-linked-object-file* nil)  (defvar *previous-linked-object-file* nil)
28  (defvar *foreign-segment-free-pointer* foreign-segment-start)  (defvar *foreign-segment-free-pointer* foreign-segment-start)
29    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5