C compilers don't really care how we name it.
: smpi_shared_set_call(#func, input, func(__VA_ARGS__)))
/* Fortran specific stuff */
-XBT_PUBLIC(int) __attribute__((weak)) smpi_simulated_main(int argc, char** argv);
+XBT_PUBLIC(int) __attribute__((weak)) smpi_simulated_main__(int argc, char** argv);
XBT_PUBLIC(int) __attribute__((weak)) MAIN__(void);
XBT_PUBLIC(int) smpi_main(int (*realmain) (int argc, char *argv[]),int argc, char *argv[]);
-#define main smpi_simulated_main(int argc, char **argv);\
+#define main smpi_simulated_main__(int argc, char **argv);\
int main(int argc, char **argv){\
-MAIN__(&smpi_simulated_main,&argc,argv);\
+MAIN__(&smpi_simulated_main__,&argc,argv);\
return 0;\
}\
-int smpi_simulated_main
+int smpi_simulated_main__
int __attribute__((weak)) xargc;
char** __attribute__((weak)) xargv;
-int __attribute__((weak)) smpi_simulated_main(int argc, char** argv) {
+int __attribute__((weak)) smpi_simulated_main__(int argc, char** argv) {
xbt_die("Should not be in this smpi_simulated_main");
return 1;
}
int __attribute__((weak)) main(int argc, char** argv) {
- return smpi_main(smpi_simulated_main,argc,argv);
+ return smpi_main(smpi_simulated_main__,argc,argv);
}
int __attribute__((weak)) MAIN__(){
- return smpi_main(smpi_simulated_main,xargc, xargv);
+ return smpi_main(smpi_simulated_main__,xargc, xargv);
};
int smpi_main(int (*realmain) (int argc, char *argv[]),int argc, char *argv[])
CMAKE_LINKARGS="-L@libdir@"
if [ "@WIN32@" != "1" ]; then
- CFLAGS="-O2 -Dmain=smpi_simulated_main"
+ CFLAGS="-O2 -Dmain=smpi_simulated_main__"
LINKARGS="-lsimgrid -lsmpi -lm"
else
CFLAGS="-O2 -include @includedir@/smpi/smpi_main.h"
next;
}
if(/\/* Main program alias \*\/\s*int\s+.*\s*\(\s*\)\s*{(.*)}/) {
- $_ = "int smpi_simulated_main(int argc, char** argv) { smpi_process_init(&argc, &argv); $1 }\n";
+ $_ = "int smpi_simulated_main__(int argc, char** argv) { smpi_process_init(&argc, &argv); $1 }\n";
}
print $tmp "$_\n";
}