From: Christophe Rhodes Date: Thu, 4 Apr 2002 16:07:50 +0000 (+0000) Subject: 0.7.2.6: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=686043635c45a16b418d2cc96a7f704fdab182c2;p=sbcl.git 0.7.2.6: Merged NJF "implicit function definition cleanup" patch (from sbcl-devel 2002-03-26) ... used Ingvar's fix for preprocessor stuff in grovel_headers.c Also minor change to make.sh to allow use under vanilla sh --- diff --git a/NEWS b/NEWS index 10e21bc..c51dbde 100644 --- a/NEWS +++ b/NEWS @@ -1058,11 +1058,16 @@ changes in sbcl-0.7.2 relative to sbcl-0.7.1: encapsulation also seems closer to the spirit of the ANSI specification.) -changes in sbcl-0.7.2 relative to sbcl-0.7.1: - * cleanups on SPARC, both Linux and Solaris, and for gcc>=3 (thanks - to Christophe Rhodes and Nathan Froyd) +changes in sbcl-0.7.3 relative to sbcl-0.7.2: + * SBCL now runs on the PPC archtiecture under Linux. It actually did + this as of 0.7.1.45, but was left out of the previous news section + (thanks to Dan Barlow) + * SBCL now runs on the Solaris operating system on SPARC architectures + (thanks to Christophe Rhodes's port of the CMUCL runtime) + * cleanups to the runtime on SPARC, both Linux and Solaris, and for + gcc>=3 (thanks to Nathan Froyd and Ingvar Mattsson) * ANSI's DEFINE-SYMBOL-MACRO is now supported. (thanks to Nathan - Froyd porting CMU CL code) + Froyd porting CMU CL code originally by Douglas Thomas Crosher) * The fasl file format has changed again, to allow the compiler's INFO database to support symbol macros. * The user manual (in doc/) is formatted into HTML more nicely. diff --git a/make.sh b/make.sh index a2a577b..ebbacc9 100755 --- a/make.sh +++ b/make.sh @@ -50,7 +50,8 @@ # require a second pass, just testing at build-the-cross-compiler time # whether the cross-compilation host returns suitable values from # UPGRADED-ARRAY-ELEMENT-TYPE?) -export SBCL_XC_HOST="${1:-sbcl --noprogrammer}" +SBCL_XC_HOST="${1:-sbcl --noprogrammer}" +export SBCL_XC_HOST echo //SBCL_XC_HOST=\"$SBCL_XC_HOST\" # If you're cross-compiling, you should probably just walk through the diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c index 661cdf4..0fe2be7 100644 --- a/src/runtime/alloc.c +++ b/src/runtime/alloc.c @@ -19,6 +19,7 @@ #include "globals.h" #include "gc.h" #include +#include #define GET_FREE_POINTER() dynamic_space_free_pointer #define SET_FREE_POINTER(new_value) \ diff --git a/src/runtime/gc.c b/src/runtime/gc.c index fdf9ed1..ee6a2da 100644 --- a/src/runtime/gc.c +++ b/src/runtime/gc.c @@ -536,7 +536,7 @@ scavenge_interrupt_context(os_context_t *context) } } } -#endif reg_LIP +#endif /* reg_LIP */ /* Compute the PC's offset from the start of the CODE */ /* register. */ @@ -575,7 +575,7 @@ scavenge_interrupt_context(os_context_t *context) /* Fix the LIP */ *os_context_register_addr(context, reg_LIP) = *os_context_register_addr(context, lip_register_pair) + lip_offset; -#endif reg_LIP +#endif /* reg_LIP */ /* Fix the PC if it was in from space */ if (from_space_p(*os_context_pc_addr(context))) diff --git a/src/runtime/interr.c b/src/runtime/interr.c index a5f8650..18b3e9e 100644 --- a/src/runtime/interr.c +++ b/src/runtime/interr.c @@ -15,6 +15,7 @@ #include #include +#include #include "arch.h" #include "signal.h" diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c index b749059..467a2e4 100644 --- a/src/runtime/interrupt.c +++ b/src/runtime/interrupt.c @@ -15,7 +15,7 @@ #include #include - +#include #include #include "runtime.h" diff --git a/src/runtime/os-common.c b/src/runtime/os-common.c index c7ea586..3becd18 100644 --- a/src/runtime/os-common.c +++ b/src/runtime/os-common.c @@ -11,6 +11,7 @@ #include #include +#include #include "os.h" #include "interr.h" diff --git a/src/runtime/run-program.c b/src/runtime/run-program.c index 6e7bf18..2e92d83 100644 --- a/src/runtime/run-program.c +++ b/src/runtime/run-program.c @@ -13,8 +13,11 @@ * files for more information. */ +#include #include -#include +#include +#include +#include #include #if defined(SVR4) || defined(__linux__) #include diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c index efefc8e..aa54b85 100644 --- a/src/runtime/runtime.c +++ b/src/runtime/runtime.c @@ -14,6 +14,7 @@ */ #include +#include #include #include #include @@ -21,6 +22,10 @@ #include #include +#if defined(SVR4) || defined(__linux__) +#include +#endif + #include "signal.h" #include "runtime.h" @@ -211,24 +216,24 @@ main(int argc, char *argv[], char *envp[]) if (!noinform) { printf( -"This is SBCL " SBCL_VERSION_STRING ", an implementation of ANSI Common Lisp. - -SBCL is derived from the CMU CL system created at Carnegie Mellon University. -Besides software and documentation originally created at Carnegie Mellon -University, SBCL contains some software originally from the Massachusetts -Institute of Technology, Symbolics Incorporated, and Xerox Corporation, and -material contributed by volunteers since the release of CMU CL into the -public domain. See the CREDITS file in the distribution for more information. - -SBCL is a free software system, provided as is, with absolutely no warranty. -It is mostly in the public domain, but also includes some software copyrighted - Massachusetts Institute of Technology, 1986; - Symbolics, Inc., 1989, 1990, 1991, 1992; and - Xerox Corporation, 1985, 1986, 1987, 1988, 1989, 1990 -used under BSD-style licenses allowing copying only under certain conditions. -See the COPYING file in the distribution for more information. - -More information on SBCL is available at . +"This is SBCL " SBCL_VERSION_STRING ", an implementation of ANSI Common Lisp.\n\ +\n\ +SBCL is derived from the CMU CL system created at Carnegie Mellon University.\n\ +Besides software and documentation originally created at Carnegie Mellon\n\ +University, SBCL contains some software originally from the Massachusetts\n\ +Institute of Technology, Symbolics Incorporated, and Xerox Corporation, and\n\ +material contributed by volunteers since the release of CMU CL into the\n\ +public domain. See the CREDITS file in the distribution for more information.\n\ +\n\ +SBCL is a free software system, provided as is, with absolutely no warranty.\n\ +It is mostly in the public domain, but also includes some software copyrighted\n\ + Massachusetts Institute of Technology, 1986;\n\ + Symbolics, Inc., 1989, 1990, 1991, 1992; and\n\ + Xerox Corporation, 1985, 1986, 1987, 1988, 1989, 1990\n\ +used under BSD-style licenses allowing copying only under certain conditions.\n\ +See the COPYING file in the distribution for more information.\n\ +\n\ +More information on SBCL is available at .\n\ "); fflush(stdout); } diff --git a/src/runtime/save.c b/src/runtime/save.c index 3336639..5783c43 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -9,6 +9,7 @@ * files for more information. */ +#include #include #include #include diff --git a/src/runtime/search.c b/src/runtime/search.c index e2d642b..217a294 100644 --- a/src/runtime/search.c +++ b/src/runtime/search.c @@ -9,6 +9,8 @@ * files for more information. */ +#include + #include "runtime.h" #include "sbcl.h" #include "os.h" diff --git a/src/runtime/sunos-os.c b/src/runtime/sunos-os.c index dc58ee4..5aadf8c 100644 --- a/src/runtime/sunos-os.c +++ b/src/runtime/sunos-os.c @@ -1,5 +1,5 @@ #include - +#include #include #include diff --git a/src/runtime/validate.c b/src/runtime/validate.c index e3ad9b1..5c24d47 100644 --- a/src/runtime/validate.c +++ b/src/runtime/validate.c @@ -14,6 +14,8 @@ */ #include +#include + #include "runtime.h" #include "os.h" #include "globals.h" diff --git a/src/runtime/vars.c b/src/runtime/vars.c index 39f065b..8786ee7 100644 --- a/src/runtime/vars.c +++ b/src/runtime/vars.c @@ -10,6 +10,7 @@ */ #include +#include #include #include diff --git a/tools-for-build/grovel_headers.c b/tools-for-build/grovel_headers.c index a9adf64..0d33082 100644 --- a/tools-for-build/grovel_headers.c +++ b/tools-for-build/grovel_headers.c @@ -27,7 +27,7 @@ #include #define DEFTYPE(lispname,cname) { cname foo; \ - printf("(define-alien-type "##lispname##" (%s %d))\n", (((foo=-1)<0) ? "sb!alien:signed" : "unsigned"), (8 * (sizeof foo))); } + printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "sb!alien:signed" : "unsigned"), (8 * (sizeof foo))); } void defconstant(char* lisp_name, long unix_number) @@ -47,9 +47,9 @@ main(int argc, char *argv[]) /* don't need no steenking hand-editing */ printf( -";;;; This is an automatically generated file, please do not hand-edit it. -;;;; See the program \"grovel_headers.c\". - +";;;; This is an automatically generated file, please do not hand-edit it.\n\ +;;;; See the program \"grovel_headers.c\".\n\ +\n\ "); printf("(in-package \"SB!UNIX\")\n\n"); diff --git a/version.lisp-expr b/version.lisp-expr index d60704c..f721556 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; for internal versions, especially for internal versions off the ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.7.2.5" +"0.7.2.6"