fpcsrc/rtl/beos/i386/dllprt.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

#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 operatingsystem_parameter_argc;
extern void * operatingsystem_parameter_argv;
extern void * operatingsystem_parameter_envp;

static char * _argv[] = {"dll",0};
static char * _envp[] = {0};

extern "C" void BEGIN()
{
        printf ("init\n");
        operatingsystem_parameter_argc=0;
        operatingsystem_parameter_argv = (void *)_argv;
        operatingsystem_parameter_envp = (void *)_envp;
        PASCALMAIN();
}

FPC_DLL::FPC_DLL()
{
  BEGIN();
}