R devel - Nov 2012 - Problems with MinGW and boost on Windows

Hi,

I am not sure how widespread this problem is, but definitely occurs for me
on 64 bit Win 7 with a 64 bit R.

I think I have isolated the issue (to a certain extent) in the attached
Test.cpp file. Basically, I think linking with boost serialization is
causing the plugin to fail.

If I compile Test.cpp with line 43 (Dummy* Read() ...) commented out, I get
the expected output in R:
>
dyn.load("../MinGW/Debug64/Tester.dll",DLLpath="C:/Sys/boost/MinGW64/boost_1_50_0/lib")
Hello World.
> .Call("add",c(1,3))
[1] 4
> is.loaded("add")
[1] TRUE

However, if line 43 is uncommented, the output changes to
>
dyn.load("../MinGW/Debug64/Tester.dll",DLLpath="C:/Sys/boost/MinGW64/boost_1_50_0/lib")
Hello World.
> .Call("add",c(1,3))
Error in .Call("add", c(1, 3)) : C symbol name "add" not in
load table
> is.loaded("add")
[1] FALSE

I am not sure what exactly is going wrong. This happens both if I link to
boost serialization statically or dynamically.

This is on R version R-2.15.1, and both boost serialization libraries and
the plugin are built with the gcc (4.6.3 20111208 prerelease) and make.exe
provided by RTools (Collection 2.16.0.1923) using the -m64 flag.

Build command was
g++  -c  "Test.cpp" -g -std=gnu++0x -m64 -O1 -DDEBUG  -o
obj/Debug64/Tester/Trunk_Test.o -I. -I/R/R-2.15.1/include
-I/R/R-2.15.1/library/Rcpp/include -I/Sys/boost/boost_1_50_0
g++ -shared -fPIC -o Debug64/Tester.dll @"MinGW\Tester.txt" -L.
-L/R/R-2.15.1/library/Rcpp/lib/x64 -L/R/R-2.15.1/bin/x64
-L/Sys/boost/MinGW64/boost_1_50_0/lib -LDebug64  -lRcpp -lR
 -lboost_serialization-mgw46-mt-d-1_50 -lboost_system-mgw46-mt-d-1_50
-Wl,--out-implib="Debug64/libTester.a" -m64

And for boost:
b2.exe --prefix=c:\Sys\boost\MinGW64\boost_1_50_0 toolset=gcc
address-model=64 link=static,shared -s BZIP2_SOURCE=C:\Sys\bzip2-1.0.6 -s
ZLIB_SOURCE=C:\Sys\zlib-1.2.7 install

Also note that this works fine on linux (Ubuntu).

I have been struggling to get past this for several weeks now... any help
would be greatly appreciated.

Thanks,
Florian

Sorry, didn't realize text attachments get stripped as well... here is
a link: http://pastebin.com/T3XhsjDY, and for the archives the actual
text

#define WIN32_LEAN_AND_MEAN
#define NOMINMAX 1
#define _WIN32_WINNT 0x0601
#define NTDDI_VERSION 0x06010000
#define _MSC_VER_WINNT _MSC_VER_WINNT_WIN7

#include <Rcpp.h>
#include <boost/archive/binary_iarchive.hpp>
#include <boost/filesystem.hpp>

struct World {
World() { Rprintf("Hello World.\n"); }
~World() { Rprintf("Goodbye World.\n"); }
};
World myWorld;

extern "C" {
SEXP add(SEXP symName);
}

SEXP add( SEXP x )
{
Rcpp::NumericVector xx(x);
return Rcpp::wrap( std::accumulate( xx.begin(), xx.end(), 0.0));
}

#define NVP(x) boost::serialization::make_nvp(#x,x)

class Dummy {
public:
int a;
Dummy() { }
template<class Archive>
    void serialize(Archive& ar, const unsigned int) { ar & NVP(a); }
};

class DummyReader
{
std::ifstream myifstream;
boost::archive::binary_iarchive ar;
public:
DummyReader(std::string const& filename) :
myifstream(filename,std::ios_base::in | std::ios_base::binary),
ar(myifstream) { }
Dummy* Read() { Dummy* item; try {ar & NVP(item); } catch
(boost::archive::archive_exception const&) { item=0; } return item; }
};