RE: [Axiom-developer] latest GCL problem

[Page, Bill]

Tim, 

You seem to be missing Camm's patches. See attached email sent
to you by Camm on Tuesday, August 15, 2006 6:19 PM.

Regards,
Bill Page.

On Monday, August 21, 2006 2:58 PM you wrote:
> 
> I've been trying to build Axiom with the latest gcl-2.6.8pre checkout.
> 
> It fails when trying to compile the file in 
>   src/interp/sockio.lisp.pamphlet
> 
> specifically it fails with:
> 
> ==============================================================
> ==========
> 118 making /tmp/axiom49/int/interp/sockio.lisp from 
> /tmp/axiom49/src/interp/sockio.lisp.pamphlet
> 117 making /tmp/axiom49/obj/linux/interp/sockio.o from 
> /tmp/axiom49/int/interp/sockio.lisp
> 
> >
> Compiling /tmp/axiom49/int/interp/sockio.lisp.
> End of Pass 1.  
> End of Pass 2.  
> /tmp/axiom49/obj/linux/interp/sockio.c:5139: conflicting 
> types for `sock_get_float'
> /tmp/axiom49/obj/linux/interp/sockio.h:46: previous 
> declaration of `sock_get_float'
> 
> Error: (SYSTEM "gcc -c -I/usr/X11R6/include -Wall 
> -DVOL=volatile -fsigned-char -pipe  
> -I/tmp/axiom49/lsp/gcl-2.6.8pre2/unixport/../h  -O3 
> -fomit-frame-pointer -c 
> \"/tmp/axiom49/obj/linux/interp/sockio.c\" -o 
> \"/tmp/axiom49/obj/linux/interp/sockio.o\" -w") returned a 
> non-zero value 0.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by UNLESS.
> Broken at APPLY.  Type :H for Help.
> BOOT>>make[3]: *** [/tmp/axiom49/obj/linux/interp/sockio.o] Error 255
> make[3]: Leaving directory `/tmp/axiom49/src/interp'
> make[2]: *** [interpdir] Error 2
> make[2]: Leaving directory `/tmp/axiom49/src'
> make[1]: *** [srcdir] Error 2
> make[1]: Leaving directory `/tmp/axiom49'
> make: *** [all] Error 2
> ==============================================================
> ==========
> 
> 
> which is generated from the lines:
> 
> ==============================================================
> ==========
> #+KCL
> (progn
>   (clines "extern double plus_infinity(), minus_infinity(), NANQ();")
>   (clines "extern double sock_get_float();")
>   (defentry open_server (string) (int "open_server"))
>   (defentry sock_get_int (int) (int "sock_get_int"))
>   (defentry sock_send_int (int int) (int "sock_send_int"))
>   (defentry sock_get_string_buf (int string int) (int 
> "sock_get_string_buf"))
>   (defentry sock_send_string_len (int string int) (int 
> "sock_send_string_len"))
>   (defentry sock_get_float (int) (float "sock_get_float"))
>   (defentry sock_send_float (int float) (int "sock_send_float"))
>   (defentry sock_send_wakeup (int int) (int "sock_send_wakeup"))
>   (defentry server_switch () (int "server_switch"))
>   (defentry flush_stdout () (int "flush_stdout"))
>   (defentry sock_send_signal (int int) (int "sock_send_signal"))
>   (defentry print_line (string) (int "print_line"))
>   (defentry plus_infinity () (double "plus_infinity"))
>   (defentry minus_infinity () (double "minus_infinity"))
>   (defentry NANQ () (double "NANQ"))
>   )
> 
> ==============================================================
> ==========


 

-----Original Message-----
From: Camm Maguire [mailto:address@hidden 
Sent: Tuesday, August 15, 2006 6:19 PM
To: address@hidden
Cc: address@hidden; address@hidden;
address@hidden; address@hidden; address@hidden
Subject: Re: NULL_OR_ON_C_STACK macro invalid (was: noweb)

Greetings!

--- axiom-20050901.orig/src/interp/cfuns.lisp.pamphlet
+++ axiom-20050901/src/interp/cfuns.lisp.pamphlet
@@ -103,10 +103,10 @@
 
 #+(AND KCL (NOT ELF))
 (Clines
-"unsigned int MYCOMBINE(i,j)"
-"unsigned int i,j;"
+"int MYCOMBINE(i,j)"
+"int i,j;"
 "{"
-"return ( (((j & 16777215) << 6)+i) % 1073741789);"
+"return ( (((((unsigned int)j) & 16777215) << 6)+((unsigned int)i)) %
1073741789);"
 "}"
 )
 #+(AND KCL (NOT ELF))
--- axiom-20050901.orig/src/interp/hash.lisp.pamphlet
+++ axiom-20050901/src/interp/hash.lisp.pamphlet
@@ -81,7 +81,7 @@
 (define-function 'HASHTABLE-CLASS #'system::hash-table-test)
 
 #+AKCL
-(clines "static int mem_value(x ,i)object x;int i; { return ((short
*)x)[i];}")
+(clines "int mem_value(x ,i)object x;int i; { return ((short
*)x)[i];}")
 #+AKCL
 (defentry memory-value-short(object int) (int "mem_value"))
 
--- axiom-20050901.orig/src/interp/sockio.lisp.pamphlet
+++ axiom-20050901/src/interp/sockio.lisp.pamphlet
@@ -78,7 +78,7 @@
   (defentry sock_send_int (int int) (int "sock_send_int"))
   (defentry sock_get_string_buf (int string int) (int
"sock_get_string_buf"))
   (defentry sock_send_string_len (int string int) (int
"sock_send_string_len"))
-  (defentry sock_get_float (int) (float "sock_get_float"))
+  (defentry sock_get_float (int) (double "sock_get_float"))
   (defentry sock_send_float (int float) (int "sock_send_float"))
   (defentry sock_send_wakeup (int int) (int "sock_send_wakeup"))
   (defentry server_switch () (int "server_switch"))


Please let me know if there is any problem with these.

Take care,

root <address@hidden> writes:

> Camm,
> 
> > I had to make the following modifications to 20050901 to work with
the
> > latest 2.6.8pre:
> 
> Axiom has had several releases since 20050901.
> What do we need to do to bring it up to date?
> 
> t
> 
> 
> 

-- 
Camm Maguire
address@hidden
========================================================================
==
"The earth is but one country, and mankind its citizens."  --
Baha'u'llah