mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:23:24 +01:00
40 lines
587 B
C++
40 lines
587 B
C++
#include <stdio.h>
|
|
|
|
class FPC_DLL
|
|
{
|
|
public:
|
|
FPC_DLL();
|
|
// ~FPC_DLL();
|
|
};
|
|
|
|
static FPC_DLL fpc_dll();
|
|
|
|
//FPC_DLL::~FPC_DLL()
|
|
//{
|
|
// printf ("main thread ended.");
|
|
//}
|
|
|
|
|
|
extern "C" void PASCALMAIN(void);
|
|
extern int U_SYSBEOS_ARGC;
|
|
extern void * U_SYSBEOS_ARGV;
|
|
extern void * U_SYSBEOS_ENVP;
|
|
|
|
static char * _argv[] = {"dll",0};
|
|
static char * _envp[] = {0};
|
|
|
|
extern "C" void BEGIN()
|
|
{
|
|
printf ("init\n");
|
|
U_SYSBEOS_ARGC=0;
|
|
U_SYSBEOS_ARGV = (void *)_argv;
|
|
U_SYSBEOS_ENVP = (void *)_envp;
|
|
PASCALMAIN();
|
|
}
|
|
|
|
FPC_DLL::FPC_DLL()
|
|
{
|
|
BEGIN();
|
|
}
|
|
|