comment on

The following code is used in an XS to make an array full of 0's. It works fine.

/* create a Perl array filled with zeros */
SV* vec_zeros(int m) {
    int i;
    AV *myav;
    SV **svs;
    
    /* allocate memory for array */
    *svs = (SV **) malloc(m * sizeof(SV *));

    /* for m array elements */
    for (i = 0; i < m; i++) {

        /* create a Perl SV (scalar value) */
        svs[i] = sv_newmortal();

        /* set SV to 0 */
        sv_setnv((SV*)svs[i], 0.0f);

    }

    /* make Perl AV */
    myav = av_make(m, svs);

    /* free allocated memory */
    free(svs);

    /* return array reference */
    return newRV_noinc((SV*) myav);
    
}
[download]

Heeding advice in 'perlguts', I changed 'malloc' to 'Newx' and 'free' to 'Safefree'

/* create a Perl array filled with zeros */
SV* vec_zeros(int m) {
    int i;
    AV *myav;
    SV **svs;
    
    /* allocate memory for array */
    Newx(svs, m, SV *);

    /* for m array elements */
    for (i = 0; i < m; i++) {

        /* create a Perl SV (scalar value) */
        svs[i] = sv_newmortal();

        /* set SV to 0 */
        sv_setnv((SV*)svs[i], 0.0f);

    }

    /* make Perl AV */
    myav = av_make(m, svs);

    /* free allocated memory */
    Safefree(svs);

    /* return array reference */
    return newRV_noinc((SV*) myav);
    
}
[download]

Now I get the following warnings when I compile:

xs_arrays.c: In function ‘vec_zeros’:
xs_arrays.c:247: warning: format not a string literal and no format ar
+guments
xs_arrays.c: In function ‘vec_zeros’:
xs_arrays.c:247: warning: format not a string literal and no format ar
+guments
xs_arrays.c: In function ‘vec_zeros’:
xs_arrays.c:247: warning: format not a string literal and no format ar
+guments
[download]

Any idea what this means, and how to correct it? I'm using Perl 5.10.0, as supplied on Mac OS X:

Summary of my perl5 (revision 5 version 10 subversion 0) configuration
+:
  Platform:
    osname=darwin, osvers=10.0, archname=darwin-thread-multi-2level
    uname='darwin neige.apple.com 10.0 darwin kernel version 10.0.0d8:
+ tue may 5 19:29:59 pdt 2009; root:xnu-1437.2~2release_i386 i386 '
    config_args='-ds -e -Dprefix=/usr -Dccflags=-g  -pipe  -Dldflags= 
+-Dman3ext=3pm -Duseithreads -Duseshrplib -Dinc_version_list=none -Dcc
+=gcc-4.2'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=und
+ef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc-4.2', ccflags ='-arch x86_64 -arch i386 -arch ppc -g -pipe
+ -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include'
+,
    optimize='-Os',
    cppflags='-g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing 
+-I/usr/local/include'
    ccversion='', gccversion='4.2.1 (Apple Inc. build 5646)', gccosand
+vers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=1
+6
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
+ lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='gcc-4.2 -mmacosx-version-min=10.6', ldflags ='-arch x86_64 -ar
+ch i386 -arch ppc -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib
    libs=-ldbm -ldl -lm -lutil -lc
    perllibs=-ldl -lm -lutil -lc
    libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true, libperl=libpe
+rl.dylib
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-arch x86_64 -arch i386 -arch ppc -bund
+le -undefined dynamic_lookup -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_
+BIT_ALL
                        USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
                        USE_PERLIO USE_REENTRANT_API
  Locally applied patches:
    /Library/Perl/Updates/<version> comes before system perl directori
+es
    installprivlib and installarchlib points to the Updates directory
  Built under darwin
  Compiled at Jun 24 2009 00:35:27
  @INC:
    /Library/Perl/Updates/5.10.0/darwin-thread-multi-2level
    /Library/Perl/Updates/5.10.0
    /System/Library/Perl/5.10.0/darwin-thread-multi-2level
    /System/Library/Perl/5.10.0
    /Library/Perl/5.10.0/darwin-thread-multi-2level
    /Library/Perl/5.10.0
    /Network/Library/Perl/5.10.0/darwin-thread-multi-2level
    /Network/Library/Perl/5.10.0
    /Network/Library/Perl
    /System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level
    /System/Library/Perl/Extras/5.10.0
[download]

In reply to Newx compiler warnings by wbirkett

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.