From: <cli...@li...> - 2005-10-28 03:14:06
|
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 spvw_typealloc.d,1.40,1.41 ChangeLog,1.5050,1.5051 (Sam Steingold) 2. clisp/src spvw_page.d,1.10,1.11 ChangeLog,1.5051,1.5052 (Sam Steingold) 3. clisp/src lispbibl.d,1.691,1.692 ChangeLog,1.5052,1.5053 (Sam Steingold) 4. clisp/doc impext.xml,1.400,1.401 impent.xml,1.242,1.243 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_typealloc.d,1.40,1.41 ChangeLog,1.5050,1.5051 Date: Thu, 27 Oct 2005 21:38:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16517/src Modified Files: spvw_typealloc.d ChangeLog Log Message: (reallocate_small_string) [DEBUG_SPVW]: use varobject_bytelength() instead of objsize() to compile with SPVW_PURE Index: spvw_typealloc.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_typealloc.d,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- spvw_typealloc.d 11 Dec 2004 14:16:06 -0000 1.40 +++ spvw_typealloc.d 27 Oct 2005 21:38:51 -0000 1.41 @@ -226,7 +226,7 @@ global maygc object reallocate_small_string (object string, uintB newtype) { var uintL len = Sstring_length(string); # known to be > 0 #ifdef DEBUG_SPVW - var uintL size = objsize(TheSstring(string)); + var uintL size = varobject_bytelength(string); #endif pushSTACK(string); var object newstring = @@ -278,7 +278,7 @@ ptr->data = newstring; clr_break_sem_1(); # permit interrupts again #ifdef DEBUG_SPVW - if (size != objsize(TheSstring(string))) abort(); + if (size != varobject_bytelength(string)) abort(); #endif return string; } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5050 retrieving revision 1.5051 diff -u -d -r1.5050 -r1.5051 --- ChangeLog 25 Oct 2005 20:12:48 -0000 1.5050 +++ ChangeLog 27 Oct 2005 21:38:51 -0000 1.5051 @@ -1,3 +1,8 @@ +2005-10-27 Sam Steingold <sd...@gn...> + + * spvw_typealloc.d (reallocate_small_string) [DEBUG_SPVW]: use + varobject_bytelength() instead of objsize() to compile with SPVW_PURE + 2005-10-25 Yaroslav Kavenchuk <kav...@je...> Sam Steingold <sd...@gn...> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_page.d,1.10,1.11 ChangeLog,1.5051,1.5052 Date: Thu, 27 Oct 2005 22:40:05 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1370/src Modified Files: spvw_page.d ChangeLog Log Message: (oint_addr_relevant_len): define to 32 by default Index: spvw_page.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_page.d,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- spvw_page.d 25 Nov 2004 11:39:46 -0000 1.10 +++ spvw_page.d 27 Oct 2005 22:40:03 -0000 1.11 @@ -117,6 +117,10 @@ # It is unlikely that more than 4 GB will be used. #define oint_addr_relevant_len 32 #endif + #if !defined(oint_addr_relevant_len) + /* safe bet */ + #define oint_addr_relevant_len 32 + #endif #endif #define min_page_size_brutto bit(oint_addr_relevant_len/2) #define std_page_size round_down(min_page_size_brutto-sizeof_NODE-(varobject_alignment-1),sizeof(cons_)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5051 retrieving revision 1.5052 diff -u -d -r1.5051 -r1.5052 --- ChangeLog 27 Oct 2005 21:38:51 -0000 1.5051 +++ ChangeLog 27 Oct 2005 22:40:03 -0000 1.5052 @@ -2,6 +2,7 @@ * spvw_typealloc.d (reallocate_small_string) [DEBUG_SPVW]: use varobject_bytelength() instead of objsize() to compile with SPVW_PURE + * spvw_page.d (oint_addr_relevant_len): define to 32 by default 2005-10-25 Yaroslav Kavenchuk <kav...@je...> Sam Steingold <sd...@gn...> --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src lispbibl.d,1.691,1.692 ChangeLog,1.5052,1.5053 Date: Thu, 27 Oct 2005 22:55:09 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3959/src Modified Files: lispbibl.d ChangeLog Log Message: (oint_type_* &c) [AMD64]: define the same way on platforms: works on BSD* with -DNO_TRIVIALMAP -DNO_MULTIMAP_SHM -DNO_MULTIMAP_FILE -DNO_SINGLEMAP Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.691 retrieving revision 1.692 diff -u -d -r1.691 -r1.692 --- lispbibl.d 21 Oct 2005 20:11:46 -0000 1.691 +++ lispbibl.d 27 Oct 2005 22:55:06 -0000 1.692 @@ -2827,11 +2827,18 @@ #define oint_data_len 48 #define oint_data_mask 0x0000FFFFFFFFFFFFUL #endif - #if defined(AMD64) && defined(UNIX_LINUX) - # Code address range: 0x000000004xxxxxxx - # Malloc address range: 0x000000004xxxxxxx - # Shared libraries: 0x0000002A95xxxxxx - # Bits 63..48 = type code, Bits 47..0 = address + #if defined(AMD64) + /* UNIX_LINUX: + CODE_ADDRESS_RANGE 0x0000000000000000UL + MALLOC_ADDRESS_RANGE 0x0000000000000000UL + SHLIB_ADDRESS_RANGE 0x00000034F5000000UL + STACK_ADDRESS_RANGE 0x0000007FBF000000UL + UNIX_FREEBSD + CODE_ADDRESS_RANGE 0x0000000000000000UL + MALLOC_ADDRESS_RANGE 0x0000000000000000UL + SHLIB_ADDRESS_RANGE 0x0000000800000000UL + STACK_ADDRESS_RANGE 0x00007FFFFF000000UL + Bits 63..48 = type code, Bits 47..0 = address */ #define oint_type_shift 48 #define oint_type_len 16 #define oint_type_mask 0xFFFF000000000000UL Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5052 retrieving revision 1.5053 diff -u -d -r1.5052 -r1.5053 --- ChangeLog 27 Oct 2005 22:40:03 -0000 1.5052 +++ ChangeLog 27 Oct 2005 22:55:06 -0000 1.5053 @@ -3,6 +3,9 @@ * spvw_typealloc.d (reallocate_small_string) [DEBUG_SPVW]: use varobject_bytelength() instead of objsize() to compile with SPVW_PURE * spvw_page.d (oint_addr_relevant_len): define to 32 by default + * lispbibl.d (oint_type_* &c) [AMD64]: define the same way on + platforms: works on BSD* with -DNO_TRIVIALMAP -DNO_MULTIMAP_SHM + -DNO_MULTIMAP_FILE -DNO_SINGLEMAP 2005-10-25 Yaroslav Kavenchuk <kav...@je...> Sam Steingold <sd...@gn...> --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.400,1.401 impent.xml,1.242,1.243 Date: Fri, 28 Oct 2005 03:09:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18107 Modified Files: impext.xml impent.xml Log Message: (status-r): new entity Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.400 retrieving revision 1.401 diff -u -d -r1.400 -r1.401 --- impext.xml 24 Oct 2005 16:20:23 -0000 1.400 +++ impext.xml 28 Oct 2005 03:09:34 -0000 1.401 @@ -125,14 +125,15 @@ <section id="quit"><title>Quitting &clisp;</title> -<para>The functions <code>(<function>EXT:EXIT</function> - [<replaceable>errorp</replaceable>])</code>, - <code>(<function>EXT:QUIT</function> - [<replaceable>errorp</replaceable>])</code> and - <code>(<function>EXT:BYE</function> - [<replaceable>errorp</replaceable>])</code> - all synonymous - - terminate &clisp;. If <replaceable>errorp</replaceable> is non-&nil;, - &clisp; aborts with the supplied numeric error status, i.e., +<para>The functions <simplelist> + <member><code>(<function>EXT:EXIT</function> + &optional-amp; &status-r;)</code></member> + <member><code>(<function>EXT:QUIT</function> + &optional-amp; &status-r;)</code></member> + <member><code>(<function>EXT:BYE</function> + &optional-amp; &status-r;)</code></member></simplelist> + - all synonymous - terminate &clisp;. If &status-r; is non-&nil;, + &clisp; aborts with the supplied numeric error &status-r;, i.e., the OS environment is informed that the &clisp; session did not succeed.</para> @@ -4555,15 +4556,13 @@ <simpara>This is similar to &listen;, which checks only one &stream-t; and only for input, and &so-wait;, which works only with &socket-server;s.</simpara> - <simpara>We define <quote>status</quote> for a &socket-server; or a - &socket-stream; to be &error-k; if any i/o operation will cause an - &error-t;.</simpara> + <simpara>We define &status-r; for a &socket-server; or a &socket-stream; + to be &error-k; if any i/o operation will cause an &error-t;.</simpara> <simpara>Additionally, for a &socket-server;, we define - <quote>status</quote> to be &t; if a connection is available, i.e., + &status-r; to be &t; if a connection is available, i.e., is &so-accept; will not block, and &nil; otherwise.</simpara> - <para>Additionally, for a &socket-stream;, we define - <quote>status</quote> in the given &direction-r; (one of &input-k;, - &output-k;, and &io-k;) to be + <para>Additionally, for a &socket-stream;, we define &status-r; in the + given &direction-r; (one of &input-k;, &output-k;, and &io-k;) to be <variablelist id="so-status-values">&varlist-table; <title>Possible status values for various directions:</title> <varlistentry><term>&input-k; status:</term> Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.242 retrieving revision 1.243 diff -u -d -r1.242 -r1.243 --- impent.xml 20 Oct 2005 05:15:24 -0000 1.242 +++ impent.xml 28 Oct 2005 03:09:34 -0000 1.243 @@ -662,6 +662,7 @@ <!ENTITY spec-lalist-r "<replaceable>specialized-lambda-list</replaceable>"> <!ENTITY specializer-r "<replaceable>specializer</replaceable>"> <!ENTITY start-r "<replaceable>start</replaceable>"> +<!ENTITY status-r "<replaceable>status</replaceable>"> <!ENTITY stream-r "<replaceable>stream</replaceable>"> <!ENTITY string-r "<replaceable>string</replaceable>"> <!ENTITY sub-1 "<subscript>1</subscript>"> --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |