Hello community, here is the log from the commit of package clisp for openSUSE:Factory checked in at 2013-04-05 07:26:48 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/clisp (Old) and /work/SRC/openSUSE:Factory/.clisp.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "clisp", Maintainer is "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/clisp/clisp.changes 2012-11-29 09:22:12.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.clisp.new/clisp.changes 2013-04-05 07:32:28.000000000 +0200 @@ -1,0 +2,7 @@ +Wed Apr 3 17:35:18 UTC 2013 - [email protected] + +- src/socket.d (get_hostname): turn into a function and allocate the + array in the caller to support gcc 4.7 [patch#3474660] + fixes ppc socket.d failing test. (clisp-hostname.patch) + +------------------------------------------------------------------- New: ---- clisp-hostname.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ clisp.spec ++++++ --- /var/tmp/diff_new_pack.fpAfWA/_old 2013-04-05 07:33:16.000000000 +0200 +++ /var/tmp/diff_new_pack.fpAfWA/_new 2013-04-05 07:33:16.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package clisp # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -64,6 +64,8 @@ Patch11: fix-build-in-qemu.patch Patch12: clisp-linux.patch Patch13: clisp-glibc-fix.patch +#PATCH-FIX-UPSTREAM patch#3474660 changeset 15557 4f5985f83127 +Patch14: clisp-hostname.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build %global vimdir %{_datadir}/vim/site/after/syntax %global xarch ppc64 s390x armv4l @@ -113,6 +115,7 @@ %if 0%{?suse_version} > 1220 %patch13 -p1 -b .glibc %endif +%patch14 -p0 %build # ++++++ clisp-hostname.patch ++++++ --- src/socket.d.orig 2009-10-08 08:45:13.000000000 -0600 +++ src/socket.d 2012-01-12 11:22:24.701723636 -0700 @@ -57,8 +57,8 @@ /* ============ hostnames and IP addresses only (no sockets) ============ Fetches the machine's host name. - get_hostname(host =); - The name is allocated on the stack, with dynamic extent. + get_hostname(hostname); + where hostname is an array of MAXHOSTNAMELEN+1 characters. < const char* host: The host name. (Note: In some cases we could get away with less system calls by simply setting @@ -67,13 +67,12 @@ sds: never: you will always get localhost/127.0.0.1 - what's the point? */ #if defined(HAVE_GETHOSTNAME) /* present on all supported unix systems and on woe32 */ - #define get_hostname(host_assignment) \ - do { var char hostname[MAXHOSTNAMELEN+1]; \ + #define get_hostname(hostname) \ + do { \ begin_system_call(); \ if ( gethostname(&hostname[0],MAXHOSTNAMELEN) <0) { SOCK_error(); } \ end_system_call(); \ hostname[MAXHOSTNAMELEN] = '\0'; \ - host_assignment &hostname[0]; \ } while(0) #else #error get_hostname is not defined @@ -207,8 +206,8 @@ LISPFUNN(machine_instance,0) (if (or (null address) (zerop (length address))) hostname (apply #'string-concat hostname " [" (inet-ntop address) "]"))) */ - var const char* host; - get_hostname(host =); + var char host[MAXHOSTNAMELEN+1]; + get_hostname(host); result = asciz_to_string(host,O(misc_encoding)); /* hostname as result */ #ifdef HAVE_GETHOSTBYNAME pushSTACK(result); /* hostname as 1st string */ @@ -389,8 +388,8 @@ local int resolve_host1 (const void* add modexp struct hostent* resolve_host (object arg) { var struct hostent* he; if (eq(arg,S(Kdefault))) { - var char* host; - get_hostname(host =); + var char host[MAXHOSTNAMELEN+1]; + get_hostname(host); begin_system_call(); he = gethostbyname(host); end_system_call(); @@ -724,8 +723,9 @@ global SOCKET connect_to_x_server (const if (conntype == conn_tcp) { var unsigned short port = X_TCP_PORT+display; if (host[0] == '\0') { - get_hostname(host =); - fd = with_host_port(host,port,&connect_to_x_via_ip,NULL); + var char hostname[MAXHOSTNAMELEN+1]; + get_hostname(hostname); + fd = with_host_port(hostname,port,&connect_to_x_via_ip,NULL); } else { fd = with_host_port(host,port,&connect_to_x_via_ip,NULL); } @@ -798,8 +798,8 @@ global host_data_t * socket_getlocalname if (socket_getlocalname_aux(socket_handle,hd) == NULL) return NULL; if (resolve_p) { /* Fill in hd->truename. */ - var const char* host; - get_hostname(host =); /* was: host = "localhost"; */ + var char host[MAXHOSTNAMELEN+1]; + get_hostname(host); /* was: host = "localhost"; */ ASSERT(strlen(host) <= MAXHOSTNAMELEN); strcpy(hd->truename,host); } else { -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
