git-svn-id: trunk@2881 -
@@ -63,9 +63,9 @@ const
SIGCANCEL = 36; { thread cancellation signal used by libthread }
SIGLOST = 37; { resource lost (eg, record-lock lost) }
- SIG_BLOCK = 0;
- SIG_UNBLOCK = 1;
- SIG_SETMASK = 2;
+ SIG_BLOCK = 1;
+ SIG_UNBLOCK = 2;
+ SIG_SETMASK = 3;
SIG_DFL = 0 ;
SIG_IGN = 1 ;
@@ -69,6 +69,7 @@ begin
res:=214;
end;
+ reenable_signal(sig);
{ give runtime error at the position where the signal was raised }
if res<>0 then
HandleErrorAddrFrame(res,addr,nil);