>Submitter-Id: net
>Originator: Ron Steinke
>Confidential: no
>Synopsis: Internal compiler error involving fstream and xsub (perl c++
>wrapper code)
>Severity: critical
>Priority: medium
>Category: c++
>Class: ice-on-legal-code
>Release: 3.0.4 (Debian testing/unstable)
>Environment:
System: Linux ouroboros 2.4.17 #10 Fri Mar 8 01:21:59 PST 2002 i686 unknown
Architecture: i686, Debian woody, using perl 5.6.1
host: i386-pc-linux-gnu
build: i386-pc-linux-gnu
target: i386-pc-linux-gnu
configured with: ../src/configure -v
--enable-languages=c,c++,java,f77,proto,objc --prefix=/usr
--infodir=/share/info --mandir=/share/man --enable-shared --with-gnu-as
--with-gnu-ld --with-system-zlib --enable-long-long --enable-nls
--without-included-gettext --disable-checking --enable-threads=posix
--enable-java-gc=boehm --with-cpp-install-dir=bin --enable-objc-gc i386-linux
>Description:
Internal compiler error, happens in both g++-2.95.4 and g++-3.0.4.
I was attempting to produce a test case for some lockups that
were happening when I wrapped a c++ library which used iostreams
in an xsub so it could be called from perl. The test case
produced an internal error.
>How-To-Repeat:
I am including both the file Conflict.xs with the original code,
and the generated Conflict.c file (really a c++ file) with the
c++ code. The compilation command which originally produced the
error was:
g++ -c -DDEBIAN -fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -DVERSION=\"0.01\"
-DXS_VERSION=\"0.01\" -fPIC -I/usr/lib/perl/5.6.1/CORE Conflict.c
I tried again with all the flags except for -I/usr/lib/perl/5.6.1/CORE
removed, and the behavior was the same.
--- begin Conflict.xs ---
#include <fstream>
#include <sstream>
#include <iostream>
extern "C" {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
}
class Log {
public:
Log()
{
std::ostringstream ost;
ost << "tmp/file" << filenum++;
_log.open(ost.str().c_str(), std::ios::out | std::ios::app);
_log << "testing\n";
}
~Log() {_log.close();}
private:
std::fstream _log;
static int filenum;
}
Log::filenum = 0;
MODULE = Conflict PACKAGE = Conflict
Log*
Log::new()
void
Log::DESTROY()
--- end Conflict.xs, begin Conflict.c ---
/*
* This file was generated automatically by xsubpp version 1.9508 from the
* contents of Conflict.xs. Do not edit this file, edit Conflict.xs instead.
*
* ANY CHANGES MADE HERE WILL BE LOST!
*
*/
#line 1 "Conflict.xs"
#include <fstream>
#include <sstream>
#include <iostream>
extern "C" {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
}
class Log {
public:
Log()
{
std::ostringstream ost;
ost << "tmp/file" << filenum++;
_log.open(ost.str().c_str(), std::ios::out | std::ios::app);
_log << "testing\n";
}
~Log() {_log.close();}
private:
std::fstream _log;
static int filenum;
}
Log::filenum = 0;
#line 42 "Conflict.c"
XS(XS_Conflict_new)
{
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: Conflict::new(CLASS)");
{
char * CLASS = (char *)SvPV(ST(0),PL_na);
Log * RETVAL;
RETVAL = new Log();
ST(0) = sv_newmortal();
sv_setref_pv( ST(0), CLASS, (void*)RETVAL );
}
XSRETURN(1);
}
XS(XS_Conflict_DESTROY)
{
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: Conflict::DESTROY(THIS)");
{
Log * THIS;
if( sv_isobject(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVMG) )
THIS = (Log *)SvIV((SV*)SvRV( ST(0) ));
else{
warn( "Conflict::DESTROY() -- THIS is not a blessed SV
reference" );
XSRETURN_UNDEF;
};
delete THIS;
}
XSRETURN_EMPTY;
}
#ifdef __cplusplus
extern "C"
#endif
XS(boot_Conflict)
{
dXSARGS;
char* file = __FILE__;
XS_VERSION_BOOTCHECK ;
newXS("Conflict::new", XS_Conflict_new, file);
newXS("Conflict::DESTROY", XS_Conflict_DESTROY, file);
XSRETURN_YES;
}
--- end Conflict.c ---
>Fix:
None known
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
