Re: [perl-win32-gui-hackers] Scintilla crashes at DoEvent_Scintilla

[Reini U. <ru...@x-...>]

[Sorry for TOFU]
I found and fixed the error. (Scintilla crash)

Remove the line with #define PERL_GET_NO_CONTEXT at the top of Scintilla.xs

The reason why you cannot reproduce it, it because MSVC obviously is
compiled with PERL_OBJECT (see GUI.h for the perlud struct),
Without PERL_OBJECT you may not change the setting of
PERL_GET_NO_CONTEXT to the one in GUI.xs. Otherwise you are accessing
the struct with and without the my_perl field, causing Scintilla to
crash.

It was not the stack corrupt, just perlud.

When I got a decent internet connection tomorrow I'll post my full patch
with added testcase which catches this problem.

2008/1/7, Jeremy White <jez...@ho...>:
>
> I can't seem to reproduce:
>
> perl-5.8.8.822 on Vista
> perl-5.8.7.813 on XP SP2
>
> Running but the demos.pl and Editor.pl with Win32-GUI-1.05. Do you need to do anything special?
>
>
>
> > Date: Sun, 6 Jan 2008 21:21:59 -0600
> > From: ru...@x-...
> > To: per...@li...
> > Subject: [perl-win32-gui-hackers] Scintilla crashes at DoEvent_Scintilla
> >
> > cygwin, though I don't believe it is related.
> > perl-5.8.8 and perl-5.10.0
> > Win32-GUI-1.05
> >
> > scripts\win32-gui-demos.pl and Win32-GUI-Scintilla\demos\Editor.pl
> > crash. The first after starting an app, the 2nd immediately.
> > This came from the cygwin list, with Vista, but I and others can reproduce
> > it with XP2. Looks like an Scintilla.xs problem.
> >
> > Backtrace:
> >
> > $ gdb perl
> > GNU gdb 6.5.50.20060706-cvs (cygwin-special)
> > Copyright (C) 2006 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 "i686-pc-cygwin"...
> > (gdb) run Editor.pl
> > Starting program: /usr/bin/perl.exe Editor.pl
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/ntdll.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/kernel32.dll
> > Loaded symbols for /usr/bin/cygwin1.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/advapi32.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/rpcrt4.dll
> > Loaded symbols for /cygdrive/c/WINDOWS/system32/secur32.dll
> > Loaded symbols for /usr/bin/cygperl5_10.dll
> > Loaded symbols for /usr/bin/cygcrypt-0.dll
> >
> > Program received signal SIGSEGV, Segmentation fault.
> > 0x67503375 in Perl_gv_fetchpvn_flags (my_perl=0x17700e8,
> > nambeg=0xc5c17c "main::or_Notify", full_len=15, flags=0,
> > sv_type=13) at gv.c:909
> > 909 if (!stash || !SvREFCNT(stash)) /* symbol table
> > under destruction */
> > (gdb) bt
> > #0 0x67503375 in Perl_gv_fetchpvn_flags (my_perl=0x17700e8,
> > nambeg=0xc5c17c "main::or_Notify", full_len=15, flags=0,
> > sv_type=13) at gv.c:909
> > #1 0x6758dd2d in Perl_get_cvn_flags (my_perl=0x17700e8, name=0xc5c17c
> > "main::or_Notify", len=15, flags=0)
> > at perl.c:2479
> > #2 0x6758de63 in Perl_get_cv (my_perl=0x17700e8, name=0xc5c17c
> > "main::or_Notify", flags=0) at perl.c:2498
> > #3 0x6d541270 in DoEvent_Scintilla (my_perl=0x17700e8, Name=0xc5c17c
> > "main::or_Notify", code=2007, evt=0xc5c3bc)
> > at Scintilla.xs:67
> > #4 0x6d54286d in CallWndProc (nCode=0, wParam=0, lParam=12960480) at
> > Scintilla.xs:213
> > #5 0x7e4318e3 in UnhookWinEvent ()
> > #6 0x00000000 in ?? ()
> > (gdb) x stash
> > 0x1: Cannot access memory at address 0x1
> > (gdb)
> >
> > Reason: Someone is overwriting the stash with 1,
> > and the perlud name is also wrong.
> > It should be "Editor", not "or"
> > So I believe the stack is corrupt at all.
-- 
Reini Urban
http://phpwiki.org/              http://murbreak.at/
http://spacemovie.mur.at/   http://helsinki.at/