From @timbunce

Using a typedef instead would avoid the warning. Can someone patch that?

Thanks.

Tim.

On Thu, Aug 19, 1999 at 08:49:35PM -0400, Michael G Schwern wrote:

Well, this is vaguely bad. Looks like something's unhappy in dXSARGS.
Ahh, I see:

dXSARGS is defined in terms of dSP and dMARK.
dSP is defined in terms of dTHR and djSP.
dTHR is defined in terms of dNOOP
dNOOP is extern int Perl___notused

I presume this is Perl's fault and not DBI's. Do you want to pass it
on to p5p or should I?

DBI 1.13 installing with perl 5.005_60. It passed tests and otherwise
installed fine. Below is the interesting part.

/usr/local/perl5.005_60/bin/perl -I/usr/local/perl5.005_60/lib/i686-linux -I/usr/local/perl5.005_60/lib /usr/local/perl5.005_60/lib/ExtUtils/xsubpp -typemap /usr/local/perl5.005_60/lib/ExtUtils/typemap Perl.xs > Perl.xsc && mv Perl.xsc Perl.c
gcc -c -Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS -g -DVERSION=\"1.13\" -DXS_VERSION=\"1.13\" -fpic -I/usr/local/perl5.005_60/lib/i686-linux/CORE -Wall -Wno-comment -DDBI_NO_THREADS Perl.c
Perl.c: In function `XS_DBD__Perl__dr_discon_all_':
Perl.c:32: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db__login':
Perl.c:49: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_commit':
Perl.c:83: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_rollback':
Perl.c:100: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_disconnect':
Perl.c:117: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_STORE':
Perl.c:150: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_FETCH':
Perl.c:172: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_DESTROY':
Perl.c:191: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st__prepare':
Perl.c:245: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_bind_param':
Perl.c:290: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_bind_param_inout':
Perl.c:332: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_execute':
Perl.c:380: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_fetchrow_arrayref':
Perl.c:427: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_fetchrow_array':
Perl.c:446: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_finish':
Perl.c:474: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_blob_read':
Perl.c:504: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_STORE':
Perl.c:542: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_FETCH_attrib':
Perl.c:564: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_DESTROY':
Perl.c:586: warning: unused variable `Perl___notused'
Perl.c: In function `boot_DBD__Perl':
Perl.c:635: warning: unused variable `Perl___notused'
Perl.c: At top level:
/usr/local/perl5.005_60/lib/i686-linux/CORE/patchlevel.h:45: warning: `local_patches' defined but not used
/usr/local/perl5.005_60/bin/perl -I/usr/local/perl5.005_60/lib/i686-linux -I/usr/local/perl5.005_60/lib /usr/local/perl5.005_60/lib/ExtUtils/xsubpp -typemap /usr/local/perl5.005_60/lib/ExtUtils/typemap DBI.xs > DBI.xsc && mv DBI.xsc DBI.c
gcc -c -Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS -g -DVERSION=\"1.13\" -DXS_VERSION=\"1.13\" -fpic -I/usr/local/perl5.005_60/lib/i686-linux/CORE -Wall -Wno-comment -DDBI_NO_THREADS DBI.c
DBI.xs: In function `dbih_clearcom':
DBI.xs:805: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_get_fbav':
DBI.xs:942: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_set_attr_k':
DBI.xs:1034: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_event':
DBI.xs:1342: warning: unused variable `Perl___notused'
DBI.xs: In function `log_where':
DBI.xs:1446: warning: unused variable `Perl___notused'
DBI.xs: In function `XS_DBI_dispatch':
DBI.xs:1893: warning: long int format, int arg (arg 4)
DBI.xs:1864: warning: unused variable `Perl___notused'
DBI.xs:1493: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_constant':
DBI.c:1920: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__setup_handle':
DBI.c:1937: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__get_imp_data':
DBI.c:1955: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__handles':
DBI.c:1955: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__handles':
DBI.c:1970: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_set_err':
DBI.c:1992: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_neat':
DBI.c:2040: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_hash':
DBI.c:2061: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_looks_like_number':
DBI.c:2085: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__install_method':
DBI.c:2108: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_trace':
DBI.c:2181: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_dump_handle':
DBI.c:2234: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__svdump':
DBI.c:2258: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__var_FETCH':
DBI.c:2278: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st__get_fbav':
DBI.c:2366: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st__set_fbav':
DBI.c:2382: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_bind_col':
DBI.c:2411: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_bind_columns':
DBI.c:2435: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_fetchrow_array':
DBI.c:2475: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_fetch':
DBI.c:2533: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_rows':
DBI.c:2570: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_finish':
DBI.c:2586: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_DESTROY':
DBI.c:2602: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_STORE':
DBI.c:2615: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_FETCH':
DBI.c:2633: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_event':
DBI.c:2648: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_private_data':
DBI.c:2680: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_err':
DBI.c:2695: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_state':
DBI.c:2711: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_errstr':
DBI.c:2728: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_trace':
DBI.c:2748: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_trace_msg':
DBI.c:2799: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_rows':
DBI.c:2837: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD___mem__common_DESTROY':
DBI.c:2853: warning: unused variable `Perl___notused'
DBI.c: In function `boot_DBI':
DBI.c:2873: warning: unused variable `Perl___notused'
DBI.c: At top level:
/usr/local/perl5.005_60/lib/i686-linux/CORE/patchlevel.h:45: warning: `local_patches' defined but not used
Running Mkbootstrap for DBI ()
chmod 644 DBI.bs
LD_RUN_PATH="" cc -o blib/arch/auto/DBI/DBI.so -shared -L/usr/local/lib DBI.o

Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration:
Platform:
osname=linux, osvers=2.2.10, archname=i686-linux
uname='linux athens 2.2.10 #3 smp mon aug 2 16:48:09 edt 1999 i686 unknown '
config_args=''
hint=previous, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
use64bits=undef usemultiplicity=undef
Compiler:
cc='gcc', optimize='-g', gccversion=2.95.1 19990809 (prerelease)
cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS'
ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING -DDEBUGGING_MSTATS -DDEBUGGING_OPS'
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
alignbytes=4, usemymalloc=y, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lrt -lc -lposix -lcrypt
libc=/lib/libc-2.1.2.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING
Built under linux
Compiled at Aug 17 1999 18:05:39
%ENV:
PERL5LIB="/home/schwern/lib/perl5/site_perl/5.005"
@INC:
/home/schwern/lib/perl5/site_perl/5.005/i686-linux
/home/schwern/lib/perl5/site_perl/5.005
/usr/local/perl5.005_60/lib/i686-linux
/usr/local/perl5.005_60/lib
/usr/local/perl5.005_60/lib/site_perl/5.00560/i686-linux
/usr/local/perl5.005_60/lib/site_perl
.

--

Michael G Schwern schwern@pobox.com
http://www.pobox.com/~schwern
/(?:(?:(1)[.-]?)?\(?(\d{3})\)?[.-]?)?(\d{3})[.-]?(\d{4})(x\d+)?/i

Re: [BUG DBI 1.13 and perl 5.005_60 vaguely unhappy together] #401

Description

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions