guile-1.8.0 on HP-UX 11.23/IA-64

[Albert Chin]

I tried compiling guile-1.8.0 on HP-UX 11.23/IA-64 with the HP-UX C
compiler. It compiles fine on HP-UX 11.23/PA-RISC. On IA-64, it fails:
 cc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -I/opt/TWWfsw/libtool15/include 
-I/opt/TWWfsw/libgmp42/include -D_REENTRANT -mthreads -g -c environments.c  
-DPIC -o .libs/libguile_la-environments.o
cc: warning 901: unknown option: `-hreads': use +help for online documentation. 
"environments.c", line 146: warning #2940-D: missing return statement at end
          of non-void function "scm_environment_ref"
  }
  ^

"environments.c", line 253: warning #2940-D: missing return statement at end
          of non-void function "scm_environment_define"
  }
  ^

"environments.c", line 279: warning #2940-D: missing return statement at end
          of non-void function "scm_environment_undefine"
  }
  ^

"environments.c", line 309: warning #2940-D: missing return statement at end
          of non-void function "scm_environment_set_x"
  }
  ^

"environments.c", line 344: warning #2940-D: missing return statement at end
          of non-void function "scm_environment_cell"
  }
  ^

"environments.c", line 692: error #2042: operand types are incompatible ("void"
          and "SCM")
                : SCM_SET_CORE_ENVIRONMENT_OBSERVERS (env, rest);
                ^

1 error detected in the compilation of "environments.c".

Passing this through -E, the problematic line expands to:
          if ((((scm_t_bits) (0? (*(SCM*)0=(first)): first)) == ((scm_t_bits) 
(0 ? (*(SCM*)0=(observer)): observer))))
            {
               
              handling_weaks
                ? (scm_c_vector_set_x ((((struct core_environments_base *) 
((((scm_t_bits) (0? (*(SCM*)0=((((SCM *)((scm_t_cell *) (((scm_t_bits) (0? 
(*(SCM*)0=((((env))))): (((env)))))))) [((1))]))): (((SCM *)((scm_t_cell *) 
(((scm_t_bits)(0? (*(SCM*)0=((((env))))): (((env)))))))) 
[((1))]))))))->weak_observers), 0, (rest)))
                : ((((struct core_environments_base *) ((((scm_t_bits) (0? 
(*(SCM*)0=((((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((env))))): 
(((env)))))))) [((1))]))): (((SCM *)((scm_t_cell *) (((scm_t_bits) (0? 
(*(SCM*)0=((((env))))): (((env)))))))) [((1))]))))))->observers) = (rest));
              return;
            }

I then rebuilt with gcc-3.4.3 and got as far as the following:
 gcc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -I/opt/TWWfsw/libtool15/include 
-I/opt/TWWfsw/libgmp42/include -D_REENTRANT -pthread -g -Wall 
-Wmissing-prototypes -Werror -c async.c  -DPIC -o .libs/libguile_la-async.o
async.c:139: warning: missing braces around initializer
async.c:139: warning: (near initialization for `async_mutex.m_short')
gmake[2]: *** [libguile_la-async.lo] Error 1

Passing this through -E, the problematic line expands to:
  static pthread_mutex_t async_mutex = { 0x36, 0, (0x80 | 0x1), 1, 1, 1, 1, 0, 
((void *) 1L), 1, 0, 0, 0, -1, 0, 0, 2368, 0, 1, 1, 1, 1, 0, 0 };
and pthread_mutex_t on this platform is:
  struct pthread_mutex {
    short m_short[2];
    int   m_int;
    int   m_int1[4];
    int   m_pad;
    void *m_ptr;
    int   m_int2[2];
    int   m_int3[4];
    short m_short2[2];
    int   m_int4[5];
    int   m_int5[2];
  };

  typedef struct pthread_mutex pthread_mutex_t;

Rebuilding with --without-threads and GCC, the build errors out
further with:
 gcc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -I/opt/TWWfsw/libtool15/include 
-I/opt/TWWfsw/libgmp42/include -g -Wall -Wmissing-prototypes -Werror -c 
continuations.c  -DPIC -o .libs/libguile_la-continuations.o
continuations.c: In function `scm_make_continuation':
continuations.c:147: error: structure has no member named `sc_ar_bsp'

This is the bigger problem. The getcontext() stuff for Linux/IA-64 is
not compatible with HP-UX/IA-64 (Ruby has problems with this as well).
We'll will to pay someone to solve this if anyone wants to attempt it.

BTW, HP-UX cc defines __ia64 and not __ia64__. GCC defines both __ia64
and __ia64__.

-- 
albert chin (address@hidden)