[Gcl-devel] Windows ANSI test crash

[Mike Thomas]

Hi Camm.

Some more experimentation with this leads me to the conclusion that the jump
is an error return and is going wrong after the first few test failures have
occured because the invocation history stack has somehow been corrupted.  It
happens now at a different place to that originally reported.

The crash is different with CVS HEAD - I get (with fast links off):

============================================================================
Finished loading notes.lsp
Finished loading gclload1.lsp
Universal error handler called recursively (:UNDEFINED-FUNCTION NIL
                                            EVAL ""
                                            "The function ~S is undefined.")
Program received signal SIGSEGV, Segmentation fault.
0x0041f2ea in eval (form=0x64fa80) at eval.c:1089
1089            if (type_of(x) == t_cfun)
(gdb) bt
#0  0x0041f2ea in eval (form=0x64fa80) at eval.c:1089
#1  0x0041f27a in eval (form=0x10aade34) at eval.c:1077
#2  0x0041f7f1 in fLeval (x0=0x10aade4c) at eval.c:1178
#3  0x00431c46 in c_apply_n (fn=0x41f795 <fLeval>, n=1, x=0x6bf83c)
    at funlink.c:363
#4  0x0044a46b in IapplyVector (fun=0x10107e4c, nargs=1, base=0x6bf83c)
    at nfunlink.c:229
#5  0x0041d427 in funcall (fun=0x10107e4c) at eval.c:190
#6  0x0041dd71 in funcall_no_event (fun=0x10107e4c) at eval.c:381
#7  0x0041f304 in eval (form=0x64fa80) at eval.c:1092
#8  0x0041f7f1 in fLeval (x0=0x10aadd8c) at eval.c:1178
#9  0x00431c46 in c_apply_n (fn=0x41f795 <fLeval>, n=1, x=0x22b9c0)
    at funlink.c:363
#10 0x0044a811 in Iinvoke_c_function_from_value_stack (f=0x41f795 <fLeval>,
    fargd=513) at nfunlink.c:293
#11 0x0041f790 in Leval () at eval.c:1171
#12 0x0049ba25 in L19 () at clcs_kcl_cond.c:571
#13 0x0049bdda in L25 () at clcs_kcl_cond.c:695
#14 0x005bf5b3 in L15 () at gcl_cmputil.c:456
#15 0x0057ceec in LI4 (V64=0x64fa80, V65=0x10aade4c) at gcl_cmptop.c:678
#16 0x005837a5 in LI39 (V600=0x10aade4c) at gcl_cmptop.c:4342
#17 0x0057c23a in L1 () at gcl_cmptop.c:198
#18 0x0057d186 in LI6 (V77=0x10aade04) at gcl_cmptop.c:816
---Type <return> to continue, or q <return> to quit---q
Quit (expect signal SIGINT when the program is resumed)
(gdb) pp x
Undefined command: "pp".  Try "help".
(gdb) p pp(x)
#<OBJNULL>$1 = void
(gdb) p pp(form)
NIL$2 = void
(gdb) up
#1  0x0041f27a in eval (form=0x10aade34) at eval.c:1077
1077                    eval(MMcar(form));
(gdb) p pp(form)
((RATIONAL-SAFELY MOST-NEGATIVE-SHORT-FLOAT))$3 = void
(gdb) up
#2  0x0041f7f1 in fLeval (x0=0x10aade4c) at eval.c:1178
1178            eval(x0);
(gdb) p pp(x0)
(*MAKE-CONSTANT

'+RATIONAL-MOST-NEGAT
IVE-SHORT-FLOAT+
                                                           (RATIONAL-SAFELY

MOST-NEGATIVE-SHORT-
FLOAT))$4 = void
(gdb) up
#3  0x00431c46 in c_apply_n (fn=0x41f795 <fLeval>, n=1, x=0x6bf83c)
    at funlink.c:363
363         case 1:  res=LCAST(fn)(x[0]);break;
(gdb) p pp(fn)

Error in EVAL [or a callee]: Caught fatal error [memory may be damaged]

Fast links are on: do (use-fast-links nil) for debugging

Program received signal SIGSEGV, Segmentation fault.
L27 () at gcl_top.c:2210
2210            if(!(type_of((V184))==t_symbol)){
The program being debugged was signaled while in a function called from GDB.
GDB remains in the frame where the signal was received.
To change this behavior use "set unwindonsignal on"
Evaluation of the expression containing the function (pp) will be abandoned.
(gdb)

============================================================================

I probably won't be chasing this problem before the planned weekend release
as I expect to have my hands full for various reasons over the coming week.

Cheers

MIke Thomas.