Bug#939541: sbcl: Please include patch to fix minor issue on alpha
John Paul Adrian Glaubitz <[email protected]>
| Newsgroups | gmane.linux.debian.ports.alpha |
|---|---|
| Message-ID | <156857216872.8979.8479016898461222161.reportbug__14592.4318161391$1568572956$gmane$org@z6.physik.fu-berlin.de> |
Package: src:sbcl Followup-For: Bug #939541 Hi! Attaching an updated patch for Alpha. Will try to send it upstream. Adrian -- .''`. John Paul Adrian Glaubitz : :' : Debian Developer - [email protected] `. `' Freie Universitaet Berlin - [email protected] `- GPG: 62FF 8A75 84E0 2956 9546 0006 7426 3B37 F5B5 F913
sbcl-fix-build-on-alpha.patch
(text/plain, 1.8 KB)
Index: sbcl-1.5.6/src/runtime/linux-mman.c
===================================================================
--- sbcl-1.5.6.orig/src/runtime/linux-mman.c
+++ sbcl-1.5.6/src/runtime/linux-mman.c
@@ -3,9 +3,27 @@
#include <errno.h>
#include "genesis/config.h"
+#include "genesis/constants.h"
+#include "globals.h"
#include "os.h"
#include "interr.h"
+#ifdef LISP_FEATURE_ALPHA
+/* The Alpha is a 64 bit CPU. SBCL is a 32 bit application. Due to all
+ * the places that assume we can get a pointer into a fixnum with no
+ * information loss, we have to make sure it allocates all its ram in the
+ * 0-2Gb region. */
+
+static void * under_2gb_free_pointer;
+os_set_cheneygc_spaces(uword_t space0_start, uword_t space1_start)
+{
+ uword_t max;
+ max = (space1_start > space0_start) ? space1_start : space0_start;
+ under_2gb_free_pointer = max + dynamic_space_size;
+}
+
+#endif
+
os_vm_address_t
os_validate(int movable, os_vm_address_t addr, os_vm_size_t len)
{
Index: sbcl-1.5.6/src/runtime/linux-os.c
===================================================================
--- sbcl-1.5.6.orig/src/runtime/linux-os.c
+++ sbcl-1.5.6/src/runtime/linux-os.c
@@ -333,23 +333,6 @@ int os_preinit(char *argv[], char *envp[
return 0;
}
-
-#ifdef LISP_FEATURE_ALPHA
-/* The Alpha is a 64 bit CPU. SBCL is a 32 bit application. Due to all
- * the places that assume we can get a pointer into a fixnum with no
- * information loss, we have to make sure it allocates all its ram in the
- * 0-2Gb region. */
-
-static void * under_2gb_free_pointer;
-os_set_cheneygc_spaces(uword_t space0_start, uword_t space1_start)
-{
- uword_t max;
- max = (space1_start > space0_start) ? space1_start : space0_start;
- under_2gb_free_pointer = max + dynamic_space_size;
-}
-
-#endif
-
void
os_protect(os_vm_address_t address, os_vm_size_t length, os_vm_prot_t prot)
{