Re: Fix for _Complex_I problems

[Rainer Tammer]

Hello,


Neil Jerram wrote:
> You've both recently reported a compilation problem with _Complex_I,
> compiling with GCC on Solaris and AIX.
>
> My proposed fix for this is attached; please can you review and let me
> know if you have any comments?
>
>   
OK, I have tested the second patch on AIX 6.1
> (Should I also attach the regenerated ./configure, so you can run that
> and check that it gives the expected result on your OSs?)
>
>   

I had to regenerate the configure scripts with the latest 
autoconf/automake/libtool/config.guess because of AIX 6.1.

This is my configure call:

export CONFIG_SHELL=/usr/bin/bash
export CONFIG_ENV_ARGS=/usr/bin/bash
export CC=gcc
export CXX=g++
export PATH=/opt/freeware/bin:$PATH
export LDFLAGS=-Wl,-brtl
export CFLAGS="-fno-strict-aliasing -D_USE_IRS"

./configure --enable-dynamic-linking --prefix=/opt/freeware 
--enable-shared --disable-static > configure.log 2>&1


Furthermore I had to fix this:

libguile/srfi-14.c:  redefined ->  #define _GNU_SOURCE   -> config.h
libguile/posix.c:  redefined ->  #define _GNU_SOURCE   -> config.h
libguile/Makefile:  @LTLIBINTL@ gets not replaced with -lintl


This is the result of the make check:

gmake  check-TESTS
gmake[4]: Entering directory 
`/daten/source/guile-1.8.3/test-suite/standalone'
PASS: test-system-cmds
PASS: test-require-extension
PASS: test-num2integral
PASS: test-round
PASS: test-gh
PASS: test-asmobs
PASS: test-list
PASS: test-unwind
PASS: test-conversion
Backtrace:
In unknown file:
  ?: 117  [resolve-interface (ice-9 debug)]
    ...
  ?: 118  (let* (# # # # ...) (and # #) (if # public-i #))
  ?: 119* [resolve-module (ice-9 debug)]
  ?: 120  (let* ((full-name #)) (let* (#) (if already # #)))
  ?: 121  (let* ((already #)) (if already (if # # already) (begin # #)))
  ?: 122* [nested-ref #<module (guile) 2006e130> (%app modules ice-9 
debug)]
  ?: 123  [loop #<module (guile) 2006e130> (%app modules ice-9 debug)]
    ...
  ?: 124  [loop ...
  ?: 125*  [module-ref #<module (guile) 2006e130> %app #f]
  ?: 126   (let* ((variable #)) (if (and variable #) (variable-ref 
variable) ...))
  ?: 127*  [module-variable #<module (guile) 2006e130> %app]
  ?: 128   [module-search #<procedure module-local-variable #> # %app]
     ...
  ?: 129   (or (fn m v) (loop (module-uses m)))
  ?: 130*  [module-local-variable #<module (guile) 2006e130> %app]
  ?: 131   (let* ((b #)) (or (and # b) (and # #)))
  ?: 132*  [module-obarray-ref ...
  ?: 133*   [module-obarray #<module (guile) 2006e130>]
  ?: 134    (if (eq? # #) (struct-ref obj 0) (%record-type-error # obj))
  ?: 135*   [eq? ...
  ?: 136*    (struct-vtable obj)

<unnamed port>: In expression (struct-vtable obj):
<unnamed port>: Stack overflow
guile --user-srfi=1,10 fails to run
FAIL: test-use-srfi
==================================
1 of 10 tests failed
Please report to address@hidden
==================================
gmake[4]: *** [check-TESTS] Error 1

I am not sure why this fails now ... never had this problem.

> Thanks,
>         Neil
>
>   

Bye
 Rainer