Re: Guile HEAD on Cygwin-1.7

[szgyg <szgyg@ludens.elte.hu>]

Andy Wingo wrote:
> On Thu 18 Jun 2009 09:33, szgyg writes:
> 
>> ** wrong path when compiling psyntax-pp.scm
>>
>> First time only
>>
>> Making all in module
>> make[2]: Entering directory `/home/szgyg/src/GIT/guile/=build/module'
>> /home/szgyg/src/GIT/guile/=build/meta/guile --no-autocompile -s 
>> ../../module/ice-9/compile-psyntax.scm \
>>                 ../../module/ice-9/psyntax.scm
>> ../../module/ice-9/psyntax-pp.scm
>> GUILE_AUTO_COMPILE=0 ../meta/uninstalled-env guile-tools compile -o 
>> "ice-9/psyntax-pp.go" "ice-9/psyntax-pp.scm"
>> ERROR: In procedure open-file:
>> ERROR: No such file or directory: "ice-9/psyntax-pp.scm"
>> make[2]: *** [ice-9/psyntax-pp.go] Error 1
>>
>> Subsequent makes use the correct path:
>>
>> Making all in module
>> make[2]: Entering directory `/home/szgyg/src/GIT/guile/=build/module'
>> GUILE_AUTO_COMPILE=0 ../meta/uninstalled-env guile-tools compile -o 
>> "ice-9/psyntax-pp.go" "../../module/ice-9/psyntax-pp.scm"
>> wrote `ice-9/psyntax-pp.go'
> 
> I wonder why it's regenerating psyntax-pp.scm. It shouldn't, psyntax.scm
> should be newer than psyntax-pp.scm.

Git doesn't preserve timestamps, so either file can be the newer after a
fresh checkout.

>> make[1]: Entering directory `/home/szgyg/src/GIT/guile/=build'
>> make  check-TESTS
>> make[2]: Entering directory `/home/szgyg/src/GIT/guile/=build'
>> Testing /home/szgyg/src/GIT/guile/=build/meta/guile ...
>> with GUILE_LOAD_PATH=/home/szgyg/src/GIT/guile/test-suite
>> ;;; note: autocompilation is enabled, set GUILE_AUTO_COMPILE=0
>> ;;;       or pass the --no-autocompile argument to disable.
>> ;;; compiling /home/szgyg/src/GIT/guile/test-suite/lib.scm
>> ;;; compiled
>> /home/szgyg/.guile-ccache/1.9//home/szgyg/src/GIT/guile/test-suite/lib.scm.go
>> ERROR: Stack overflow
>> Running alist.test
>> [...]
> 
> What revision of the git repo was this?

Sorry, the fact that the testing framework catches other errors, but not
stack overflow, tricked me. The stack overflow was in elisp.test.

--- T.scm ---
(define *old-stack-level* (and=> (memq 'stack (debug-options)) cadr))
(debug-set! stack (* 2 *old-stack-level*))
(display #t)
-------------

$ guile -q --debug -s T.scm

Backtrace:
In ../../module/ice-9/boot-9.scm:
  874: 0* [#<program 100d7500 ()>]
In unknown file:
    ?: 1* [primitive-load "T.scm"]
In ../../module/ice-9/psyntax-pp.scm:
8216: 2* [# #]

ERROR: Stack overflow

in
commit e33779e3b84b4822b4d51562d7c4f1e65408151d
Date:   Thu Jun 25 23:24:57 2009 +0100
     Revert "* FAQ: New file."

The stack can grow a little, but not so much. Works with the factor 1.3, 
but not with 1.4 (*old-stack-level* is  416784).

>> make[1]: Entering directory `/home/szgyg/src/GIT/guile/=build'
>> make  check-TESTS
>> make[2]: Entering directory `/home/szgyg/src/GIT/guile/=build'
>> Testing /home/szgyg/src/GIT/guile/=build/meta/guile ...
>> with GUILE_LOAD_PATH=/home/szgyg/src/GIT/guile/test-suite
>> /bin/sh: line 5:  3944 Segmentation fault      (core dumped) ${dir}$tst
>> FAIL: check-guile
> 
> To me that looks like a segfault in your shell.

Program received signal SIGSEGV, Segmentation fault.
[Switching to thread 3544.0xc1c]
0x6aac70d9 in scm_read_delimited_x (delims=0x100e6400, str=0x102f90a0,
     gobble=0x104, port=0x102bd398, start=0x204, end=0x204)
     at ../../libguile/inline.h:307
307           if (scm_fill_input (port) == EOF)
(gdb) set language scheme
Warning: the current language does not match this frame.
(gdb) frame
#0  0x6aac70d9 in scm_read_delimited_x (delims="\x0c",
 
str="??\x1da??\x1daP},\x10p?+\x10??5\x10?\x00\x00\x00\x80?&\x101?\x1daEy,\x1
0\x88y,\x10AA3\x10\x81\x00\x00\x00??\x1da??\x1daAx,\x10p?+\x10h3\x15\x10i\x00\x0
0\x00c?:\x10\x8c?\x1da?w,\x10\x90w,\x10\x00\x00\x00\x00Q\x00\x00\x00h/\x15\x10",
  gobble=#t,
     port=#<input: /usr/local/share/guile/1.9/guile-procedures.txt 70>,
     start=#<undefined>, end=#<undefined>) at ../../libguile/inline.h:307
307           if (scm_fill_input (port) == EOF)
(gdb) set language c
(gdb) p *((scm_t_port *)((SCM *)0x102bd398)[1])
$1 = {port = 0x102bd398, revealed = 0, stream = 271938816,
   file_name = 0x100e64e0, line_number = 0, column_number = 0,
   read_buf = 0x103c6300 "This is guile-procedures.txt, produced by 
makeinfo vers
ion 4.13 from\nguile-procedures.texi.\n\n\facons\n\n -- Scheme 
Procedure: acons
key value alist\n     Add a new key-value pair to ALIST.  A new pair is 
"...,
   read_pos = 0x103c6300 "This is guile-procedures.txt, produced by 
makeinfo vers
ion 4.13 from\nguile-procedures.texi.\n\n\facons\n\n -- Scheme 
Procedure: acons
key value alist\n     Add a new key-value pair to ALIST.  A new pair is 
"...,
   read_end = 0x103d6300 "\004\004", read_buf_size = 65536,
   saved_read_buf = 0x0, saved_read_pos = 0x0, saved_read_end = 0x0,
   saved_read_buf_size = 0, write_buf = 0x10364ca0 "",
   write_pos = 0x10364ca0 "", write_end = 0x10364ca1 "", write_buf_size = 1,
   shortbuf = 0 '\0', rw_random = 1, rw_active = SCM_PORT_READ,
   putback_buf = 0x0, putback_buf_size = 0}
(gdb) p ((((scm_t_bits)(((SCM*)0x102bd398)[0]))>>8)&0x0ff)
$3 = 0
(gdb)  p scm_ptobs[((((scm_t_bits)(((SCM*)0x102bd398)[0]))>>8)&0x0ff)]
$5 = {name = 0x6ab1d120 "file", mark = 0, free = 0x6aa9e6c1 <fport_free>,
   print = 0x6aa9f181 <fport_print>, equalp = 0,
   close = 0x6aa9e5dc <fport_close>, write = 0x6aa9e804 <fport_write>,
   flush = 0x6aa9e48e <fport_flush>, end_input = 0x6aa9e3c2 
<fport_end_input>,
   fill_input = 0x6aa9e928 <fport_fill_input>,
   input_waiting = 0x6aa9e2dc <fport_input_waiting>,
   seek = 0x6aa9e6d6 <fport_seek_or_seek64>,
   truncate = 0x6aa9e38a <fport_truncate>}

I can trigger this through another path, too:

Program received signal SIGSEGV, Segmentation fault.
[Switching to thread 2728.0x708]
0x6aaca212 in flush_ws (port=0x10137360, eoferr=0x0)
     at ../../libguile/inline.h:307
307           if (scm_fill_input (port) == EOF)

I don't see any obvious error. Any hint?

> Thanks for the report,

Thanks to take care of the report,

s