X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.c;h=e4ce0d8c88cb8961091ac6ceb4491db721ed056f;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=b572391ee776206080eeb07a3ab0024b58c2fead;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index b572391..e4ce0d8 100644
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -13,10 +13,6 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #include <stdio.h>
 #include <sys/types.h>
 #include <stdlib.h>
@@ -36,6 +32,7 @@
 #include "interrupt.h"
 #include "arch.h"
 #include "gc.h"
+#include "interr.h"
 #include "monitor.h"
 #include "validate.h"
 #if defined GENCGC
@@ -54,7 +51,8 @@
 
 static void sigint_handler(int signal, siginfo_t *info, void *void_context)
 {
-    printf("\nSIGINT hit at 0x%08lX\n", *os_context_pc_addr(void_context));
+    printf("\nSIGINT hit at 0x%08lX\n", 
+	   (unsigned long) *os_context_pc_addr(void_context));
     ldb_monitor();
 }
 
@@ -78,6 +76,7 @@ successful_malloc(size_t size)
     } else {
 	return result;
     }
+    return (void *) NULL; /* dummy value: return something ... */
 }
 
 char *
@@ -188,7 +187,9 @@ main(int argc, char *argv[], char *envp[])
 	char *sbcl_home = getenv("SBCL_HOME");
 	if (sbcl_home) {
 	    char *lookhere;
-	    asprintf(&lookhere, "%s/sbcl.core", sbcl_home);
+	    lookhere = (char *) calloc(strlen("/sbcl.core") + strlen(sbcl_home) + 1,
+					sizeof(char));
+	    sprintf(lookhere, "%s/sbcl.core", sbcl_home);
 	    core = copied_existing_filename_or_null(lookhere);
 	    free(lookhere);
 	} else {
@@ -268,7 +269,7 @@ More information on SBCL is available at <http://sbcl.sourceforge.net/>.
 #endif
 
 #ifdef BINDING_STACK_POINTER
-    SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
+    SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
 #endif
 #if defined INTERNAL_GC_TRIGGER && !defined __i386__
     SetSymbolValue(INTERNAL_GC_TRIGGER, make_fixnum(-1));
@@ -296,4 +297,6 @@ More information on SBCL is available at <http://sbcl.sourceforge.net/>.
 
     /* initial_function() is not supposed to return. */
     lose("Lisp initial_function gave up control.");
+    return 0; /* dummy value: return something */
 }
+