Changeset 10522

Timestamp:

08/22/08 09:54:17 (3 months ago)

Author:

gb

Message:

Lots of changes coming on this branch; will check in binaries when
all done.

Executive summary: merge many changes from trunk (making trunk and
this branch closer), change the address of NIL and other static
constants to be above the limit (vm.mmap.min_addr) set in recent
Linux distributions. Change fasl version and image-abi-version,
so code compiled in previous versions won't work in this version
(and vice versa), mostly due to the different notions of the
values of NIL and other constants.

For these files: copy versions from trunk as of this date.

Files:

• branches/working-0711/ccl/lisp-kernel/area.h (modified) (1 diff)
• branches/working-0711/ccl/lisp-kernel/lisp_globals.h (modified) (1 diff)
• branches/working-0711/ccl/lisp-kernel/pmcl-kernel.c (modified) (1 diff)
• branches/working-0711/ccl/lisp-kernel/ppc-exceptions.h (modified) (2 diffs)
• branches/working-0711/ccl/lisp-kernel/x86-constants64.h (modified) (1 diff)
• branches/working-0711/ccl/lisp-kernel/x86-constants64.s (modified) (3 diffs)
• branches/working-0711/ccl/lisp-kernel/x86-exceptions.c (modified) (1 diff)
• branches/working-0711/ccl/lisp-kernel/x86-macros.s (modified) (1 diff)

branches/working-0711/ccl/lisp-kernel/area.h

@@ -185 +185 @@
-#define STATIC_RESERVE heap_segment_size
-
+#ifndef X86
-#define STATIC_BASE_ADDRESS 0x00002000
+#else
+#define STATIC_BASE_ADDRESS 0x00012000
+#endif
-
-extern LispObj image_base;

branches/working-0711/ccl/lisp-kernel/lisp_globals.h

@@ -83 +83 @@
-
-#ifdef X8664
-
-
+1
+1
-#endif
-

branches/working-0711/ccl/lisp-kernel/pmcl-kernel.c

@@ -1603 +1603 @@
-  lisp_global(TCR_AREA_LOCK) = ptr_to_lispobj(tcr_area_lock);
-
-64
+
-  lisp_global(SUBPRIMS_BASE) = (LispObj)((1<<16)+(5<<10));
-#else

branches/working-0711/ccl/lisp-kernel/ppc-exceptions.h

@@ -65 +65 @@
-*/
-#define DarwinSigReturn(context)
+#define SIGRETURN(context)
-#endif
-
@@ -128 +129 @@
-#define DarwinSigReturn(x) (UC_MCONTEXT(x)->ss.xer)^=0x80
-#endif
-
+
+
+
+
+
-
-

branches/working-0711/ccl/lisp-kernel/x86-constants64.h

@@ -220 +220 @@
-
-
-
-
+1
+1
-#define misc_bias fulltag_misc
-#define cons_bias fulltag_cons

branches/working-0711/ccl/lisp-kernel/x86-constants64.s

@@ -516 +516 @@
-        
-                        
-
-
+1
+1
-misc_bias = fulltag_misc
-cons_bias = fulltag_cons
@@ -720 +720 @@
-
-        
-
+1
-         _struct_pad(fulltag_symbol)
-         _struct_label(tsym)
@@ -970 +970 @@
-
-
-
+1
-        
-INTERRUPT_LEVEL_BINDING_INDEX = fixnumone

branches/working-0711/ccl/lisp-kernel/x86-exceptions.c

@@ -612 +612 @@
-        xpPC(xp) = rpc;
-      } else {
-
+
+
+
+
+
+
+
-      }
-        

branches/working-0711/ccl/lisp-kernel/x86-macros.s

@@ -701 +701 @@
-])
-
+define([check_cstack_alignment],[
+        new_macro_labels()
+        __(testb [$]7,rcontext(tcr.foreign_sp))
+        __(je macro_label(done))
+        __(hlt)
+macro_label(done):
+])
+