X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fbackend-parms.lisp;h=a1802f5e71a0584621fb8add3ae4829552bad68f;hb=e049902f5e7c30501d2dbb7a41d058a0c717fc1f;hp=be2a8f4b1bc67150cbe4357c7460b1987a056cb8;hpb=aa2dc9529460ea0d9c99998dc87283fc1a43e808;p=sbcl.git

diff --git a/src/compiler/x86/backend-parms.lisp b/src/compiler/x86/backend-parms.lisp
index be2a8f4..a1802f5 100644
--- a/src/compiler/x86/backend-parms.lisp
+++ b/src/compiler/x86/backend-parms.lisp
@@ -17,8 +17,7 @@
 
 ;;;; compiler constants
 
-(setf *backend-fasl-file-type* "x86f")
-(defconstant +backend-fasl-file-implementation+ :x86)
+(def!constant +backend-fasl-file-implementation+ :x86)
 
 (setf *backend-register-save-penalty* 3)
 
@@ -28,6 +27,17 @@
 ;;; code for it, but mostly we need it for GENESIS, which doesn't in
 ;;; general have our C runtime code running to ask, so instead we set
 ;;; it by hand. -- WHN 2001-04-15
+;;;
+;;; Though note that POSIX specifies (as far as I can tell)
+;;;
+;;;   sysconf(_SC_PAGE_SIZE);
+;;;
+;;; as a portable way of retrieving this information; a call to this
+;;; could be made in grovel-headers (which, strictly speaking, would
+;;; no longer solely be grovelling headers), though the question of
+;;; how to make this information appear in GENESIS, which is built and
+;;; run from host-1 files (which are made before grovel-headers runs)
+;;; would remain.  -- CSR, 2002-09-01
 (setf *backend-page-size* 4096)
 ;;; comment from CMU CL:
 ;;;