Changeset 3188 for trunk/essentials/dev-lang/perl/os2/OS2

Timestamp:

Apr 22, 2007, 10:57:48 AM (18 years ago)

Author:

bird

Message:

Applied patch from Paul (aka Creeping).

Location:

trunk/essentials/dev-lang/perl/os2/OS2

Files:

• Process/Process.xs (modified) (6 diffs)
• REXX/REXX.xs (modified) (2 diffs)

trunk/essentials/dev-lang/perl/os2/OS2/Process/Process.xs

@@ -221 +221 @@
     PIB *pib;
     
+#ifndef __KLIBC__
     if (!(_emx_env & 0x200)) return (char*)ptypes[1]; /* not OS/2. */
+#endif
     if (CheckOSError(DosGetInfoBlocks(&tib, &pib))) 
         return NULL; 
@@ -234 +236 @@
     ULONG apptype;
     
+#ifndef __KLIBC__
     if (!(_emx_env & 0x200)) 
         croak("file_type not implemented on DOS"); /* not OS/2. */
+#endif
     if (CheckOSError(DosQueryAppType(path, &apptype))) {
 #if 0
@@ -481 +485 @@
          HSWITCH hSwitch;    
 
+#ifndef __KLIBC__
          if (!(_emx_env & 0x200)) 
              croak("switch_entry not implemented on DOS"); /* not OS/2. */
+#endif
          if (CheckWinError(hSwitch = 
                            myWinQuerySwitchHandle(hwnd, pid)))
@@ -683 +689 @@
     SWENTRY swentry;
 
+#ifndef __KLIBC__
     if (!(_emx_env & 0x200)) 
              croak("process_swentry not implemented on DOS"); /* not OS/2. */
+#endif
+
     fill_swentry(&swentry, hwnd, pid);
     return newSVpvn((char*)&swentry, sizeof(swentry));
@@ -697 +706 @@
     SV *sv = newSVpvn("",0);
 
+#ifndef __KLIBC__
     if (!(_emx_env & 0x200)) 
              croak("swentries_list not implemented on DOS"); /* not OS/2. */
+#endif
     if (!pWinQuerySwitchList)
         AssignFuncPByORD(pWinQuerySwitchList, ORD_WinQuerySwitchList);
@@ -759 +770 @@
     ULONG rc;                   /* For CheckOSError */
 
+#ifndef __KLIBC__
     if (!(_emx_env & 0x200)) 
              croak("change_entry() not implemented on DOS"); /* not OS/2. */
+#endif
     if (!pWinChangeSwitchEntry)
         AssignFuncPByORD(pWinChangeSwitchEntry, ORD_WinChangeSwitchEntry);

trunk/essentials/dev-lang/perl/os2/OS2/REXX/REXX.xs

@@ -15 +15 @@
 #endif
 
+#ifndef __KLIBC__
 extern ULONG _emx_exception (   EXCEPTIONREPORTRECORD *,
                                 EXCEPTIONREGISTRATIONRECORD *,
                                 CONTEXTRECORD *,
                                 void *);
+#endif
 
 static RXSTRING * strs;
@@ -158 +160 @@
 {
     dTHX;
+#ifndef __KLIBC__
     EXCEPTIONREGISTRATIONRECORD xreg = { NULL, _emx_exception };
+#endif
     int i, rc;
     unsigned long len;