Changeset 123 for trunk/src/kernel32/os2util.cpp

Timestamp:

Jun 19, 1999, 3:57:51 PM (26 years ago)

Author:

sandervl

Message:

Changes for Win32 TIB allocation (not activated)

File:

• trunk/src/kernel32/os2util.cpp (modified) (3 diffs)

trunk/src/kernel32/os2util.cpp

@@ -1 @@
-/* $Id: os2util.cpp,v 1.3 1999-06-19 10:54:42 sandervl Exp $ */
+/* $Id: os2util.cpp,v 1.4 1999-06-19 13:57:51 sandervl Exp $ */
 
 /*
@@ -14 +14 @@
 #define INCL_BASE
 #define INCL_DOSPROCESS
+#define INCL_DOSSEL
 #include <os2wrap.h>    //Odin32 OS/2 api wrappers
 #include <string.h>
@@ -207 +208 @@
 }
 
-
-
-
 void  OS2Wait(ULONG msec)
 {
    DosSleep(msec);
 }
+
+//******************************************************************************
+//Wrapper for Dos16AllocSeg
+//******************************************************************************
+BOOL OS2AllocSel(ULONG size, USHORT *selector)
+{ 
+   return (Dos16AllocSeg(size, selector, SEG_NONSHARED) == 0);
+}
+//******************************************************************************
+//Wrapper for Dos16FreeSeg
+//******************************************************************************
+BOOL OS2FreeSel(USHORT selector)
+{
+   return (Dos16FreeSeg(selector) == 0);
+}
+//******************************************************************************
+//Wrapper for Dos32SelToFlat
+//******************************************************************************
+PVOID OS2SelToFlat(USHORT selector)
+{
+   return (PVOID)DosSelToFlat(selector << 16);
+}
+//******************************************************************************
+//Get TIB data
+//******************************************************************************
+ULONG OS2GetTIB(int tiboff)
+{
+ PTIB   ptib;
+ PPIB   ppib;
+ APIRET rc;
+
+   rc = DosGetInfoBlocks(&ptib, &ppib);
+   if(rc) {
+        return 0;
+   }
+   switch(tiboff)
+   {
+        case TIB_STACKTOP:
+                return (ULONG)ptib->tib_pstack;
+        case TIB_STACKLOW:
+                return (ULONG)ptib->tib_pstacklimit;
+        default:
+                return 0;
+   }
+}
+//******************************************************************************
+//Get PIB data
+//******************************************************************************
+ULONG OS2GetPIB(int piboff)
+{
+ PTIB   ptib;
+ PPIB   ppib;
+ APIRET rc;
+
+   rc = DosGetInfoBlocks(&ptib, &ppib);
+   if(rc) {
+        return 0;
+   }
+   switch(piboff) 
+   {
+        case PIB_TASKHNDL:
+                return ppib->pib_hmte;
+        case PIB_TASKTYPE:
+                if(ppib->pib_ultype == 3) {
+                        return TASKTYPE_PM;
+                }
+                else    return TASKTYPE_VIO;
+        default: 
+                return 0;
+   }
+}
+//******************************************************************************
+//******************************************************************************