<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.10.2">
</HEAD>
<BODY>
Anybody on the list run into this problem?<BR>
<BR>
-------- Forwarded Message --------<BR>
<B>From</B>: Scott T. Hildreth <<A HREF="mailto:%22Scott%20T.%20Hildreth%22%20%3cshildret@scotth.emsphone.com%3e">shildret@scotth.emsphone.com</A>><BR>
<B>Reply-To</B>: <A HREF="mailto:shildreth@allantgroup.com">shildreth@allantgroup.com</A><BR>
<B>To</B>: Perl-Xs <<A HREF="mailto:Perl-Xs%20%3cperl-xs@perl.org%3e">perl-xs@perl.org</A>><BR>
<B>Subject</B>: Re: 64 bit problems - XS wrappers<BR>
<B>Date</B>: Thu, 13 Jul 2006 18:49:14 -0500<BR>
<BR>
<PRE>
On Thu, 2006-07-13 at 18:32 -0500, Scott T. Hildreth wrote:
> I changed the XS declaration to a SV * and changed,
>
> RETVAL = (char *)fmt_get_fld_location(fmt, fld);
>
> to RETVAL = (SV *)fmt_get_fld_location(fmt, fld)
>
> ...and in gdb I could see more,
>
> (gdb) n
> 1197 IV tmp = SvIV((SV*)SvRV(ST(1)));
> (gdb) n
> 419 RETVAL = (SV *)fmt_get_fld_location(fmt, fld);
> (gdb) n
> 1205 ST(0) = RETVAL;
> (gdb) p RETVAL
> No symbol "RETVAL" in current context.
> (gdb) n
> 1206 sv_2mortal(ST(0));
> (gdb) p ST(0)
> $6 = (SV *) 0x600ea0
> (gdb) p *ST(0)
...okay this doesn't tell me anything. I got the same result on
for another function call, which does not seg fault. It also returns a
(char *) and works. I'm stumped. If I step into the function I see the
null string is created and the returned. I don't know how to see if it
is in the RETVAL
> $7 = {sv_any = 0x0, sv_refcnt = 2147482504, sv_flags = 8388608}
>
>
> ...shouldn't sv_any not be null?
>
> (gdb) n
>
> Program received signal SIGSEGV, Segmentation fault.
> 0x0000000000473459 in Perl_sv_2mortal ()
>
>
> On Thu, 2006-07-13 at 17:15 -0500, Scott T. Hildreth wrote:
> > Posting again, didn't see it show up on the list.
> >
> > ..I've seen the strlen() seg fault problem by searching,
> > just no solutions. The string returned in RETVAL is null terminated,
> > so I don't understand.
> >
> >
> > On Thu, 2006-07-13 at 14:56 -0500, Scott T. Hildreth wrote:
> > > ...we are installing 64bit Suse boxes. I normally compile our own Perl,
> > > leaving the vendor Perl alone. I don't think this will help with this
> > > problem though (unless I compile as 32 bit). The following XS code
> > > fails in libc - strlen(),
> > >
> > > =============================================================================
> > >
> > > 1180 {
> > > (gdb) n
> > > 1181 dXSARGS;
> > > (gdb) n
> > > 1182 if (items != 2)
> > > (gdb) n
> > > 1188 dXSTARG;
> > > (gdb) n
> > > 1190 if (sv_derived_from(ST(0), "FMTPtr")) {
> > > (gdb) n
> > > 1191 IV tmp = SvIV((SV*)SvRV(ST(0)));
> > > (gdb) n
> > > 1197 if (sv_derived_from(ST(1), "FMT_FLDPtr")) {
> > > (gdb) n
> > > 1198 IV tmp = SvIV((SV*)SvRV(ST(1)));
> > > (gdb) n
> > > 419 RETVAL = (char *)fmt_get_fld_location(fmt, fld);
> > > (gdb) p tmp
> > > $4 = 11516288
> > > (gdb) n
> > > 1206 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
> > > (gdb) p RETVAL
> > > No symbol "RETVAL" in current context.
> > > (gdb) s
> > > 419 RETVAL = (char *)fmt_get_fld_location(fmt, fld);
> > > (gdb) s
> > > 1206 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
> > > (gdb) s
> > >
> > > Program received signal SIGSEGV, Segmentation fault.
> > > 0x00002ad1795286d0 in strlen () from /lib64/libc.so.6
> > >
> > > =================================================================================
> > >
> > > ...at first I thought it was the threaded-64 bit Perls, but it seg
> > > faults on a non-threaded version as well. It runs fine on a 32 bit
> > > server.
> > >
> > > I am really hopping someone has run into this, any help would be much
> > > appreciated.
> > >
> > >
> > > STH
> > >
> > >
> > >
> > >
</PRE>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
-- <BR>
Scott T. Hildreth <<A HREF="mailto:shild@sbcglobal.net">shild@sbcglobal.net</A>>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>