(make-regexp ) out of memory on Cygwin

[Jan Nieuwenhuizen <janneke at gnu dot org>]

Hi,

Yesterday I took a snapshot of guile from cvs (named 1.3.5) for
Cygnus' gnu/windows port.  Patching is no longer needed, it
compiles cleanly (good!).  There's still a problem with the regex
module, but it seems not as bad as with 1.3.4.  Any ideas how to
debug/fix this?

    guile> 13:48:17 SOPHOS2 ~$ guile
    guile> (version)
    "1.3.5"
    guile> (debug-enable 'backtrace)
    (stack 20000 debug backtrace depth 20 maxdepth 1000 frames 3 indent 10 width 79 procnames cheap)
    guile> (use-modules (ice-9 regex))
    guile> (display (string-match "b" "abc"))

    Backtrace:
    0* [display ...
    1*  [string-match "b" "abc"]
    2   (let ((rx #) (start #)) (regexp-exec rx str start))
    3*  [gsubr-apply #<primitive-procedure make-regexp> "b"]

    ERROR: In procedure gsubr-apply in expression (make-regexp pattern):
    ERROR: Memory allocation error
    ABORT: (memory-allocation-error)

    13:50:41 SOPHOS2 ~$ uname -a
    CYGWIN_NT-4.0 SOPHOS2 1.1.1(0.20/3/2) 2000-05-14 23:48:17 i686 unknown

Greetings,

Jan.


[ guile-1.3.4 seemed worse, I never tried to look into this

    13:51:21 SOPHOS2 ~/Cygnus/usr/bin$ ./guile
    guile> (version)
    "1.3.4"
    guile> (debug-enable 'backtrace)
    (stack 20000 debug backtrace depth 20 maxdepth 1000 frames 3 indent 10 width 79 procnames cheap)
    guile> (use-modules (ice-9 regex))
    guile> (display (string-match "b" "abc"))

    Backtrace:
    0* [display ...
    1*  [string-match "b" "abc"]
    2   (let ((rx #) (start #)) (regexp-exec rx str start))
    3   [regexp-exec #<regexp a098b88> "abc" 0]

    /home/jan/Cygnus/usr/share/guile/1.3.4/ice-9/regex.scm:100:5: In procedure regexp-exec in expression (regexp-exec rx str ...):
    /home/jan/Cygnus/usr/share/guile/1.3.4/ice-9/regex.scm:100:5: Wrong type argument in position 1: -534765557 
]

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org