Re: Bug#384698: gettext: xgettext segv on certain scheme input (fwd)

[Bruno Haible]

Kevin Ryde wrote:
> With a file foo.scm containing
> 
>       (define foo '("bar" "quux"))
> 
> a run of
> 
>       xgettext foo.scm
> 
> gets a seg fault.

Thanks for reporting this. Please use this fix.

Bruno

*** gettext-tools/src/x-scheme.c        3 Apr 2006 11:20:33 -0000       1.8
--- gettext-tools/src/x-scheme.c        28 Aug 2006 12:32:05 -0000
***************
*** 794,800 ****
                else
                  {
                    /* These are the argument positions.  */
!                   if (inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,
--- 794,800 ----
                else
                  {
                    /* These are the argument positions.  */
!                   if (argparser != NULL && inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,
*** gettext-tools/src/x-elisp.c 3 Apr 2006 11:20:33 -0000       1.14
--- gettext-tools/src/x-elisp.c 28 Aug 2006 12:32:05 -0000
***************
*** 709,715 ****
                else
                  {
                    /* These are the argument positions.  */
!                   if (inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,
--- 709,715 ----
                else
                  {
                    /* These are the argument positions.  */
!                   if (argparser != NULL && inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,
*** gettext-tools/src/x-librep.c        3 Apr 2006 11:20:33 -0000       1.15
--- gettext-tools/src/x-librep.c        28 Aug 2006 12:32:05 -0000
***************
*** 683,689 ****
                else
                  {
                    /* These are the argument positions.  */
!                   if (inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,
--- 683,689 ----
                else
                  {
                    /* These are the argument positions.  */
!                   if (argparser != NULL && inner.type == t_string)
                      arglist_parser_remember (argparser, arg,
                                               string_of_object (&inner),
                                               inner_context,