Selaa lähdekoodia

+ made sigaction record more kylix like

git-svn-id: trunk@1102 -
florian 20 vuotta sitten
vanhempi
commit
ecadd1758f
1 muutettua tiedostoa jossa 8 lisäystä ja 4 poistoa
  1. 8 4
      packages/base/libc/sigactionh.inc

+ 8 - 4
packages/base/libc/sigactionh.inc

@@ -2,10 +2,14 @@
 type
 type
    P_sigaction = ^_sigaction;
    P_sigaction = ^_sigaction;
    _sigaction = record // Renamed, avoid conflict with sigaction function
    _sigaction = record // Renamed, avoid conflict with sigaction function
-     sa_handler : __sighandler_t;
-     sa_mask : __sigset_t;
-     sa_flags : longint;
-     sa_restorer : procedure ;cdecl;
+     case integer of
+       1: (sa_handler : __sighandler_t;
+           sa_mask : __sigset_t;
+           sa_flags : longint;
+           sa_restorer : procedure ;cdecl;
+          );
+       // Kylix compatibility
+       2: (__sigaction_handler: __sighandler_t);
    end;
    end;
 
 
 const
 const