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

Diff of /src/code/lispinit.lisp

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

revision 1.73 by toy, Fri Oct 24 02:56:59 2003 UTC revision 1.74 by cwang, Tue Jun 1 23:12:33 2004 UTC
# Line 359  Line 359 
359                    (funcall (second fun))))                    (funcall (second fun))))
360             (:load-time-value-fixup             (:load-time-value-fixup
361              #-gengc              #-gengc
362              (setf (sap-ref-32 (second fun) 0)              (setf (#+amd64 sap-ref-64
363                       #-amd64 sap-ref-32 (second fun) 0)
364                    (get-lisp-obj-address                    (get-lisp-obj-address
365                     (svref *load-time-values* (third fun))))                     (svref *load-time-values* (third fun))))
366              #+gengc              #+gengc
367              (do-load-time-value-fixup (second fun) (third fun) (fourth fun)))              (do-load-time-value-fixup (second fun) (third fun) (fourth fun)))
368             #+(and x86 gencgc)             #+(and (or x86 amd64) gencgc)
369             (:load-time-code-fixup             (:load-time-code-fixup
370              (vm::do-load-time-code-fixup (second fun) (third fun) (fourth fun)              (vm::do-load-time-code-fixup (second fun) (third fun) (fourth fun)
371                                           (fifth fun)))                                           (fifth fun)))
# Line 398  Line 399 
399    
400    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
401    ;; This is necessary because some of the initial top level forms might    ;; This is necessary because some of the initial top level forms might
402    ;; have changed the compliation policy in strange ways.    ;; have changed the compilation policy in strange ways.
403    (print-and-call c::proclaim-init)    (print-and-call c::proclaim-init)
404    
405    (print-and-call kernel::class-finalize)    (print-and-call kernel::class-finalize)
# Line 517  Line 518 
518    
519  ;;; Scrub-control-stack.  ;;; Scrub-control-stack.
520  ;;;  ;;;
521  #-x86  #-(or x86 amd64)
522  (defun %scrub-control-stack ()  (defun %scrub-control-stack ()
523    "Zero the unused portion of the control stack so that old objects are not    "Zero the unused portion of the control stack so that old objects are not
524     kept alive because of uninitialized stack variables."     kept alive because of uninitialized stack variables."
# Line 554  Line 555 
555    
556  ;;; Scrub-control-stack.  ;;; Scrub-control-stack.
557  ;;;  ;;;
558  ;;; On the x86 port the stack grows downwards, and to support grow on  ;;; On the x86 and amd64 port the stack grows downwards, and to support grow on
559  ;;; demand stacks the stack must be decreased as it is scrubbed.  ;;; demand stacks the stack must be decreased as it is scrubbed.
560  ;;;  ;;;
561  (defun scrub-control-stack ()  (defun scrub-control-stack ()
# Line 567  Line 568 
568    (%scrub-control-stack)    (%scrub-control-stack)
569    #+stack-checking (os-guard-control-stack 0 1))    #+stack-checking (os-guard-control-stack 0 1))
570    
571  #+x86  #+(or x86 amd64)
572  (defun %scrub-control-stack ()  (defun %scrub-control-stack ()
573    (%scrub-control-stack))    (%scrub-control-stack))
574    

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

  ViewVC Help
Powered by ViewVC 1.1.5