1 #include <stdio.h>
2 
3 class FPC_DLL
4 {
5   public:
6     FPC_DLL();
7 //    ~FPC_DLL();
8 };
9 
10 static FPC_DLL fpc_dll();
11 
12 //FPC_DLL::~FPC_DLL()
13 //{
14 //      printf ("main thread ended.");
15 //}
16 
17 
18 extern "C" void PASCALMAIN(void);
19 extern int operatingsystem_parameter_argc;
20 extern void * operatingsystem_parameter_argv;
21 extern void * operatingsystem_parameter_envp;
22 
23 static char * _argv[] = {"dll",0};
24 static char * _envp[] = {0};
25 
BEGIN()26 extern "C" void BEGIN()
27 {
28         printf ("init\n");
29         operatingsystem_parameter_argc=0;
30         operatingsystem_parameter_argv = (void *)_argv;
31         operatingsystem_parameter_envp = (void *)_envp;
32         PASCALMAIN();
33 }
34 
FPC_DLL()35 FPC_DLL::FPC_DLL()
36 {
37   BEGIN();
38 }
39 
40