For got to put the warnings:
gcc -Wall -c -I../liblaff -I/usr/local/include -O -DVERSION=\"0.02\"
-DXS_VERSION=\"0.02\" -fPIC -I/data/cdmg/perl/perl-5.6.0/lib/5.6.0/sun4-solaris/CORE
Laff.c
Laff.c: In function `XS_Laff_AddCell':
Laff.c:88: warning: unused variable `Perl___notused'
Laff.c: In function `boot_Laff':
Laff.c:6253: warning: unused variable `cv'
Laff.c:6247: warning: unused variable `Perl___notused'
Laff.xs: At top level:
Laff.xs:70: warning: `node2package' defined but not used
LD_RUN_PATH="/lib" gcc -o blib/arch/auto/Laff/Laff.so -R/lib -G -L/usr/local/lib
Laff.o ../liblaff/libLaff.a -lm
chmod 755 blib/arch/auto/Laff/Laff.so
On Mon, 14 Aug 2000, Billy N. Patton wrote:
> I keep getting the following warnings. I've read through the perldoc
> perlxs and am doing what I think they are saying.
>
> Here's what I'm using
>
> uname -a
> SunOC dragon 5.5.1 Generic_103640-29 sun4u sparc SUNW,Ultra-5_10
>
>
> gcc version 2.8.1
>
> perl-5.6.0
>
>
> Here's my xs file.
>
> #include "EXTERN.h"
> #include "perl.h"
> #include "XSUB.h"
> #include "laff.h"
>
> typedef node_t * Laff__Node;
> typedef cell_t * Laff__Cell;
> typedef laff_db * Laff;
>
> static char *packages[] = { ""
> , "ABACUSINFO"
> , "ARB"
> , "ARBINFO"
> , "ATTR"
> , "BOUNDARY"
> , "CELLINFO"
> , "CIRCLE"
> , "CLF"
> , "CLFINFO"
> , "CONNECT"
> , "CPD"
> , "CPR"
> , "DESIGNATED"
> , "DETAIL"
> , "DIAGNOSTIC"
> , "DTEXT"
> , "EQUIPOT"
> , "EQUIV"
> , "FEEDTHRU"
> , "FIXED"
> , "GND"
> , "GROUND"
> , "IN"
> , "INFO"
> , "INOUT"
> , "INPUT"
> , "INSTINFO"
> , "INTERNAL"
> , "IO"
> , "LIB"
> , "LPAREN"
> , "NAME"
> , "NAMES"
> , "NETINFO"
> , "OBJECT"
> , "OUT"
> , "OUTPUT"
> , "PAD"
> , "PATH"
> , "PORT"
> , "PORTINFO"
> , "PORTS"
> , "POWER"
> , "PREL"
> , "QUALIFIED"
> , "RECT"
> , "RENAMED"
> , "RPAREN"
> , "SNAM"
> , "STRUCT"
> , "SXCALL"
> , "SYMBOLIC"
> , "TEXT"
> , "UNDEF"
> , "UNKNOWN"
> , "XCALL"
> };
>
> static char* node2package(node_t *np)
> {
> static char full[64];
> sprintf(full,"Laff::%s",packages[np->type]);
> return full;
> }
>
> MODULE = Laff PACKAGE = Laff PREFIX=Laff
>
> PROTOTYPES: DISABLE
>
> void
> LaffAddCell(db,sv)
> Laff db
> SV * sv
> PPCODE:
> {
> cell_p cp;
> char* cell;
> if(sv_derived_from(sv, "Laff::Cell") )
> {
> cp = (Laff__Cell)SvIV((SV*)SvRV(sv ));
> XSRETURN(laff_add_cell(db,cp));
> }
> cell = (char *)SvPV(sv,PL_na);
> cp = cell_malloc();
> cell_put_name(cp,cell);
> XSRETURN(laff_add_cell(db,cp));
> }
>
>
>
> THis is only a small portion I get pages and pages of these errors.
> They didn't exist with perl5.005.
>
>
>
