Guile segfaulting

[Martin Grabmueller <mgrabmue at cs dot tu-berlin dot de>]

Hello,

the following just happened to me:

mgrabmue@tortoise (~/src/sizzle/src): cat floats.scm

(do ((x 0.0 (+ x 1.1))
     (c 1000000 (- c 1)))
    ((= c 0)))
mgrabmue@tortoise (~/src/sizzle/src): guile -s floats.scm
Segmentation fault

The Guile I have installed is not the newest, so I don't know whether
this still happens with a more current version.  I would test it, but
can't due to some autoconf problems.  The line numbers are not
accurate at all.

Anyway, below is a backtrace of the above segfault.

HTH,
  'mgrabmue

mgrabmue@tortoise (~/src/sizzle/src): gdb /usr/local/bin/guile
GNU gdb 4.17.m68k.objc.threads.hwwp.fpu.gnat
Copyright 1998 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i486-pc-linux-gnu"...
(gdb) set args -s floats.scm
(gdb) r
Starting program: /usr/local/bin/guile -s floats.scm

Program received signal SIGSEGV, Segmentation fault.
0x40048469 in scm_make_complex (x=2737.8999999998732, y=0) at numbers.c:2754
Source file is more recent than executable.
2754    #define FUNC_NAME s_scm_string_to_number
(gdb) bt
#0  0x40048469 in scm_make_complex (x=2737.8999999998732, y=0)
    at numbers.c:2754
#1  0x40049777 in scm_sum (x=0x8049d80, y=0x8049d20) at numbers.c:3430
#2  0x4002ec0b in scm_ceval (x=0x2974, env=0x4019da00) at eval.c:2889
#3  0x4002caf2 in scm_ceval (x=0x40185098, env=0x4019da00) at eval.c:2046
#4  0x40030532 in scm_eval_3 (obj=0x40185758, copyp=0, env=0x401856a0)
    at eval.c:3793
#5  0x40030600 in scm_eval_x (obj=0x40185758) at eval.c:3827
#6  0x40042c6a in load (data=0x40185778) at load.c:95
#7  0x40027c4a in scm_internal_dynamic_wind (before=0x40042c10 <swap_port>, 
    inner=0x40042c48 <load>, after=0x40042c10 <swap_port>, 
    inner_data=0x40185778, guard_data=0xbffff84c) at dynwind.c:165
#8  0x40042d79 in scm_primitive_load (filename=0x40185f58) at load.c:125
#9  0x4002ec0b in scm_ceval (x=0x2974, env=0x401857f0) at eval.c:2889
#10 0x40030532 in scm_eval_3 (obj=0x4015ced0, copyp=1, env=0x401857f0)
    at eval.c:3793
#11 0x400268f8 in scm_start_stack (id=0x4015cea0, exp=0x4015ced0, 
    env=0x401857f0) at debug.c:531
#12 0x400269ab in scm_m_start_stack (exp=0x401857e8, env=0x401857f0)
    at debug.c:548
#13 0x4002f85e in scm_apply (proc=0x4015a4b8, arg1=0x401857e8, args=0x401857d8)
    at eval.c:3372
#14 0x4002df24 in scm_ceval (x=0x401857e8, env=0x401857f0) at eval.c:2541
#15 0x4002fa8a in scm_apply (proc=0x40185b88, arg1=0x2974, args=0x2974)
    at eval.c:3436
#16 0x40027b0e in scm_dynamic_wind (thunk1=0x40185a58, thunk2=0x40185b58, 
    thunk3=0x40185a20) at dynwind.c:126
#17 0x4002f1ff in scm_ceval (x=0x40178c98, env=0x40185a98) at eval.c:3084
#18 0x4002c602 in scm_ceval (x=0x40185f40, env=0x40185f10) at eval.c:1949
#19 0x40030532 in scm_eval_3 (obj=0x40185f18, copyp=0, env=0x40185f10)
    at eval.c:3793
#20 0x40030600 in scm_eval_x (obj=0x40185f18) at eval.c:3827
#21 0x40058425 in scm_shell (argc=3, argv=0xbffffd44) at script.c:638
#22 0x804891a in inner_main (closure=0x0, argc=3, argv=0xbffffd44)
    at guile.c:67
#23 0x4003f56f in invoke_main_func (body_data=0xbffffcd8) at init.c:625
#24 0x40063fd5 in scm_internal_lazy_catch (tag=0x2374, 
    body=0x4003f540 <invoke_main_func>, body_data=0xbffffcd8, 
    handler=0x400643bc <scm_handle_by_message>, handler_data=0x0)
    at throw.c:297
#25 0x4003f51f in scm_boot_guile_1 (base=0xbffffcd4, closure=0xbffffcd8)
    at init.c:600
#26 0x4003f20c in scm_boot_guile (argc=3, argv=0xbffffd44, 
    main_func=0x8048904 <inner_main>, closure=0x0) at init.c:441
#27 0x8048949 in main (argc=3, argv=0xbffffd44) at guile.c:76
(gdb) 


-- 
Martin Grabmueller              mgrabmue@cs.tu-berlin.de
http://www.pintus.de/mgrabmue/  mgrabmue@#lkcc on EFnet