Changeset 22 for trunk/src/helpers/except.c

Timestamp:

Jan 14, 2001, 5:42:22 PM (25 years ago)

Author:

umoeller

Message:

Misc. updates.

File:

• trunk/src/helpers/except.c (modified) (4 diffs)

trunk/src/helpers/except.c

@@ -228 +228 @@
 #define INCL_DOSEXCEPTIONS
 #define INCL_DOSPROCESS
+#define INCL_DOSMISC
 #define INCL_DOSERRORS
 #include <os2.h>
@@ -456 +457 @@
                          PCONTEXTRECORD pContextRec)   // in: excpt info
 {
+    ULONG       aulBuf[3];
+    const char  *pcszVersion = "unknown";
+
     PTIB        ptib = NULL;
     PPIB        ppib = NULL;
@@ -463 +467 @@
     ULONG       ulObjNum,
                 ulOffset;
-                /* ulCountPages,
-                ulFlagsPage; */
-    // APIRET      arc;
-    // PULONG      pulStackWord;
-                // pulStackBegin;
     ULONG       ul;
 
@@ -498 +497 @@
         DosBeep( 250, 30);
     }
+
+    // generic exception info
+    DosQuerySysInfo(QSV_VERSION_MAJOR,      // 11
+                    QSV_VERSION_MINOR,      // 12
+                    &aulBuf, sizeof(aulBuf));
+    // Warp 3 is reported as 20.30
+    // Warp 4 is reported as 20.40
+    // Aurora is reported as 20.45
+
+    if (aulBuf[0] == 20)
+    {
+        switch (aulBuf[1])
+        {
+            case 30: pcszVersion = "Warp 3"; break;
+            case 40: pcszVersion = "Warp 4"; break;
+            case 45: pcszVersion = "WSeB kernel"; break;
+        }
+    }
+    fprintf(file,
+            "Running OS/2 version: %u.%u (%s)\n",
+            aulBuf[0],                      // major
+            aulBuf[1],
+            pcszVersion);
+
 
     // generic exception info