Can't compile XS, getting "strcmp" error

[MrNobo1024]

I've been experimenting with creating XS modules, but I can't get it to work. When I run nmake, it says

gcc -c  -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCR
+YP
T -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O
+1 -MD -DND
EBUG    -DVERSION=\"0.01\"  -DXS_VERSION=\"0.01\"  -IC:\PERL\lib\CORE 
+ xstest.c
xstest.c: In function `boot_xstest':
xstest.c:37: incompatible type for argument 1 of `strcmp'
NMAKE : fatal error U1077: 'GCC' : return code '0x1'
Stop.

Is there any way to fix this problem? I'm using ActivePerl 5.6.1 and MinGW 2.95.2.

[Anonymous Monk]

This is a bug in MinGW. You can download a fixed version at http://public.activestate.com/gsar/gcc-2.95.2-msvcrt.zip

[AgentM]

Ensure that xstest.c at line 37 contains a call to strcmp where the first argument is a char*. It's rather self-explanatory. If you need additional help, you need to post the relevant piece of code.


AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

[MrNobo1024]

Actually xstest.c dosen't call strcmp at all. The relevant code is

xstest.xs:

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"


MODULE = xstest         PACKAGE = xstest

void
hello()
   CODE:
      printf("Hello, world!\n");

xstest.c:

/*
 * This file was generated automatically by xsubpp version 1.9508 from
+ the
 * contents of xstest.xs. Do not edit this file, edit xstest.xs instea
+d.
 *
 *      ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "xstest.xs"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"


#line 16 "xstest.c"
XS(XS_xstest_hello)
{
    dXSARGS;
    if (items != 0)
        Perl_croak(aTHX_ "Usage: xstest::hello()");
    {
#line 11 "xstest.xs"
      printf("Hello, world!\n");
#line 25 "xstest.c"
    }
    XSRETURN_EMPTY;
}

#ifdef __cplusplus
extern "C"
#endif
XS(boot_xstest)
{
    dXSARGS;
    char* file = __FILE__;

    XS_VERSION_BOOTCHECK ;

        newXS("xstest::hello", XS_xstest_hello, file);
    XSRETURN_YES;
}