X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fparms.lisp;h=4ad2bf1a656972bd8a083dc8703c8c023cd2c775;hb=cd8fe50554652680dde36396d7862fc6cc83839c;hp=8eb4fea8ee3485d3d79a2b6d214057213b2892b2;hpb=986a59ccc87c71f1028b5b1419bd7dc799334cc3;p=sbcl.git diff --git a/src/compiler/hppa/parms.lisp b/src/compiler/hppa/parms.lisp index 8eb4fea..4ad2bf1 100644 --- a/src/compiler/hppa/parms.lisp +++ b/src/compiler/hppa/parms.lisp @@ -54,14 +54,14 @@ (defconstant-eqx float-traps-byte (byte 5 0) #'equal) (defconstant-eqx float-exceptions-byte (byte 5 27) #'equal) (def!constant float-condition-bit (ash 1 26)) -(def!constant float-fast-bit 0) ; No fast mode on HPPA. +(def!constant float-fast-bit 0) ; No fast mode on HPPA. ;;;; Description of the target address space. ;;; Where to put the different spaces. -;;; +;;; (def!constant read-only-space-start #x20000000) (def!constant read-only-space-end #x24000000) @@ -116,7 +116,7 @@ ;; The C startup code must fill these in. *posix-argv* - + ;; Functions that the C code needs to call sb!impl::sub-gc sb!kernel::internal-error @@ -138,12 +138,13 @@ *binding-stack-start* *control-stack-start* *control-stack-end* - + ;; Interrupt Handling *free-interrupt-context-index* sb!unix::*interrupts-enabled* sb!unix::*interrupt-pending* - )) + *gc-inhibit* + *gc-pending*)) (defparameter *static-funs* '(length