/[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.8 by wlott, Fri Feb 14 23:44:54 1992 UTC revision 1.9 by wlott, Wed Feb 26 12:09:49 1992 UTC
# Line 64  Line 64 
64      (when (> new-ptr (+ foreign-segment-start foreign-segment-size))      (when (> new-ptr (+ foreign-segment-start foreign-segment-size))
65        (error "Not enough memory left."))        (error "Not enough memory left."))
66      (setf *foreign-segment-free-pointer* new-ptr)      (setf *foreign-segment-free-pointer* new-ptr)
67      (gr-call* mach:vm_allocate *task-self* addr memory-needed nil)      (mach:gr-call* mach:vm_allocate *task-self* addr memory-needed nil)
68      addr))      addr))
69    
70  #+sparc  #+sparc

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5