From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Halton Huo Newsgroups: gmane.lisp.guile.bugs Subject: build fail with sun cc Date: Tue, 27 Mar 2007 23:56:55 +0800 Message-ID: <1175011015.14536.2.camel@localhost> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og)" X-Trace: sea.gmane.org 1175095055 11830 80.91.229.12 (28 Mar 2007 15:17:35 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 28 Mar 2007 15:17:35 +0000 (UTC) To: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Mar 28 17:17:28 2007 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HWZtp-0002Cf-O3 for guile-bugs@m.gmane.org; Wed, 28 Mar 2007 17:17:22 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HWZwJ-0000EU-3I for guile-bugs@m.gmane.org; Wed, 28 Mar 2007 10:19:55 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HWE53-0003EG-VD for bug-guile@gnu.org; Tue, 27 Mar 2007 11:59:30 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HWE52-0003CO-1k for bug-guile@gnu.org; Tue, 27 Mar 2007 11:59:29 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HWE51-0003CL-RI for bug-guile@gnu.org; Tue, 27 Mar 2007 10:59:27 -0500 Original-Received: from sineb-mail-2.sun.com ([192.18.19.7]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1HWE2d-00033x-VD for bug-guile@gnu.org; Tue, 27 Mar 2007 11:57:00 -0400 Original-Received: from fe-apac-06.sun.com (fe-apac-06.sun.com [192.18.19.177] (may be forged)) by sineb-mail-2.sun.com (8.13.6+Sun/8.12.9) with ESMTP id l2RFuoJO008648 for ; Tue, 27 Mar 2007 15:56:55 GMT Original-Received: from conversion-daemon.mail-apac.sun.com by mail-apac.sun.com (Sun Java System Messaging Server 6.2-6.01 (built Apr 3 2006)) id <0JFK00F01K6F0T00@mail-apac.sun.com> (original mail from Halton.Huo@Sun.COM) for bug-guile@gnu.org; Tue, 27 Mar 2007 23:56:50 +0800 (SGT) Original-Received: from [129.156.226.170] by mail-apac.sun.com (Sun Java System Messaging Server 6.2-6.01 (built Apr 3 2006)) with ESMTPSA id <0JFK00666KAOW939@mail-apac.sun.com> for bug-guile@gnu.org; Tue, 27 Mar 2007 23:56:50 +0800 (SGT) X-Mailer: Evolution 2.9.92 X-detected-kernel: Solaris 10 (beta) X-Mailman-Approved-At: Wed, 28 Mar 2007 11:19:35 -0400 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:3486 Archived-At: --Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og) Content-type: text/plain Content-transfer-encoding: 7BIT sun cc will build fail, just offer two patches to let sun cc build pass. --Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og) Content-type: text/x-patch; charset=UTF-8; name=guile-01-suncc-inline.diff Content-transfer-encoding: 7BIT Content-disposition: attachment; filename=guile-01-suncc-inline.diff --- guile-1.8.1/libguile/numbers.c.orig 2007-03-22 17:46:53.913105000 +0800 +++ guile-1.8.1/libguile/numbers.c 2007-03-22 17:47:09.790497000 +0800 @@ -183,7 +183,11 @@ +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_mkbig () { /* Return a newly created bignum. */ @@ -192,7 +196,11 @@ return z; } +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_long2big (long x) { /* Return a newly created bignum initialized to X. */ @@ -201,7 +209,11 @@ return z; } +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_ulong2big (unsigned long x) { /* Return a newly created bignum initialized to X. */ @@ -210,7 +222,11 @@ return z; } +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_clonebig (SCM src_big, int same_sign_p) { /* Copy src_big's value, negate it if same_sign_p is false, and return. */ @@ -231,7 +247,11 @@ return result; } +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_dbl2big (double d) { /* results are only defined if d is an integer */ --- guile-1.8.1/libguile/inline.h.orig 2007-03-22 17:46:58.568383000 +0800 +++ guile-1.8.1/libguile/inline.h 2007-03-22 17:54:51.422844000 +0800 @@ -38,12 +38,14 @@ #include "libguile/pairs.h" +#ifdef __GNUC__ SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr); SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr, scm_t_bits ccr, scm_t_bits cdr); SCM_API SCM scm_array_handle_ref (scm_t_array_handle *h, ssize_t pos); SCM_API void scm_array_handle_set (scm_t_array_handle *h, ssize_t pos, SCM val); +#endif #if defined SCM_C_INLINE || defined SCM_INLINE_C_INCLUDING_INLINE_H @@ -59,10 +61,10 @@ /* definitely inlining */ #ifdef __GNUC__ extern +SCM_C_INLINE #else static #endif -SCM_C_INLINE #endif SCM scm_cell (scm_t_bits car, scm_t_bits cdr) @@ -135,10 +137,10 @@ /* definitely inlining */ #ifdef __GNUC__ extern +SCM_C_INLINE #else static #endif -SCM_C_INLINE #endif SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr, @@ -210,10 +212,10 @@ /* definitely inlining */ #ifdef __GNUC__ extern +SCM_C_INLINE #else static #endif -SCM_C_INLINE #endif SCM scm_array_handle_ref (scm_t_array_handle *h, ssize_t p) @@ -225,10 +227,10 @@ /* definitely inlining */ #ifdef __GNUC__ extern +SCM_C_INLINE #else static #endif -SCM_C_INLINE #endif void scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v) @@ -240,10 +242,10 @@ /* definitely inlining */ #ifdef __GNUC__ extern +SCM_C_INLINE #else static #endif -SCM_C_INLINE #endif int scm_is_pair (SCM x) --- guile-1.8.1/libguile/strings.c.orig 2007-03-22 17:47:02.616411000 +0800 +++ guile-1.8.1/libguile/strings.c 2007-03-22 17:47:09.801582000 +0800 @@ -124,7 +124,11 @@ /* Return a new stringbuf whose underlying storage consists of the LEN+1 octets pointed to by STR (the last octet is zero). */ +#ifdef __GNUC__ SCM_C_INLINE_KEYWORD SCM +#else +SCM +#endif scm_i_take_stringbufn (char *str, size_t len) { scm_gc_register_collectable_memory (str, len + 1, "stringbuf"); --- guile-1.8.1/libguile/pairs.h.orig 2007-03-22 17:55:15.533768000 +0800 +++ guile-1.8.1/libguile/pairs.h 2007-03-22 17:57:42.877947000 +0800 @@ -78,7 +78,9 @@ SCM_API void scm_error_pair_access (SCM); #endif +#ifdef __GNUC__ SCM_API int scm_is_pair (SCM x); +#endif SCM_API SCM scm_cons (SCM x, SCM y); SCM_API SCM scm_cons2 (SCM w, SCM x, SCM y); --Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og) Content-type: text/x-patch; charset=UTF-8; name=guile-02-var-imaginary.diff Content-transfer-encoding: 7BIT Content-disposition: attachment; filename=guile-02-var-imaginary.diff --- guile-1.8.1/libguile/numbers.c.orig1 2007-03-21 12:29:49.931031000 +0800 +++ guile-1.8.1/libguile/numbers.c 2007-03-21 12:30:00.503712000 +0800 @@ -5336,13 +5336,13 @@ } SCM_DEFINE (scm_make_rectangular, "make-rectangular", 2, 0, 0, - (SCM real, SCM imaginary), + (SCM real, SCM imaginary1), "Return a complex number constructed of the given @var{real} and\n" - "@var{imaginary} parts.") + "@var{imaginary1} parts.") #define FUNC_NAME s_scm_make_rectangular { struct dpair xy; - scm_two_doubles (real, imaginary, FUNC_NAME, &xy); + scm_two_doubles (real, imaginary1, FUNC_NAME, &xy); return scm_c_make_rectangular (xy.x, xy.y); } #undef FUNC_NAME --Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og) Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://lists.gnu.org/mailman/listinfo/bug-guile --Boundary_(ID_KYfZ/CiGq6iyYwUCPWc+Og)--