From: <cli...@li...> - 2005-02-23 04:15:59
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/ffcall/trampoline configure,1.37,1.38 (Bruno Haible) 2. clisp/src makemake.in,1.523,1.524 ChangeLog,1.4284,1.4285 (Sam Steingold) 3. clisp configure,1.82,1.83 (Sam Steingold) 4. clisp/doc impext.xml,1.313,1.314 (Sam Steingold) 5. clisp/modules/pari pari.lisp,1.5,1.6 (Sam Steingold) 6. clisp/src ChangeLog,1.4285,1.4286 (Sam Steingold) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/ffcall/trampoline configure,1.37,1.38 Date: Tue, 22 Feb 2005 15:53:28 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/trampoline In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv908/ffcall/trampoline Modified Files: configure Log Message: Regenerated. Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/trampoline/configure,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- configure 16 Feb 2005 22:25:44 -0000 1.37 +++ configure 22 Feb 2005 15:53:22 -0000 1.38 @@ -5023,6 +5023,90 @@ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ + +#include <stdlib.h> +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on MacOS X. */ +#include <mach/mach.h> +#include <mach/mach_error.h> +#include <mach/thread_status.h> +#include <mach/exception.h> +#include <mach/task.h> +#include <pthread.h> +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#else +/* Avoid a crash on POSIX systems. */ +#include <signal.h> +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); @@ -5061,6 +5145,90 @@ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ + +#include <stdlib.h> +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on MacOS X. */ +#include <mach/mach.h> +#include <mach/mach_error.h> +#include <mach/thread_status.h> +#include <mach/exception.h> +#include <mach/task.h> +#include <pthread.h> +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#else +/* Avoid a crash on POSIX systems. */ +#include <signal.h> +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); @@ -5099,6 +5267,90 @@ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ + +#include <stdlib.h> +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on MacOS X. */ +#include <mach/mach.h> +#include <mach/mach_error.h> +#include <mach/thread_status.h> +#include <mach/exception.h> +#include <mach/task.h> +#include <pthread.h> +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#else +/* Avoid a crash on POSIX systems. */ +#include <signal.h> +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(0); @@ -5137,6 +5389,90 @@ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ + +#include <stdlib.h> +#if defined __MACH__ && defined __APPLE__ +/* Avoid a crash on MacOS X. */ +#include <mach/mach.h> +#include <mach/mach_error.h> +#include <mach/thread_status.h> +#include <mach/exception.h> +#include <mach/task.h> +#include <pthread.h> +/* The exception port on which our thread listens. */ +static mach_port_t our_exception_port; +/* The main function of the thread listening for exceptions of type + EXC_BAD_ACCESS. */ +static void * +mach_exception_thread (void *arg) +{ + /* Buffer for a message to be received. */ + struct { + mach_msg_header_t head; + mach_msg_body_t msgh_body; + char data[1024]; + } msg; + mach_msg_return_t retval; + /* Wait for a message on the exception port. */ + retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), + our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); + if (retval != MACH_MSG_SUCCESS) + abort (); + exit (1); +} +static void +nocrash_init (void) +{ + mach_port_t self = mach_task_self (); + /* Allocate a port on which the thread shall listen for exceptions. */ + if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) + == KERN_SUCCESS) { + /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ + if (mach_port_insert_right (self, our_exception_port, our_exception_port, + MACH_MSG_TYPE_MAKE_SEND) + == KERN_SUCCESS) { + /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting + for us. */ + exception_mask_t mask = EXC_MASK_BAD_ACCESS; + /* Create the thread listening on the exception port. */ + pthread_attr_t attr; + pthread_t thread; + if (pthread_attr_init (&attr) == 0 + && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 + && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { + pthread_attr_destroy (&attr); + /* Replace the exception port info for these exceptions with our own. + Note that we replace the exception port for the entire task, not only + for a particular thread. This has the effect that when our exception + port gets the message, the thread specific exception port has already + been asked, and we don't need to bother about it. + See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ + task_set_exception_ports (self, mask, our_exception_port, + EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); + } + } + } +} +#else +/* Avoid a crash on POSIX systems. */ +#include <signal.h> +/* A POSIX signal handler. */ +static void +exception_handler (int sig) +{ + exit (1); +} +static void +nocrash_init (void) +{ +#ifdef SIGSEGV + signal (SIGSEGV, exception_handler); +#endif +#ifdef SIGBUS + signal (SIGBUS, exception_handler); +#endif +} +#endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(1); --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src makemake.in,1.523,1.524 ChangeLog,1.4284,1.4285 Date: Tue, 22 Feb 2005 17:51:51 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2070/src Modified Files: makemake.in ChangeLog Log Message: makemake.in (config.status): remove config.cache configure: do not remove config.cache (this undoes the 2002-07-21 change) Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.523 retrieving revision 1.524 diff -u -d -r1.523 -r1.524 --- makemake.in 21 Feb 2005 16:45:59 -0000 1.523 +++ makemake.in 22 Feb 2005 17:50:47 -0000 1.524 @@ -2249,6 +2249,7 @@ OBSOLETE="$OBSOLETE Makefile~" echol echol "config.status : configure ${SRCTOPDIR}version.sh" + echotab "\$(RM) config.cache" echotab "sh config.status --recheck" echol echol "${SRCDIR}configure : ${SRCDIR}configure.in" Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4284 retrieving revision 1.4285 diff -u -d -r1.4284 -r1.4285 --- ChangeLog 22 Feb 2005 11:36:36 -0000 1.4284 +++ ChangeLog 22 Feb 2005 17:50:54 -0000 1.4285 @@ -1,3 +1,9 @@ +2005-02-22 Sam Steingold <sd...@gn...> + + * makemake.in (config.status): remove config.cache + * configure: do not remove config.cache (this undoes the + 2002-07-21 change) + 2005-02-22 Bruno Haible <br...@cl...> * m4/mprotect.m4 (CL_MPROTECT): Actually invoke GL_NOCRASH. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp configure,1.82,1.83 Date: Tue, 22 Feb 2005 17:51:54 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2070 Modified Files: configure Log Message: makemake.in (config.status): remove config.cache configure: do not remove config.cache (this undoes the 2002-07-21 change) Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/configure,v retrieving revision 1.82 retrieving revision 1.83 diff -u -d -r1.82 -r1.83 --- configure 17 Feb 2005 12:40:06 -0000 1.82 +++ configure 22 Feb 2005 17:51:49 -0000 1.83 @@ -594,7 +594,6 @@ $subdir_configure_args --cache-file=../config.cache fi done - rm -f config.cache; # avoid problems with stale caches cd .. fi --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.313,1.314 Date: Tue, 22 Feb 2005 18:10:46 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7028/doc Modified Files: impext.xml Log Message: updated CLISP compilation messages Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.313 retrieving revision 1.314 diff -u -d -r1.313 -r1.314 --- impext.xml 20 Feb 2005 01:25:17 -0000 1.313 +++ impext.xml 22 Feb 2005 18:10:25 -0000 1.314 @@ -4526,10 +4526,8 @@ (print "hello, world!") EOF bash$ clisp -c hello.lisp - -Compiling file hello.lisp ... - -Compilation of file hello.lisp is finished. +;; Compiling file hello.lisp ... +;; Wrote file hello.lisp 0 errors, 0 warnings bash$ chmod +x hello.fas bash$ hello.fas --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/pari pari.lisp,1.5,1.6 Date: Tue, 22 Feb 2005 18:25:47 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/pari In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10933/modules/pari Modified Files: pari.lisp Log Message: (pari-1): gen_1 instead of gone (pari-2): gen_2 instead of gtwo (pari--1): gen_m1 instead of gminusone Index: pari.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/pari.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- pari.lisp 25 Jan 2005 14:35:13 -0000 1.5 +++ pari.lisp 22 Feb 2005 18:25:43 -0000 1.6 @@ -176,12 +176,12 @@ (def-c-var pari-euler (:name "geuler") (:type pari-gen) (:read-only t)) (def-c-var pari-bernzone (:name "bernzone") (:type pari-gen) (:read-only t)) -(def-c-var pari-1 (:name "gone") (:type pari-gen) (:read-only t)) -(def-c-var pari-2 (:name "gtwo") (:type pari-gen) (:read-only t)) +(def-c-var pari-1 (:name "gen_1") (:type pari-gen) (:read-only t)) +(def-c-var pari-2 (:name "gen_2") (:type pari-gen) (:read-only t)) (def-c-var pari-1/2 (:name "ghalf") (:type pari-gen) (:read-only t)) (def-c-var pari-i (:name "gi") (:type pari-gen) (:read-only t)) (def-c-var pari-0 (:name "gzero") (:type pari-gen) (:read-only t)) -(def-c-var pari--1 (:name "gminusone") (:type pari-gen) (:read-only t)) +(def-c-var pari--1 (:name "gen_m1") (:type pari-gen) (:read-only t)) ;; extern GEN *polun,*polx; (def-c-var pari-poly-1 (:name "polun") (:type (c-ptr pari-gen)) (:read-only t)) --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4285,1.4286 Date: Tue, 22 Feb 2005 18:25:45 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10933/src Modified Files: ChangeLog Log Message: (pari-1): gen_1 instead of gone (pari-2): gen_2 instead of gtwo (pari--1): gen_m1 instead of gminusone Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4285 retrieving revision 1.4286 diff -u -d -r1.4285 -r1.4286 --- ChangeLog 22 Feb 2005 17:50:54 -0000 1.4285 +++ ChangeLog 22 Feb 2005 18:25:21 -0000 1.4286 @@ -1,5 +1,11 @@ 2005-02-22 Sam Steingold <sd...@gn...> + * modules/pari/pari.lisp (pari-1): gen_1 instead of gone + (pari-2): gen_2 instead of gtwo + (pari--1): gen_m1 instead of gminusone + +2005-02-22 Sam Steingold <sd...@gn...> + * makemake.in (config.status): remove config.cache * configure: do not remove config.cache (this undoes the 2002-07-21 change) --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |