[Gcl-devel] Windows Maxima ignore errors bug

[Mike Thomas]

And one last note:

I have here a modified 2.6.1 tree which does not exhibit the 
ignore-errors bug either when configured with CVS default optimisations 
 or --enable-debug.  It remains to be shown whether this is pure luck 
or not.  CVS diff below.  Gcc 3.3.1, binutils 2.14.90.

I rearranged the way I approached the extended stack, and included my 
alteration to string.d reported yesterday as well as a few 
initialisations of local object vars in pathname.d etc.

This build does still exhibit the universe.lisp bug per my other emails, 
but I think that is a separate issue.

Cheers

Mike Thomas

Index: configure.in
===================================================================
RCS file: /cvsroot/gcl/gcl/configure.in,v
retrieving revision 1.112.4.1.2.2.2.47
diff -r1.112.4.1.2.2.2.47 configure.in
395c395
<    LDFLAGS=" "
---
>    LDFLAGS=" -Wl,--stack=8388608 "
Index: h/mingw.h
===================================================================
RCS file: /cvsroot/gcl/gcl/h/mingw.h,v
retrieving revision 1.17.6.6
diff -r1.17.6.6 mingw.h
137c137
<    while ((i = getc(fp)) == 0) \
---
>    while ((i = fgetc(fp)) == 0) \
Index: o/file.d
===================================================================
RCS file: /cvsroot/gcl/gcl/o/file.d,v
retrieving revision 1.21.4.1.2.8
diff -r1.21.4.1.2.8 file.d
245c245
<    object x;
---
>    object x = Cnil;
349c349
<    object x;
---
>    object x = Cnil;
532c532
<    object x;
---
>    object x=Cnil;
Index: o/main.c
===================================================================
RCS file: /cvsroot/gcl/gcl/o/main.c,v
retrieving revision 1.26.4.1.2.21
diff -r1.26.4.1.2.21 main.c
156c156
<        _stacktop    = _stackbottom - 0x10000; // ???
---
>        _stacktop    = _stackbottom - 8388608; // ???
Index: o/pathname.d
===================================================================
RCS file: /cvsroot/gcl/gcl/o/pathname.d,v
retrieving revision 1.12.6.4
diff -r1.12.6.4 pathname.d
79,80c79,80
<    object *vsp;
<    object x;
---
>    object *vsp = NULL;
>    object x = Cnil;
258c258,264
<    object host, device, directory, name, type, version;
---
>    object
>      host = Cnil
>    , device = Cnil
>    , directory = Cnil
>    , name = Cnil
>    , type = Cnil
>    , version = Cnil;
307c313,314
<    object l, y;
---
>    object l = Cnil
>    , y = Cnil;
Index: o/string.d
===================================================================
RCS file: /cvsroot/gcl/gcl/o/string.d,v
retrieving revision 1.7.6.2
diff -r1.7.6.2 string.d
163c163
<    object y;
---
>    object y = Cnil;
204a205
>    vs_reset;
571c572
<    object *v;
---
>    object *v = NULL;
Index: unixport/makefile
===================================================================
RCS file: /cvsroot/gcl/gcl/unixport/makefile,v
retrieving revision 1.42.2.1.2.1.2.19
diff -r1.42.2.1.2.1.2.19 makefile
121c121
<    $(CC) $(CFLAGS) -I$(HDIR) -I$(ODIR) -o $(RSYM) $(SPECIAL_RSYM)
---
> 	$(CC) -Wl,--stack=8388608 $(CFLAGS) -I$(HDIR) -I$(ODIR) -o $(RSYM) 
$(SPECIAL_RSYM)
153c153
< 		-L. $(EXTRA_LD_LIBS) -Wl,-Map raw_$*_map $(LD_LIBS_PRE) -l$* 
$(LD_LIBS_POST)
---
> 		-L. $(EXTRA_LD_LIBS) -Wl,--stack=8388608 -Wl,-Map raw_$*_map 
$(LD_LIBS_PRE) -l$* $(LD_LIBS_POST)