Update of /cvsroot/sbcl/sbcl/src/runtime
In directory usw-pr-cvs1:/tmp/cvs-serv25781/src/runtime
Modified Files:
alloc.c gc.c interr.c interrupt.c os-common.c run-program.c
runtime.c save.c search.c sunos-os.c validate.c vars.c
Log Message:
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
Index: alloc.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/alloc.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** alloc.c 29 Dec 2001 01:54:19 -0000 1.10
--- alloc.c 4 Apr 2002 16:07:50 -0000 1.11
***************
*** 20,23 ****
--- 20,24 ----
#include "gc.h"
#include <stdio.h>
+ #include <string.h>
#define GET_FREE_POINTER() dynamic_space_free_pointer
Index: gc.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/gc.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** gc.c 20 Feb 2002 18:41:52 -0000 1.16
--- gc.c 4 Apr 2002 16:07:50 -0000 1.17
***************
*** 537,541 ****
}
}
! #endif reg_LIP
/* Compute the PC's offset from the start of the CODE */
--- 537,541 ----
}
}
! #endif /* reg_LIP */
/* Compute the PC's offset from the start of the CODE */
***************
*** 576,580 ****
*os_context_register_addr(context, reg_LIP) =
*os_context_register_addr(context, lip_register_pair) + lip_offset;
! #endif reg_LIP
/* Fix the PC if it was in from space */
--- 576,580 ----
*os_context_register_addr(context, reg_LIP) =
*os_context_register_addr(context, lip_register_pair) + lip_offset;
! #endif /* reg_LIP */
/* Fix the PC if it was in from space */
Index: interr.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interr.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** interr.c 30 Jul 2001 19:30:33 -0000 1.6
--- interr.c 4 Apr 2002 16:07:51 -0000 1.7
***************
*** 16,19 ****
--- 16,20 ----
#include <stdio.h>
#include <stdarg.h>
+ #include <stdlib.h>
#include "arch.h"
Index: interrupt.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interrupt.c,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** interrupt.c 16 Mar 2002 21:16:09 -0000 1.22
--- interrupt.c 4 Apr 2002 16:07:51 -0000 1.23
***************
*** 16,20 ****
#include <stdio.h>
#include <stdlib.h>
!
#include <signal.h>
--- 16,20 ----
#include <stdio.h>
#include <stdlib.h>
! #include <string.h>
#include <signal.h>
Index: os-common.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/os-common.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** os-common.c 15 Feb 2002 17:10:02 -0000 1.4
--- os-common.c 4 Apr 2002 16:07:51 -0000 1.5
***************
*** 12,15 ****
--- 12,16 ----
#include <stdio.h>
#include <errno.h>
+ #include <strings.h>
#include "os.h"
Index: run-program.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/run-program.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** run-program.c 27 Nov 2000 17:20:28 -0000 1.3
--- run-program.c 4 Apr 2002 16:07:51 -0000 1.4
***************
*** 14,19 ****
*/
#include <sys/file.h>
! #include <sys/fcntl.h>
#include <sys/ioctl.h>
#if defined(SVR4) || defined(__linux__)
--- 14,22 ----
*/
+ #include <stdlib.h>
#include <sys/file.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
#include <sys/ioctl.h>
#if defined(SVR4) || defined(__linux__)
Index: runtime.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/runtime.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** runtime.c 14 Jul 2001 04:25:15 -0000 1.9
--- runtime.c 4 Apr 2002 16:07:51 -0000 1.10
***************
*** 15,18 ****
--- 15,19 ----
#include <stdio.h>
+ #include <string.h>
#include <sys/types.h>
#include <stdlib.h>
***************
*** 22,25 ****
--- 23,30 ----
#include <sys/stat.h>
+ #if defined(SVR4) || defined(__linux__)
+ #include <time.h>
+ #endif
+
#include "signal.h"
***************
*** 212,233 ****
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 <http://sbcl.sourceforge.net/>.
");
fflush(stdout);
--- 217,238 ----
if (!noinform) {
printf(
! "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 <http://sbcl.sourceforge.net/>.\n\
");
fflush(stdout);
Index: save.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/save.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** save.c 20 Jan 2002 18:31:24 -0000 1.9
--- save.c 4 Apr 2002 16:07:51 -0000 1.10
***************
*** 10,13 ****
--- 10,14 ----
*/
+ #include <stdlib.h>
#include <stdio.h>
#include <signal.h>
Index: search.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/search.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** search.c 10 Oct 2001 22:44:31 -0000 1.5
--- search.c 4 Apr 2002 16:07:51 -0000 1.6
***************
*** 10,13 ****
--- 10,15 ----
*/
+ #include <string.h>
+
#include "runtime.h"
#include "sbcl.h"
Index: sunos-os.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/sunos-os.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sunos-os.c 25 Mar 2002 18:25:04 -0000 1.1
--- sunos-os.c 4 Apr 2002 16:07:51 -0000 1.2
***************
*** 1,4 ****
#include <stdio.h>
!
#include <signal.h>
#include <sys/file.h>
--- 1,4 ----
#include <stdio.h>
! #include <stdlib.h>
#include <signal.h>
#include <sys/file.h>
Index: validate.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/validate.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** validate.c 19 May 2001 01:03:02 -0000 1.9
--- validate.c 4 Apr 2002 16:07:51 -0000 1.10
***************
*** 15,18 ****
--- 15,20 ----
#include <stdio.h>
+ #include <stdlib.h>
+
#include "runtime.h"
#include "os.h"
Index: vars.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/vars.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** vars.c 20 Oct 2000 23:30:35 -0000 1.2
--- vars.c 4 Apr 2002 16:07:51 -0000 1.3
***************
*** 11,14 ****
--- 11,15 ----
#include <stdio.h>
+ #include <strings.h>
#include <sys/types.h>
#include <stdlib.h>
|