clisp-cvs Digest, Vol 42, Issue 18

View: New views
4 Messages — Rating Filter:   Alert me  

clisp-cvs Digest, Vol 42, Issue 18

by clisp-cvs-request :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Send clisp-cvs mailing list submissions to
        clisp-cvs@...

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
        clisp-cvs-request@...

You can reach the person managing the list at
        clisp-cvs-owner@...

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/src ChangeLog, 1.7168, 1.7169 lispbibl.d, 1.895, 1.896
      spvw.d, 1.513, 1.514 (Vladimir Tzankov)


----------------------------------------------------------------------

Message: 1
Date: Tue, 20 Oct 2009 20:44:26 +0000
From: Vladimir Tzankov <vtz@...>
Subject: clisp/src ChangeLog, 1.7168, 1.7169 lispbibl.d, 1.895, 1.896
        spvw.d, 1.513, 1.514
To: clisp-cvs@...
Message-ID: <E1N0LZC-0007Mk-JD@...>

Update of /cvsroot/clisp/clisp/src
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv28214/src

Modified Files:
        ChangeLog lispbibl.d spvw.d
Log Message:
(jmpl_value) [MULTITHREAD]: make it per thread and export to modules


Index: spvw.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw.d,v
retrieving revision 1.513
retrieving revision 1.514
diff -u -d -r1.513 -r1.514
--- spvw.d 9 Oct 2009 20:37:39 -0000 1.513
+++ spvw.d 20 Oct 2009 20:44:24 -0000 1.514
@@ -1005,7 +1005,7 @@
   error(storage_condition,GETTEXT("~S: realloc() failed"));
 }
 
-#if (int_bitsize < long_bitsize)
+#if (int_bitsize < long_bitsize) && !defined(MULTITHREAD)
 /* passing value from longjmpl() to setjmpl()  : */
 #if DYNAMIC_TABLES && defined(export_unwind_protect_macros)
 modexp

Index: lispbibl.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v
retrieving revision 1.895
retrieving revision 1.896
diff -u -d -r1.895 -r1.896
--- lispbibl.d 15 Oct 2009 18:48:51 -0000 1.895
+++ lispbibl.d 20 Oct 2009 20:44:24 -0000 1.896
@@ -1402,12 +1402,15 @@
   #define setjmpl(x)  setjmp(x)
   #define longjmpl(x,y)  longjmp(x,y)
 #else /* (int_bitsize < long_bitsize) */
-  extern long jmpl_value;
+  #ifndef MULTITHREAD
+   /* MT: following is per thread in MT builds */
+    extern long jmpl_value;
+  #endif
   #define setjmpl(x)  (setjmp(x) ? jmpl_value : 0)
   #define longjmpl(x,y)  (jmpl_value = (y), longjmp(x,1))
 #endif
 %% #ifdef export_unwind_protect_macros
-%%   #if (int_bitsize < long_bitsize)
+%%   #if (int_bitsize < long_bitsize) && !defined(MULTITHREAD)
 %%     exportV(long,jmpl_value);
 %%   #endif
 %%   export_def(setjmpl(x))
@@ -17044,6 +17047,9 @@
     uintC _suspend_count; /* how many times this thread has been suspended ? */
     /* The values of per-thread symbols: */
     gcv_object_t *_ptr_symvalues; /* allocated separately */
+   #if (int_bitsize < long_bitsize)
+    long _jmpl_value;
+   #endif
    #if defined(HAVE_SIGNALS) && defined(SIGPIPE)
     /* Set ONLY during IO calls to pipes directed to subprocesses. */
     bool _writing_to_subprocess;
@@ -17320,6 +17326,9 @@
 %% puts("  xmutex_raw_t _gc_suspend_lock;");
 %% puts("  uintC _suspend_count;");
 %% puts("  gcv_object_t *_ptr_symvalues;");
+%% #if (int_bitsize < long_bitsize)
+%%  puts(" long _jmpl_value;");
+%% #endif
 %% #if defined(HAVE_SIGNALS) && defined(SIGPIPE)
 %%  puts(" bool _writing_to_subprocess;");
 %% #endif
@@ -17383,10 +17392,13 @@
   #define SP_anchor current_thread()->_SP_anchor
   #define break_sems current_thread()->_break_sems
   #if defined(HAVE_SIGNALS) && defined(SIGPIPE)
-   #define writing_to_subprocess current_thread()->_writing_to_subprocess
+    #define writing_to_subprocess current_thread()->_writing_to_subprocess
   #endif
   #define running_handle_directory_encoding_error \
-     current_thread()->_running_handle_directory_encoding_error
+    current_thread()->_running_handle_directory_encoding_error
+  #if (int_bitsize < long_bitsize)
+    #define jmpl_value current_thread()->_jmpl_value
+  #endif
 
 /* needed for building modules */
 %% export_def(current_thread());
@@ -17406,6 +17418,11 @@
 %%  export_def(writing_to_subprocess);
 %% #endif
 %% export_def(SET_SP_BEFORE_SUSPEND(thr));
+%% #ifdef export_unwind_protect_macros
+%%   #if (int_bitsize < long_bitsize)
+%%     export_def(jmpl_value);
+%%   #endif
+%% #endif
 
 /* allocates,initializes and returns clisp_thread_t structure.
    Does not register it in the global thread array.

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7168
retrieving revision 1.7169
diff -u -d -r1.7168 -r1.7169
--- ChangeLog 19 Oct 2009 16:03:10 -0000 1.7168
+++ ChangeLog 20 Oct 2009 20:44:23 -0000 1.7169
@@ -1,3 +1,9 @@
+2009-10-20  Vladimir Tzankov  <vtzankov@...>
+
+ * lispbibl.d (jmpl_value) [MULTITHREAD]: make it per thread and export
+ to modules
+ * spvw.d: do not define jmpl_value in MT builds
+
 2009-10-19  Sam Steingold  <sds@...>
 
  * makemake.in (check-script): fix the non-UNICODE build




------------------------------

------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference

------------------------------

_______________________________________________
clisp-cvs mailing list
clisp-cvs@...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 42, Issue 18
*****************************************

------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel

change in nightly build breakage

by Don Cohen-12 :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

I presume related to the only change since yesterday:
 >    1. clisp/src ChangeLog, 1.7168, 1.7169 lispbibl.d, 1.895, 1.896
 >       spvw.d, 1.513, 1.514 (Vladimir Tzankov)

On the 32 bit single core fedora core 4 machine nothing changed:
- non-mt build works,
- mt build fails ending with
 base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem")

 *** - handle_fault error2 ! address = 0x1 not in [0x21dd6004,0x21f32524) !
 SIGSEGV cannot be cured. Fault address = 0x1.
 GC count: 0
 Space collected by GC: 0 0
 Run time: 0 20000
 Real time: 0 966487
 GC time: 0 0
 Permanently allocated: 110616 bytes.
 Currently in use: 2071328 bytes.
 Free space: 353816 bytes.
 ./clisp-link: line 97: 15958 Segmentation fault      "$@"
 ./clisp-link: failed in /root/clisp/build-mt
 make: *** [base] Error 1
- mt build with no dynamic modules works

However, on the 64 bit dual core fedora 11 machine
- non-mt still works
- mt now fails ending with
 base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem")
 ;; Loading file /root/clisp/build-mt/i18n/i18n.fas ...
 ;; Loaded file /root/clisp/build-mt/i18n/i18n.fas
 ;; Loading file /root/clisp/build-mt/syscalls/posix.fas ...
 ;; Loaded file /root/clisp/build-mt/syscalls/posix.fas
 ;; Loading file /root/clisp/build-mt/regexp/regexp.fas ...
 ;; Loaded file /root/clisp/build-mt/regexp/regexp.fas
 ;; Loading file /root/clisp/build-mt/readline/readline.fas ...
 *** - handle_fault error2 ! address = 0x0 not in [0x333f3c000,0x334144028) !
 SIGSEGV cannot be cured. Fault address = 0x0.
 GC count: 1
 Space collected by GC: 485856
 Run time: 0 81987
 Real time: 0 993369
 GC time: 0 4000
 Permanently allocated: 182568 bytes.
 Currently in use: 4132624 bytes.
 Free space: 6 bytes.
 ./clisp-link: line 97:  6895 Segmentation fault      "$@"
 ./clisp-link: failed in /root/clisp/build-mt
 make: *** [base] Error 1

------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel

Re: change in nightly build breakage

by Vladimir Tzankov :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

On 10/21/09, Don Cohen <don-sourceforge-xxz@...> wrote:
> I presume related to the only change since yesterday:
>  >    1. clisp/src ChangeLog, 1.7168, 1.7169 lispbibl.d, 1.895, 1.896
>  >       spvw.d, 1.513, 1.514 (Vladimir Tzankov)

Yes, this should fix some segfaults in 64bit builds. Currently the
ones I am experiencing are mostly related to clos being not thread
safe (faults happen usually when accessing/modifying hashtables that
keep clos data).

> However, on the 64 bit dual core fedora 11 machine
> - mt now fails ending with
>  base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i
> syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem
> "base/lispinit.mem")
> ...
>  ;; Loading file /root/clisp/build-mt/readline/readline.fas ...
>  *** - handle_fault error2 ! address = 0x0 not in [0x333f3c000,0x334144028)

Sorry to ask the usual question but: is this clean build? If not have
you done "make clean-modules"? I still do not know what is the problem
here and why it happens but the above has always "solved" it for me.

Vladimir

------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel

Re: change in nightly build breakage

by Don Cohen-12 :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Vladimir Tzankov writes:

 > Sorry to ask the usual question but: is this clean build? If not have
 > you done "make clean-modules"? I still do not know what is the problem
 > here and why it happens but the above has always "solved" it for me.
I guess what you want me to do is
 make clean
 make
That ends up with sigsegv
I then try
 make clean-modules
 make
and that works
Neither clean nor clean-modules is part of the nightly build.

What would you like to have in the nightly build?


------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel