From: <cli...@li...> - 2009-05-09 12:03:14
|
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/src ChangeLog, 1.6847, 1.6848 makemake.in, 1.809, 1.810 spvw.d, 1.486, 1.487 (Sam Steingold) 2. clisp/src ChangeLog,1.6848,1.6849 lispbibl.d,1.866,1.867 (Vladimir Tzankov) 3. clisp/src constobj.d,1.210,1.211 spvw.d,1.487,1.488 (Sam Steingold) 4. clisp/src time.d,1.72,1.73 (Sam Steingold) 5. clisp/src time.d,1.72,1.73 (Sam Steingold) 6. clisp/src ChangeLog,1.6849,1.6850 time.d,1.73,1.74 (Sam Steingold) 7. clisp/src ChangeLog,1.6850,1.6851 spvw_weak.d,1.13,1.14 (Vladimir Tzankov) 8. clisp/src ChangeLog,1.6851,1.6852 spvw_garcol.d,1.130,1.131 (Vladimir Tzankov) ---------------------------------------------------------------------- Message: 1 Date: Fri, 08 May 2009 14:19:48 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog, 1.6847, 1.6848 makemake.in, 1.809, 1.810 spvw.d, 1.486, 1.487 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv2002/src Modified Files: ChangeLog makemake.in spvw.d Log Message: fix bug #[ 2788209 ]: *args* contains a mix of old args and new args * spvw.d (main_actions): reset *ARGS* when argv_execute_args is empty * makemake.in (check-exec-image): add two tests for this bug Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.486 retrieving revision 1.487 diff -u -d -r1.486 -r1.487 --- spvw.d 30 Apr 2009 21:10:25 -0000 1.486 +++ spvw.d 8 May 2009 14:19:45 -0000 1.487 @@ -3419,7 +3419,7 @@ do { pushSTACK(asciz_to_string(*execute_arg_ptr++,O(misc_encoding))); } while (--count); Symbol_value(S(args)) = listof(p->argv_execute_arg_count); - } + } else Symbol_value(S(args)) = NIL; if ((p->argv_memfile == NULL) && (p->argv_expr_count == 0)) { /* warning for beginners */ pushSTACK(var_stream(S(standard_output),strmflags_wr_ch_B)); /* auf *STANDARD-OUTPUT* */ Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.809 retrieving revision 1.810 diff -u -d -r1.809 -r1.810 --- makemake.in 4 May 2009 13:51:01 -0000 1.809 +++ makemake.in 8 May 2009 14:19:45 -0000 1.810 @@ -3086,6 +3086,10 @@ echotab "${HERE}${EXEIMG}${HEXE}"' -x "(setq zz 10) (saveinitmem \"'"${EXEIMG}"'\")"' # check that the executable image still honors -M echotab "${HERE}${EXEIMG}${HEXE} -norc -M ${EXEIMG}.mem -x zz" + # check that *ARGS* do not seep from image to image (bug #[ 2788209 ]) + echotab '$(RUN) -M lispinit.mem -x "(saveinitmem \"'"${EXEIMG}"'\" :executable t :norc t :quiet t :init-function (lambda () (prin1 *args*) (exit)))" -- a 1' + echotab "test \"\`${HERE}${EXEIMG}${HEXE} b\`\" = '(\"b\")' || exit 1" + echotab "test \"\`${HERE}${EXEIMG}${HEXE} b 2\`\" = '(\"b\" \"2\")' || exit 1" echotab "-ls -l lisp${LEXE} lispinit.mem ${EXEIMG}${HEXE} ${EXEIMG}.mem" echotab "\$(RM) ${EXEIMG}${HEXE} ${EXEIMG}.mem" echol Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6847 retrieving revision 1.6848 diff -u -d -r1.6847 -r1.6848 --- ChangeLog 7 May 2009 16:57:35 -0000 1.6847 +++ ChangeLog 8 May 2009 14:19:45 -0000 1.6848 @@ -1,3 +1,9 @@ +2009-05-07 Sam Steingold <sd...@gn...> + + fix bug #[ 2788209 ]: *args* contains a mix of old args and new args + * spvw.d (main_actions): reset *ARGS* when argv_execute_args is empty + * makemake.in (check-exec-image): add two tests for this bug + 2009-05-07 Vladimir Tzankov <vtz...@gm...> * zthread.d (thread_cleanup): fix SIGSEGV if GC happens while ------------------------------ Message: 2 Date: Fri, 08 May 2009 16:40:18 +0000 From: Vladimir Tzankov <vt...@us...> Subject: clisp/src ChangeLog,1.6848,1.6849 lispbibl.d,1.866,1.867 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv2019/src Modified Files: ChangeLog lispbibl.d Log Message: (current_thread_impl) [WIN32_THREADS]: use TlsGetValue() when exported to clisp.h Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.866 retrieving revision 1.867 diff -u -d -r1.866 -r1.867 --- lispbibl.d 7 May 2009 16:51:43 -0000 1.866 +++ lispbibl.d 8 May 2009 16:40:15 -0000 1.867 @@ -17191,7 +17191,7 @@ %% #ifdef WIN32_NATIVE %% puts("static inline clisp_thread_t *current_thread_impl() {"); %% puts("DWORD err=GetLastError();"); -%% puts("clisp_thread_t *thr=((clisp_thread_t *)xthread_key_get(current_thread_tls_key));"); +%% puts("clisp_thread_t *thr=((clisp_thread_t *)TlsGetValue(current_thread_tls_key));"); %% puts("SetLastError(err); return thr;}"); %% #endif %% #elif USE_CUSTOM_TLS == 2 Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6848 retrieving revision 1.6849 diff -u -d -r1.6848 -r1.6849 --- ChangeLog 8 May 2009 14:19:45 -0000 1.6848 +++ ChangeLog 8 May 2009 16:40:15 -0000 1.6849 @@ -1,3 +1,8 @@ +2009-05-08 Vladimir Tzankov <vtz...@gm...> + + * lispbibl.d (current_thread_impl) [WIN32_THREADS]: use TlsGetValue() + when exported to clisp.h + 2009-05-07 Sam Steingold <sd...@gn...> fix bug #[ 2788209 ]: *args* contains a mix of old args and new args ------------------------------ Message: 3 Date: Fri, 08 May 2009 18:43:28 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src constobj.d,1.210,1.211 spvw.d,1.487,1.488 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv20032/src Modified Files: constobj.d spvw.d Log Message: (C)year Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.487 retrieving revision 1.488 diff -u -d -r1.487 -r1.488 --- spvw.d 8 May 2009 14:19:45 -0000 1.487 +++ spvw.d 8 May 2009 18:43:26 -0000 1.488 @@ -1,7 +1,7 @@ /* * (SPVW = Speicherverwaltung): Memory Management for CLISP * Bruno Haible 1990-2008 - * Sam Steingold 1998-2008 + * Sam Steingold 1998-2009 * German comments translated into English: Stefan Kain 2002-03-24 Content: @@ -2206,7 +2206,7 @@ "Copyright (c) Bruno Haible, Marcus Daniels 1994-1997\n", "Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998\n", "Copyright (c) Bruno Haible, Sam Steingold 1999-2000\n", - "Copyright (c) Sam Steingold, Bruno Haible 2001-2008\n", + "Copyright (c) Sam Steingold, Bruno Haible 2001-2009\n", }; var int candles = 0; var uintL offset = (posfixnum_to_V(Symbol_value(S(prin_linelength))) >= 65 ? 0 : 20); Index: constobj.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/constobj.d,v retrieving revision 1.210 retrieving revision 1.211 diff -u -d -r1.210 -r1.211 --- constobj.d 7 May 2009 13:24:25 -0000 1.210 +++ constobj.d 8 May 2009 18:43:25 -0000 1.211 @@ -1,7 +1,7 @@ /* * list of all objects known to the C-program ("program-constants") * Bruno Haible 1990-2005 - * Sam Steingold 1998-2008 + * Sam Steingold 1998-2009 * German comments translated into English: Stefan Kain 2002-02-20 The symbols are already treated specially in CONSTSYM. ------------------------------ Message: 4 Date: Fri, 08 May 2009 18:44:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src time.d,1.72,1.73 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv20130/src Modified Files: time.d Log Message: remove last vestiges of TIME_UNIX_TIMES Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.72 retrieving revision 1.73 diff -u -d -r1.72 -r1.73 --- time.d 30 Apr 2009 21:10:25 -0000 1.72 +++ time.d 8 May 2009 18:44:13 -0000 1.73 @@ -1,7 +1,7 @@ /* * Time measuring functions for CLISP * Bruno Haible 1990-2005 - * Sam Steingold 1998-2008 + * Sam Steingold 1998-2009 * German comments and names translated into English: Reini Urban 2007-12 */ @@ -406,8 +406,10 @@ var struct tm now_local; var struct tm now_gm; begin_system_call(); - now_local = *(localtime(now)); - now_gm = *(gmtime(now)); + { struct tm now_ = localtime(now); + if (now_ == NULL) OS_error(); else now_local = *now_; } + { struct tm now_ = gmtime(now); + if (now_ == NULL) OS_error(); else now_gm = *now_; } end_system_call(); /* note that secondswest is NOT the same as mktime(&now_gm) - mktime(&now_local); @@ -473,23 +475,8 @@ } #endif /* UNIX || WIN32 */ -#ifdef TIME_UNIX_TIMES -/* Very bad replacement for the gettimeofday Function. - Only to be used for time differences! */ -local int gettimeofday (struct timeval * tp, void* tzp) -{ - if (!(tp==NULL)) { - var uintL realtime = get_real_time(); - /* convert to seconds and microseconds: */ - tp->tv_sec = floor(realtime,ticks_per_second); - tp->tv_usec = (realtime % ticks_per_second) - * floor(2*1000000+ticks_per_second,2*ticks_per_second); - } - return 0; -} -#endif LISPFUNN(sleep,2) -#if defined(TIME_UNIX) || defined(TIME_UNIX_TIMES) +#if defined(TIME_UNIX) { /* (SYSTEM::%SLEEP delay-seconds delay-useconds) waits delay-seconds and delay-useconds microseconds. Argument delay-seconds must be a fixnum >=0, <=16700000, @@ -577,10 +564,6 @@ Real-Time (system time since system start) in 2 values, Run-Time (used lisp time since system start) in 2 values, GC-Time (time in GC since system start) in 2 values, - #ifdef TIME_UNIX_TIMES - in CLK_TCK-stel seconds, - (ldb (byte 16 16) time) and (ldb (byte 16 0) time). - #endif #ifdef TIME_UNIX in microseconds, in whole seconds and microseconds. ------------------------------ Message: 5 Date: Fri, 08 May 2009 18:56:47 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src time.d,1.72,1.73 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv21532/src Modified Files: time.d Log Message: remove the last vestiges of TIME_UNIX_TIMES Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.72 retrieving revision 1.73 diff -u -d -r1.72 -r1.73 --- time.d 30 Apr 2009 21:10:25 -0000 1.72 +++ time.d 8 May 2009 18:56:45 -0000 1.73 @@ -1,7 +1,7 @@ /* * Time measuring functions for CLISP * Bruno Haible 1990-2005 - * Sam Steingold 1998-2008 + * Sam Steingold 1998-2009 * German comments and names translated into English: Reini Urban 2007-12 */ @@ -473,23 +473,8 @@ } #endif /* UNIX || WIN32 */ -#ifdef TIME_UNIX_TIMES -/* Very bad replacement for the gettimeofday Function. - Only to be used for time differences! */ -local int gettimeofday (struct timeval * tp, void* tzp) -{ - if (!(tp==NULL)) { - var uintL realtime = get_real_time(); - /* convert to seconds and microseconds: */ - tp->tv_sec = floor(realtime,ticks_per_second); - tp->tv_usec = (realtime % ticks_per_second) - * floor(2*1000000+ticks_per_second,2*ticks_per_second); - } - return 0; -} -#endif LISPFUNN(sleep,2) -#if defined(TIME_UNIX) || defined(TIME_UNIX_TIMES) +#if defined(TIME_UNIX) { /* (SYSTEM::%SLEEP delay-seconds delay-useconds) waits delay-seconds and delay-useconds microseconds. Argument delay-seconds must be a fixnum >=0, <=16700000, @@ -577,10 +562,6 @@ Real-Time (system time since system start) in 2 values, Run-Time (used lisp time since system start) in 2 values, GC-Time (time in GC since system start) in 2 values, - #ifdef TIME_UNIX_TIMES - in CLK_TCK-stel seconds, - (ldb (byte 16 16) time) and (ldb (byte 16 0) time). - #endif #ifdef TIME_UNIX in microseconds, in whole seconds and microseconds. ------------------------------ Message: 6 Date: Fri, 08 May 2009 21:09:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6849,1.6850 time.d,1.73,1.74 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17416/src Modified Files: ChangeLog time.d Log Message: fix bug #[ 2787617 ] Segfault on encode-universal-time on Windows (seconds_west): check localtime() & gmtime() return values Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6849 retrieving revision 1.6850 diff -u -d -r1.6849 -r1.6850 --- ChangeLog 8 May 2009 16:40:15 -0000 1.6849 +++ ChangeLog 8 May 2009 21:09:18 -0000 1.6850 @@ -1,3 +1,8 @@ +2009-05-08 Sam Steingold <sd...@gn...> + + fix bug #[ 2787617 ] Segfault on encode-universal-time on Windows + * time.d (seconds_west): check localtime() & gmtime() return values + 2009-05-08 Vladimir Tzankov <vtz...@gm...> * lispbibl.d (current_thread_impl) [WIN32_THREADS]: use TlsGetValue() Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.73 retrieving revision 1.74 diff -u -d -r1.73 -r1.74 --- time.d 8 May 2009 18:56:45 -0000 1.73 +++ time.d 8 May 2009 21:09:18 -0000 1.74 @@ -406,8 +406,10 @@ var struct tm now_local; var struct tm now_gm; begin_system_call(); - now_local = *(localtime(now)); - now_gm = *(gmtime(now)); + { struct tm now_ = localtime(now); + if (now_ == NULL) OS_error(); else now_local = *now_; } + { struct tm now_ = gmtime(now); + if (now_ == NULL) OS_error(); else now_gm = *now_; } end_system_call(); /* note that secondswest is NOT the same as mktime(&now_gm) - mktime(&now_local); ------------------------------ Message: 7 Date: Sat, 09 May 2009 06:50:35 +0000 From: Vladimir Tzankov <vt...@us...> Subject: clisp/src ChangeLog,1.6850,1.6851 spvw_weak.d,1.13,1.14 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv6160/src Modified Files: ChangeLog spvw_weak.d Log Message: (activate_weak) [MULTITHREAD]: fix gcsafety. do not allow GC while waiting on all_weakpointers_lock Index: spvw_weak.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_weak.d,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- spvw_weak.d 30 Apr 2009 21:24:36 -0000 1.13 +++ spvw_weak.d 9 May 2009 06:50:33 -0000 1.14 @@ -1038,9 +1038,10 @@ if (weak_must_activate(obj)) { #ifdef MULTITHREAD /* this is the only place where all_weakpointers_lock is used. - since we cannot GC here (not we call and blocking system call) - - no way to block the GC. */ - GC_SAFE_MUTEX_LOCK(&all_weakpointers_lock); + we do not allow GC here (no GC safe region) !*/ + begin_system_call(); + xmutex_lock(&all_weakpointers_lock); + end_system_call(); #endif /* Ensure that markwatchset has enough room for the next GC. */ var uintL need = 1 + max_watchset_count(obj); @@ -1064,7 +1065,9 @@ ((Weakpointer)TheRecord(obj))->wp_cdr = O(all_weakpointers); O(all_weakpointers) = obj; #ifdef MULTITHREAD - GC_SAFE_MUTEX_UNLOCK(&all_weakpointers_lock); + begin_system_call(); + xmutex_unlock(&all_weakpointers_lock); + end_system_call(); #endif } } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6850 retrieving revision 1.6851 diff -u -d -r1.6850 -r1.6851 --- ChangeLog 8 May 2009 21:09:18 -0000 1.6850 +++ ChangeLog 9 May 2009 06:50:33 -0000 1.6851 @@ -1,3 +1,8 @@ +2009-05-09 Vladimir Tzankov <vtz...@gm...> + + * spvw_weak.d (activate_weak) [MULTITHREAD]: fix gcsafety. do not allow + GC while waiting on all_weakpointers_lock + 2009-05-08 Sam Steingold <sd...@gn...> fix bug #[ 2787617 ] Segfault on encode-universal-time on Windows ------------------------------ Message: 8 Date: Sat, 09 May 2009 06:55:42 +0000 From: Vladimir Tzankov <vt...@us...> Subject: clisp/src ChangeLog,1.6851,1.6852 spvw_garcol.d,1.130,1.131 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv6742/src Modified Files: ChangeLog spvw_garcol.d Log Message: (SPLIT_REF_LISTS): use alive() Index: spvw_garcol.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_garcol.d,v retrieving revision 1.130 retrieving revision 1.131 diff -u -d -r1.130 -r1.131 --- spvw_garcol.d 25 Apr 2009 22:03:52 -0000 1.130 +++ spvw_garcol.d 9 May 2009 06:55:40 -0000 1.131 @@ -1857,8 +1857,7 @@ var gcv_object_t* L1 = &ref_items; \ var gcv_object_t* L2 = &noref_items; \ while (consp(Lu)) { \ - if (in_old_generation(Car(Lu),stream_type,0) \ - || marked(type_accessor(Car(Lu))) \ + if (alive(Car(Lu)) \ || condition) { \ *L1 = Lu; L1 = &Cdr(Lu); Lu = *L1; \ } else { \ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6851 retrieving revision 1.6852 diff -u -d -r1.6851 -r1.6852 --- ChangeLog 9 May 2009 06:50:33 -0000 1.6851 +++ ChangeLog 9 May 2009 06:55:40 -0000 1.6852 @@ -1,5 +1,10 @@ 2009-05-09 Vladimir Tzankov <vtz...@gm...> + * spvw_garcol.d (SPLIT_REF_LISTS): use alive(). fixes collection of + thread/mutex/exemption records with SPVW_PURE + +2009-05-09 Vladimir Tzankov <vtz...@gm...> + * spvw_weak.d (activate_weak) [MULTITHREAD]: fix gcsafety. do not allow GC while waiting on all_weakpointers_lock ------------------------------ ------------------------------------------------------------------------------ The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your production scanning environment may not be a perfect world - but thanks to Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700 Series Scanner you'll get full speed at 300 dpi even with all image processing features enabled. http://p.sf.net/sfu/kodak-com ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 37, Issue 3 **************************************** |