Changeset 4818 for trunk/src/odincrt/initterm.cpp

Timestamp:

Dec 17, 2000, 12:33:37 AM (25 years ago)

Author:

bird

Message:

Watcom preparations.

File:

• trunk/src/odincrt/initterm.cpp (modified) (4 diffs)

trunk/src/odincrt/initterm.cpp

@@ -1 @@
-/* $Id: initterm.cpp,v 1.3 2000-02-05 02:05:37 sandervl Exp $ */
+/* $Id: initterm.cpp,v 1.4 2000-12-16 23:33:37 bird Exp $ */
 
 /*
@@ -35 +35 @@
 #include <exitlist.h>
 
+#ifdef __IBMCPP__
 extern "C" {
 /*-------------------------------------------------------------------*/
@@ -71 +72 @@
                                    ulFlag)
 {
-   size_t i;
    APIRET rc;
 
@@ -134 +134 @@
    return ;
 }
+
+#elif defined(__WATCOM_CPLUSPLUS__)
+
+/*
+ * Watcom dll init and term routines.
+ */
+
+int __dll_initialize(unsigned long hModule, unsigned long ulFlag)
+{
+    APIRET rc;
+    #if 1 /*
+          * Experimental console hack. Sets apptype to PM anyhow.
+          * First Dll to be initiated should now allways be OdinCrt!
+          * So include odincrt first!
+          */
+    PPIB pPIB;
+    PTIB pTIB;
+    rc = DosGetInfoBlocks(&pTIB, &pPIB);
+    if (rc != NO_ERROR)
+        return 0UL;
+    pPIB->pib_ultype = 3;
+    #endif
+    return 1;
+}
+
+int __dll_terminate(unsigned long hModule, unsigned long ulFlag)
+{
+    return 1;
+}
+
+#else
+#error message("compiler is not supported");
+#endif
+